//
SPAMV='(CYL,(100,10),RLSE)',
//
SPAGY='(CYL,(100,10),RLSE)',
//
SPATD='(CYL,(100,10),RLSE)',
//
NRFILE=,
//
SPLTFILE=,
//
INPUTMIB=,
//
INPUTSPE=,
//
OUTMIMA=,
//
OUTFILE=,
//
OUTGCP=,
//
OUTGCO=,
//
OUTGGC=,
//
OUTGGS=,
//
VOLS='SER=$VOLUN',
//
UNITS=$UNITUN,
//
SPAOT='(CYL,(100,10),RLSE)',
//
SRTSPC='(100,10)'
//***************************************************************
//INPUT EXEC PGM=BVPTU001
//*-----------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//
DD DSN=$BCOB,DISP=SHR
//CARTE
DD DDNAME=SYSIN
//PAC7MB
DD DSN=&&MIBJMB,DISP=(,PASS),
//
UNIT=&UWK,SPACE=&SPAMB,
//
DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//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)
//PRLMIMA EXEC PGM=BVPRMSYS,PARM='&OUTMIMA'
UPDT FILE SPACE
UPDP FILE SPACE
CPSN FILE SPACE
NOT RETRIEVED ENTITIES FILE
SPLITTING LIBRARIES FILE
PROGRAM/MACRO FILE
SPECIAL CHAR FILE
OUTPUT MIMA COMMAND
OUTPUT FILE MIGRATION
OUTPUT GCP COMMAND
OUTPUT GCO COMMAND
OUTPUT GGC COMMAND
OUTPUT GGS COMMAND
BACKUP VOLUME
BACKUP UNIT
OUTPUT FILE SPACE
TEMPORARY SPACE
Chapitre 8. Utilitaires RPP
271