//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=&&LIFILE,DISP=(,PASS),SPACE=(TRK,1),
//
UNIT=&UWK,
//
DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//LISFILE EXEC PGM=IDCAMS
//*---------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN
DD DSN=&&LIFILE,DISP=(OLD,DELETE)
//PRDFILE EXEC PGM=BVPRMSYS,COND=(4,EQ,LISFILE),PARM='&OUTFILE'
//*-------------------------------------------------------
//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=&&DLFILE,DISP=(,PASS),SPACE=(TRK,1),
//
UNIT=&UWK,
//
DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//DELFILE EXEC PGM=IDCAMS,COND=(4,EQ,LISFILE)
//*----------------------------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN
DD DSN=&&DLFILE,DISP=(OLD,DELETE)
//PRLFIL2 EXEC PGM=BVPRMSYS,PARM='&OUTFIL2'
//*---------------------------------------
//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=&&LIFIL2,DISP=(,PASS),SPACE=(TRK,1),
//
UNIT=&UWK,
//
DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//LISFIL2 EXEC PGM=IDCAMS
//*---------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN
DD DSN=&&LIFIL2,DISP=(OLD,DELETE)
//PRDFIL2 EXEC PGM=BVPRMSYS,COND=(4,EQ,LISFIL2),PARM='&OUTFIL2'
//*-------------------------------------------------------
//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=&&DLFIL2,DISP=(,PASS),SPACE=(TRK,1),
//
UNIT=&UWK,
//
DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//DELFIL2 EXEC PGM=IDCAMS,COND=(4,EQ,LISFIL2)
//*----------------------------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN
DD DSN=&&DLFIL2,DISP=(OLD,DELETE)
//PACA10 EXEC PGM=BVPACA10
Chapitre 8. Utilitaires RPP
313