//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
//PTU92A EXEC PGM=BVPTU92A,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
//SYSOUX
DD SYSOUT=&OUT
//SORTLIB DD DSN=&SORTLIB,DISP=SHR
//PAC7PG
DD DSN=&&PG,DISP=(OLD,DELETE)
//PAC7PM
DD DSN=&&PM,DISP=(OLD,PASS)
//PAC7PE
DD DSN=&&PH,DISP=(NEW,PASS),UNIT=&UWK,
//
SPACE=(CYL,&CYL,RLSE),
//
DCB=(RECFM=FB,LRECL=193,BLKSIZE=27985)
//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
//PTU92B EXEC PGM=BVPTU92B,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
//SORTLIB DD DSN=&SORTLIB,DISP=SHR
//SYSOUX
DD SYSOUT=&OUT
//PAC7PE
DD DSN=&&PH,DISP=(OLD,DELETE)
//PAC7PK
DD DSN=&&PK,DISP=(NEW,PASS),UNIT=&UWK,
//
SPACE=(CYL,&CYL,RLSE),
//
DCB=(RECFM=FB,LRECL=193,BLKSIZE=27985)
//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
//PTU92C EXEC PGM=BVPTU92C,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
//SORTLIB DD DSN=&SORTLIB,DISP=SHR
//SYSOUX
DD SYSOUT=&OUT
//PAC7PB
DD DSN=&&PC,DISP=(OLD,PASS)
//PAC7PK
DD DSN=&&PK,DISP=(OLD,DELETE)
//PAC7PD
DD DSN=&&PD,DISP=(NEW,PASS),UNIT=&UWK,
//
SPACE=(TRK,1,RLSE),
//
DCB=(RECFM=FB,LRECL=153,BLKSIZE=27846)
//PAC7KP
DD DSN=&&KP,DISP=(NEW,PASS),UNIT=&UWK,
//
SPACE=(CYL,&CYL,RLSE),
Chapitre 7. Reprises et échanges entre bases 2.n et 3.n
159