*COMDECK RPTRT05
      ***************************************************************** 
      * 
      *    FORMAT CATEGORY 100 DETAIL LINE
      *        CATEGORY 100 = ORIGIN
      * 
      ***************************************************************** 
       6000-FMT-CAT100. 
           MOVE SPACES TO CAT05100-LINE1. 
      * 
      *    FORMAT DEPT FIELD
      * 
       6005-FMT-FLD05.
           IF ORG-DEPT EQUAL TO SPACES
               GO TO 6010-FMT-FLD025. 
           MOVE FLD0510005-HCON  TO  FLD0510005-HDG.
           MOVE ORG-DEPT         TO  FLD0510005-VAL.
      * 
      *    FORMAT CYCLE FIELD 
      *        IF CODE OTHER THAN 0-9 FIND MEANING
       6010-FMT-FLD025. 
           IF ORG-CYCLE EQUAL TO SPACES 
               GO TO 6090-OUTPUT-LN1. 
           MOVE FLD0510025-HCON   TO FLD0510025-HDG.
               GO TO 6030-INTERPRET-CODE. 
       6020-JUST-CODE.
           MOVE ORG-CYCLE TO FLD0510025-POS1. 
           GO TO 6090-OUTPUT-LN1. 
       6030-INTERPRET-CODE. 
           MOVE 01 TO SUB3. 
       6040-NEXT-CODE-CK. 
           IF FLD0510025-CODES (SUB3)  EQUAL TO "9" 
               GO TO 6020-JUST-CODE.
           IF FLD0510025-CODES (SUB3)  EQUAL TO  ORG-CYCLE
               GO TO 6050-EXTRACT-MNG.
           ADD 1 TO SUB3. 
           GO TO 6040-NEXT-CODE-CK. 
       6050-EXTRACT-MNG.
           MOVE FLD0510025-MNG (SUB3) TO FLD0510025-VAL.
      * 
      *    OUTPUT DISPLAY LINE 100F CAT ONLY IF DATA
      * 
       6090-OUTPUT-LN1. 
           IF CAT05100-LINE1 EQUAL TO SPACES
               GO TO 6100-FMT-FLD10.
           MOVE CAT05100-LINE1 TO STDRPT-70CHR. 
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.
      ***************************************************************** 
      *    FORMAT 2ND DISPLAY LINE- 
      ***************************************************************** 
       6100-FMT-FLD10.
           MOVE SPACES TO CAT05100-LINE2. 
      *    FORMAT PROGRAM  FIELD
      * 
           IF ORG-PROGRAM EQUAL TO SPACES 
               GO TO 6110-FMT-FLD15.
           MOVE FLD0510010-HCON TO FLD0510010-HDG.
           MOVE ORG-PROGRAM     TO FLD0510010-VAL.
      * 
      *    FORMAT GENERATED FIELD 
       6110-FMT-FLD15.
           IF ORG-GEN EQUAL TO SPACES 
               GO TO 6190-OUTPUT-LN2. 
           MOVE FLD0510020-HCON TO FLD0510020-HDG.
           GO TO 6130-INTERPRET-CODE. 
       6120-JUST-CODE.
           MOVE ORG-GEN TO FLD0510020-POS1. 
           GO TO 6190-OUTPUT-LN2. 
       6130-INTERPRET-CODE. 
           MOVE 01 TO SUB3. 
       6140-NEXT-CODE-CK. 
           IF FLD0510020-CODES (SUB3) EQUAL TO "9"
               GO TO 6120-JUST-CODE.
           IF FLD0510020-CODES (SUB3) EQUAL TO ORG-GEN
               GO TO 6150-EXTRACT-MNG.
           ADD 1 TO SUB3. 
           GO TO 6140-NEXT-CODE-CK. 
       6150-EXTRACT-MNG.
           MOVE FLD0510020-MNG (SUB3) TO FLD0510020-VAL.
       6190-OUTPUT-LN2. 
           IF CAT05100-LINE2 EQUAL TO SPACES
               GO TO 6200-FMT-FLD15.
           MOVE CAT05100-LINE2 TO STDRPT-70CHR. 
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.
      ***************************************************************** 
      *    FORMAT 3RD DISPLAY LINE
      ***************************************************************** 
       6200-FMT-FLD15.
           MOVE SPACES TO CAT05100-LINE3. 
      * 
      *    FORMAT FORM FIELD
      * 
           IF ORG-FORM EQUAL TO SPACES
               GO TO 6205-OUTPUT-LN3. 
           MOVE FLD0510015-HCON    TO FLD0510015-HDG. 
           MOVE ORG-FORM           TO FLD0510015-VAL. 
       6205-OUTPUT-LN3. 
           IF CAT05100-LINE3 EQUAL TO SPACES
               GO TO 6210-FMT-FLD30.
           MOVE CAT05100-LINE3 TO STDRPT-70CHR. 
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.
      * 
      *    FORMAT 4TH DISPLAY LINE
      * 
       6210-FMT-FLD30.
           MOVE SPACES TO CAT05100-LINE4. 
           IF ORG-LIFE-TIME EQUAL TO SPACES 
               GO TO 6220-FMT-FLD35.
           MOVE FLD0510030-HCON TO FLD0510030-HDG.
           MOVE ORG-LIFE-TIME TO FLD0510030-VAL.
      * 
      *    FORMAT UNIT OF LIFE FIELD
      *        INTERPRET ALPH CODES 
       6220-FMT-FLD35.
           IF ORG-LIFE-UNIT EQUAL TO SPACES 
               GO TO 6290-OUTPUT-LN4. 
           GO TO 6240-INTERPRET-CODE. 
       6230-JUST-CODE.
           MOVE ORG-LIFE-UNIT TO FLD0510035-POS1. 
           GO TO 6290-OUTPUT-LN4. 
       6240-INTERPRET-CODE. 
           MOVE 01 TO SUB3. 
       6250-NEXT-CODE-CK. 
           IF FLD0510035-CODES (SUB3) EQUAL TO "9"
               GO TO 6230-JUST-CODE.
           IF FLD0510035-CODES (SUB3) EQUAL TO ORG-LIFE-UNIT
               GO TO 6260-EXTRACT-MNG.
           ADD 1 TO SUB3. 
           GO TO 6250-NEXT-CODE-CK. 
       6260-EXTRACT-MNG.
           MOVE FLD0510035-MNG (SUB3) TO FLD0510035-VAL.
       6290-OUTPUT-LN4. 
           IF CAT05100-LINE4 EQUAL TO SPACES
               GO TO 6299-FMT-CAT100-XIT. 
           MOVE CAT05100-LINE4 TO STDRPT-70CHR. 
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.
       6299-FMT-CAT100-XIT. 
           EXIT.
  
      ***************************************************************** 
      * 
      *    FORMAT CATEGORY 110 DETAIL LINE
      *        CATEGORY 110 = VALUE 
      * 
      ***************************************************************** 
       6500-FMT-CAT110. 
      ***************************************************************** 
      *    FORMAT DISPLAY LINE 1(VALUE) 
      ***************************************************************** 
           IF CTL-LINE-TYPE IS EQUAL TO "C" 
           THEN 
              GO TO 6595-FMT-CAT110 
           END-IF 
           IF VAL-VALUE EQUAL TO SPACES 
               GO TO 6550-FMT-FLD10.
           MOVE SPACES TO CAT05110-LINE1. 
           MOVE FLD0511005-HCON    TO   FLD0511005-HDG. 
           MOVE VAL-VALUE          TO   FLD0511005-VAL. 
           MOVE CAT05110-LINE1     TO STDRPT-70CHR. 
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.
      ***************************************************************** 
      *    FORMAT DISPLAY LINE 2 (NOTE) 
      ***************************************************************** 
       6550-FMT-FLD10.
           IF VAL-NOTE EQUAL TO SPACES
               GO TO 6599-FMT-CAT110-XIT. 
           MOVE SPACES TO CAT05110-LINE2. 
           MOVE FLD0511010-HCON    TO   FLD0511010-HDG. 
           MOVE VAL-NOTE           TO   FLD0511010-VAL. 
           MOVE CAT05110-LINE2 TO STDRPT-70CHR. 
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.
           GO TO 6599-FMT-CAT110-XIT. 
      * 
      *    FORMAT DISPLAY LINE 3 (CHECK-BY) 
      * 
       6595-FMT-CAT110. 
           IF VAL-CHECKBY IS NOT EQUAL TO SPACES
           THEN 
              MOVE SPACES TO CAT05110-LINE3 
              MOVE FLD0511020-HCON TO FLD0511020-HDG
              MOVE VAL-CHECKBY TO FLD0511020-VAL
              MOVE CAT05110-LINE3 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           IF VAL-CKVAL IS NOT EQUAL TO SPACES
           THEN 
              MOVE SPACES TO CAT05110-LINE4 
              MOVE FLD0511025-HCON TO FLD0511025-HDG
              MOVE VAL-CKVAL TO FLD0511025-VAL
              MOVE CAT05110-LINE4 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           IF VAL-THRU IS NOT EQUAL TO SPACES 
           THEN 
              MOVE SPACES TO CAT05110-LINE5 
              MOVE FLD0511030-HCON TO FLD0511030-HDG
              MOVE VAL-THRU TO FLD0511030-VAL 
              MOVE CAT05110-LINE5 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF.
       6599-FMT-CAT110-XIT. 
           EXIT.
  
  
      ***************************************************************** 
      *    FORMAT CATEGORY 200 DETAIL LINE
      *        CATEGORY 200 = NAME
      * 
      ***************************************************************** 
       7700-FMT-CAT200. 
      ***************************************************************** 
      *    FORMAT DISPLAY LINE 1
      ***************************************************************** 
           MOVE SPACES TO CAT05200-LINE1. 
      * 
      *    FORMAT DATA NAME 
      * 
           IF NAME-DATA-NAME EQUAL TO SPACES
               GO TO 7710-FMT-FLD15.
           MOVE FLD0520005-HCON    TO  FLD0520005-HDG.
           MOVE NAME-DATA-NAME     TO  FLD0520005-VAL.
      * 
      *    FORMAT SYMBOL
      * 
       7710-FMT-FLD15.
           IF NAME-SYMBOL EQUAL TO SPACES 
               GO TO 7715-OUTPUT-LN1. 
           MOVE FLD0520015-HCON    TO FLD0520015-HDG. 
           MOVE NAME-SYMBOL        TO FLD0520015-VAL. 
       7715-OUTPUT-LN1. 
           IF CAT05200-LINE1 EQUAL TO SPACES
               GO TO 7720-FMT-FLD10.
           MOVE CAT05200-LINE1     TO STDRPT-70CHR. 
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.
      ***************************************************************** 
      *    FORMAT DISPLAY LINE 2
      ***************************************************************** 
       7720-FMT-FLD10.
           MOVE SPACES TO CAT05200-LINE2. 
      * 
      *    FORMAT INDENTIFIER FIELD 
      * 
           IF NAME-IDENTIFIER EQUAL TO SPACES 
               GO TO 7725-FMT-FLD20.
           MOVE FLD0520010-HCON    TO   FLD0520010-HDG. 
           MOVE NAME-IDENTIFIER    TO   FLD0520010-VAL. 
      * 
      *    FORMAT DBMS NAME 
      * 
       7725-FMT-FLD20.
           IF NAME-DBMS EQUAL TO SPACES 
               GO TO 7730-OUTPUT-LN2. 
           MOVE FLD0520020-HCON    TO FLD0520020-HDG. 
           MOVE NAME-DBMS          TO FLD0520020-VAL. 
       7730-OUTPUT-LN2. 
           IF CAT05200-LINE2 EQUAL TO SPACES
               GO TO 7731-CHECK-ALI.
           MOVE CAT05200-LINE2     TO STDRPT-70CHR. 
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.
       7731-CHECK-ALI.
           IF CATEGORY-NUMBER EQUAL "211" 
               GO TO 7733-XIT 
           ELSE 
           GO TO 7735-FMT-FLD35.
       7733-XIT.
           EXIT.
      * 
      *    FORMAT DMS NAME
      * 
       7735-FMT-FLD35.
           MOVE SPACES TO CAT05200-LINE3
           IF NAME-DMS IS EQUAL TO SPACES 
           THEN 
              GO TO 7799-FMT-CAT200-XIT 
           ELSE 
              MOVE FLD0520035-HCON TO FLD0520035-HDG
              MOVE NAME-DMS TO FLD0520035-VAL 
              MOVE CAT05200-LINE3 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF.
       7799-FMT-CAT200-XIT. 
           EXIT.
  
      ***************************************************************** 
      *    FORMAT CATEGORY 05210 DETAIL LINE
      *        CATEGORY 05210 = ELM ATTRIBUTES
      * 
      ***************************************************************** 
       7800-FMT-CAT05210. 
           MOVE SPACES TO CAT05210-LINE1. 
      * 
      *    FORMAT LENGTH
      * 
           IF ATTR-LENGTH EQUAL TO SPACES 
               GO TO 7805-FMT-FLD10.
           MOVE FLD0521005-HCON    TO FLD0521005-HDG. 
           MOVE ATTR-LENGTH        TO FLD0521005-VAL. 
      * 
      *    FORMAT FORMAT
      *        INTERPRET CODE IF OTHER THAN 0-9 
       7805-FMT-FLD10.
           IF ATTR-FORMAT EQUAL TO SPACES 
               GO TO 7830-FMT-FLD15.
           MOVE FLD0521010-HCON    TO FLD0521010-HDG. 
           GO TO 7815-INTERPRET-CODE. 
       7810-JUST-CODE.
           MOVE ATTR-FORMAT        TO FLD0521010-POS1.
           GO TO 7830-FMT-FLD15.
       7815-INTERPRET-CODE. 
           MOVE 01 TO SUB3. 
       7820-NEXT-CODE-CK. 
           IF FLD0521010-CODES (SUB3) EQUAL TO "9"
               GO TO 7810-JUST-CODE.
           IF FLD0521010-CODES (SUB3) EQUAL TO ATTR-FORMAT
               GO TO 7825-EXTRACT-MNG.
           ADD 1 TO SUB3. 
           GO TO 7820-NEXT-CODE-CK. 
       7825-EXTRACT-MNG.
           MOVE FLD0521010-MNG (SUB3) TO FLD0521010-VAL.
      * 
      *    OUTPUT LINE 1 IF DATA IS PRESENT 
      * 
           IF CAT05210-LINE1 IS EQUAL TO SPACES 
           THEN 
              GO TO 7830-FMT-FLD15
           ELSE 
              MOVE CAT05210-LINE1 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF.
      * 
      *    FORMAT JUSTIFIED FIELD 
      * 
       7830-FMT-FLD15.
           MOVE SPACES TO CAT05210-LINE2. 
           IF ATTR-JUST EQUAL TO SPACES 
               GO TO 7850-FMT-FLD20.
           MOVE FLD0521015-HCON    TO FLD0521015-HDG. 
               GO TO 7840-INTERPRET-CODE. 
       7835-JUST-CODE.
           MOVE ATTR-JUST TO FLD0521015-POS1. 
           GO TO 7850-FMT-FLD20.
       7840-INTERPRET-CODE. 
           MOVE 01 TO SUB3. 
       7842-NEXT-CODE-CK. 
           IF FLD0521015-CODES (SUB3) EQUAL TO "9"
               GO TO 7835-JUST-CODE.
           IF FLD0521015-CODES (SUB3) EQUAL TO ATTR-JUST
               GO TO 7845-EXTRACT-MNG.
           ADD 1 TO SUB3. 
           GO TO 7842-NEXT-CODE-CK. 
       7845-EXTRACT-MNG.
           MOVE FLD0521015-MNG (SUB3) TO FLD0521015-VAL.
      * 
      *    FORMAT SYNCHRONIZED FIELD
      *        INTERPRET CODE IF OTHER THAN 0-9 
       7850-FMT-FLD20.
           IF ATTR-SYNC EQUAL TO SPACES 
           GO TO 7875-OUTPUT-LINE2. 
           MOVE FLD0521020-HCON    TO FLD0521020-HDG. 
               GO TO 7860-INTERPRET-CODE. 
       7855-JUST-CODE.
           MOVE ATTR-SYNC TO FLD0521020-POS1. 
           GO TO 7875-OUTPUT-LINE2. 
       7860-INTERPRET-CODE. 
           MOVE 01 TO SUB3. 
       7865-NEXT-CODE-CK. 
           IF FLD0521020-CODES (SUB3) EQUAL TO "9"
               GO TO 7855-JUST-CODE.
           IF FLD0521020-CODES (SUB3) EQUAL TO ATTR-SYNC
               GO TO 7870-EXTRACT-MNG.
           ADD 1 TO SUB3. 
           GO TO 7865-NEXT-CODE-CK. 
       7870-EXTRACT-MNG.
           MOVE FLD0521020-MNG (SUB3) TO FLD0521020-VAL.
      * 
      *    OUTPUT LINE 2 IF DATA IS PRESENT 
      * 
       7875-OUTPUT-LINE2. 
           IF CAT05210-LINE2 IS EQUAL TO SPACES 
           THEN 
              GO TO 7880-BUILD-LINE3
           ELSE 
              MOVE CAT05210-LINE2 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF.
      * 
      *    FORMAT DISPLAY LINE3 FOR CAT05210
      * 
       7880-BUILD-LINE3.
           MOVE SPACES TO CAT05210-LINE3. 
      * 
      *    FORMAT VOLATILITY
      * 
       7885-FMT-FLD25.
           IF ATTR-VOLATILE EQUAL TO SPACES 
               GO TO 7910-FMT-FLD30.
           MOVE FLD0521025-HCON    TO FLD0521025-HDG. 
           GO TO 7895-INTERPRET-CODE. 
       7890-JUST-CODE.
           MOVE ATTR-VOLATILE TO FLD0521025-POS1. 
           GO TO 7910-FMT-FLD30.
       7895-INTERPRET-CODE. 
           MOVE 01 TO SUB3. 
       7900-NEXT-CODE-CK. 
           IF FLD0521025-CODES (SUB3) EQUAL TO "9"
               GO TO 7890-JUST-CODE.
           IF FLD0521025-CODES (SUB3) EQUAL TO  ATTR-VOLATILE 
               GO TO 7905-EXTRACT-MNG.
           ADD 1 TO SUB3. 
           GO TO 7900-NEXT-CODE-CK. 
       7905-EXTRACT-MNG.
           MOVE FLD0521025-MNG (SUB3) TO FLD0521025-VAL.
      * 
      *    FORMAT NATURE FIELD
      * 
       7910-FMT-FLD30.
           IF ATTR-NATURE EQUAL TO SPACES 
               GO TO 7915-FMT-FLD35.
           MOVE FLD0521030-HCON       TO FLD0521030-HDG.
           MOVE ATTR-NATURE           TO FLD0521030-VAL.
      * 
      *    FORMAT UNIT OF MEASURE FIELD 
      * 
       7915-FMT-FLD35.
           IF ATTR-MEASURE EQUAL TO SPACES
           GO TO 7920-OUTPUT-LINE3. 
           MOVE FLD0521035-HCON        TO FLD0521035-HDG. 
           MOVE ATTR-MEASURE           TO FLD0521035-VAL. 
      * 
      *    OUTPUT CAT210 DISPLAY LINE 3 IF DATA IS PRESENT
      * 
       7920-OUTPUT-LINE3. 
           IF CAT05210-LINE3 IS EQUAL TO SPACES 
           THEN 
              GO TO 7925-BUILD-LINE4
           ELSE 
              MOVE CAT05210-LINE3 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF.
      * 
      *    FORMAT DISPLAY LINE 4 FOR CAT05210 
      * 
       7925-BUILD-LINE4.
           MOVE SPACES TO CAT05210-LINE4. 
      * 
      *    FORMAT PICTURE 
      * 
       7930-FMT-FLD40.
           IF ATTR-PIC     EQUAL TO SPACES
               GO TO 7935-FMT-FLD45.
           MOVE FLD0521040-HCON    TO   FLD0521040-HDG. 
           MOVE ATTR-PIC           TO   FLD0521040-VAL. 
      * 
      *    FORMAT INITIAL VALUE 
      * 
       7935-FMT-FLD45.
           IF ATTR-INT-VALUE EQUAL TO SPACES
               GO TO 7940-OUTPUT-LINE4. 
           MOVE FLD0521045-HCON    TO   FLD0521045-HDG. 
           MOVE ATTR-INT-VALUE     TO   FLD0521045-VAL. 
      * 
      *    OUTPUT CAT210 DISPLAY LINE 4 IF DATA IS PRESENT
      * 
       7940-OUTPUT-LINE4. 
           IF CAT05210-LINE4 IS EQUAL TO SPACES 
           THEN 
              GO TO 7999-FMT-CAT05210-XIT 
           ELSE 
              MOVE CAT05210-LINE4 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF.
       7999-FMT-CAT05210-XIT. 
           EXIT.
  
      ***************************************************************** 
      * 
      *    FORMAT CATEGORY 211 DETAIL LINE
      *        CATEGORY= ALIAS
      * 
      ***************************************************************** 
       8000-FMT-CAT211. 
      * 
      *     OUTPUT NAME LINES 
      * 
           PERFORM 7700-FMT-CAT200 THRU 7733-XIT. 
      * 
      *    USE ATTRIBUTE CATEGORY LINES 1 AND 3 
      * 
           MOVE SPACES TO CAT05210-LINE1. 
      * 
      *    FORMAT LENGTH
      * 
           IF ALY-LENGTH EQUAL TO SPACES
               GO TO 8005-FMT-FLD10.
           MOVE FLD0521005-HCON TO FLD0521005-HDG.
           MOVE ALY-LENGTH     TO FLD0521005-VAL. 
      * 
      *    FORMAT FORMAT
      * 
       8005-FMT-FLD10.
           IF ALY-FORMAT EQUAL TO SPACES
               GO TO 8030-FMT-FLD15.
           MOVE FLD0521010-HCON TO FLD0521010-HDG.
           GO TO 8015-INTERPRET-CODE. 
       8010-JUST-CODE.
           MOVE ALY-FORMAT TO FLD0521010-POS1.
           GO TO 8030-FMT-FLD15.
       8015-INTERPRET-CODE. 
           MOVE 1 TO SUB3.
       8020-NEXT-CODE-CK. 
           IF FLD0521010-CODES (SUB3) EQUAL TO "9"
               GO TO 8010-JUST-CODE.
           IF FLD0521010-CODES (SUB3) EQUAL TO ALY-FORMAT 
               GO TO 8025-EXTRACT-MNG.
           ADD 1 TO SUB3. 
           GO TO 8020-NEXT-CODE-CK. 
       8025-EXTRACT-MNG.
           MOVE FLD0521010-MNG (SUB3) TO FLD0521010-VAL.
      * 
      *    FORMAT JUSTIFIED FIELD 
      * 
       8030-FMT-FLD15.
           IF ALY-JUST EQUAL TO SPACES
               GO TO 8050-FMT-FLD20.
           MOVE FLD0521015-HCON TO FLD0521015-HDG.
           GO TO 8040-INTERPRET-CODE. 
       8035-JUST-CODE.
           MOVE ALY-JUST TO FLD0521015-POS1.
           GO TO 8050-FMT-FLD20.
       8040-INTERPRET-CODE. 
           MOVE 1 TO SUB3.
       8042-NEXT-CODE-CK. 
           IF FLD0521015-CODES (SUB3) EQUAL TO "9"
               GO TO 8035-JUST-CODE.
           IF FLD0521015-CODES (SUB3) EQUAL TO ALY-JUST 
               GO TO 8045-EXTRACT-MNG.
           ADD 1 TO SUB3. 
           GO TO 8042-NEXT-CODE-CK. 
       8045-EXTRACT-MNG.
           MOVE FLD0521015-MNG (SUB3) TO FLD0521015-VAL.
      * 
      *       FORMAT SYNCHRONIZED FIELD 
      *          INTERPRET CODE IF OTHER THAN 0-9 
       8050-FMT-FLD20.
           IF ALY-SYNC EQUAL TO SPACES
               GO TO 8075-OUTPUT-LINE1. 
           MOVE FLD0521020-HCON TO FLD0521020-HDG.
               GO TO 8060-INTERPRET-CODE. 
       8055-JUST-CODE.
           MOVE ALY-SYNC TO FLD0521020-POS1.
           GO TO 8075-OUTPUT-LINE1. 
       8060-INTERPRET-CODE. 
           MOVE 1 TO SUB3.
       8065-NEXT-CODE-CK. 
           IF FLD0521020-CODES (SUB3) EQUAL TO "9"
               GO TO 8055-JUST-CODE.
           IF FLD0521020-CODES (SUB3) EQUAL TO ALY-SYNC 
               GO TO 8070-EXTRACT-MNG.
           ADD 1 TO SUB3. 
           GO TO 8065-NEXT-CODE-CK. 
       8070-EXTRACT-MNG.
           MOVE FLD0521020-MNG (SUB3) TO FLD0521020-VAL.
      * 
      *       OUTPUT LINE 1 IF DATA IS PRESENT
      * 
       8075-OUTPUT-LINE1. 
           IF CAT05210-LINE1 EQUAL TO SPACES
               GO TO 8125-BUILD-LINE2.
           MOVE CAT05210-LINE1 TO STDRPT-70CHR. 
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.
      * 
      *        FORMAT 2ND DISPLAY LINE (SAME AS 3RD ATTRIBUTES LINE)
      * 
       8125-BUILD-LINE2.
           MOVE SPACES TO CAT05210-LINE3. 
      * 
      *          FORMAT PICTURE FIELD 
      * 
       8130-FMT-FLD40.
           IF ALY-PIC EQUAL TO SPACES 
               GO TO 8135-FMT-FLD45.
           MOVE FLD0521040-HCON TO FLD0521040-HDG.
           MOVE ALY-PIC         TO FLD0521040-VAL.
      * 
      *         FORMAT INITIAL VALUE
      * 
       8135-FMT-FLD45.
           IF ALY-INT-VALUE EQUAL TO SPACES 
               GO TO 8140-OUTPUT-LINE2. 
           MOVE FLD0521045-HCON TO FLD0521045-HDG.
           MOVE ALY-INT-VALUE   TO FLD0521045-VAL.
      * 
      *          OUTPUT 2ND LINE IF DATA PRESENT
      * 
       8140-OUTPUT-LINE2. 
           IF CAT05210-LINE3 EQUAL TO SPACES
           GO TO 8199-FMT-CAT211-XIT. 
           MOVE CAT05210-LINE3 TO STDRPT-70CHR. 
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.
       8199-FMT-CAT211-XIT. 
           EXIT.
       FMT-CAT400.
           IF PROCESS-DBPROC IS NOT EQUAL TO SPACES 
           THEN 
              MOVE SPACES TO CAT05400-LINE1 
              MOVE FLD0540005-HCON TO FLD0540005-HDG
              MOVE PROCESS-DBPROC TO FLD0540005-VAL 
              MOVE CAT05400-LINE1 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           IF PROCESS-TYPE IS NOT EQUAL TO SPACES 
           THEN 
              MOVE SPACES TO CAT05400-LINE2 
              MOVE FLD0540010-HCON TO FLD0540010-HDG
              PERFORM INTERPRET-TYPE THRU INTERPRET-TYPE-XIT
           END-IF 
           IF PROCESS-TIME IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD0540015-HCON TO FLD0540015-HDG
              PERFORM INTERPRET-TIME THRU INTERPRET-TIME-XIT
           END-IF 
           IF CAT05400-LINE2 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT05400-LINE2 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           IF PROCESS-OPTION IS NOT EQUAL TO SPACES 
           THEN 
              MOVE SPACES TO CAT05400-LINE3 
              MOVE FLD0540020-HCON TO FLD0540020-HDG
              PERFORM INTERPRET-OPTION THRU INTERPRET-OPTION-XIT
              MOVE CAT05400-LINE3 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF.
       FMT-CAT400-XIT.
           EXIT.
  
       INTERPRET-TYPE.
           MOVE 01 TO SUB3. 
       INTERPRET-TYPE-CON.
           IF FLD0540010-CODES (SUB3) IS EQUAL TO PROCESS-TYPE
           THEN 
              GO TO EXTRACT-TYPE-MNG
           ELSE 
              ADD 1 TO SUB3 
              GO TO INTERPRET-TYPE-CON
           END-IF.
       EXTRACT-TYPE-MNG.
           MOVE FLD0540010-MNG (SUB3) TO FLD0540010-VAL.
       INTERPRET-TYPE-XIT.
           EXIT.
  
       INTERPRET-TIME.
           MOVE 01 TO SUB3. 
       INTERPRET-TIME-CON.
           IF FLD0540015-CODES (SUB3) IS EQUAL TO PROCESS-TIME
           THEN 
              GO TO EXTRACT-TIME-MNG
           ELSE 
              ADD 1 TO SUB3 
              GO TO INTERPRET-TIME-CON
           END-IF.
       EXTRACT-TIME-MNG.
           MOVE FLD0540015-MNG (SUB3) TO FLD0540015-VAL.
       INTERPRET-TIME-XIT.
           EXIT.
  
       INTERPRET-OPTION.
           MOVE 01 TO SUB3. 
       INTERPRET-OPTION-CON.
           IF FLD0540020-CODES (SUB3) IS EQUAL TO PROCESS-OPTION
           THEN 
              GO TO EXTRACT-OPTION-MNG
           ELSE 
              ADD 1 TO SUB3 
              GO TO INTERPRET-OPTION-CON
           END-IF.
       EXTRACT-OPTION-MNG.
           MOVE FLD0540020-MNG (SUB3) TO FLD0540020-VAL.
       INTERPRET-OPTION-XIT.
           EXIT.
  
