//SYSOUT
DD SYSOUT=&OUT
//PAC7AE
DD DSN=&INDSV..BVPAE,DISP=SHR
//PAC7PB
DD DSN=&&PB,DISP=(OLD,DELETE)
//PAC7PD
DD DSN=&&PR,DISP=(NEW,PASS),UNIT=&UWK,
//
SPACE=(CYL,&CYL,RLSE),
//
DCB=(RECFM=FB,LRECL=153,BLKSIZE=27846)
//PAC7PZ
DD DSN=&&ZP,DISP=(OLD,DELETE)
//PAC7PX
DD DSN=&&EP,DISP=(OLD,DELETE)
//PAC7ZP
DD DSN=&&ZX,DISP=(NEW,PASS),UNIT=&UWK,
//
SPACE=(CYL,&CYL,RLSE),
//
DCB=(RECFM=FB,LRECL=193,BLKSIZE=27985)
//SORTLIB DD DSN=&SORTLIB,DISP=SHR
//SORTWK01 DD UNIT=&UWK,SPACE=(CYL,&CYL,,CONTIG)
//SORTWK02 DD UNIT=&UWK,SPACE=(CYL,&CYL,,CONTIG)
//SORTWK03 DD UNIT=&UWK,SPACE=(CYL,&CYL,,CONTIG)
//SYSUDUMP DD SYSOUT=&OUT
//SORTZX EXEC PGM=SORT,COND=(0,NE,PTU911)
//*--------------------------------------
//SORTLIB DD DSN=&SORTLIB,DISP=SHR
//SYSOUT
DD SYSOUT=&OUT
//SYSPRINT DD SYSOUT=&OUT
//SORTWK01 DD UNIT=&UWK,SPACE=(CYL,&CYL,,CONTIG)
//SORTWK02 DD UNIT=&UWK,SPACE=(CYL,&CYL,,CONTIG)
//SORTWK03 DD UNIT=&UWK,SPACE=(CYL,&CYL,,CONTIG)
//SORTIN
DD DSN=&&ZX,DISP=(OLD,DELETE)
//SORTOUT DD DSN=&&XZ,DISP=(NEW,PASS),UNIT=&UWK,
//
SPACE=(CYL,&CYL,RLSE),
//
DCB=(RECFM=FB,LRECL=193,BLKSIZE=27985)
//SYSIN
DD DSN=&INDSN..BVPSY(SRTPC25),DISP=SHR
//PTU914 EXEC PGM=BVPTU914,COND=(0,NE,PTU911)
//*------------------------------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//*:
DD DSN=&SYSTCAT,DISP=SHR
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//
DD DSN=$BCOB,DISP=SHR
//SYSOUT
DD SYSOUT=&OUT
//PAC7AE
DD DSN=&INDSV..BVPAE,DISP=SHR
//PAC7PF
DD DSN=&&PF,DISP=(OLD,DELETE)
//PAC7PD
DD DSN=&&PR,DISP=(OLD,DELETE)
//PAC7PI
DD DSN=&&PI,DISP=(OLD,DELETE)
//PAC7PM
DD DSN=&&PM,DISP=(OLD,DELETE)
//PAC7PO
DD DSN=&&PO,DISP=(OLD,DELETE)
//PAC7ZP
DD DSN=&&XZ,DISP=(OLD,DELETE)
//PAC7PC
DD DSN=&INDUN..&BASE.PC(+1),
//
DISP=(,CATLG,DELETE),
//
UNIT=&UNITS,
//
VOL=&VOLS,
//
SPACE=&SPAPC,
//
DCB=(&DSCB,RECFM=VB,LRECL=1023,BLKSIZE=27998)
//PAC7ET
DD SYSOUT=&OUT
//SYSUDUMP DD SYSOUT=&OUT
Chapitre 7. Reprises et échanges entre bases 2.n et 3.n
161