*COMDECK  RPTRT10 
00001 ******************************************************************07/12/78
00002 *                                                                 RPTRT10 
00003 *    FORMAT CATEGORY 200 DETAIL LINE                                 LV001
00004 *        CATEGORY 200 = NAMES                                     RPTRT10 
00005 *                                                                 RPTRT10 
00006 ******************************************************************RPTRT10 
00007  10200-FMT-CAT200.                                                RPTRT10 
00008      MOVE SPACES TO CAT10200-LINE1.                               RPTRT10 
00009 *                                                                 RPTRT10 
00010 *    FORMAT DATA NAME FIELD                                       RPTRT10 
00011 *                                                                 RPTRT10 
00012  10205-FMT-FLD05.                                                    CL**2
00013      IF NAME-GRP-DATA-NAME EQUAL TO SPACES                        RPTRT10 
00014          GO TO 10210-FMT-FLD15.                                      CL**2
00015      MOVE FLD1020005-HCON  TO  FLD1020005-HDG.                    RPTRT10 
00016      MOVE NAME-GRP-DATA-NAME TO FLD1020005-VAL.                   RPTRT10 
00017 *                                                                 RPTRT10 
00018 *    FORMAT SYMBOL FIELD                                          RPTRT10 
00019 *                                                                 RPTRT10 
00020  10210-FMT-FLD15.                                                 RPTRT10 
00021      IF NAME-GRP-SYMBOL EQUAL TO SPACES                           RPTRT10 
00022          GO TO 10220-OUTPUT-LN1.                                  RPTRT10 
00023      MOVE FLD1020015-HCON  TO  FLD1020015-HDG.                    RPTRT10 
00024      MOVE NAME-GRP-SYMBOL  TO  FLD1020015-VAL.                    RPTRT10 
00025 *                                                                 RPTRT10 
00026 *    OUTPUT 1ST DISPLAY LINE                                      RPTRT10 
00027 *                                                                 RPTRT10 
00028  10220-OUTPUT-LN1.                                                RPTRT10 
00029      IF CAT10200-LINE1 EQUAL TO SPACES                            RPTRT10 
00030          GO TO 10230-FMT-FLD10.                                   RPTRT10 
00031      MOVE CAT10200-LINE1 TO STDRPT-70CHR.                            CL**2
00032      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT10 
00033 ******************************************************************RPTRT10 
00034 *    FORMAT 2ND DISPLAY LINE-                                     RPTRT10 
00035 ******************************************************************RPTRT10 
00036  10230-FMT-FLD10.                                                 RPTRT10 
00037      MOVE SPACES TO CAT10200-LINE2.                               RPTRT10 
00038 *                                                                 RPTRT10 
00039 *    FORMAT IDENTIFIER FIELD                                      RPTRT10 
00040 *                                                                 RPTRT10 
00041      IF NAME-GRP-IDENTIFIER EQUAL TO SPACES                       RPTRT10 
00042          GO TO 10240-FMT-FLD20.                                   RPTRT10 
00043      MOVE FLD1020010-HCON  TO  FLD1020010-HDG.                    RPTRT10 
00044      MOVE NAME-GRP-IDENTIFIER  TO  FLD1020010-VAL.                RPTRT10 
00045 *                                                                 RPTRT10 
00046 *    FORMAT DBMS FIELD                                            RPTRT10 
00047 *                                                                 RPTRT10 
00048  10240-FMT-FLD20.                                                 RPTRT10 
00049      IF NAME-GRP-DBMS EQUAL TO SPACES                             RPTRT10 
00050          GO TO 10250-OUTPUT-LN2.                                  RPTRT10 
00051      MOVE FLD1020020-HCON  TO  FLD1020020-HDG.                    RPTRT10 
00052      MOVE NAME-GRP-DBMS  TO  FLD1020020-VAL.                      RPTRT10 
00053 *                                                                 RPTRT10 
00054 *    OUTPUT 2ND DISPLAY LINE                                      RPTRT10 
00055 *                                                                 RPTRT10 
00056  10250-OUTPUT-LN2.                                                RPTRT10 
00057      IF CAT10200-LINE2 EQUAL TO SPACES                            RPTRT10 
               GO TO 10255-FMT-FLD35. 
00059      MOVE CAT10200-LINE2 TO STDRPT-70CHR.                         RPTRT10 
00060      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT10 
       10255-FMT-FLD35. 
00062      MOVE SPACE TO CAT10200-LINE3.                                   CL**2
           IF NAME-GRP-DMS IS EQUAL TO SPACES 
00064          GO TO 10260-FMT-CAT200-XIT.                                 CL**2
           MOVE FLD1020035-HCON TO FLD1020035-HDG 
           MOVE NAME-GRP-DMS TO FLD1020035-VAL
00067  10256-OUTPUT-LINE3.                                                 CL**2
00068      MOVE CAT10200-LINE3 TO STDRPT-70CHR.                            CL**2
00069      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00070  10260-FMT-CAT200-XIT.                                            RPTRT10 
00071      EXIT.                                                        RPTRT10 
00072                                                                    RPTRT10
00073 ******************************************************************RPTRT10 
00074 *                                                                 RPTRT10 
00075 *    FORMAT CATEGORY 210 DETAIL LINE                              RPTRT10 
00076 *        CATEGORY 210 = ATTRIBUTE                                 RPTRT10 
00077 *                                                                 RPTRT10 
00078 ******************************************************************RPTRT10 
00079  10500-FMT-CAT210.                                                RPTRT10 
00080      MOVE SPACES TO CAT10210-LINE1.                               RPTRT10 
00081 *                                                                 RPTRT10 
00082 *    FORMAT LENGTH FIELD                                          RPTRT10 
00083 *                                                                 RPTRT10 
00084  10505-FMT-FLD05.                                                 RPTRT10 
00085      IF ATTR-GRP-LENGTH EQUAL TO SPACES                           RPTRT10 
00086          GO TO 10510-FMT-FLD10.                                   RPTRT10 
00087      MOVE FLD1021005-HCON  TO  FLD1021005-HDG.                    RPTRT10 
00088      MOVE ATTR-GRP-LENGTH TO FLD1021005-VAL.                         CL**2
00089 *                                                                 RPTRT10 
00090 *    FORMAT  FORMAT FIELD                                         RPTRT10 
00091 *        IF CODE OTHER THAN 0-9 FIND MEANING.                     RPTRT10 
00092  10510-FMT-FLD10.                                                 RPTRT10 
00093      IF ATTR-GRP-FORMAT EQUAL TO SPACES                           RPTRT10 
00094          GO TO 10560-FMT-FLD15.                                   RPTRT10 
00095      MOVE FLD1021010-HCON  TO  FLD1021010-HDG.                    RPTRT10 
00096          GO TO 10530-INTERPRET-CODE.                              RPTRT10 
00097  10520-JUST-CODE.                                                 RPTRT10 
00098      MOVE ATTR-GRP-FORMAT  TO  FLD1021010-POS1.                   RPTRT10 
           GO TO 10555-OUTPUT-LN1.
00100  10530-INTERPRET-CODE.                                            RPTRT10 
00101      MOVE 01 TO SUB3.                                             RPTRT10 
00102  10540-NEXT-CODE-CK.                                              RPTRT10 
00103      IF FLD1021010-CODES (SUB3) EQUAL TO "9"                      RPTRT10 
00104          GO TO 10520-JUST-CODE.                                   RPTRT10 
00105      IF FLD1021010-CODES (SUB3) EQUAL TO ATTR-GRP-FORMAT          RPTRT10 
00106          GO TO 10550-EXTRACT-MNG.                                 RPTRT10 
00107      ADD 1 TO SUB3.                                               RPTRT10 
00108      GO TO 10540-NEXT-CODE-CK.                                    RPTRT10 
00109  10550-EXTRACT-MNG.                                               RPTRT10 
00110      MOVE FLD1021010-MNG (SUB3) TO FLD1021010-VAL.                RPTRT10 
      * 
      *    OUTPUT LINE 1
      * 
       10555-OUTPUT-LN1.
           IF CAT10210-LINE1 IS EQUAL TO SPACES 
           THEN 
              GO TO 10560-FMT-FLD15 
           ELSE 
              MOVE CAT10210-LINE1 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF.
00111 *                                                                 RPTRT10 
00112 *    FORMAT  PICTURE FIELD                                        RPTRT10 
00113 *                                                                 RPTRT10 
00114  10560-FMT-FLD15.                                                 RPTRT10 
           MOVE SPACES TO CAT10210-LINE2. 
00115      IF ATTR-GRP-PIC EQUAL TO SPACES                              RPTRT10 
               GO TO 10580-FMT-FLD20. 
00117      MOVE FLD1021015-HCON  TO  FLD1021015-HDG.                    RPTRT10 
00118      MOVE ATTR-GRP-PIC  TO  FLD1021015-VAL.                       RPTRT10 
00127 ******************************************************************RPTRT10 
00128 *    FORMAT 2ND DISPLAY LINE-                                     RPTRT10 
00129 ******************************************************************RPTRT10 
00130  10580-FMT-FLD20.                                                 RPTRT10 
00132 *                                                                 RPTRT10 
00133 *    FORMAT JUSTIFIED FIELD                                       RPTRT10 
00134 *                                                                 RPTRT10 
00135      IF ATTR-GRP-JUST EQUAL TO SPACES                             RPTRT10 
00136          GO TO 10630-FMT-FLD25.                                   RPTRT10 
00137      MOVE FLD1021020-HCON TO FLD1021020-HDG.                      RPTRT10 
00138      GO TO 10600-INTERPRET-CODE.                                  RPTRT10 
00139  10590-JUST-CODE.                                                 RPTRT10 
00140      MOVE ATTR-GRP-JUST TO FLD1021020-POS1.                       RPTRT10 
00141      GO TO 10630-FMT-FLD25.                                       RPTRT10 
00142  10600-INTERPRET-CODE.                                            RPTRT10 
00143      MOVE 01 TO SUB3.                                             RPTRT10 
00144  10610-NEXT-CODE-CK.                                              RPTRT10 
00145      IF FLD1021020-CODES (SUB3) EQUAL TO "9"                      RPTRT10 
00146          GO TO 10590-JUST-CODE.                                   RPTRT10 
00147      IF FLD1021020-CODES (SUB3) EQUAL TO ATTR-GRP-JUST            RPTRT10 
00148          GO TO 10620-EXTRACT-MNG.                                 RPTRT10 
00149      ADD 1 TO SUB3.                                               RPTRT10 
00150      GO TO 10610-NEXT-CODE-CK.                                    RPTRT10 
00151  10620-EXTRACT-MNG.                                               RPTRT10 
00152      MOVE FLD1021020-MNG (SUB3) TO FLD1021020-VAL.                RPTRT10 
00153 *                                                                 RPTRT10 
00154 *    FORMAT SYNCHRONIZED FIELD                                       CL**2
00155 *                                                                 RPTRT10 
00156  10630-FMT-FLD25.                                                 RPTRT10 
00157      IF ATTR-GRP-SYNC EQUAL TO SPACES                             RPTRT10 
00158          GO TO 10680-OUTPUT-LN2.                                  RPTRT10 
00159      MOVE FLD1021025-HCON  TO  FLD1021025-HDG.                    RPTRT10 
00160      GO TO 10650-INTERPRET-CODE.                                  RPTRT10 
00161  10640-JUST-CODE.                                                 RPTRT10 
00162      MOVE ATTR-GRP-SYNC TO FLD1021025-POS1.                       RPTRT10 
00163      GO TO 10680-OUTPUT-LN2.                                      RPTRT10 
00164  10650-INTERPRET-CODE.                                            RPTRT10 
00165      MOVE 01 TO SUB3.                                             RPTRT10 
00166  10660-NEXT-CODE-CK.                                              RPTRT10 
00167      IF FLD1021025-CODES (SUB3) EQUAL TO "9"                      RPTRT10 
00168          GO TO 10640-JUST-CODE.                                   RPTRT10 
00169      IF FLD1021025-CODES (SUB3) EQUAL TO ATTR-GRP-SYNC            RPTRT10 
00170          GO TO 10670-EXTRACT-MNG.                                 RPTRT10 
00171      ADD 1 TO SUB3.                                               RPTRT10 
00172      GO TO 10660-NEXT-CODE-CK.                                    RPTRT10 
00173  10670-EXTRACT-MNG.                                               RPTRT10 
00174      MOVE FLD1021025-MNG (SUB3) TO FLD1021025-VAL.                RPTRT10 
00175 *                                                                 RPTRT10 
00176 *    OUTPUT 2ND DISPALY LINE                                      RPTRT10 
00177 *                                                                 RPTRT10 
00178  10680-OUTPUT-LN2.                                                   CL**2
00179      IF CAT10210-LINE2 EQUAL TO SPACES                            RPTRT10 
00180          GO TO 10690-FMT-CAT210-XIT.                              RPTRT10 
00181      MOVE CAT10210-LINE2 TO STDRPT-70CHR.                         RPTRT10 
00182      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT10 
00183  10690-FMT-CAT210-XIT.                                            RPTRT10 
00184      EXIT.                                                        RPTRT10 
00185                                                                    RPTRT10
00186 ******************************************************************RPTRT10 
00187 *                                                                 RPTRT10 
00188 *    FORMAT CATEGORY 300 DETAIL LINE                              RPTRT10 
00189 *        CATEGORY 300 = STRUCTURE                                 RPTRT10 
00190 *                                                                 RPTRT10 
00191 ******************************************************************RPTRT10 
00192  10800-FMT-CAT300.                                                   CL**2
00193      MOVE SPACES TO CAT10300-LINE1.                                  CL**2
           IF CAT-COMMENT IS EQUAL TO "*" 
           THEN 
              PERFORM 5300-FMT-CAT030 THRU 5399-FMT-CAT030-XIT
              GO TO 10995-FMT-CAT300-XIT
           END-IF 
           IF CTL-LINE-TYPE IS NOT EQUAL TO "A" 
           THEN 
              GO TO CHECK-LINE-TYPE-O 
           END-IF 
           MOVE SPACES TO CAT10300-LINE1
           MOVE FLD1030005-HCON TO FLD1030005-HDG 
           MOVE STC-GRP-CNAME TO FLD1030005-VAL 
           IF STC-ALY-NO IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD1030010-HCON TO FLD1030010-HDG
              MOVE STC-ALY-NO TO FLD1030010-VAL 
           END-IF.
      * 
      *    OUTPUT LINE 1 IF PRESENT 
      * 
           IF CAT10300-LINE1 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT10300-LINE1 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF.
  
       1815-FMT-LINE2.
           MOVE SPACES TO CAT10300-LINE2
           IF STC-FILL-LEN IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD1030015-HCON TO FLD1030015-HDG
              MOVE STC-FILL-LEN TO FLD1030015-VAL 
           END-IF 
           IF STC-USAGE IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD1030022-HCON TO FLD1030022-HDG
              PERFORM INTERPRET-USAGE THRU INTERPRET-USAGE-XIT
           END-IF 
           IF STC-GRP-KEY IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD1030045-HCON TO FLD1030045-HDG
              PERFORM INTERPRET-KEY THRU INTERPRET-KEY-XIT
           END-IF 
           IF STC-DBD-INC IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD1030050-HCON TO FLD1030050-HDG
              PERFORM INTERPRET-INC THRU INTERPRET-INC-XIT
           END-IF 
      * 
      *    OUTPUT LINE 2 IF PRESENT 
      * 
           IF CAT10300-LINE2 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT10300-LINE2 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF.
  
       1820-FMT-LINE3.
           MOVE SPACES TO CAT10300-LINE3
           IF STC-REDEFINES IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD1030020-HCON TO FLD1030020-HDG
              MOVE STC-REDEFINES TO FLD1030020-VAL
           END-IF 
           IF STC-REDEF-ALIAS IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD1030024-HCON TO FLD1030024-HDG
              MOVE STC-REDEF-ALIAS TO FLD1030024-VAL
           END-IF 
      * 
      *    OUTPUT LINE 3 IF PRESENT 
      * 
           IF CAT10300-LINE3 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT10300-LINE3 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           GO TO 10995-FMT-CAT300-XIT.
  
       CHECK-LINE-TYPE-O. 
           IF CTL-LINE-TYPE IS NOT EQUAL TO "O" 
           THEN 
              GO TO CHECK-LINE-TYPE-D 
           END-IF 
           MOVE SPACES TO CAT10300-LINE4
           IF STC-OCC-FROM IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD10300DCC-HCON TO FLD10300DCC-HDG
              MOVE FLD1030025-HCON TO FLD1030025-HDG
              MOVE STC-OCC-FROM TO FLD1030025-VAL 
           END-IF 
           IF STC-OCC-TO IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD1030030-HCON TO FLD1030030-HDG
              MOVE STC-OCC-TO TO FLD1030030-VAL 
           END-IF 
           IF STC-OCC-TO-ALIAS IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD1030032-HCON TO FLD1030032-HDG
              MOVE STC-OCC-TO-ALIAS TO FLD1030032-VAL 
           END-IF 
      * 
      *    OUTPUT LINE 4 IF PRESENT 
      * 
           IF CAT10300-LINE4 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT10300-LINE4 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF.
  
       1825-FMT-LINE5.
           MOVE SPACES TO CAT10300-LINE5
           IF STC-OCC-DEPEND IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD1030038-HCON TO FLD1030038-HDG
              MOVE STC-OCC-DEPEND TO FLD1030038-VAL 
           END-IF 
           IF STC-OCC-DEP-ALIAS IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD1030039-HCON TO FLD1030039-HDG
              MOVE STC-OCC-DEP-ALIAS TO FLD1030039-VAL
           END-IF 
      * 
      *    OUTPUT LINE 5 IF PRESENT 
      * 
           IF CAT10300-LINE5 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT10300-LINE5 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF.
  
       1825-FMT-LINE6.
           MOVE SPACES TO CAT10300-LINE6
           IF STC-OCC-DEP-QUAL1 IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD10300OF-HCON TO FLD10300QUAL-HDG
              MOVE STC-OCC-DEP-QUAL1 TO FLD10300QUAL-VAL
           END-IF 
      * 
      *    OUTPUT LINE 6 IF PRESENT 
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT.
  
       1825-FMT-LINE7.
           MOVE SPACES TO CAT10300-LINE6
           IF STC-OCC-DEP-QUAL2 IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD10300OF-HCON TO FLD10300QUAL-HDG
              MOVE STC-OCC-DEP-QUAL2 TO FLD10300QUAL-VAL
           END-IF 
      * 
      *    OUTPUT LINE 7 IF PRESENT 
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT 
           GO TO 10995-FMT-CAT300-XIT.
  
       CHECK-LINE-TYPE-D. 
           IF CTL-LINE-TYPE IS NOT EQUAL TO "D" 
           THEN 
              GO TO CHECK-LINE-TYPE-I 
           END-IF 
           MOVE SPACES TO CAT10300-LINE6
           IF STC-OCC-DEP-QUAL3 IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD10300OF-HCON TO FLD10300QUAL-HDG
              MOVE STC-OCC-DEP-QUAL3 TO FLD10300QUAL-VAL
           END-IF 
      * 
      *    OUTPUT LINE 8 IF PRESENT 
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT.
  
       1825-FMT-LINE9.
           MOVE SPACES TO CAT10300-LINE6
           IF STC-OCC-DEP-QUAL4 IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD10300OF-HCON TO FLD10300QUAL-HDG
              MOVE STC-OCC-DEP-QUAL4 TO FLD10300QUAL-VAL
           END-IF 
      * 
      *    OUTPUT LINE 9 IF PRESENT 
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT 
  
       1825-FMT-LINE10. 
           MOVE SPACES TO CAT10300-LINE6
           IF STC-OCC-DEP-QUAL5 IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD10300OF-HCON TO FLD10300QUAL-HDG
              MOVE STC-OCC-DEP-QUAL5 TO FLD10300QUAL-VAL
           END-IF 
      * 
      *    OUTPUT LINE 10 IF PRESENT
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT 
           GO TO 10995-FMT-CAT300-XIT.
  
       CHECK-LINE-TYPE-I. 
           IF CTL-LINE-TYPE IS NOT EQUAL TO "I" 
           THEN 
              GO TO CHECK-LINE-TYPE-K 
           END-IF 
           MOVE SPACES TO CAT10300-LINE11 
           MOVE FLD1030035-HCON TO FLD1030035-HDG 
           MOVE STC-INDEX TO FLD1030035-VAL 
      * 
      *    OUTPUT LINE 11 
      * 
           MOVE CAT10300-LINE11 TO STDRPT-70CHR 
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT 
           GO TO 10995-FMT-CAT300-XIT.
  
       CHECK-LINE-TYPE-K. 
           IF CTL-LINE-TYPE IS NOT EQUAL TO "K" 
           THEN 
              GO TO CHECK-LINE-TYPE-R 
           END-IF 
           MOVE SPACES TO CAT10300-LINE12 
           MOVE FLD1030060-HCON TO FLD1030060-HDG 
           MOVE STC-OCC-KEY TO FLD1030060-VAL 
           IF STC-OCC-KEY-ALIAS IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD1030065-HCON TO FLD1030065-HDG
              MOVE STC-OCC-KEY-ALIAS TO FLD1030065-VAL
           END-IF 
      * 
      *    OUTPUT LINE 12 
      * 
           MOVE CAT10300-LINE12 TO STDRPT-70CHR 
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT 
  
           IF STC-OCC-KEYORDER IS NOT EQUAL TO SPACES 
           THEN 
              MOVE SPACES TO CAT10300-LINE13
              MOVE FLD1030070-HCON TO FLD1030070-HDG
              PERFORM INTERPRET-KORDER THRU INTERPRET-KORDER-XIT
      * 
      *    OUTPUT LINE 13 
      * 
              MOVE CAT10300-LINE13 TO STDRPT-70CHR
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           GO TO 10995-FMT-CAT300-XIT.
  
       CHECK-LINE-TYPE-R. 
           IF CTL-LINE-TYPE IS NOT EQUAL TO "R" 
           THEN 
              GO TO CHECK-LINE-TYPE-Q 
           END-IF 
           MOVE SPACES TO CAT10300-LINE14 
           MOVE FLD1030075-HCON TO FLD1030075-HDG 
           MOVE STC-R-NAME TO FLD1030075-VAL
           IF STC-RNAME-ALIAS IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD1030076-HCON TO FLD1030076-HDG
              MOVE STC-RNAME-ALIAS TO FLD1030076-VAL
           END-IF 
      * 
      *    OUTPUT LINE 14 
      * 
           MOVE CAT10300-LINE14 TO STDRPT-70CHR 
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.
  
       1830-FMT-LINE15. 
           MOVE SPACES TO CAT10300-LINE6
           IF STC-R-QUAL1 IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD10300OF-HCON TO FLD10300QUAL-HDG
              MOVE STC-R-QUAL1 TO FLD10300QUAL-VAL
           END-IF 
      * 
      *    OUTPUT LINE 15 IF PRESENT
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT.
  
       1830-FMT-LINE16. 
           MOVE SPACES TO CAT10300-LINE6
           IF STC-R-QUAL2 IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD10300OF-HCON TO FLD10300QUAL-HDG
              MOVE STC-R-QUAL2 TO FLD10300QUAL-VAL
           END-IF 
      * 
      *    OUTPUT LINE 16 IF PRESENT
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT.
  
       1830-FMT-LINE17. 
           MOVE SPACES TO CAT10300-LINE6
           IF STC-R-QUAL3 IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD10300OF-HCON TO FLD10300QUAL-HDG
              MOVE STC-R-QUAL3 TO FLD10300QUAL-VAL
           END-IF 
      * 
      *    OUTPUT LINE 17 IF PRESENT
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT 
           GO TO 10995-FMT-CAT300-XIT.
  
       CHECK-LINE-TYPE-Q. 
           IF CTL-LINE-TYPE IS NOT EQUAL TO "Q" 
           THEN 
              GO TO CHECK-LINE-TYPE-T 
           END-IF 
           MOVE SPACES TO CAT10300-LINE6
           IF STC-REN-THR-QUAL4 IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD10300OF-HCON TO FLD10300QUAL-HDG
              MOVE STC-REN-THR-QUAL4 TO FLD10300QUAL-VAL
           END-IF 
      * 
      *    OUTPUT LINE 18 IF PRESENT
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT.
  
       1830-FMT-LINE19. 
           MOVE SPACES TO CAT10300-LINE6
           IF STC-REN-THR-QUAL5 IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD10300OF-HCON TO FLD10300QUAL-HDG
              MOVE STC-REN-THR-QUAL5 TO FLD10300QUAL-VAL
           END-IF 
      * 
      *    OUTPUT LINE 19 IF PRESENT
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT 
           GO TO 10995-FMT-CAT300-XIT.
  
       CHECK-LINE-TYPE-T. 
           IF CTL-LINE-TYPE IS NOT EQUAL TO "T" 
           THEN 
              GO TO CHECK-LINE-TYPE-2 
           END-IF 
           MOVE SPACES TO CAT10300-LINE20 
           MOVE FLD1030087-HCON TO FLD1030087-HDG 
           MOVE STC-THRU-NAME TO FLD1030087-VAL 
           IF STC-THRU-ALIAS IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD1030088-HCON TO FLD1030088-HDG
              MOVE STC-THRU-ALIAS TO FLD1030088-VAL 
           END-IF 
      * 
      *    OUTPUT LINE 20 
      * 
           MOVE CAT10300-LINE20 TO STDRPT-70CHR 
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.
  
       1830-FMT-LINE21. 
           MOVE SPACES TO CAT10300-LINE6
           IF STC-T-QUAL1 IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD10300OF-HCON TO FLD10300QUAL-HDG
              MOVE STC-T-QUAL1 TO FLD10300QUAL-VAL
           END-IF 
      * 
      *    OUTPUT LINE 21 IF PRESENT
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT.
  
       1830-FMT-LINE22. 
           MOVE SPACES TO CAT10300-LINE6
           IF STC-T-QUAL2 IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD10300OF-HCON TO FLD10300QUAL-HDG
              MOVE STC-T-QUAL2 TO FLD10300QUAL-VAL
           END-IF 
      * 
      *    OUTPUT LINE 22 IF PRESENT
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT.
  
       1830-FMT-LINE23. 
           MOVE SPACES TO CAT10300-LINE6
           IF STC-T-QUAL3 IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD10300OF-HCON TO FLD10300QUAL-HDG
              MOVE STC-T-QUAL3 TO FLD10300QUAL-VAL
           END-IF 
      * 
      *    OUTPUT LINE 23 IF PRESENT
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT 
           GO TO 10995-FMT-CAT300-XIT.
  
       CHECK-LINE-TYPE-2. 
           IF CTL-LINE-TYPE IS NOT EQUAL TO "2" 
           THEN 
              GO TO 10995-FMT-CAT300-XIT
           END-IF 
           MOVE SPACES TO CAT10300-LINE6
           IF STC-REN-THR-QUAL4 IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD10300OF-HCON TO FLD10300QUAL-HDG
              MOVE STC-REN-THR-QUAL4 TO FLD10300QUAL-VAL
           END-IF 
      * 
      *    OUTPUT LINE 24 IF PRESENT
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT.
  
       1830-FMT-LINE25. 
           MOVE SPACES TO CAT10300-LINE6
           IF STC-REN-THR-QUAL5 IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD10300OF-HCON TO FLD10300QUAL-HDG
              MOVE STC-REN-THR-QUAL5 TO FLD10300QUAL-VAL
           END-IF 
      * 
      *    OUTPUT LINE 25 IF PRESENT
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT.
  
       10995-FMT-CAT300-XIT.
           EXIT.
  
  
      ************************************************************
      *      I N T E R P R E T    S U B R O U T I N E S          *
      ************************************************************
  
       INTERPRET-USAGE. 
           MOVE 1 TO SUB3.
       INTERPRET-USAGE-CONT.
           IF STC-USAGE IS EQUAL TO FLD1030022-CODES (SUB3) 
           THEN 
              MOVE FLD1030022-MNG (SUB3) TO FLD1030022-VAL
              GO TO INTERPRET-USAGE-XIT 
           ELSE 
              ADD 1 TO SUB3 
              GO TO INTERPRET-USAGE-CONT
           END-IF.
       INTERPRET-USAGE-XIT. 
           EXIT.
  
       INTERPRET-KEY. 
           MOVE 1 TO SUB3.
       INTERPRET-KEY-CONT.
           IF STC-GRP-KEY IS EQUAL TO FLD1030045-CODES (SUB3) 
           THEN 
              MOVE FLD1030045-MNG (SUB3) TO FLD1030045-VAL
              GO TO INTERPRET-KEY-XIT 
           ELSE 
              ADD 1 TO SUB3 
              GO TO INTERPRET-KEY-CONT
           END-IF.
       INTERPRET-KEY-XIT. 
           EXIT.
  
       INTERPRET-INC. 
           MOVE 1 TO SUB3.
       INTERPRET-INC-CONT.
           IF STC-DBD-INC IS EQUAL TO FLD1030050-CODES (SUB3) 
           THEN 
              MOVE FLD1030050-MNG (SUB3) TO FLD1030050-VAL
              GO TO INTERPRET-INC-XIT 
           ELSE 
              ADD 1 TO SUB3 
              GO TO INTERPRET-INC-CONT
           END-IF.
       INTERPRET-INC-XIT. 
           EXIT.
  
       INTERPRET-KORDER.
           MOVE 1 TO SUB3.
       INTERPRET-KORDER-CONT. 
           IF STC-OCC-KEYORDER IS EQUAL TO FLD1030070-CODES (SUB3)
           THEN 
              MOVE FLD1030070-MNG (SUB3) TO FLD1030070-VAL
              GO TO INTERPRET-KORDER-XIT
           ELSE 
              ADD 1 TO SUB3 
              GO TO INTERPRET-KORDER-CONT 
           END-IF.
       INTERPRET-KORDER-XIT.
           EXIT.
  
      ************************************************************
      *           OUTPUT QUALIFIER LINE SUBROUTINE               *
      ************************************************************
  
       OUTPUT-QUAL-LINE.
           IF CAT10300-LINE6 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT10300-LINE6 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF.
       OUTPUT-QUAL-LINE-XIT.
           EXIT.
  
00376                                                                    RPTRT10
