Copy PANLIB 8 digits members from PANLIB to PS and PO

Document ID : KB000072233
Last Modified Date : 01/03/2018
Show Technical Document Details
Question:
When many members are copied from PANLINB to PO file by using the ++WRITE WORK, PREFIX=????????, the 8 digits member is overwritten by the 9 digits and/or 10 digits member. Also, they don't want to expand the ++INCLUDE. How to copy only 8 digits members ?
Environment:
z/OS
Panvalet R14.6
Answer:
You can copy only 8 digits member by using the ++WRITE WORK,????????.

The following is the sample JCL.

----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
//STEP01  EXEC PGM=PAN#2,PARM='OPEN=INP'
//STEPLIB  DD DSN=PANVLT.R146.SP00.CBA3LINK,DISP=SHR
//SYSPRINT DD SYSOUT=*
//PANDD1   DD DSN=USER.PANVLT.TESTLIB,DISP=SHR
//SYSPUNCH DD DSN=USER.PANVLT.SYSIN,DISP=(,CATLG,DELETE),
//         SPACE=(CYL,(1,1),RLSE),UNIT=SYSDA,VOL=SER=WORK01,
//         DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=3120)
//SYSIN    DD *
++USING PGP                                                             
+-WRITE WORK,????????                                                  N
++PRINT 0-UP
/*
//*
//STEP02  EXEC PGM=PAN#1,PARM='OPEN=INP'
//STEPLIB  DD DSN=PANVLT.R146.SP00.CBA3LINK,DISP=SHR
//SYSPRINT DD SYSOUT=*
//PANDD1   DD DSN=USER.PANVLT.TESTLIB,DISP=SHR
//PDSOUT   DD DSN=USER.PANVLT.PDS,DISP=(,CATLG,DELETE),
//         SPACE=(CYL,(5,5,50),RLSE),UNIT=SYSDA,VOL=SER=WORK01,
//         DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=3120)
//SYSIN    DD *
++OPTION OUTPUT,PDSOUT
//         DD DSN=USER.PANVLT.SYSIN,DISP=(OLD,DELETE)
/*
//
Additional Information:
For more information, please see the WRITE Command and the Group Processor(PGP) of the documents.