//LISGCP EXEC PGM=IDCAMS
//*---------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN
DD DSN=&&LIGCP,DISP=(OLD,DELETE)
//PRDGCP EXEC PGM=BVPRMSYS,COND=(4,EQ,LISGCP),PARM='&OUTGCP'
//*-------------------------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//
DD DSN=$BCOB,DISP=SHR
//SYSOUT DD SYSOUT=&OUT
//PACRIN DD DSN=&INDSN..BVPSY(DLOUTFIL),DISP=SHR
//PACROU DD DSN=&&DLGCP,DISP=(,PASS),SPACE=(TRK,1),
//
UNIT=&UWK,
//
DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//DELGCP EXEC PGM=IDCAMS,COND=(4,EQ,LISGCP)
//*----------------------------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN
DD DSN=&&DLGCP,DISP=(OLD,DELETE)
//PRLGCO EXEC PGM=BVPRMSYS,PARM='&OUTGCO'
//*---------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//
DD DSN=$BCOB,DISP=SHR
//SYSOUT DD SYSOUT=&OUT
//PACRIN DD DSN=&INDSN..BVPSY(LIOUTFIL),DISP=SHR
//PACROU DD DSN=&&LIGCO,DISP=(,PASS),SPACE=(TRK,1),
//
UNIT=&UWK,
//
DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//LISGCO EXEC PGM=IDCAMS
//*---------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN
DD DSN=&&LIGCO,DISP=(OLD,DELETE)
//PRDGCO EXEC PGM=BVPRMSYS,COND=(4,EQ,LISGCO),PARM='&OUTGCO'
//*-------------------------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//
DD DSN=$BCOB,DISP=SHR
//SYSOUT DD SYSOUT=&OUT
//PACRIN DD DSN=&INDSN..BVPSY(DLOUTFIL),DISP=SHR
//PACROU DD DSN=&&DLGCO,DISP=(,PASS),SPACE=(TRK,1),
//
UNIT=&UWK,
//
DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//DELGCO EXEC PGM=IDCAMS,COND=(4,EQ,LISGCO)
//*----------------------------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN
DD DSN=&&DLGCO,DISP=(OLD,DELETE)
//PRLGGC EXEC PGM=BVPRMSYS,PARM='&OUTGGC'
//*---------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//
DD DSN=$BCOB,DISP=SHR
//SYSOUT DD SYSOUT=&OUT
//PACRIN DD DSN=&INDSN..BVPSY(LIOUTFIL),DISP=SHR
//PACROU DD DSN=&&LIGGC,DISP=(,PASS),SPACE=(TRK,1),
//
UNIT=&UWK,
Chapitre 8. Utilitaires RPP
255