zOs/JCL/POSYACIF

//A540769P  JOB (CP00,KE50)                                             00010001
//*MAIN CLASS=CMNA                                                      00020001
//*
//*===================================================================*
//* INCLUDE-MEMBER INC#X51X                                           *
//*===================================================================*
//*
//*-------------------------------------------------------------------*
//* BUILD AFPDS OF AUS5B2                                             *
//*-------------------------------------------------------------------*
//              SET PREB=PVSO.RZ1.T0.TS3S5543.D05250.T135823
//*             SET FINP=&PREB..AUS5B2
//*             SET FDCB=&MREB..EINDAT1
//              SET FDCB=WGR.U0034.T0.BJESOUT1.B1.D05365.T2359599
//              SET FINP=A540769.TEST.POSYTAB
//ACIF5B2# EXEC PGM=APKACIF,
//             PARM=('',
//             'PARMDD=DDPARM,',
//             'MSGDD=DDMSG,')
//*
//SYSPRINT  DD SYSOUT=*
//CEEDUMP   DD SYSOUT=*
//SYSABEND  DD SYSOUT=*
//*
//DDOUT     DD DISP=(NEW,PASS),
//             UNIT=SYSDA,
//             DATACLAS=NULL30,
//             DCB=&FDCB,
//             SPACE=(CYL,(10,75),RLSE)
//DDRES     DD DISP=(NEW,PASS),
//             UNIT=SYSDA,
//             DCB=&FDCB,
//             SPACE=(CYL,(10,75),RLSE)
//DDIDX     DD DISP=(NEW,PASS),
//             UNIT=SYSDA,
//             DCB=&FDCB,
//             SPACE=(CYL,(10,75),RLSE)
//DDMSG     DD SYSOUT=*
//DDINPUT   DD DISP=SHR,DSN=&FINP
//          DD DISP=SHR,DSN=A540769.TEST.POSYPOAF
//DDPARM    DD *
INPUTDD=DDINPUT                    /* DDNAME FOR INPUT-FILE (DATA)   */
OUTPUTDD=DDOUT                     /* DDNAME FOR OUTPUT-FILE (DATA)  */
RESOBJDD=DDRES                     /* DDNAME FOR RESOURCE-OUTPUT     */
INDEXDD=DDIDX                      /* DDNAME FOR INDEX-FILE          */

RESTYPE=ALL                        /* INCLUDE ALL RESOURCES          */

CC=YES                             /* CARRIAGE-CONTROL               */
CCTYPE=A                           /* ASA-CHARACTERS                 */
TRC=NO                             /* NO TRC'S IN INPUT              */

CPGID=500                          /* CODE PAGE IDENTIFIER FOR TLE'S */

PSEGLIB=WGR.U0034.T0.AKT.AFPLIB,       /* PAGESEG-LIBRARIES          */
        PSF.DIV.P0.AKT.P3820.PRTPSEG   /*                            */
FONTLIB=WGR.U0034.T0.AKT.AFPLIB,       /* FONT-LIBRARIES             */
        PSF.DIV.P0.AKT.P300.PRTFONT,   /*                            */
        PSF.DIV.P0.AKT.P240.PRTFONT    /*                            */
OVLYLIB=WGR.U0034.T0.AKT.AFPLIB.PVS,   /* OVERLAY-LIBRARIES          */
        WGR.U0034.P0.AKT.AFPLIB,       /* OVERLAY-LIBRARIES          */
        PSF.DIV.P0.AKT.P38PP.PRTOVLY,  /*                            */
        PSF.DIV.P0.AKT.P38P1.PRTOVLY   /*                            */
FDEFLIB=WGR.U0034.T0.AKT.AFPLIB        /* FORMDEF-LIBRARIES          */
PDEFLIB=WGR.U0034.T0.AKT.AFPLIB        /* PAGEDEF-LIBRARIES          */

FORMDEF=F1C#GH1                        /* FORMDEF USED               */
PAGEDEF=P1PVWGR1                       /* PAGEDEF USED               */
/*
//*
//*-------------------------------------------------------------------*
//* 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=*.ACIF5B2#.DDRES
//          DD DISP=SHR,DSN=*.ACIF5B2#.DDOUT
//RZ2   OUTPUT PRMODE=PAGE,DEST=RZ2,
//             CLASS=3,FORMS=WEC0T,COPIES=1
//*SYSUT2    DD SYSOUT=T,RECFM=VBA
//*SYSUT2    DD SYSOUT=2,DEST=B643,RECFM=VBA
//SYSUT2    DD SYSOUT=(,),OUTPUT=*.RZ2,RECFM=VBA
// ENDIF