zOs/JCL/POSYAFP

//A540769P  JOB (CP00,KE50)                                             00010001
//*MAIN CLASS=CMNA                                                      00020001
//*
//*
//*-------------------------------------------------------------------*
//* MERGE RESOURCE- AND DATA-OUTPUT TO AFPDS                          *
//*-------------------------------------------------------------------*
// IF (RC EQ 0) THEN
//GENER5B2 EXEC PGM=ICEGENER
//*
//SYSPRINT  DD SYSOUT=*
//CEEDUMP   DD SYSOUT=*
//SYSABEND  DD SYSOUT=*
//*
//SYSIN     DD DUMMY
//SYSUT1    DD DISP=SHR,DSN=A540769.TEST.POSYTAB
//*         DD DISP=SHR,DSN=A540769.TEST.POSYPOAF
//RZ1   OUTPUT PRMODE=PAGE,DEST=B643,
//             CLASS=2,FORMS=WEC0T,COPIES=1,
//             USERLIB=(WGR.U0034.T0.AKT.AFPLIB),
//             OVERLAYB=O1CIT024,OVERLAYF=O1CIT024
//RZ2   OUTPUT PRMODE=PAGE,DEST=RZ2,
//             CLASS=3,FORMS=WEC0T,COPIES=1,
//             USERLIB=(WGR.U0034.T0.AKT.AFPLIB),
//          FORMDEF=C#GH1,
//          PAGEDEF=PVWGR1
//*SYSUT2    DD SYSOUT=2,DEST=B643,RECFM=VBA
//SYSUT2    DD SYSOUT=(,),OUTPUT=*.RZ2,RECFM=VBA
// ENDIF