//SORT010  JOB (SORT),
//             'RELOAD SORT',
//             CLASS=A,
//             MSGCLASS=A,
//             MSGLEVEL=(1,1)
//CLEANUP EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
 DELETE SYS1.SORTLIB NONVSAM
 SET LASTCC=0
 SET MAXCC=0
//RELOAD  EXEC PGM=IEBCOPY,REGION=1024K
//SYSPRINT DD  SYSOUT=A
//TAPEIN1  DD  DSN=SORT.LOAD,UNIT=TAPE,DISP=OLD,VOL=SER=000901
//TAPEIN2  DD  DSN=SORT.LIB,UNIT=AFF=TAPEIN1,DISP=OLD,VOL=SER=000901,
//             LABEL=(2,SL)
//LINKLIB  DD  DSN=SYS2.LINKLIB,DISP=OLD
//SORTLIB  DD  DSN=SYS1.SORTLIB,DISP=(NEW,CATLG,DELETE),
//             UNIT=3350,VOL=SER=MVSRES,
//             SPACE=(TRK,(20,,21)),DCB=(SYS1.LINKLIB)
//SYSUT3   DD  UNIT=SYSDA,SPACE=(80,(60,45)),DISP=(NEW,DELETE)
//SYSIN    DD  *
  COPY INDD=LINKLIB,OUTDD=LINKLIB
  COPY INDD=((TAPEIN1,R)),OUTDD=LINKLIB
  COPY INDD=((TAPEIN2,R)),OUTDD=SORTLIB
/*
//
