//PACROU DD DSN=&&LIGGS,DISP=(,PASS),SPACE=(TRK,1),
//
UNIT=&UWK,
//
DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//LISGGS EXEC PGM=IDCAMS
//*---------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN
DD DSN=&&LIGGS,DISP=(OLD,DELETE)
//PRDGGS EXEC PGM=BVPRMSYS,COND=(4,EQ,LISGGS),PARM='&OUTGGS'
//*-------------------------------------------------------
//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=&&DLGGS,DISP=(,PASS),SPACE=(TRK,1),
//
UNIT=&UWK,
//
DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//DELGGS EXEC PGM=IDCAMS,COND=(4,EQ,LISGGS)
//*----------------------------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN
DD DSN=&&DLGGS,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
//
DD DSN=$BCOB,DISP=SHR
//SYSOUT
DD SYSOUT=&OUT
//SYSOUX
DD SYSOUT=&OUT
//SYSPRINT DD SYSOUT=&OUT
//PAC7AE
DD DSN=&INDSV..BVPAE,DISP=SHR
//ANLSR
DD DSN=&INDUV..&BASE.AN,DISP=SHR
Chapitre 8. Utilitaires RPP
237