*COMDECK  RPTRT13 
00001 ******************************************************************08/10/78
00002 *                                                                 RPTRT13 
00003 *    FORMAT CATEGORY 200 DETAIL LINES                                LV002
00004 *        CATEGORY 200 = NAMES.                                       CL**2
00005 *                                                                    CL**2
00006 ******************************************************************   CL**2
00007  11200-FMT-CAT200.                                                   CL**2
00008      MOVE SPACES TO CAT13200-LINE1.                                  CL**2
00009 *                                                                    CL**2
00010 *    FORMAT DATA NAME FIELD                                          CL**2
00011 *                                                                    CL**2
00012  11205-FMT-FLD05.                                                    CL**2
00013      IF NAME-TOT-DATA-NAME EQUAL TO SPACES                           CL**2
00014          GO TO 11210-FMT-FLD15.                                      CL**2
00015      MOVE FLD1320005-HCON TO FLD1320005-HDG.                         CL**2
00016      MOVE NAME-TOT-DATA-NAME TO FLD1320005-VAL.                      CL**2
00017 *                                                                    CL**2
00018 *    FORMAT SYMBOL FIELD                                             CL**2
00019 *                                                                    CL**2
00020  11210-FMT-FLD15.                                                    CL**2
00021      IF NAME-TOT-SYMBOL EQUAL TO SPACES                              CL**2
00022          GO TO 11220-OUTPUT-LN1.                                     CL**2
00023      MOVE FLD1320015-HCON TO FLD1320015-HDG.                         CL**2
00024      MOVE NAME-TOT-SYMBOL TO FLD1320015-VAL.                         CL**2
00025 *                                                                    CL**2
00026 *    OUTPUT 1ST DISPLAY LINE                                         CL**2
00027 *                                                                    CL**2
00028  11220-OUTPUT-LN1.                                                   CL**2
00029      IF CAT13200-LINE1 EQUAL TO SPACES                               CL**2
00030          GO TO 11230-FMT-FLD10.                                      CL**2
00031      MOVE CAT13200-LINE1 TO STDRPT-70CHR.                            CL**2
00032      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00033 *                                                                    CL**2
00034 *    FORMAT 2ND LINE                                                 CL**2
00035 *                                                                    CL**2
00036  11230-FMT-FLD10.                                                    CL**2
00037      MOVE SPACES TO CAT13200-LINE2.                                  CL**2
00038 *                                                                    CL**2
00039 *    FORMAT IDENTIFIER FIELD                                         CL**2
00040 *                                                                    CL**2
00041      IF NAME-TOT-IDENTIFIER EQUAL TO SPACES                          CL**2
00042          GO TO 11240-FMT-FLD20.                                      CL**2
00043      MOVE FLD1320010-HCON TO FLD1320010-HDG.                         CL**2
00044      MOVE NAME-TOT-IDENTIFIER TO FLD1320010-VAL.                     CL**2
00045 *                                                                    CL**2
00046 *    FORMAT DBMS NAME FIELD                                          CL**2
00047 *                                                                    CL**2
00048  11240-FMT-FLD20.                                                    CL**2
00049      IF NAME-TOT-DBMS EQUAL TO SPACES                                CL**2
00050          GO TO 11250-OUTPUT-LN2.                                     CL**2
00051      MOVE FLD1320020-HCON TO FLD1320020-HDG.                         CL**2
00052      MOVE NAME-TOT-DBMS TO FLD1320020-VAL.                           CL**2
00053 *                                                                    CL**2
00054 *    OUTPUT 2ND DISPLAY LINE                                         CL**2
00055 *                                                                    CL**2
00056  11250-OUTPUT-LN2.                                                   CL**2
00057      IF CAT13200-LINE2 EQUAL TO SPACES                               CL**2
               GO TO 11255-FMT-FLD25. 
00059      MOVE CAT13200-LINE2 TO STDRPT-70CHR.                            CL**2
00060      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
       11255-FMT-FLD25. 
           IF NAME-TOT-DMS IS EQUAL TO SPACES 
           THEN 
              GO TO 11260-FMT-CAT200-XIT
           ELSE 
              MOVE FLD1320025-HCON TO FLD1320025-HDG
              MOVE NAME-TOT-DMS TO FLD1320025-VAL 
              MOVE CAT13200-LINE3 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF.
00061  11260-FMT-CAT200-XIT.                                               CL**2
00062      EXIT.                                                           CL**2
00063                                                                    RPTRT13
00064 ******************************************************************   CL**2
00065 *                                                                    CL**2
00066 *    FORMAT CATEGORY 210 DETAIL LINE                                 CL**2
00067 *        CATEGORY 210 = ATTRIBUTE                                    CL**2
00068 *                                                                    CL**2
00069 ******************************************************************   CL**2
00070  11500-FMT-CAT210.                                                   CL**2
00071      MOVE SPACES TO CAT13210-LINE1.                                  CL**2
00072 *                                                                    CL**2
00073 *    FORMAT MAXIMUM LENGTH FIELD                                     CL**2
00074 *                                                                    CL**2
00075  11505-FMT-FLD05.                                                    CL**2
00076      IF ATTR-TOT-MAXLEN EQUAL TO SPACES                              CL**2
00077          GO TO 11510-FMT-FLD10.                                      CL**2
00078      MOVE FLD1321005-HCON TO FLD1321005-HDG.                         CL**2
00079      MOVE ATTR-TOT-MAXLEN TO FLD1321005-VAL.                         CL**2
00080 *                                                                    CL**2
00081 *    FORMAT MINIMUM LENGTH FIELD                                     CL**2
00082 *                                                                    CL**2
00083  11510-FMT-FLD10.                                                    CL**2
00084      IF ATTR-TOT-MINLEN EQUAL TO SPACES                              CL**2
00085          GO TO 11520-FMT-FLD15.                                      CL**2
00086      MOVE FLD1321010-HCON TO FLD1321010-HDG.                         CL**2
00087      MOVE ATTR-TOT-MINLEN TO FLD1321010-VAL.                         CL**2
00088 *                                                                    CL**2
00089 *    FORMAT STORAGE FIELD                                            CL**2
00090 *                                                                    CL**2
00091  11520-FMT-FLD15.                                                    CL**2
00092      IF ATTR-TOT-STORAGE EQUAL TO SPACES                             CL**2
00093          GO TO 11570-OUTPUT-LN1.                                     CL**2
00094      MOVE FLD1321015-HCON TO FLD1321015-HDG.                         CL**2
00095          GO TO 11540-INTERPRET-CODE.                                 CL**2
00096  11530-JUST-CODE.                                                    CL**2
00097      MOVE ATTR-TOT-STORAGE TO FLD1321015-POS1.                       CL**2
00098      GO TO 11570-OUTPUT-LN1.                                         CL**2
00099  11540-INTERPRET-CODE.                                               CL**2
00100      MOVE 01 TO SUB3.                                                CL**2
00101  11550-NEXT-CODE-CK.                                                 CL**2
00102      IF FLD1321015-CODES (SUB3) EQUAL TO "9"                         CL**2
00103          GO TO 11530-JUST-CODE.                                      CL**2
00104      IF FLD1321015-CODES (SUB3) EQUAL TO ATTR-TOT-STORAGE            CL**2
00105          GO TO 11560-EXTRACT-MNG.                                    CL**2
00106      ADD 1 TO SUB3.                                                  CL**2
00107      GO TO 11550-NEXT-CODE-CK.                                       CL**2
00108  11560-EXTRACT-MNG.                                                  CL**2
00109      MOVE FLD1321015-MNG (SUB3) TO FLD1321015-VAL.                   CL**2
00110 *                                                                    CL**2
00111 *    OUTPUT DISPLAY LINE                                             CL**2
00112 *                                                                    CL**2
00113  11570-OUTPUT-LN1.                                                   CL**2
00114      IF CAT13210-LINE1 EQUAL TO SPACES                               CL**2
00115          GO TO 11580-FMT-CAT210-XIT.                                 CL**2
00116      MOVE CAT13210-LINE1 TO STDRPT-70CHR.                            CL**2
00117      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00118  11580-FMT-CAT210-XIT.                                               CL**2
00119      EXIT.                                                           CL**2
00120                                                                    RPTRT13
       FMT-CAT211.
           MOVE SPACES TO CAT13200-LINE3
           MOVE FLD1320025-HCON TO FLD1320025-HDG 
           MOVE ALY-SR-NAME TO FLD1320025-VAL 
           MOVE CAT13200-LINE3 TO STDRPT-70CHR
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.
       FMT-CAT211-XIT.
           EXIT.
00121 ******************************************************************   CL**2
00122 *                                                                    CL**2
00123 *    FORMAT CATEGORY 300 DETAIL LINE                                 CL**2
00124 *        CATEGORY 300 = STRUCTURE                                    CL**2
00125 *                                                                    CL**2
00126 ******************************************************************   CL**2
00127  11800-FMT-CAT300.                                                   CL**2
00128      MOVE SPACES TO CAT13300-LINE1.                                  CL**2
           IF CAT-COMMENT IS EQUAL TO "*" 
           THEN 
              PERFORM 5300-FMT-CAT030 THRU 5399-FMT-CAT030-XIT
              GO TO 1299-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 CAT13300-LINE1
           MOVE FLD1330005-HCON TO FLD1330005-HDG 
           MOVE STC-TOT-CNAME TO FLD1330005-VAL 
           IF STC-TOT-ALY-NO IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD1330010-HCON TO FLD1330010-HDG
              MOVE STC-TOT-ALY-NO TO FLD1330010-VAL 
           END-IF.
      * 
      *    OUTPUT LINE 1 IF PRESENT 
      * 
           IF CAT13300-LINE1 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT13300-LINE1 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF.
  
       1815-FMT-LINE2.
           MOVE SPACES TO CAT13300-LINE2
           IF STC-TOT-FILL-LEN IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD1330015-HCON TO FLD1330015-HDG
              MOVE STC-TOT-FILL-LEN TO FLD1330015-VAL 
           END-IF 
           IF STC-TOT-USAGE IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD1330022-HCON TO FLD1330022-HDG
              PERFORM INTERPRET-USAGE THRU INTERPRET-USAGE-XIT
           END-IF 
           IF STC-TOT-KEY IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD1330045-HCON TO FLD1330045-HDG
              PERFORM INTERPRET-KEY THRU INTERPRET-KEY-XIT
           END-IF 
           IF STC-TOT-DBD-INC IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD1330050-HCON TO FLD1330050-HDG
              PERFORM INTERPRET-INC THRU INTERPRET-INC-XIT
           END-IF 
      * 
      *    OUTPUT LINE 2 IF PRESENT 
      * 
           IF CAT13300-LINE2 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT13300-LINE2 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF.
  
       1820-FMT-LINE3.
           MOVE SPACES TO CAT13300-LINE3
           IF STC-TOT-REDEFINES IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD1330020-HCON TO FLD1330020-HDG
              MOVE STC-TOT-REDEFINES TO FLD1330020-VAL
           END-IF 
           IF STC-TOT-REDEF-ALIAS IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD1330024-HCON TO FLD1330024-HDG
              MOVE STC-TOT-REDEF-ALIAS TO FLD1330024-VAL
           END-IF 
      * 
      *    OUTPUT LINE 3 IF PRESENT 
      * 
           IF CAT13300-LINE3 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT13300-LINE3 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           GO TO 1299-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 CAT13300-LINE4
           IF STC-SR-FROM IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD13300OCC-HCON TO FLD13300OCC-HDG
              MOVE FLD1330025-HCON TO FLD1330025-HDG
              MOVE STC-SR-FROM TO FLD1330025-VAL
           END-IF 
           IF STC-SR-TO IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD1330030-HCON TO FLD1330030-HDG
              MOVE STC-SR-TO TO FLD1330030-VAL
           END-IF 
           IF STC-SR-TO-ALIAS IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD1330032-HCON TO FLD1330032-HDG
              MOVE STC-SR-TO-ALIAS TO FLD1330032-VAL
           END-IF 
      * 
      *    OUTPUT LINE 4 IF PRESENT 
      * 
           IF CAT13300-LINE4 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT13300-LINE4 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF.
  
       1825-FMT-LINE5.
           MOVE SPACES TO CAT13300-LINE5
           IF STC-SR-DEPEND IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD1330038-HCON TO FLD1330038-HDG
              MOVE STC-SR-DEPEND TO FLD1330038-VAL
           END-IF 
           IF STC-SR-DEP-ALIAS IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD1330039-HCON TO FLD1330039-HDG
              MOVE STC-SR-DEP-ALIAS TO FLD1330039-VAL 
           END-IF 
      * 
      *    OUTPUT LINE 5 IF PRESENT 
      * 
           IF CAT13300-LINE5 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT13300-LINE5 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF.
  
       1825-FMT-LINE6.
           MOVE SPACES TO CAT13300-LINE6
           IF STC-SR-DEP-QUAL1 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD13300OF-HCON TO FLD13300QUAL-HDG
              MOVE STC-SR-DEP-QUAL1 TO FLD13300QUAL-VAL 
           END-IF 
      * 
      *    OUTPUT LINE 6 IF PRESENT 
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT.
  
       1825-FMT-LINE7.
           MOVE SPACES TO CAT13300-LINE6
           IF STC-SR-DEP-QUAL2 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD13300OF-HCON TO FLD13300QUAL-HDG
              MOVE STC-SR-DEP-QUAL2 TO FLD13300QUAL-VAL 
           END-IF 
      * 
      *    OUTPUT LINE 7 IF PRESENT 
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT 
           GO TO 1299-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 CAT13300-LINE6
           IF STC-OCC-DEP-QUAL3 IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD13300OF-HCON TO FLD13300QUAL-HDG
              MOVE STC-OCC-DEP-QUAL3 TO FLD13300QUAL-VAL
           END-IF 
      * 
      *    OUTPUT LINE 8 IF PRESENT 
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT.
  
       1825-FMT-LINE9.
           MOVE SPACES TO CAT13300-LINE6
           IF STC-OCC-DEP-QUAL4 IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD13300OF-HCON TO FLD13300QUAL-HDG
              MOVE STC-OCC-DEP-QUAL4 TO FLD13300QUAL-VAL
           END-IF 
      * 
      *    OUTPUT LINE 9 IF PRESENT 
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT 
  
       1825-FMT-LINE10. 
           MOVE SPACES TO CAT13300-LINE6
           IF STC-OCC-DEP-QUAL5 IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD13300OF-HCON TO FLD13300QUAL-HDG
              MOVE STC-OCC-DEP-QUAL5 TO FLD13300QUAL-VAL
           END-IF 
      * 
      *    OUTPUT LINE 10 IF PRESENT
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT 
           GO TO 1299-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 CAT13300-LINE11 
           MOVE FLD1330035-HCON TO FLD1330035-HDG 
           MOVE STC-SR-INDEX-NAME TO FLD1330035-VAL 
      * 
      *    OUTPUT LINE 11 
      * 
           MOVE CAT13300-LINE11 TO STDRPT-70CHR 
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT 
           GO TO 1299-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 CAT13300-LINE12 
           MOVE FLD1330060-HCON TO FLD1330060-HDG 
           MOVE STC-SR-OCC-KEY TO FLD1330060-VAL
           IF STC-SR-OCC-KALIAS IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD1330065-HCON TO FLD1330065-HDG
              MOVE STC-SR-OCC-KALIAS TO FLD1330065-VAL
           END-IF 
      * 
      *    OUTPUT LINE 12 
      * 
           MOVE CAT13300-LINE12 TO STDRPT-70CHR 
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT 
  
           IF STC-SR-OCC-KORDER IS NOT EQUAL TO SPACES
           THEN 
              MOVE SPACES TO CAT13300-LINE13
              MOVE FLD1330070-HCON TO FLD1330070-HDG
              PERFORM INTERPRET-KORDER THRU INTERPRET-KORDER-XIT
      * 
      *    OUTPUT LINE 13 
      * 
              MOVE CAT13300-LINE13 TO STDRPT-70CHR
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           GO TO 1299-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 CAT13300-LINE14 
           MOVE FLD1330075-HCON TO FLD1330075-HDG 
           MOVE STC-SR-R-NAME TO FLD1330075-VAL 
           IF STC-SR-RN-ALIAS IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD1330076-HCON TO FLD1330076-HDG
              MOVE STC-SR-RN-ALIAS TO FLD1330076-VAL
           END-IF 
      * 
      *    OUTPUT LINE 14 
      * 
           MOVE CAT13300-LINE14 TO STDRPT-70CHR 
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.
  
       1830-FMT-LINE15. 
           MOVE SPACES TO CAT13300-LINE6
           IF STC-SR-R-QUAL1 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD13300OF-HCON TO FLD13300QUAL-HDG
              MOVE STC-SR-R-QUAL1 TO FLD13300QUAL-VAL 
           END-IF 
      * 
      *    OUTPUT LINE 15 IF PRESENT
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT.
  
       1830-FMT-LINE16. 
           MOVE SPACES TO CAT13300-LINE6
           IF STC-SR-R-QUAL2 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD13300OF-HCON TO FLD13300QUAL-HDG
              MOVE STC-SR-R-QUAL2 TO FLD13300QUAL-VAL 
           END-IF 
      * 
      *    OUTPUT LINE 16 IF PRESENT
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT.
  
       1830-FMT-LINE17. 
           MOVE SPACES TO CAT13300-LINE6
           IF STC-SR-R-QUAL3 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD13300OF-HCON TO FLD13300QUAL-HDG
              MOVE STC-SR-R-QUAL3 TO FLD13300QUAL-VAL 
           END-IF 
      * 
      *    OUTPUT LINE 17 IF PRESENT
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT 
           GO TO 1299-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 CAT13300-LINE6
           IF STC-REN-THR-QUAL4 IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD13300OF-HCON TO FLD13300QUAL-HDG
              MOVE STC-REN-THR-QUAL4 TO FLD13300QUAL-VAL
           END-IF 
      * 
      *    OUTPUT LINE 18 IF PRESENT
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT.
  
       1830-FMT-LINE19. 
           MOVE SPACES TO CAT13300-LINE6
           IF STC-REN-THR-QUAL5 IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD13300OF-HCON TO FLD13300QUAL-HDG
              MOVE STC-REN-THR-QUAL5 TO FLD13300QUAL-VAL
           END-IF 
      * 
      *    OUTPUT LINE 19 IF PRESENT
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT 
           GO TO 1299-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 CAT13300-LINE20 
           MOVE FLD1330087-HCON TO FLD1330087-HDG 
           MOVE STC-SR-THRU-NAME TO FLD1330087-VAL
           IF STC-SR-T-ALIAS IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD1330088-HCON TO FLD1330088-HDG
              MOVE STC-SR-T-ALIAS TO FLD1330088-VAL 
           END-IF 
      * 
      *    OUTPUT LINE 20 
      * 
           MOVE CAT13300-LINE20 TO STDRPT-70CHR 
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.
  
       1830-FMT-LINE21. 
           MOVE SPACES TO CAT13300-LINE6
           IF STC-SR-T-QUAL1 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD13300OF-HCON TO FLD13300QUAL-HDG
              MOVE STC-SR-T-QUAL1 TO FLD13300QUAL-VAL 
           END-IF 
      * 
      *    OUTPUT LINE 21 IF PRESENT
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT.
  
       1830-FMT-LINE22. 
           MOVE SPACES TO CAT13300-LINE6
           IF STC-SR-T-QUAL2 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD13300OF-HCON TO FLD13300QUAL-HDG
              MOVE STC-SR-T-QUAL2 TO FLD13300QUAL-VAL 
           END-IF 
      * 
      *    OUTPUT LINE 22 IF PRESENT
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT.
  
       1830-FMT-LINE23. 
           MOVE SPACES TO CAT13300-LINE6
           IF STC-SR-T-QUAL3 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD13300OF-HCON TO FLD13300QUAL-HDG
              MOVE STC-SR-T-QUAL3 TO FLD13300QUAL-VAL 
           END-IF 
      * 
      *    OUTPUT LINE 23 IF PRESENT
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT 
           GO TO 1299-FMT-CAT300-XIT. 
  
       CHECK-LINE-TYPE-2. 
           IF CTL-LINE-TYPE IS NOT EQUAL TO "2" 
           THEN 
              GO TO CHECK-LINE-TYPE-B 
           END-IF 
           MOVE SPACES TO CAT13300-LINE6
           IF STC-REN-THR-QUAL4 IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD13300OF-HCON TO FLD13300QUAL-HDG
              MOVE STC-REN-THR-QUAL4 TO FLD13300QUAL-VAL
           END-IF 
      * 
      *    OUTPUT LINE 24 IF PRESENT
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT.
  
       1830-FMT-LINE25. 
           MOVE SPACES TO CAT13300-LINE6
           IF STC-REN-THR-QUAL5 IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD13300OF-HCON TO FLD13300QUAL-HDG
              MOVE STC-REN-THR-QUAL5 TO FLD13300QUAL-VAL
           END-IF 
      * 
      *    OUTPUT LINE 25 IF PRESENT
      * 
           PERFORM OUTPUT-QUAL-LINE THRU OUTPUT-QUAL-LINE-XIT 
           GO TO 1299-FMT-CAT300-XIT. 
  
       CHECK-LINE-TYPE-B. 
           IF CTL-LINE-TYPE IS NOT EQUAL TO "B" 
           THEN 
              GO TO CHECK-LINE-TYPE-C 
           END-IF 
           MOVE SPACES TO CAT13300-LINE26 
           IF STC-TOT-TKEY IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD1330045-HCON TO FLD1330002-HDG
              PERFORM INTERPRET-TKEY THRU INTERPRET-TKEY-XIT
           END-IF 
           IF STC-TOT-LINKPATH IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD1330007-HCON TO FLD1330007-HDG
              MOVE STC-TOT-LINKPATH TO FLD1330007-VAL 
           END-IF 
           IF STC-TOT-VARLEN IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD1330012-HCON TO FLD1330012-HDG
              MOVE STC-TOT-VARLEN TO FLD1330012-VAL 
           END-IF 
      * 
      *    OUTPUT LINE 26 IF PRESENT
      * 
           IF CAT13300-LINE26 IS NOT EQUAL TO SPACES
           THEN 
              MOVE CAT13300-LINE26 TO STDRPT-70CHR
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           MOVE SPACES TO CAT13300-LINE27 
           IF STC-TOT-LKFIELD IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD1330013-HCON TO FLD1330013-HDG
              MOVE STC-TOT-LKFIELD TO FLD1330013-VAL
           END-IF 
           IF STC-TOT-LKALIAS IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD1330010-HCON TO FLD1330016-HDG
              MOVE STC-TOT-LKALIAS TO FLD1330016-VAL
           END-IF 
      * 
      *    OUTPUT LINE 27 IF PRESENT
      * 
           IF CAT13300-LINE27 IS NOT EQUAL TO SPACES
           THEN 
              MOVE CAT13300-LINE27 TO STDRPT-70CHR
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           GO TO 1299-FMT-CAT300-XIT. 
  
       CHECK-LINE-TYPE-C. 
           IF CTL-LINE-TYPE IS NOT EQUAL TO "C" 
           THEN 
              GO TO 1299-FMT-CAT300-XIT 
           END-IF 
           MOVE SPACES TO CAT13300-LINE28 
           IF STC-TOT-COMPNAME IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD1330003-HCON TO FLD1330003-HDG
              MOVE STC-TOT-COMPNAME TO FLD1330003-VAL 
           END-IF 
           IF STC-TOT-RCCODE IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD1330008-HCON TO FLD1330008-HDG
              MOVE STC-TOT-RCCODE TO FLD1330008-VAL 
           END-IF 
           IF STC-TOT-CPALIAS IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD1330010-HCON TO FLD1330011-HDG
              MOVE STC-TOT-CPALIAS TO FLD1330011-VAL
           END-IF 
      * 
      *    OUTPUT LINE 28 IF PRESENT
      * 
           IF CAT13300-LINE28 IS NOT EQUAL TO SPACES
           THEN 
              MOVE CAT13300-LINE28 TO STDRPT-70CHR
  
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF.
  
       1299-FMT-CAT300-XIT. 
           EXIT.
  
      *************************************************************** 
      *    FORMAT CATEGORY 400 DETAIL LINE
      *           CATEGORY 400 = PROCESS
      *************************************************************** 
       FMT-CAT400.
  
           IF PROCESS-SR-DBPROC IS NOT EQUAL TO SPACES
           THEN 
              MOVE SPACES TO CAT13400-LINE1 
              MOVE FLD1340005-HCON TO FLD1340005-HDG
              MOVE PROCESS-SR-DBPROC TO FLD1340005-VAL
              MOVE CAT13400-LINE1 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           IF PROCESS-SR-TYPE IS NOT EQUAL TO SPACES
           THEN 
              MOVE SPACES TO CAT13400-LINE2 
              MOVE FLD1340010-HCON TO FLD1340010-HDG
              MOVE "CALL" TO FLD1340010-VAL 
           END-IF 
           IF PROCESS-SR-TIME IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD1340015-HCON TO FLD1340015-HDG
              PERFORM INTERPRET-TIME THRU INTERPRET-TIME-XIT
           END-IF 
           IF CAT13400-LINE2 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT13400-LINE2 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           IF PROCESS-SR-OPTION IS NOT EQUAL TO SPACES
           THEN 
              MOVE SPACES TO CAT13400-LINE3 
              MOVE FLD1340020-HCON TO FLD1340020-HDG
              PERFORM INTERPRET-OPTION THRU INTERPRET-OPTION-XIT
              MOVE CAT13400-LINE3 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF.
       FMT-CAT400-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-TOT-USAGE IS EQUAL TO FLD1330022-CODES (SUB3) 
           THEN 
              MOVE FLD1330022-MNG (SUB3) TO FLD1330022-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-TOT-KEY IS EQUAL TO FLD1330045-CODES (SUB3) 
           THEN 
              MOVE FLD1330045-MNG (SUB3) TO FLD1330045-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-TOT-DBD-INC IS EQUAL TO FLD1330050-CODES (SUB3) 
           THEN 
              MOVE FLD1330050-MNG (SUB3) TO FLD1330050-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-SR-OCC-KORDER IS EQUAL TO FLD1330070-CODES (SUB3) 
           THEN 
              MOVE FLD1330070-MNG (SUB3) TO FLD1330070-VAL
              GO TO INTERPRET-KORDER-XIT
           ELSE 
              ADD 1 TO SUB3 
              GO TO INTERPRET-KORDER-CONT 
           END-IF.
       INTERPRET-KORDER-XIT.
           EXIT.
  
       INTERPRET-TKEY.
           IF STC-TOT-TKEY IS EQUAL TO "9"
           THEN 
              MOVE STC-TOT-TKEY TO FLD1330002-VAL 
              GO TO INTERPRET-TKEY-XIT
           END-IF 
           MOVE 1 TO SUB3.
       INTERPRET-TKEY-CONT. 
           IF STC-TOT-TKEY IS EQUAL TO FLD1330002-CODES (SUB3)
           THEN 
              MOVE FLD1330002-MNG (SUB3) TO FLD1330002-VAL
              GO TO INTERPRET-TKEY-XIT
           ELSE 
              ADD 1 TO SUB3 
              GO TO INTERPRET-TKEY-CONT 
           END-IF.
       INTERPRET-TKEY-XIT.
           EXIT.
  
       INTERPRET-TIME.
           MOVE 01 TO SUB3. 
       INTERPRET-TIME-CON.
           IF PROCESS-SR-TIME (SUB3 : 1) IS EQUAL TO "B"
           THEN 
              MOVE "BEFORE" TO FLD1340015-VAL1
           END-IF 
           IF PROCESS-SR-TIME (SUB3 : 1) IS EQUAL TO "A"
           THEN 
              MOVE "AFTER" TO FLD1340015-VAL2 
           END-IF 
           IF PROCESS-SR-TIME (SUB3 : 1) IS EQUAL TO "E"
           THEN 
              MOVE "ON ERROR DURING" TO FLD1340015-VAL3 
           END-IF 
           ADD 1 TO SUB3
           IF SUB3 IS NOT GREATER THAN 3
           THEN 
              GO TO INTERPRET-TIME-CON
           END-IF.
       INTERPRET-TIME-XIT.
           EXIT.
  
       INTERPRET-OPTION.
           MOVE 01 TO SUB3. 
       INTERPRET-OPTION-CON.
           IF PROCESS-SR-OPTION (SUB3 : 1) IS EQUAL TO "S"
           THEN 
              MOVE "STORE" TO FLD1340020-VAL1 
           END-IF 
           IF PROCESS-SR-OPTION (SUB3 : 1) IS EQUAL TO "D"
           THEN 
              MOVE "DELETE" TO FLD1340020-VAL2
           END-IF 
           IF PROCESS-SR-OPTION (SUB3 : 1) IS EQUAL TO "M"
           THEN 
              MOVE "MODIFY" TO FLD1340020-VAL3
           END-IF 
           IF PROCESS-SR-OPTION (SUB3 : 1) IS EQUAL TO "F"
           THEN 
              MOVE "FIND" TO FLD1340020-VAL4
           END-IF 
           IF PROCESS-SR-OPTION (SUB3 : 1) IS EQUAL TO "G"
           THEN 
              MOVE "GET" TO FLD1340020-VAL5 
           END-IF 
           ADD 1 TO SUB3
           IF SUB3 IS NOT GREATER THAN 5
           THEN 
              GO TO INTERPRET-OPTION-CON
           END-IF.
       INTERPRET-OPTION-XIT.
           EXIT.
  
  
      ************************************************************
      *           OUTPUT QUALIFIER LINE SUBROUTINE               *
      ************************************************************
  
       OUTPUT-QUAL-LINE.
           IF CAT13300-LINE6 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT13300-LINE6 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF.
       OUTPUT-QUAL-LINE-XIT.
           EXIT.
  
00508                                                                    RPTRT13
00509                                                                    RPTRT13
00510                                                                    RPTRT13
