//PAC7AE
DD DSN=&INDSV..BVPAE,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')
//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')
//PAC7GY
DD DSN=&&PACGY,DISP=(OLD,DELETE)
//PAC7ME
DD DSN=&&PAC7ME,DISP=(,PASS),UNIT=&UWK,
//
SPACE=&SPAMB,
//
DCB=(RECFM=FB,LRECL=372,BLKSIZE=27156)
//PAC7MV
DD DSN=&&PAC7MV,DISP=(,PASS),UNIT=&UWK,
//
SPACE=&SPAMB,
//
DCB=(RECFM=FB,LRECL=170,BLKSIZE=6120)
//PAC7MW
DD DISP=(,DELETE),UNIT=&UWK,
//
SPACE=&SPAMB,
//
DCB=(RECFM=FB,LRECL=170,BLKSIZE=6120)
//PAC7MX
DD DISP=(,DELETE),UNIT=&UWK,
//
SPACE=&SPAMB,
//
DCB=(RECFM=FB,LRECL=748,BLKSIZE=26928)
//PAC7MY
DD DISP=(,DELETE),UNIT=&UWK,
//
SPACE=&SPAMB,
//
DCB=(RECFM=FB,LRECL=748,BLKSIZE=26928)
//PACA1Y EXEC PGM=BVPACA15,COND=((0,NE,PTU921),(0,NE,PAF90Y))
//*----------------------------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//
DD DSN=$BCOB,DISP=SHR
//*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
//*:
DD DSN=&VSAMCAT,DISP=SHR
//SYSOUT
DD SYSOUT=&OUT
//PAC7AE
DD DSN=&INDSV..BVPAE,DISP=SHR
//PAC7AJ
DD DSN=&INDUV..&BASE.AJ,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')
//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')
//GYLSR
DD DSN=&INDSV..BVPGY,DISP=SHR
//PACGGY
DD SUBSYS=(&LSR,'DDNAME=GYLSR','BUFND=10')
//GULSR
DD DSN=&INDSV..BVPGU,DISP=SHR
//PACGGU
DD SUBSYS=(&LSR,'DDNAME=GULSR','BUFND=10','BUFNI=10')
//PAC7DC
DD DUMMY
//PAC7IE
DD SYSOUT=&OUTL
//PAC7IF
DD SYSOUT=&OUTL
//PAC7ME
DD DSN=&&PAC7ME,DISP=(OLD,DELETE)
//PAC7MV
DD DSN=&&PAC7MV,DISP=(OLD,DELETE)
Chapitre 7. Reprises et échanges entre bases 2.n et 3.n
169