//EXJCL01 JOB (0000,00),'TEST',NOTIFY=&SYSUID,
//            CLASS=I,MSGCLASS=H
//JOBLIB  DD  DSN=TEST.LOAD,DISP=SHR
//*********************************************************************
//* cdkdsd
//*********************************************************************
//S000     EXEC PGM=IEFBR14
//DEL01    DD DSN=TEST.URIAGE,
//            UNIT=DISK,DISP=(MOD,DELETE),SPACE=(TRK,1)
//*********************************************************************
//* rnqs
//*********************************************************************
//S010     EXEC SORT00
//SORTIN   DD DSN=TEST.URIAGE.HIBETU,UNIT=DISK,DISP=SHR
//SORTOUT  DD DSN=&&S010A,UNIT=DISK,DISP=(NEW,PASS),
//            DCB=(RECFM=FB,LRECL=50,BLKSIZE=27950),
//            SPACE=(TRK,(10,2),RLSE)
//SYSIN    DD *
  SORT FIELDS=(9,4,CH,A,1,8,CH,A),EQUALS
/*
//*********************************************************************
//* f[^Wv
//*********************************************************************
//S020     EXEC PGM=EXCBL01
//SYSIN01  DD DSN=&&S010A,UNIT=DISK,DISP=(OLD,DELETE)
//SYSOT01  DD DSN=TEST.URIAGE,UNIT=DISK,DISP=(NEW,CATLG),
//            DCB=(RECFM=FB,LRECL=50,BLKSIZE=27950),
//            SPACE=(TRK,(10,2),RLSE),VOL=SER=TEST01
