book
Article ID: 72232
calendar_today
Updated On:
Issue/Introduction
The customer wants to output all members from PANLIB to PS file. And, they want to output the member name at the Top of each data. Also, they don't want to expand the ++INCLUDE. As an image, it is the same as converting PO file to PS file by PGM=IEBPTPCH.
Resolution
CA Panvalet can not output the same image data as the PGM=IEBPTPCH.
But, by using the ++WRITE PRINT,member, it is possible to output similar images.
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 PRINT,* N
/*
//*
//STEP02 EXEC PGM=PAN#1,PARM='OPEN=INP'
//STEPLIB DD DSN=PANVLT.R146.SP00.CBA3LINK,DISP=SHR
//PANDD1 DD DSN=USER.PANVLT.TESTLIB,DISP=SHR
//SYSPRINT DD DSN=USER.PANVLT.PS,DISP=(,CATLG,DELETE),
// SPACE=(CYL,(5,5),RLSE),UNIT=SYSDA,VOL=SER=WORK01,
// DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=3120)
//SYSIN 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.