COBOL Compiler for IBM 1130
This consists of 12 phases of the compiler - files are phase51.dat to phase5C.dat
The phase files above contain a sector break card but not in the human readable format of the other sectors. A sector break card has row 1 punched in column 4. 
Loading these into an initial load deck worked properly. COBOL cannot be added in a reload operation, it must be an initial load of a cartridge. The mode card must have a C in column 18 to indicate that the COBOL compiler is being loaded. 
A deck is provided to update the subroutine library with program temporary fixes (PTF) issued for COBOL. It is run on the DMS cartridge after it has been loaded with COBOL to update the library routines. The file is ptflibraryupdate.dat. The subroutines can be deleted by running the deck cobdeletes.dat
Source code is provided for a translation table routine QCTBL which can be customized to replace the subroutine loaded when the compiler is installed. Source code is provided for a subroutine QDFIT which allows configuration of installation default settings for the compiler. These are assembled and stored in the LET of the disk cartridge that was loaded with the COBOL compiler to make them active. These files are qctblSOURCE.dat and qdfitSOURCE.dat

TEST PROGRAM FOR COMPILER
A sample COBOL program is provided that will read a supplied sample master data file and appy updates, yielding an updated master file. The data files reside on the disk cartridge. The supplied master is loaded onto disk by the job stream, then the sample program is compiled and finally executed. Update cards to be read by the program are at the end of this deck. The file is called cobolsampleprogram.dat and its output is:
PAGE   1

// JOB T+

LOG DRIVE   CART SPEC   CART AVAIL  PHY DRIVE
  0000        1324        1324        0000

V2 M12   ACTUAL 16K  CONFIG 32K

// DUP                                                                  Z0300003

*STOREDATA  CD  UA  MASMP 0018                                          Z0300004
CART ID 1324   DB ADDR  2180   DB CNT   0030

// * NOW COMPILE THE SOURCE PROGRAM                                     Z0300023

// COBOL                                                                Z0300024
*LIST,DMAP,PMAP,STNO,DUMP,XREF                                          Z0300025
*1442,1132                                                              Z0300026
*/01FE                                                                  Z0300027
**S A M P L E   P R O G R A M -- 1 1 3 0   C O B O L                    Z0300028

OPTIONS-LIST,XREF,DMAP,PMAP,STNO,DUMP,EJCT,NOSUPX,NOKP26,NOSUBR,1442,1132,/01FE

PAGE   2                S A M P L E   P R O G R A M -- 1 1 3 0   C O B O L

STNO - A...B... C O B O L   S O U R C E   S T A T E M E N T S ..........  IDENTFCN  PAGLIN

   1   IDENTIFICATION DIVISION.                                           Z0300029  001000
   2     PROGRAM-ID. PAYROLL-REGISTER.                                    Z0300030  001010
   3     REMARKS.  THIS IS A SAMPLE PROGRAM, ILLUSTRATING A NUMBER OF     Z0300031  001020
           THE FEATURES OF THE COBOL LANGUAGE.  THE PROGRAM PRODUCES A    Z0300032  001030
           PAYROLL REGISTER ON THE PRINTER, AND A SEQUENTIAL DISK-FILE    Z0300033  001040
           WHICH WILL CONTAIN ALL THE DATA NECESSARY TO WRITE THE         Z0300034  001050
           PAYROLL CHECKS FOR THE EMPLOYEES PROCESSED.  THE EMPLOYEES     Z0300035  001060
           ARE ALL SALARIED.                                              Z0300036  001070
               INPUT TO THIS PROGRAM CONSISTS OF A MASTER/YEAR-TO-DATE    Z0300037  001080
           FILE ON DISK, WHICH CONTAINS INFORMATION ABOUT ALL EMPLOYEES   Z0300038  001090
           WHO HAVE WORKED FOR THE COMPANY, AND IS DESIGNED TO BE         Z0300039  001100
           ACCESSED RANDOMLY.  THE YEAR-TO-DATE GROSS FIELD IN EACH       Z0300040  001110
           RECORD IN THAT FILE WILL BE UPDATED DURING THE RUNNING OF      Z0300041  001120
           THIS PROGRAM.  THE SECOND INPUT TO THIS PROGRAM IS A FILE      Z0300042  001130
           OF CARDS.  IN THAT FILE THERE IS A CARD FOR EACH EMPLOYEE      Z0300043  001140
           TO BE PAID, POSSIBLY FOLLOWED BY ONE OR MORE CARDS SPECIFYING  Z0300044  001150
           'DEDUCTIONS' WHICH HE HAS ELECTED TO BE TAKEN OUT OF HIS       Z0300045  001160
           PAYCHECK.  IN THE FIRST CARD FOR EACH EMPLOYEE THERE IS A      Z0300046  001170
           FIELD (WHICH MAY BE BLANK) SPECIFYING THE NUMBER OF 'EXTRA'    Z0300047  001180
           HOURS HE HAS WORKED DURING THE PAY PERIOD.  HE WILL BE GIVEN   Z0300048  001190
           ADDITIONAL COMPENSATION (AT HIS EFFECTIVE HOURLY RATE) FOR     Z0300049  001200
           ANY ADDITIONAL HOURS.                                          Z0300050  001210
               FEDERAL INCOME TAX (FIT) AND SOCIAL SECURITY PREMIUMS      Z0300051  001220
           (FICA) ARE WITHHELD FROM THE EMPLOYEE'S PAY.  THIS IS A        Z0300052  001230
           MONTHLY PAYROLL, SO THE TAX FIGURES FOR FIT USE THE            Z0300053  001240
           APPROPRIATE MONTHLY CONSTANTS.                                 Z0300054  001250
               ANY ERROR SITUATIONS DETECTED DURING THE RUNNING OF THE    Z0300055  001260
           PROGRAM CAUSE ERROR MESSAGES TO BE DISPLAYED.  IF THE ERROR    Z0300056  001270
           IS UNRECOVERABLE, THE MESSAGE IS DISPLAYED UPON THE PRINTER    Z0300057  001280
           AND THE PROGRAM IS TERMINATED.  OTHERWISE, THE MESSAGE IS      Z0300058  001290
           DISPLAYED UPON THE CONSOLE TYPEWRITER, AND PROCESSING          Z0300059  001300
           CONTINUES.                                                     Z0300060  001310
                                                                          Z0300061  001320
   4   ENVIRONMENT DIVISION.                                              Z0300062  001330
   5    CONFIGURATION SECTION.                                            Z0300063  001340
   6     SOURCE-COMPUTER.  IBM-1130.                                      Z0300064  001350
   7     OBJECT-COMPUTER.  IBM-1130.                                      Z0300065  001360
   8     SPECIAL-NAMES.  C01 IS TO-NEW-PAGE    CONSOLE IS TYPEWTR.        Z0300066  001370
   9    INPUT-OUTPUT SECTION.                                             Z0300067  001380
  10     FILE-CONTROL.                                                    Z0300068  001390
  11       SELECT MASTER-FILE  ASSIGN TO DF-1-30-X                        Z0300069  001400
               ACCESS IS RANDOM  ACTUAL KEY IS MASTER-KEY.                Z0300070  001410
  12       SELECT TRANSAC-FILE  ASSIGN TO RD-1442  RESERVE 1 ALTERNATE    Z0300071  001420
               AREA.                                                      Z0300072  001430
  13       SELECT REGISTER-FILE  ASSIGN TO PR-1132 RESERVE 1              Z0300073  001440
               ALTERNATE AREA.                                            Z0300074  001450
  14       SELECT CHECK-FILE  ASSIGN TO DF-2-30-X  ACCESS IS SEQUENTIAL.  Z0300075  001460
                                                                          Z0300076  001470
  15   DATA DIVISION.                                                     Z0300077  001480
  16    FILE SECTION.                                                     Z0300078  001490
  17     FD  MASTER-FILE  LABEL RECORD STANDARD.                          Z0300079  001500
  18     01  MASTER-REC.                                                  Z0300080  001510
  19       02  EMPL-NO  PIC 9(4)  COMP.                                   Z0300081  001520
  20       02  EMPL-NAME  PIC X(15).                                      Z0300082  001530
  21       02  SALARY  PIC 9999V99  COMP.                                 Z0300083  001540
  22       02  MARITAL-STATUS  PIC X.                                     Z0300084  001550

PAGE   3                S A M P L E   P R O G R A M -- 1 1 3 0   C O B O L

STNO - A...B... C O B O L   S O U R C E   S T A T E M E N T S ..........  IDENTFCN  PAGLIN

  23           88  SINGLE VALUE '1'.                                      Z0300085  001560
  24           88  MARRIED VALUE '2'.                                     Z0300086  001570
  25       02  EXEMPTIONS  PIC 99  COMP.                                  Z0300087  001580
  26       02  YTD-GROSS  PIC S9(5)V99  COMP.                             Z0300088  001590
  27     FD  TRANSAC-FILE  LABEL RECORDS OMITTED.                         Z0300089  001600
  28     01  EMPLOYEE-CARD.                                               Z0300090  001610
  29       02  CARD-TYPE  PIC X.                                          Z0300091  001620
  30       02  EMPL-NO  PIC 9(4).                                         Z0300092  001630
  31       02  XHRS  PIC S999.                                            Z0300093  001640
  32       02  ALPHA-XHRS  REDEFINES XHRS  PIC XXX.                       Z0300094  001650
  33       02  FILLER  PIC X.                                             Z0300095  001660
  34     01  DEDUCTION-CARD.                                              Z0300096  001670
  35       02  FILLER  PIC X(5).                                          Z0300097  001680
  36       02  DEDUCT-AMOUNT  PIC 99V99.                                  Z0300098  001690
  37     FD  CHECK-FILE  LABEL RECORD STANDARD.                           Z0300099  001700
  38     01  CHECK-REC.                                                   Z0300100  001710
  39       02  CHK-EMPL-NO  PIC 9(4)  COMP.                               Z0300101  001720
  40       02  CHK-EMPL-NAME  PIC X(30).                                  Z0300102  001730
  41       02  CHK-DATE  PIC X(8).                                        Z0300103  001740
  42       02  CHK-NUMBER  PIC 9(5)  COMP.                                Z0300104  001750
  43       02  CHK-GROSS  PIC S9(4)V99  COMP.                             Z0300105  001760
  44       02  CHK-FIT  PIC S9(4)V99  COMP.                               Z0300106  001770
  45       02  CHK-FICA  PIC S9(3)V99  COMP.                              Z0300107  001780
  46       02  CHK-DEDUCT  PIC S999V99  COMP.                             Z0300108  001790
  47       02  CHK-NET-PAY  PIC S9(4)V99  COMP.                           Z0300109  001800
  48     FD  REGISTER-FILE  LABEL RECORD OMITTED  RECORD CONTAINS 120.    Z0300110  001810
  49     01  PRINT-LINE  PIC X(120).                                      Z0300111  001820
  50    WORKING-STORAGE SECTION.                                          Z0300112  001830
  51     77  MASTER-KEY  PIC S9(5)  COMP.                                 Z0300113  001840
  52     77  FILE-SIZE  PIC S9(4)  COMP  VALUE 30.                        Z0300114  001850
  53     77  CUR-EMPL-NO  PIC 9(4)  COMP.                                 Z0300115  001860
  54     77  LENGTH-30  PIC 99  COMP  VALUE 30.                           Z0300116  001870
  55     77  CUR-GROSS  PIC S9(4)V99  COMP.                               Z0300117  001880
  56     77  TAXABLE-GROSS  PIC S9(4)V99  COMP.                           Z0300118  001890
  57     77  CUR-FICA  PIC S999V99  COMP.                                 Z0300119  001900
  58     77  CUR-FIT  PIC S9(4)V99  COMP.                                 Z0300120  001910
  59     77  ACCUM-DEDUCT  PIC S999V99  COMP.                             Z0300121  001920
  60     77  FIRST-NET  PIC S9(4)V99  COMP.                               Z0300122  001930
  61     77  STOP-SIGNAL  PIC X.                                          Z0300123  001940
  62     01  PARAMETERS.                                                  Z0300124  001950
  63       02  DATE-CHECK  PIC X(8).                                      Z0300125  001960
  64       02  NUM-CHECK  PIC 9(5).                                       Z0300126  001970
  65     01  REGISTER-LINE.                                               Z0300127  001980
  66       02  FILLER  PIC X  VALUE SPACES.                               Z0300128  001990
  67       02  REG-EMPL-NO  PIC 9(4).                                     Z0300129  002000
  68       02  FILLER  PIC XX  VALUE SPACES.                              Z0300130  002010
  69       02  REG-EMPL-NAME  PIC X(30).                                  Z0300131  002020
  70       02  FILLER  PIC XX  VALUE SPACES.                              Z0300132  002030
  71       02  REG-SALARY  PIC Z,ZZZ.99.                                  Z0300133  002040
  72       02  FILLER  PIC XX  VALUE SPACES.                              Z0300134  002050
  73       02  REG-XHRS  PIC ZZ9-.                                        Z0300135  002060
  74       02  REG-XHRS-SLOT  REDEFINES REG-XHRS  PIC X(4).               Z0300136  002070
  75       02  FILLER  PIC XX  VALUE SPACES.                              Z0300137  002080
  76       02  REG-GROSS  PIC Z,ZZZ.99.                                   Z0300138  002090
  77       02  FILLER  PIC XX  VALUE SPACES.                              Z0300139  002100
  78       02  REG-FICA  PIC ZZZ.99.                                      Z0300140  002110

PAGE   4                S A M P L E   P R O G R A M -- 1 1 3 0   C O B O L

STNO - A...B... C O B O L   S O U R C E   S T A T E M E N T S ..........  IDENTFCN  PAGLIN

  79       02  FILLER  PIC XX  VALUE SPACES.                              Z0300141  002120
  80       02  REG-FIT  PIC Z,ZZZ.99.                                     Z0300142  002130
  81       02  FILLER  PIC XX  VALUE SPACES.                              Z0300143  002140
  82       02  REG-DEDUCT  PIC ZZZ.99  BLANK WHEN ZERO.                   Z0300144  002150
  83       02  FILLER  PIC X(3)  VALUE SPACES.                            Z0300145  002160
  84       02  REG-NET-PAY  PIC $Z,ZZZ.99CR.                              Z0300146  002170
  85       02  FILLER  PIC X(3)  VALUE SPACES.                            Z0300147  002180
  86       02  REG-CHECK-NUMBER  PIC ZZZZ9.                               Z0300148  002190
  87   01  REGISTER-HEADER  PIC X(120)  VALUE                             Z0300149  002200
               ' EMPL  EMPLOYEE-NAME                    SALARY   XHRS     Z0300150  002210
     -         ' GROSS    FICA      FIT    DEDUCT    NET-PAY      CHKNO   Z0300151  002220
     -         ' '.                                                       Z0300152  002230
  88     01  FIT-TABLE-CONSTANTS.                                         Z0300153  002240
  89       02  SINGLE-TABLE-CONSTANTS  PIC X(77)  VALUE                   Z0300154  002250
               '00920000021014201050270225032911803830613521076714199260  Z0300155  002260
     -         '917180993199990000000'.                                   Z0300156  002270
  90       02  MARRIED-TABLE-CONSTANTS  PIC X(77)  VALUE                  Z0300157  002280
               '00920000021020802436160383052361807671214821150027541261  Z0300158  002290
     -         '833361993199990000000'.                                   Z0300159  002300
  91     01  FIT-BRACKET-TABLE  REDEFINES FIT-TABLE-CONSTANTS.            Z0300160  002310
  92       02  BRACKET-TABLE  OCCURS 2 TIMES INDEXED BY TABLE-NO.         Z0300161  002320
  93         03  BRACKET-LIST  OCCURS 7 TIMES INDEXED BY BRACKET.         Z0300162  002330
  94           04  BRACKET-GROSS  PIC 9(4).                               Z0300163  002340
  95           04  BRACKET-TAX  PIC 999V99.                               Z0300164  002350
  96           04  BRACKET-PERCENT  PIC V99.                              Z0300165  002360
                                                                          Z0300166  002370
  97   PROCEDURE DIVISION.                                                Z0300167  002380
  98     INITIALIZATION.                                                  Z0300168  002390
  99       ACCEPT PARAMETERS.                                             Z0300169  002400
 100       OPEN INPUT TRANSAC-FILE,  OUTPUT REGISTER-FILE, CHECK-FILE,    Z0300170  002410
               I-O MASTER-FILE.                                           Z0300171  002420
 101     PRINT-HEADING.                                                   Z0300172  002430
 102       WRITE PRINT-LINE FROM REGISTER-HEADER AFTER ADVANCING          Z0300173  002440
               TO-NEW-PAGE.                                               Z0300174  002450
 103       MOVE SPACES TO PRINT-LINE                                      Z0300175  002460
 104       WRITE PRINT-LINE AFTER 1.                                      Z0300176  002470
 105     READ-INITIAL-CARD.                                               Z0300177  002480
 106       READ TRANSAC-FILE, AT END DISPLAY '*** NO INPUT ***'           Z0300178  002490
 108           GO TO END-PROGRAM.                                         Z0300179  002500
 109       IF CARD-TYPE NOT = '1'                                         Z0300180  002510
 110           DISPLAY 'BEGINNING CARD NOT TYPE 1.' UPON CONSOLE          Z0300181  002520
 111           GO TO READ-INITIAL-CARD.                                   Z0300182  002530
 112     PROCESS-EMPLOYEE.                                                Z0300183  002540
 113       MOVE EMPL-NO IN EMPLOYEE-CARD TO CUR-EMPL-NO, REG-EMPL-NO,     Z0300184  002550
               CHK-EMPL-NO.                                               Z0300185  002560
 114       COMPUTE MASTER-KEY = CUR-EMPL-NO / FILE-SIZE.                  Z0300186  002570
 115       COMPUTE MASTER-KEY = CUR-EMPL-NO - MASTER-KEY * FILE-SIZE      Z0300187  002580
               + 1.                                                       Z0300188  002590
 116     GET-MASTER-RECORD.                                               Z0300189  002600
 117       READ MASTER-FILE, INVALID KEY MOVE 1 TO MASTER-KEY,            Z0300190  002610
 119           GO TO GET-MASTER-RECORD.                                   Z0300191  002620
 120       IF EMPL-NO IN MASTER-REC = 0,                                  Z0300192  002630
 121       DISPLAY 'NO MASTER RECORD FOR EMPLOYEE ' CUR-EMPL-NO UPON      Z0300193  002640
 122           TYPEWTR, GO TO READ-ANOTHER-CARD.                          Z0300194  002650
 123       IF EMPL-NO IN MASTER-REC NOT = CUR-EMPL-NO                     Z0300195  002660
 124           ADD 1 TO MASTER-KEY                                        Z0300196  002670

PAGE   5                S A M P L E   P R O G R A M -- 1 1 3 0   C O B O L

STNO - A...B... C O B O L   S O U R C E   S T A T E M E N T S ..........  IDENTFCN  PAGLIN

 125           GO TO GET-MASTER-RECORD.                                   Z0300197  002680
 126     CREATE-BASIC-OUTPUT.                                             Z0300198  002690
 127       MOVE NUM-CHECK TO CHK-NUMBER, REG-CHECK-NUMBER.                Z0300199  002700
 128       ADD 1 TO NUM-CHECK.                                            Z0300200  002710
 129       MOVE DATE-CHECK TO CHK-DATE.                                   Z0300201  002720
 130       CALL 'QCV21' USING CHK-EMPL-NAME, EMPL-NAME IN MASTER-REC,     Z0300202  002730
               LENGTH-30.                                                 Z0300203  002740
 131       MOVE CHK-EMPL-NAME TO REG-EMPL-NAME.                           Z0300204  002750
 132       MOVE SALARY IN MASTER-REC TO REG-SALARY, CUR-GROSS.            Z0300205  002760
 133       IF ALPHA-XHRS = SPACES  MOVE SPACES TO REG-XHRS-SLOT,          Z0300206  002770
 135       ELSE MOVE XHRS TO REG-XHRS, COMPUTE CUR-GROSS =                Z0300207  002780
               CUR-GROSS + (SALARY / 176) * XHRS.                         Z0300208  002790
 137       MOVE CUR-GROSS TO REG-GROSS, CHK-GROSS.                        Z0300209  002800
 138     CALCULATE-FICA.                                                  Z0300210  002810
 139       IF YTD-GROSS IS NOT LESS THAN 7800.00                          Z0300211  002820
 140           MOVE ZERO TO CUR-FICA, GO TO UPDATE-GROSS.                 Z0300212  002830
 142       IF YTD-GROSS + CUR-GROSS IS NOT GREATER THAN 7800.00           Z0300213  002840
 143           MULTIPLY CUR-GROSS BY .048 GIVING CUR-FICA ROUNDED,        Z0300214  002850
 144       ELSE COMPUTE CUR-FICA ROUNDED = (7800.00 - YTD-GROSS) * .048.  Z0300215  002860
 145     UPDATE-GROSS.                                                    Z0300216  002870
 146       ADD CUR-GROSS TO YTD-GROSS IN MASTER-REC.                      Z0300217  002880
 147       WRITE MASTER-REC INVALID KEY DISPLAY 'MASTER-KEY ERROR'        Z0300218  002890
 149           GO TO END-PROGRAM.                                         Z0300219  002900
 150       MOVE CUR-FICA TO REG-FICA, CHK-FICA.                           Z0300220  002910
 151     CALCULATE-FIT.                                                   Z0300221  002920
 152       COMPUTE TAXABLE-GROSS = CUR-GROSS - 50.00 * EXEMPTIONS.        Z0300222  002930
 153       IF TAXABLE-GROSS IS NOT GREATER THAN 92.00                     Z0300223  002940
 154           MOVE ZERO TO CUR-FIT, GO TO FINISH-EMPLOYEE-CARD.          Z0300224  002950
 156       IF MARRIED SET TABLE-NO TO 2                                   Z0300225  002960
 158       ELSE SET TABLE-NO TO 1.                                        Z0300226  002970
 159       MOVE ZERO TO STOP-SIGNAL.                                      Z0300227  002980
 160       PERFORM FIND-BRACKET VARYING BRACKET FROM 2 BY 1               Z0300228  002990
               UNTIL BRACKET  EQUAL  TO   6 OR STOP-SIGNAL NOT = ZERO.    Z0300229  003000
 161       COMPUTE CUR-FIT ROUNDED = BRACKET-TAX (TABLE-NO, BRACKET)      Z0300230  003010
               + BRACKET-PERCENT (TABLE-NO, BRACKET) *                    Z0300231  003020
               (TAXABLE-GROSS - BRACKET-GROSS (TABLE-NO, BRACKET)).       Z0300232  003030
 162     FINISH-EMPLOYEE-CARD.                                            Z0300233  003040
 163       MOVE CUR-FIT TO CHK-FIT, REG-FIT.                              Z0300234  003050
 164       SUBTRACT CUR-FIT, CUR-FICA FROM CUR-GROSS GIVING FIRST-NET.    Z0300235  003060
 165       MOVE ZERO TO ACCUM-DEDUCT.                                     Z0300236  003070
 166     READ-ANOTHER-CARD.                                               Z0300237  003080
 167       READ TRANSAC-FILE, AT END ALTER SWITCH TO END-PROGRAM,         Z0300238  003090
 169           GO TO COMPLETE-EMPLOYEE.                                   Z0300239  003100
 170       IF CARD-TYPE = '1' GO TO COMPLETE-EMPLOYEE.                    Z0300240  003110
 172       IF CARD-TYPE NOT = '2'                                         Z0300241  003120
 173       DISPLAY 'INVALID CARD TYPE FOR ' CUR-EMPL-NO UPON              Z0300242  003130
 174           TYPEWTR, GO TO READ-ANOTHER-CARD.                          Z0300243  003140
 175       IF EMPL-NO IN EMPLOYEE-CARD NOT = CUR-EMPL-NO                  Z0300244  003150
 176       DISPLAY 'TYPE 2 CARD FOR WRONG EMPLOYEE DURING '               Z0300245  003160
 177           CUR-EMPL-NO UPON TYPEWTR, GO TO READ-ANOTHER-CARD          Z0300246  003170
 178       ELSE ADD DEDUCT-AMOUNT TO ACCUM-DEDUCT,                        Z0300247  003180
 179           GO TO READ-ANOTHER-CARD.                                   Z0300248  003190
 180     COMPLETE-EMPLOYEE.                                               Z0300249  003200
 181       MOVE ACCUM-DEDUCT TO REG-DEDUCT, CHK-DEDUCT.                   Z0300250  003210
 182       SUBTRACT ACCUM-DEDUCT FROM FIRST-NET GIVING CHK-NET-PAY.       Z0300251  003220
 183       MOVE CHK-NET-PAY TO REG-NET-PAY.                               Z0300252  003230

PAGE   6                S A M P L E   P R O G R A M -- 1 1 3 0   C O B O L

STNO - A...B... C O B O L   S O U R C E   S T A T E M E N T S ..........  IDENTFCN  PAGLIN

 184       WRITE PRINT-LINE FROM REGISTER-LINE AFTER 1, AT END-OF-PAGE    Z0300253  003240
 185           PERFORM PRINT-HEADING.                                     Z0300254  003250
 186       WRITE CHECK-REC INVALID KEY DISPLAY 'EXCEEDED CHECK SPACE.'    Z0300255  003260
 188           GO TO END-PROGRAM.                                         Z0300256  003270
 189     SWITCH.                                                          Z0300257  003280
 190       GO TO PROCESS-EMPLOYEE.                                        Z0300258  003290
 191     END-PROGRAM.                                                     Z0300259  003300
 192       CLOSE MASTER-FILE, TRANSAC-FILE, CHECK-FILE, REGISTER-FILE.    Z0300260  003310
 193       STOP RUN.                                                      Z0300261  003320
 194     FIND-BRACKET.                                                    Z0300262  003330
 195       IF TAXABLE-GROSS IS NOT GREATER THAN BRACKET-GROSS (TABLE-NO,  Z0300263  003340
 196           BRACKET + 1)  MOVE '1' TO STOP-SIGNAL.                     Z0300264  003350
/*