//
DD DSN=$BCOB,DISP=SHR
//CARTE
DD DDNAME=SYSIN
//PAC7MB
DD DSN=&&VINSMB,DISP=(,PASS),
//
UNIT=&UWK,SPACE=(TRK,(5,1),RLSE),
//
DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//PRMSYS EXEC PGM=BVPRMSYS,PARM='&USER,&INDUV'
//*-------------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//
DD DSN=$BCOB,DISP=SHR
//SYSOUT DD SYSOUT=&OUT
//PACRIN DD DSN=&INDSN..BVPSY(DFSYSEXT),DISP=SHR
//PACROU DD DSN=&&DFSYSEXT,DISP=(,PASS),SPACE=(TRK,1),
//
UNIT=&UWK,
//
DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//DEFINE EXEC PGM=IDCAMS
//*---------------------
//*: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
//PACGGU
DD DSN=&INDSV..BVPGU,DISP=SHR
//PAC7AJ
DD DSN=&INDUV..&BASE.AJ,DISP=SHR
//PAC7AN
DD DSN=&INDUV..&BASE.AN,DISP=SHR
//PAC7AR
DD DSN=&INDUV..&BASE.AR,DISP=SHR
//PAC7AY
DD DSN=&INDUV..&BASE.AY,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(VERIFGU),DISP=SHR
//
DD DSN=&INDSN..BVPSY(VERIFAJ),DISP=SHR
//
DD DSN=&INDSN..BVPSY(VERIFAN),DISP=SHR
//
DD DSN=&INDSN..BVPSY(VERIFAR),DISP=SHR
//
DD DSN=&INDSN..BVPSY(VERIFAY),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
Chapitre 10. Annexes
367