########## 80/80 CARD TO TAPE AND CALL SORT, 1401 SOURCE 01010 JOB 80 COLUMN CARD-TO-TAPE AND CALL SORT 7 CTST7 01020 CTL 6611 CTST7 01030 DIOCS CTST7 01040COUNTS RECORD CTST7 01050DIOCSORG 336 CTST7 01060EXITS 3 CTST7 01070IODEVICES TAPE CTST7 01080LABELDEF STANDARD,RDLIN CTST7 01900RWDOPTION UNLOAD CTST7 01100TAPEUSE OUTPUT CTST7 01110 DTF OUT CTST7 01120BLOCKSIZE 2916 CTST7 01130CHANDRIVE 2 CTST7 01140EX3ADDR T2EX3 CTST7 01150FILETYPE TAPE,OUTPUT CTST7 01160HEADER 0123456789,123 CTST7 01170IOAREAS DA 01180PADDING 9 CTST7 01190RECFORM BLOCKED,FIXED CTST7 01200SIZEREC 81 CTST7 01210TOTALS RECORD CTST7 01220TYPELABEL STANDARD CTST7 01230WORKAREA WORK CTST7 02010 SEQNC CTST7 01015WORK EQU 1 CTST7 0202081 DCW @\@ CTST7 02030 INDEX CTST7 02040DA DA 36X81,G CTST7 02050* CTST7 02180T2EX3 MLC BLK40#40,IOCSLB&79 CTST7 02190 MLC BLK40 CTST7 02200 B IOCSRE CTST7 02060START RDLINOUT CTST7 02070 OPEN OUT CTST7 02080* CTST7 02090READ BLC EOJ CTST7 02100 R CTST7 02105 BCE EOJ,1,, CTST7 02110 PUT ,OUT CTST7 02120 B READ CTST7 02130* CTST7 0214 EOJ SW 101 CTST7 02141 MLC 80,180 SAVE TRAILER CARD CTST7 02142 CLOSEOUT CTST7 02144 MLC 180,80 PUT TRAILER BACK IN READ AREA CTST7 02145 BLC EOJ2 CTST7 02150 BCE SORT7,2, CTST7 02160 SW 1 CTST7 02170 B 1 CTST7 02210EOJ2 WCSCSA,,@END OF JOB@ CTST7 02220 H EOJ2 CTST7 LTORG* 03010 ORG 15950 CTST7 03020SORT7 R CTST7 03030 SW 1 CTST7 03040SORT72 CS *-4 CTST7 03050 SBR *-4 CTST7 03060 BWZ SORT72,1,1 CTST7 03070 B *&2 CTST7 03080 DCW @!@ CTST7 03090SORT73 RWD 1 CTST7 03100 RTW 1,1 CTST7 03110 BER SORT73 CTST7 03120 B 2701 CTST7 03130 END START CTST7