########## 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
