Copy Select Members to a PDS

Products

• Panvalet

Issue/Introduction

Need to copy select members from a Panvalet panlib to a PDS.
All embedded ++INCLUDE statements must also be expanded within each member.

 

Environment

Release:ALL

Resolution

The following sample execution of PAN#1 would copy 3 members.

Column 72 entries are important:

On the ++OPTION
  0(zero) - generates output to a single PDS member.
  1 - incorporates output generated by level 2 and above nested INCLUDEs into the PDS member generated by the level 1 INCLUDE instead of creating separate PDS members.
  blank - causes a new member to be written to the PDS.

On the ++WRITE
  E - expand ++INCLUDEs, independent of the Panvalet installation option specified.
  N - do not expand ++INCLUDEs, independent of the Panvalet installation option specified.
  blank - expands ++INCLUDES according to the installation options.

//        JOB
//STEP01  EXEC PGM=PAN#1
//STEPLIB  DD DSN=Prefix.panvlt.CBA3LINK,DISP=SHR
//PANDD1   DD DSN=User.panvlt.panlib,DISP=SHR
//PDSOUT   DD DSN=User.pds,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD SYSOUT=*
//SYSIN    DD *
++OPTION OUTPUT,PDSOUT,COPY2PDS
++WRITE WORK,COPY2PDS                                                  E
++OPTION OUTPUT,PDSOUT,COPYTEST
++WRITE WORK,COPYTEST                                                  E
++OPTION OUTPUT,PDSOUT,COPYTST2
++WRITE WORK,COPYTST2                                                  E
/*
//

Each member being written much have a separate ++OPTION OUTPUT statement.

For more information, see the OPTION Command and WRITE Command of Using document.