Copy PANLIB all members from PANLIB to PS and PO

Document ID : KB000072232
Last Modified Date : 27/02/2018
Show Technical Document Details
Question:
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.


 
Environment:
z/OS
Panvalet R14.6
Answer:
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.