//ABLMSCA   JOB (ABLMSC,B095SC),'10MIS-BLAKE X3659',
//        CLASS=A,MSGCLASS=T,NOTIFY=ABLMSC
//**
//STEP010     EXEC PGM=IDCAMS
//**
//SYSPRINT    DD SYSOUT=*
//SYSIN       DD *
  DELETE 'J281SC.IAS.LOTS.DEPTS1'
  DELETE 'J281SC.IAS.LOTS.DEPTS2'
  DELETE 'J281SC.IAS.LOTS.DEPTS'
  SET MAXCC = 0
//**
//KILL01      EXEC NSCSORT
//**
//SYSOUT      DD SYSOUT=*
//SORTIN      DD DSN=J563SC.LOTS.DEPTS(0),
//            DISP=SHR
//SORTOUT     DD DSN=J281SC.IAS.LOTS.DEPTS1,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=DISK,
//            DCB=(RECFM=FB,LRECL=33,BLKSIZE=0),
//            SPACE=(CYL,(3),RLSE)
//SYSIN       DD *
   INREC FIELDS=(8,2,18,2,27,4,38,25)
   SORT  FIELDS=(1,2,CH,A,3,2,CH,A,5,4,CH,A,9,25,CH,A)
   INCLUDE COND=(1,1,CH,NE,C'*',AND,7,1,CH,EQ,C' ',AND,8,1,CH,NE,C' ')
//**
//**
//KILL02      EXEC NSCSORT
//**
//SYSOUT      DD SYSOUT=*
//SORTIN      DD DSN=J500SC.RDS.F50054(0),
//            DISP=SHR
//SORTOUT     DD DSN=J281SC.IAS.LOTS.DEPTS2,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=DISK,
//            DCB=(RECFM=FB,LRECL=33,BLKSIZE=0),
//            SPACE=(CYL,(3),RLSE)
//SYSIN       DD *
   INREC FIELDS=(3,2,5,2,7,4,28,25)
   SORT  FIELDS=(1,2,CH,A,3,2,CH,A,5,4,CH,A,9,25,CH,A)
   INCLUDE COND=(1,2,CH,EQ,C'R1')
//**
//**
//KILL03      EXEC NSCSORT
//**
//SYSOUT      DD SYSOUT=*
//SORTIN      DD DSN=J281SC.IAS.LOTS.DEPTS1,
//            DISP=SHR
//            DD DSN=J281SC.IAS.LOTS.DEPTS2,
//            DISP=SHR
//SORTOUT     DD DSN=J281SC.IAS.LOTS.DEPTS,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=DISK,
//            DCB=(RECFM=FB,LRECL=33,BLKSIZE=0),
//            SPACE=(CYL,(3),RLSE)
//SYSIN       DD *
   SORT  FIELDS=COPY
//**
