//PAC7RN
DD DSN=&NRFILE,DISP=SHR
//PAC7NR
DD DSN=&INDUV..MIAMNR.&USER,DISP=SHR
//SORTWK01 DD UNIT=&UWK,SPACE=(CYL,(30,1),,CONTIG)
//SORTWK02 DD UNIT=&UWK,SPACE=(CYL,(30,1),,CONTIG)
//SORTWK03 DD UNIT=&UWK,SPACE=(CYL,(30,1),,CONTIG)
//SYSPRINT DD SYSOUT=&OUT
//SYSOUT
DD SYSOUT=&OUT
//SYSUDUMP DD SYSOUT=&OUT
//PACSJR EXEC PGM=BVPACSJR
//*-----------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//
DD DSN=$BCOB,DISP=SHR
//ANLSR
DD DSN=&INDUV..&BASE.AN,DISP=SHR
//PAC7AN
DD SUBSYS=(&LSR,'DDNAME=ANLSR','BUFND=40','BUFNI=30')
//ARLSR
DD DSN=&INDUV..&BASE.AR,DISP=SHR
//PAC7AR
DD SUBSYS=(&LSR,'DDNAME=ARLSR','BUFND=40')
//AYLSR
DD DSN=&INDUV..&BASE.AY,DISP=SHR
//PAC7AY
DD SUBSYS=(&LSR,'DDNAME=AYLSR','BUFND=40')
//PAC7AE
DD DSN=&INDSV..BVPAE,DISP=SHR
//GNLSR
DD DSN=&INDSV..BVPGN,DISP=SHR
//PACGGN
DD SUBSYS=(&LSR,'DDNAME=GNLSR','BUFND=10','BUFNI=10')
//GRLSR
DD DSN=&INDSV..BVPGR,DISP=SHR
//PACGGR
DD SUBSYS=(&LSR,'DDNAME=GRLSR','BUFND=10')
//GULSR
DD DSN=&INDSV..BVPGU,DISP=SHR
//PACGGU
DD SUBSYS=(&LSR,'DDNAME=GULSR','BUFND=10','BUFNI=10')
//PAC7MB
DD DSN=&&MIBJMB,DISP=(OLD,PASS)
//PAC7PJ
DD DSN=&INDUN..&BASE.PJ(0),DISP=SHR
//PAC7RQ
DD DSN=&&RQJR,DISP=(,PASS),
//
UNIT=&UNITS,VOL=&VOLS,
//
SPACE=&SPAMV,
//
DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//PAC7DD
DD SYSOUT=&OUT
//PAC7EE
DD SYSOUT=&OUT
//SYSPRINT DD SYSOUT=&OUT
//SYSOUT
DD SYSOUT=&OUT
//SYSUDUMP DD SYSOUT=&OUT
//PACS93 EXEC PGM=BVPACS93,COND=(4,LT,PACSJR)
//*-------------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
//*:
DD DSN=&VSAMCAT,DISP=SHR
//ANLSR
DD DSN=&INDUV..&BASE.AN,DISP=SHR
//PAC7AN
DD SUBSYS=(&LSR,'DDNAME=ANLSR','BUFND=40','BUFNI=30')
//ARLSR
DD DSN=&INDUV..&BASE.AR,DISP=SHR
//PAC7AR
DD SUBSYS=(&LSR,'DDNAME=ARLSR','BUFND=40')
//PAC7AE
DD DSN=&INDSV..BVPAE,DISP=SHR
//PAC7SL
DD DSN=&SPLTFILE,DISP=SHR
//PAC7RQ
DD DSN=&&RQJR,DISP=(OLD,PASS)
//PAC7QR
DD DSN=&&QR,DISP=(,PASS),UNIT=&UWK,
//
SPACE=&SPAMV,
//
DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//SORTWK01 DD UNIT=&UWK,SPACE=(CYL,(3,1),,CONTIG)
//SORTWK02 DD UNIT=&UWK,SPACE=(CYL,(3,1),,CONTIG)
//SORTWK03 DD UNIT=&UWK,SPACE=(CYL,(3,1),,CONTIG)
//SYSPRINT DD SYSOUT=&OUT
Chapitre 8. Utilitaires RPP
275