//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN
DD DSN=&&DFSYSEXT,DISP=(OLD,DELETE)
//MAXKEY EXEC PGM=IDCAMS
//*----------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSPAF
DD DSN=&INDUV..SYSEXT.&USER,DISP=SHR
//MAXKEY
DD DSN=&INDSN..BVPSY(MAXKEY),DISP=SHR
//SYSIN
DD DSN=&INDSN..BVPSY(REPRO999),DISP=SHR
//VERIFY EXEC PGM=IDCAMS
//*---------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//*:
DD DSN=&SYSTCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//PACGGN
DD DSN=&INDSV..BVPGN,DISP=SHR
//PACGGR
DD DSN=&INDSV..BVPGR,DISP=SHR
//PACGGY
DD DSN=&INDSV..BVPGY,DISP=SHR
//PACGGJ
DD DSN=&INDSV..BVPGJ,DISP=SHR
//PACGGU
DD DSN=&INDSV..BVPGU,DISP=SHR
//SYSIN
DD DSN=&INDSN..BVPSY(VERIFGN),DISP=SHR
//
DD DSN=&INDSN..BVPSY(VERIFGR),DISP=SHR
//
DD DSN=&INDSN..BVPSY(VERIFGY),DISP=SHR
//
DD DSN=&INDSN..BVPSY(VERIFGJ),DISP=SHR
//
DD DSN=&INDSN..BVPSY(VERIFGU),DISP=SHR
//*
//VINS
EXEC PGM=BVPVINS,REGION=0K
//*--------------------------------
//*: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
//PAC7AE
DD DSN=&INDSV..BVPAE,DISP=SHR
//PAC7AJ
DD DSN=&INDSV..BVPGJ,DISP=SHR
//ANLSR
DD DSN=&INDSV..BVPGN,DISP=SHR
//PAC7AN
DD SUBSYS=(&LSR,'DDNAME=ANLSR','BUFND=40','BUFNI=30')
//ARLSR
DD DSN=&INDSV..BVPGR,DISP=SHR
//PAC7AR
DD SUBSYS=(&LSR,'DDNAME=ARLSR','BUFND=40')
//AYLSR
DD DSN=&INDSV..BVPGY,DISP=SHR
//PAC7AY
DD SUBSYS=(&LSR,'DDNAME=AYLSR','BUFND=40')
//GNLSR
DD DSN=&INDSV..BVPGN,DISP=SHR
//PACGGN
DD SUBSYS=(&LSR,'DDNAME=GNLSR','BUFND=40','BUFNI=30')
//GRLSR
DD DSN=&INDSV..BVPGR,DISP=SHR
//PACGGR
DD SUBSYS=(&LSR,'DDNAME=GRLSR','BUFND=40')
//GYLSR
DD DSN=&INDSV..BVPGY,DISP=SHR
//PACGGY
DD SUBSYS=(&LSR,'DDNAME=GYLSR','BUFND=40')
//GULSR
DD DSN=&INDSV..BVPGU,DISP=SHR
//PACGGU
DD SUBSYS=(&LSR,'DDNAME=GULSR','BUFND=40')
//SYSEXT
DD DSN=&INDUV..SYSEXT.&USER,DISP=SHR
//PAC7IA
DD SYSOUT=&OUTL
//PAC7DD
DD SYSOUT=&OUTL
//PAC7EE
DD SYSOUT=&OUTL
Chapitre 10. Annexes
361