book
Article ID: 72233
calendar_today
Updated On:
Issue/Introduction
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 ?
Resolution
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.