* CATALOG NO 704985 SIGMA 5/7 SORT       DCBS
*  VERSION C00
         SYSTEM   BPM
DCBTYPE  SET      1
         DEF      KTT0,DCBTABLE
         DEF      CALLSW
         DEF      UTSCPVSW
         DEF      STEPCODE
         PAGE
F:SORTIN DSECT    1
F:SORTIN M:DCB    FILE,SEQUEN,IN,(TRIES,20),SAVE,;
                  BCD,PASS,(SN,12),;
                  EXPIRE,READ,CONSEC
NDCBEND  SET      %
         ORG      F:SORTIN
         DATA     X'3',X'28800'     SET TO DEVICE,9T
         PAGE
F:SORTOUT DSECT   1
F:SORTOUT M:DCB   FILE,SEQUEN,OUT,(TRIES,5),SAVE,;
                  BCD,PASS,(SN,12),;
                  EXPIRE,WRITE,READ,CONSEC                              CSRTDCBS
ODCBEND  SET      %
         ORG      F:SORTOUT
         DATA     X'3',X'48800'     SET TO DEVICE,9T
         PAGE
F:SCRF1  DSECT    1
F:SCRF1  M:DCB    (FILE,'AAAAA'),CONSEC,SEQUEN,OUTIN,(TRIES,25),(SN,10)
         PAGE
F:SCRF2  DSECT    1
F:SCRF2  M:DCB    (FILE,'BBBBB'),CONSEC,SEQUEN,OUTIN,(TRIES,25),(SN,10)
         PAGE
F:SCRF3  DSECT    1
F:SCRF3  M:DCB    (FILE,'CCCCC'),CONSEC,SEQUEN,OUTIN,(TRIES,25),(SN,10)
         PAGE
F:SCRF4  DSECT    1
F:SCRF4  M:DCB    (FILE,'DDDDD'),CONSEC,SEQUEN,OUTIN,(TRIES,25),(SN,10)
         PAGE
F:SCRF5  DSECT    1
F:SCRF5  M:DCB    (FILE,'EEEEE'),CONSEC,SEQUEN,OUTIN,(TRIES,25),(SN,10)
         PAGE
F:SCRF6  DSECT    1
F:SCRF6  M:DCB    (FILE,'FFFFF'),CONSEC,SEQUEN,OUTIN,(TRIES,25),(SN,10)
         PAGE
F:SCRF7  DSECT    1
F:SCRF7  M:DCB    (FILE,'GGGGG'),CONSEC,SEQUEN,OUTIN,(TRIES,25),(SN,10)
         PAGE
F:SCRF8  DSECT    1
F:SCRF8  M:DCB    (FILE,'HHHHH'),CONSEC,SEQUEN,OUTIN,(TRIES,25),(SN,10)
         PAGE
F:SCRF9  DSECT    1
F:SCRF9  M:DCB    (FILE,'IIIII'),CONSEC,SEQUEN,OUTIN,(TRIES,25),(SN,10)
         PAGE
F:SCRF10 DSECT    1
F:SCRF10 M:DCB    (FILE,'JJJJJ'),CONSEC,SEQUEN,OUTIN,(TRIES,25),(SN,10)
         PAGE
F:SCRF11 DSECT    1
F:SCRF11 M:DCB    (FILE,'KKKKK'),CONSEC,SEQUEN,OUTIN,(TRIES,25),(SN,10)
         PAGE
F:SCRF12 DSECT    1
F:SCRF12 M:DCB    (FILE,'LLLLL'),CONSEC,SEQUEN,OUTIN,(TRIES,25),(SN,10)
         PAGE
F:SCRF13 DSECT    1
F:SCRF13 M:DCB    (FILE,'MMMMM'),CONSEC,SEQUEN,OUTIN,(TRIES,25),(SN,10)
         PAGE
F:SCRF14 DSECT    1
F:SCRF14 M:DCB    (FILE,'NNNNN'),CONSEC,SEQUEN,OUTIN,(TRIES,25),(SN,10)
         PAGE
F:SCRF15 DSECT    1
F:SCRF15 M:DCB    (FILE,'OOOOO'),CONSEC,SEQUEN,OUTIN,(TRIES,25),(SN,10)
         PAGE
F:SCRF16 DSECT    1
F:SCRF16 M:DCB    (FILE,'PPPPP'),CONSEC,SEQUEN,OUTIN,(TRIES,25),(SN,10)
         PAGE
F:SCRF17 DSECT    1
F:SCRF17 M:DCB    (FILE,'QQQQQ'),CONSEC,SEQUEN,OUTIN,(TRIES,25),(SN,10)
         PAGE
*
PGMSEGD  CSECT    0
*
         PAGE
*
         USECT    PGMSEGD
KTT0     DO1      64
         DATA     0
CALLSW   DATA     0
UTSCPVSW DATA     0                 1 FOR UTS CPV
STEPCODE DATA     0                 6 TELL USER OF ERROR ABORT
*
DCBTABLE DATA,4   DA(F:SCRF1),DA(F:SCRF2),DA(F:SCRF3),DA(F:SCRF4),;
                              DA(F:SCRF5),DA(F:SCRF6),DA(F:SCRF7),;
                  DA(F:SCRF8),DA(F:SCRF9),DA(F:SCRF10),DA(F:SCRF11),;
                  DA(F:SCRF12),DA(F:SCRF13),DA(F:SCRF14),DA(F:SCRF15),;
                  DA(F:SCRF16),DA(F:SCRF17)
         END

