zOs/JCL/AFPPRINT

//A540769P  JOB (CP00,KE50)
//*MAIN CLASS=PVS
//*-------------------------------------------------------------------*
//        SET  INPUT=PVSO.RZ1.T0.TS3S6283.D05305.T131918.A5B1.AFP
//*       SET  INPUT=WGR.U0034.T0.AKT.DATAVBA(PVSNDBH2)
//*       SET  INPUT=A540769.TEST.JESOUT.T6BEDO.NOCPYGRP
//*-------------------------------------------------------------------* 00030000
//        SET  COPIES=1                                                 00040000
//*       SET  FORMS=WHC0T                                              00040000
//*       SET  FORMS=W7817                                              00040000
//        SET  FORMS=TEST                                               00040000
//*       SET  DEST=RZ2,CLASS=3                                         00040000
//        SET  DEST=B643,CLASS=2                                        00040000
//*-------------------------------------------------------------------*
//*-------------------------------------------------------------------* 00050000
//IEBGENER EXEC PGM=ICEGENER,
//             COND=(0,NE)
//*-------------------------------------------------------------------* 00050000
//OUT1  OUTPUT PRMODE=PAGE,DEST=&DEST,
//             CLASS=&CLASS,FORMS=&FORMS,COPIES=&COPIES
//*            XSERLIB=WGR.U0034.T0.AKT.AFPLIB
//*            OVERLAYF=O1PVTEST,OVERLAYB=O1PVTEST
//*            OVERLAYF=O1CIT024,OVERLAYB=O1CIT024
//SYSPRINT DD  SYSOUT=*
//SYSIN   DD   DUMMY
//SYSUT1  DD   DISP=SHR,DSN=&INPUT
//SYSUT2  DD   SYSOUT=(,),OUTPUT=*.OUT1