//
UNIT=&UNITS,VOL=&VOLS,
//
SPACE=&SPAWK,
//
DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600)
//PAC7KU
DD DSN=&&PAC7KU,DISP=(,PASS),
//
UNIT=&UNITS,VOL=&VOLS,
//
SPACE=&SPAWK,
//
DCB=(RECFM=FB,LRECL=260,BLKSIZE=26000)
//SORTLIB DD DSN=&SORTLIB,DISP=SHR
//SORTWK01 DD UNIT=&UWK,SPACE=(CYL,2,,CONTIG)
//SORTWK02 DD UNIT=&UWK,SPACE=(CYL,2,,CONTIG)
//SORTWK03 DD UNIT=&UWK,SPACE=(CYL,2,,CONTIG)
//SYSPRINT DD SYSOUT=&OUT
//SYSOUT
DD SYSOUT=&OUT
//SYSUDUMP DD SYSOUT=&OUT
//PACMM EXEC PGM=BVPACMM,COND=((4,LT,PACA10),
//
(4,LT,PACA30))
//*-------------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//
DD DSN=$BCOB,DISP=SHR
//*
DD DSN=$DFHEXC,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')
//PAC7SC
DD DSN=&INDSV..BVPSC,DISP=SHR
//PAC7CS
DD DSN=&INPUTSPE,DISP=SHR
//PAC7EP
DD UNIT=&UWK,SPACE=(TRK,(20,5),RLSE),DCB=BLKSIZE=27820
//PAC7GI
DD DSN=&&PAC7GI,UNIT=&UWK,DCB=BLKSIZE=3440,
//
SPACE=(TRK,(10,5),RLSE),DISP=(,DELETE)
//PAC7GP
DD DSN=&&PAC7GP,UNIT=&UWK,DISP=(,PASS),
//
DCB=(RECFM=FB,LRECL=80,BLKSIZE=12560),
//
SPACE=(TRK,(20,5),RLSE)
//PAC7JG
DD DSN=&&PAC7JG,DISP=(,PASS),UNIT=&UWK,
//
DCB=(RECFM=FB,LRECL=80,BLKSIZE=3440),
//
SPACE=(TRK,(5,1),RLSE)
//PAC7KC
DD DSN=&&PAC7KC,DISP=(OLD,PASS)
//PAC7KP
DD UNIT=&UWK,SPACE=(TRK,(20,5),RLSE),DCB=BLKSIZE=27820
//PAC7RQ
DD UNIT=&UWK,SPACE=(TRK,(20,5),RLSE),DCB=BLKSIZE=27800
//PAC7AT
DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27000
//PAC7TA
DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27000
//PAC7TT
DD DSN=&OUTFILE,DISP=(,CATLG),
//
UNIT=&UNITS,VOL=&VOLS,
//
SPACE=&SPAOT,
//
DCB=(RECFM=FB,BLKSIZE=27000,LRECL=1000)
//PAC7WA
DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=25200
//PAC7WC
DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27820
Chapitre 8. Utilitaires RPP
287