//
DD DSN=&INDSN..BVPSY(VERIFGR),DISP=SHR
//
DD DSN=&INDSN..BVPSY(VERIFGN),DISP=SHR
//
DD DSN=&INDSN..BVPSY(VERIFGY),DISP=SHR
//
DD DSN=&INDSN..BVPSY(VERIFGU),DISP=SHR
//PTU923 EXEC PGM=BVPTU923
//*-----------------------
//*:STEPCAT DD DSN=&VSAMCAT,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
//SYSUDUMP DD SYSOUT=&OUT
//AELSR
DD DSN=&INDSV..BVPAE,DISP=SHR
//PAC7AE
DD SUBSYS=(&LSR,'DDNAME=AELSR')
//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')
//PAC7MB
DD DSN=&&PP25MB,DISP=(OLD,DELETE)
//PAC7PP
DD DSN=&OLDPP,DISP=SHR
//PAC7GY
DD DSN=&&PACGY,DISP=(,PASS),UNIT=&UWK,
//
SPACE=&SPAMB,
//
DCB=(RECFM=FB,LRECL=310,BLKSIZE=3100)
//PAC7ET
DD SYSOUT=&OUT
//PAF900 EXEC PGM=BVPAF900,COND=(0,NE,PTU923)
//*------------------------------------------
//*: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
//SYSUDUMP DD SYSOUT=&OUT
//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,
Chapitre 7. Reprises et échanges entre bases 2.n et 3.n
187