Copy PANLIB all members from PANLIB to PS and PO

Products

• Panvalet

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.


 

Environment

z/OS
Panvalet R14.6

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.