//PRLFILE EXEC PGM=BVPRMSYS,PARM='&OUTFILE'
//*---------------------------------------
//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)
//PRMSYS EXEC PGM=BVPRMSYS,PARM='&USER,&INDUV'
//*-------------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//
DD DSN=$BCOB,DISP=SHR
//SYSOUT DD SYSOUT=&OUT
//PACRIN DD DSN=&INDSN..BVPSY(DFSYSEXT),DISP=SHR
//PACROU DD DSN=&&DFSYSEXT,DISP=(,PASS),SPACE=(TRK,1),
//
UNIT=&UWK,
//
DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//DEFINE EXEC PGM=IDCAMS
//*---------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN
DD DSN=&&DFSYSEXT,DISP=(OLD,DELETE)
//MAXKEY EXEC PGM=IDCAMS
//*----------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSPAF
DD DSN=&INDUV..SYSEXT.&USER,DISP=SHR
//MAXKEY
DD DSN=&INDSN..BVPSY(MAXKEY),DISP=SHR
//SYSIN
DD DSN=&INDSN..BVPSY(REPRO999),DISP=SHR
//*
//PACX
EXEC PGM=BVPACX,REGION=0K
//*-------------------------------
//*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
//*:
DD DSN=&VSAMCAT,DISP=SHR
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
Chapitre 8. Utilitaires RPP
299