*COMDECK RPTRT26
      ******************************************************************
      * 
      *    FORMAT CATEGORY 140 DETAIL LINE
      *        CATEGORY 140 = RESPONSIBILITY
      * 
      ******************************************************************
       5500-FMT-CAT140. 
           MOVE SPACES TO CAT26140-LINE1. 
      * 
      *    FORMAT STATUS FIELD
      * 
       5505-FMT-FLD05.
           IF RESP-SCH-STATUS EQUAL TO SPACES 
               GO TO 5550-FMT-FLD10.
           MOVE FLD2614005-HCON TO FLD2614005-HDG.
               GO TO 5520-INTERPRET-CODE. 
       5510-JUST-CODE.
           MOVE RESP-SCH-STATUS TO FLD2614005-POS1. 
               GO TO 5550-FMT-FLD10.
       5520-INTERPRET-CODE. 
           MOVE 01 TO SUB3. 
       5530-NEXT-CODE-CK. 
           IF FLD2614005-CODES (SUB3) EQUAL TO "9"
               GO TO 5510-JUST-CODE.
           IF FLD2614005-CODES (SUB3) EQUAL TO RESP-SCH-STATUS
               GO TO 5540-EXTRACT-MNG.
           ADD 1 TO SUB3. 
           GO TO 5530-NEXT-CODE-CK. 
       5540-EXTRACT-MNG.
           MOVE FLD2614005-MNG (SUB3) TO FLD2614005-VAL.
      * 
      *    FORMAT FUNCTION FIELD
      * 
       5550-FMT-FLD10.
           IF RESP-SCH-FUNC EQUAL TO SPACES 
               GO TO 5600-FMT-FLD25.
           MOVE FLD2614010-HCON TO FLD2614010-HDG.
               GO TO 5570-INTERPRET-CODE. 
       5560-JUST-CODE.
           MOVE RESP-SCH-FUNC TO FLD2614010-POS1. 
               GO TO 5600-FMT-FLD25.
       5570-INTERPRET-CODE. 
           MOVE 01 TO SUB3. 
       5580-NEXT-CODE-CK. 
           IF FLD2614010-CODES (SUB3) EQUAL TO "9"
               GO TO 5560-JUST-CODE.
           IF FLD2614010-CODES (SUB3) EQUAL TO RESP-SCH-FUNC
               GO TO 5590-EXTRACT-MNG.
           ADD 1 TO SUB3. 
           GO TO 5580-NEXT-CODE-CK. 
       5590-EXTRACT-MNG.
           MOVE FLD2614010-MNG (SUB3) TO FLD2614010-VAL.
      * 
      *    FORMAT PHONE FIELD 
      * 
       5600-FMT-FLD25.
           IF RESP-SCH-PHONE EQUAL TO SPACES
               GO TO 5610-FMT-FLD35.
           MOVE FLD2614025-HCON TO FLD2614025-HDG.
           MOVE RESP-SCH-PHONE TO FLD2614025-VAL. 
      * 
      *    FORMAT MAIL FIELD
      * 
       5610-FMT-FLD35.
           IF RESP-SCH-MAIL EQUAL TO SPACES 
               GO TO 5620-OUTPUT-LN1. 
           MOVE FLD2614035-HCON TO FLD2614035-HDG.
           MOVE RESP-SCH-MAIL TO FLD2614035-VAL.
      * 
      *    OUTPUT 1ST DISPLAY LINE
      * 
       5620-OUTPUT-LN1. 
           IF CAT26140-LINE1 EQUAL TO SPACES
               GO TO 5630-FMT-FLD15.
           MOVE CAT26140-LINE1 TO STDRPT-70CHR. 
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.
      * 
      *    FORMAT 2ND DISPLAY LINE
      * 
       5630-FMT-FLD15.
           MOVE SPACES TO CAT26140-LINE2. 
      * 
      *    FORMAT DEPARTMENT FIELD
      * 
           IF RESP-SCH-DEPT EQUAL TO SPACES 
               GO TO 5640-FMT-FLD40.
           MOVE FLD2614015-HCON TO FLD2614015-HDG.
           MOVE RESP-SCH-DEPT TO FLD2614015-VAL.
      * 
      *    FORMAT DATE FIELD
      * 
       5640-FMT-FLD40.
           IF RESP-SCH-DATE EQUAL TO SPACES 
               GO TO 5650-OUTPUT-LN2. 
           MOVE FLD2614040-HCON TO FLD2614040-HDG.
           MOVE RESP-SCH-DATE TO FLD2614040-VAL.
      * 
      *    OUTPUT 2ND DISPLAY LINE
      * 
       5650-OUTPUT-LN2. 
           IF CAT26140-LINE2 EQUAL TO SPACES
               GO TO 5660-FMT-FLD20.
           MOVE CAT26140-LINE2 TO STDRPT-70CHR. 
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.
      * 
      *    FORMAT 3RD DISPLAY LINE
      * 
       5660-FMT-FLD20.
           MOVE SPACES TO CAT26140-LINE3. 
      * 
      *    FORMAT PERSON FIELD
      * 
           IF RESP-SCH-PERSON EQUAL TO SPACES 
               GO TO 5670-FMT-FLD30.
           MOVE FLD2614020-HCON TO FLD2614020-HDG.
           MOVE RESP-SCH-PERSON TO FLD2614020-VAL.
      * 
      *    FORMAT TITLE FIELD 
      * 
       5670-FMT-FLD30.
           IF RESP-SCH-TITLE EQUAL TO SPACES
               GO TO 5680-OUTPUT-LN3. 
           MOVE FLD2614030-HCON TO FLD2614030-HDG.
           MOVE RESP-SCH-TITLE TO FLD2614030-VAL. 
      * 
      *    OUTPUT 3RD DISPLAY LINE
      * 
       5680-OUTPUT-LN3. 
           IF CAT26140-LINE3 EQUAL TO SPACES
               GO TO 5690-FMT-CAT140-XIT. 
           MOVE CAT26140-LINE3 TO STDRPT-70CHR. 
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.
       5690-FMT-CAT140-XIT. 
           EXIT.
  
      ******************************************************************
      * 
      *    FORMAT CATEGORY 200 DETAIL LINES 
      *        CATEGORY 200 = NAMES 
      * 
      ******************************************************************
       12200-FMT-CAT200.
           MOVE SPACES TO CAT26200-LINE1
      * 
      *    FORMAT SCHLFN FIELD
      * 
           MOVE FLD2630005-HCON TO FLD2630005-HDG 
           MOVE NAME-SCH-DMS TO FLD2630005-VAL
      * 
      *    OUTPUT DISPLAY LINE
      * 
           MOVE CAT26200-LINE1 TO STDRPT-70CHR
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT 
       12270-FMT-CAT200-XIT.
           EXIT.
  
      ******************************************************************
      * 
      *    FORMAT CATEGORY 300 DETAIL LINES 
      *        CATEGORY 300 = STRUCTURE 
      * 
      ******************************************************************
       FMT-CAT300.
           MOVE SPACES TO CAT26300-LINE1
      * 
      *    FORMAT 1ST STRUCTURE DISPLAY LINE
      * 
           IF STC-SCH-CATNAME IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2630005-HCON TO FLD2630005-HDG
              MOVE STC-SCH-CATNAME TO FLD2630005-VAL
           END-IF 
           IF STC-SCH-INCLUDE IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2630015-HCON TO FLD2630015-HDG
              PERFORM INTERPRET-INC THRU INTERPRET-INC-XIT
           END-IF 
      * 
      *    OUTPUT 1ST DISPLAY LINE
      * 
           IF CAT26300-LINE1 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT26300-LINE1 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           MOVE SPACES TO CAT26300-LINE2
      * 
      *    FORMAT 2ND STRUCTURE DISPLAY LINE
      * 
           IF STC-SCH-NAME-TYPE IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2630010-HCON TO FLD2630010-HDG
              PERFORM INTERPRET-CTYPE THRU INTERPRET-CTYPE-XIT
           END-IF 
           IF STC-SCH-MASTER IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2630020-HCON TO FLD2630020-HDG
              MOVE STC-SCH-MASTER TO FLD2630020-VAL 
           END-IF 
      * 
      *    OUTPUT 2ND DISPLAY LINE
      * 
           IF CAT26300-LINE2 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT26300-LINE2 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
       FMT-CAT300-XIT.
           EXIT.
  
  
      ******************************************************************
      * 
      *    FORMAT CATEGORY 450 DETAIL LINES 
      *        CATEGORY 450 = MDINFO
      * 
      ******************************************************************
       FMT-CAT450.
  
           IF CTL-LINE-TYPE IS NOT EQUAL TO "L" 
           THEN 
              GO TO CHECK-LINE-P
           END-IF 
           MOVE SPACES TO CAT26450-LINE1
      * 
      *    FORMAT 1ST MDINFO DISPLAY LINE 
      * 
           IF MD-SCH-SCHLFN IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2645005-HCON TO FLD2645005-HDG
              MOVE MD-SCH-SCHLFN TO FLD2645005-VAL
           END-IF 
      * 
      *    OUTPUT 1ST DISPLAY LINE
      * 
           IF CAT26450-LINE1 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT26450-LINE1 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           GO TO FMT-CAT450-XIT.
  
       CHECK-LINE-P.
           IF CTL-LINE-TYPE IS NOT EQUAL TO "P" 
           THEN 
              GO TO CHECK-LINE-T
           END-IF 
           MOVE SPACES TO CAT26450-LINE2
      * 
      *    FORMAT 2ND MDINFO DISPLAY LINE 
      * 
           IF MD-SCH-PROCLIB IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2645010-HCON TO FLD2645010-HDG
              MOVE MD-SCH-PROCLIB TO FLD2645010-VAL 
           END-IF 
      * 
      *    OUTPUT 2ND DISPLAY LINE
      * 
           IF CAT26450-LINE2 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT26450-LINE2 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           GO TO FMT-CAT450-XIT.
  
       CHECK-LINE-T.
           IF CTL-LINE-TYPE IS NOT EQUAL TO "T" 
           THEN 
              GO TO CHECK-LINE-R
           END-IF 
           MOVE SPACES TO CAT26450-LINE3
      * 
      *    FORMAT 3RD MDINFO DISPLAY LINE 
      * 
           IF MD-SCH-TRANFILE IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2645015-HCON TO FLD2645015-HDG
              MOVE MD-SCH-TRANFILE TO FLD2645015-VAL
           END-IF 
      * 
      *    OUTPUT 3RD DISPLAY LINE
      * 
           IF CAT26450-LINE3 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT26450-LINE3 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           GO TO FMT-CAT450-XIT.
  
       CHECK-LINE-R.
           IF CTL-LINE-TYPE IS NOT EQUAL TO "R" 
           THEN 
              GO TO CHECK-LINE-J
           END-IF 
           MOVE SPACES TO CAT26450-LINE4
      * 
      *    FORMAT 4TH MDINFO DISPLAY LINE 
      * 
           IF MD-SCH-RESTART IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2645020-HCON TO FLD2645020-HDG
              MOVE MD-SCH-RESTART TO FLD2645020-VAL 
           END-IF 
      * 
      *    OUTPUT 4TH DISPLAY LINE
      * 
           IF CAT26450-LINE4 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT26450-LINE4 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           GO TO FMT-CAT450-XIT.
  
       CHECK-LINE-J.
           IF CTL-LINE-TYPE IS NOT EQUAL TO "J" 
           THEN 
              GO TO CHECK-LINE-Q
           END-IF 
           MOVE SPACES TO CAT26450-LINE3
      * 
      *    FORMAT 5TH MDINFO DISPLAY LINE 
      * 
           IF MD-SCH-JLOG IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2645025-HCON TO FLD2645015-HDG
              MOVE MD-SCH-JLOG TO FLD2645015-VAL
           END-IF 
      * 
      *    OUTPUT 5TH DISPLAY LINE
      * 
           IF CAT26450-LINE3 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT26450-LINE3 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           GO TO FMT-CAT450-XIT.
  
       CHECK-LINE-Q.
  
           MOVE SPACES TO CAT26450-LINE6
      * 
      *    FORMAT 6TH MDINFO DISPLAY LINE 
      * 
           IF MD-SCH-QR-FILE IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2645030-HCON TO FLD2645030-HDG
              MOVE MD-SCH-QR-FILE TO FLD2645030-VAL 
           END-IF 
      * 
      *    OUTPUT 6TH DISPLAY LINE
      * 
           IF CAT26450-LINE6 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT26450-LINE6 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF.
  
       FMT-CAT450-XIT.
           EXIT.
  
      ******************************************************************
      * 
      *    FORMAT CATEGORY 475 DETAIL LINES 
      *        CATEGORY 475 = JOBCONTROL
      * 
      ******************************************************************
       FMT-CAT475.
           MOVE SPACES TO CAT26475-LINE1
      * 
      *    FORMAT 1ST JOBCONTROL DISPLAY LINE 
      * 
           IF JC-SCH-UN IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2647505-HCON TO FLD2647505-HDG
              MOVE JC-SCH-UN TO FLD2647505-VAL
           END-IF 
           IF JC-SCH-PW IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2647510-HCON TO FLD2647510-HDG
              MOVE JC-SCH-PW TO FLD2647510-VAL
           END-IF 
           IF JC-SCH-FAMILY IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2647515-HCON TO FLD2647515-HDG
              MOVE JC-SCH-FAMILY TO FLD2647515-VAL
           END-IF 
      * 
      *    OUTPUT 1ST DISPLAY LINE
      * 
           IF CAT26475-LINE1 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT26475-LINE1 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           MOVE SPACES TO CAT26475-LINE2
      * 
      *    FORMAT 2ND JOBCONTROL DISPLAY LINE 
      * 
           IF JC-SCH-ACCOUNT IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2647520-HCON TO FLD2647520-HDG
              MOVE JC-SCH-ACCOUNT TO FLD2647520-VAL 
           END-IF 
      * 
      *    OUTPUT 2ND DISPLAY LINE
      * 
           IF CAT26475-LINE2 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT26475-LINE2 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           MOVE SPACES TO CAT26475-LINE3
      * 
      *    FORMAT 3RD JOBCONTROL DISPLAY LINE 
      * 
           IF JC-SCH-CHARGE IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2647525-HCON TO FLD2647525-HDG
              MOVE JC-SCH-CHARGE TO FLD2647525-VAL
           END-IF 
      * 
      *    OUTPUT 3RD DISPLAY LINE
      * 
           IF CAT26475-LINE3 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT26475-LINE3 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           MOVE SPACES TO CAT26475-LINE4
      * 
      *    FORMAT 4TH JOBCONTROL DISPLAY LINE 
      * 
           IF JC-SCH-DENSITY IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2647530-HCON TO FLD2647530-HDG
              PERFORM INTERPRET-DENSITY THRU INTERPRET-DENSITY-XIT
           END-IF 
           IF JC-SCH-TAPE-TYPE IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2647535-HCON TO FLD2647535-HDG
              PERFORM INTERPRET-TTYPE THRU INTERPRET-TTYPE-XIT
           END-IF 
      * 
      *    OUTPUT 4TH DISPLAY LINE
      * 
           IF CAT26475-LINE4 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT26475-LINE4 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
       FMT-CAT475-XIT.
           EXIT.
  
      ******************************************************************
      * 
      *    FORMAT CATEGORY 550 DETAIL LINES 
      *        CATEGORY 550 = BOND
      * 
      ******************************************************************
       FMT-CAT550.
  
           IF CTL-LINE-TYPE IS NOT EQUAL TO "N" 
           THEN 
              GO TO CHECK-LINE-O
           END-IF 
           MOVE SPACES TO CAT26550-LINE1
      * 
      *    FORMAT 1ST BOND DISPLAY LINE 
      * 
           IF CON-SCH-CON-NAME IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2655005-HCON TO FLD2655005-HDG
              MOVE CON-SCH-CON-NAME TO FLD2655005-VAL 
           END-IF 
      * 
      *    OUTPUT 1ST DISPLAY LINE
      * 
           IF CAT26550-LINE1 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT26550-LINE1 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           MOVE SPACES TO CAT26550-LINE2
      * 
      *    FORMAT 2ND BOND DISPLAY LINE 
      * 
           IF CON-SCH-CATNAME IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2655010-HCON TO FLD2655010-HDG
              MOVE CON-SCH-CATNAME TO FLD2655010-VAL
           END-IF 
           IF CON-SCH-ALIAS IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2655015-HCON TO FLD2655015-HDG
              MOVE CON-SCH-ALIAS TO FLD2655015-VAL
           END-IF 
      * 
      *    OUTPUT 2ND DISPLAY LINE
      * 
           IF CAT26550-LINE2 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT26550-LINE2 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           MOVE SPACES TO CAT26550-LINE3
      * 
      *    FORMAT 3RD BOND DISPLAY LINE 
      * 
           IF CON-SCH-AOFREC IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD26550OF-HCON TO FLD26550OF-HDG
              MOVE CON-SCH-AOFREC TO FLD26550OF-VAL 
           END-IF 
      * 
      *    OUTPUT 3RD DISPLAY LINE
      * 
           IF CAT26550-LINE3 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT26550-LINE3 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           GO TO FMT-CAT550-XIT.
  
       CHECK-LINE-O.
  
           MOVE SPACES TO CAT26550-LINE4
      * 
      *    FORMAT 4TH BOND DISPLAY LINE 
      * 
           IF CON-SCH-DEPEND IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2655025-HCON TO FLD2655025-HDG
              MOVE CON-SCH-DEPEND TO FLD2655025-VAL 
           END-IF 
           IF CON-SCH-DEP-ALIAS IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2655015-HCON TO FLD2655030-HDG
              MOVE CON-SCH-DEP-ALIAS TO FLD2655030-VAL
           END-IF 
      * 
      *    OUTPUT 4TH DISPLAY LINE
      * 
           IF CAT26550-LINE4 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT26550-LINE4 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           MOVE SPACES TO CAT26550-LINE3
      * 
      *    FORMAT 5TH BOND DISPLAY LINE 
      * 
           IF CON-SCH-DEP-BOFREC IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD26550OF-HCON TO FLD26550OF-HDG
              MOVE CON-SCH-DEP-BOFREC TO FLD26550OF-VAL 
           END-IF 
      * 
      *    OUTPUT 5TH DISPLAY LINE
      * 
           IF CAT26550-LINE3 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT26550-LINE3 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
       FMT-CAT550-XIT.
           EXIT.
  
      ******************************************************************
      * 
      *    FORMAT CATEGORY 575 DETAIL LINES 
      *        CATEGORY 575 = JOINS 
      * 
      ******************************************************************
       FMT-CAT575.
  
           IF CTL-LINE-TYPE IS NOT EQUAL TO "A" 
           THEN 
              GO TO CHECK-LINE-B
           END-IF 
           MOVE SPACES TO CAT26575-LINE1
      * 
      *    FORMAT 1ST JOINS DISPLAY LINE
      * 
           IF JOIN-SCH-NAME IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2657505-HCON TO FLD2657505-HDG
              MOVE JOIN-SCH-NAME TO FLD2657505-VAL
           END-IF 
      * 
      *    OUTPUT 1ST DISPLAY LINE
      * 
           IF CAT26575-LINE1 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT26575-LINE1 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           GO TO FMT-CAT575-XIT.
  
       CHECK-LINE-B.
  
           IF CTL-LINE-TYPE IS NOT EQUAL TO "B" 
           THEN 
              GO TO CHECK-LINE-C
           END-IF 
           MOVE SPACES TO CAT26550-LINE2
      * 
      *    FORMAT 2ND JOINS DISPLAY LINE
      * 
           IF JOIN-SCH-ID1 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2657510-HCON TO FLD2657510-HDG
              MOVE JOIN-SCH-ID1 TO FLD2657510-VAL 
           END-IF 
           IF JOIN-SCH-ID1-SUB1 IS NOT EQUAL TO SPACES AND ZERO 
           THEN 
              MOVE JOIN-SCH-ID1 TO ID-QUAL-LINE 
              PERFORM INSERT-LEFT THRU INSERT-LEFT-XIT
              MOVE JOIN-SCH-ID1-SUB1 TO ID-QUAL-LINE (LB-SUB : 4) 
              ADD 4 TO LB-SUB 
              IF JOIN-SCH-ID1-SUB2 IS NOT EQUAL TO SPACES AND ZERO
              THEN
                 MOVE "," TO ID-QUAL-LINE (LB-SUB : 1)
                 ADD 1 TO LB-SUB
                 MOVE JOIN-SCH-ID1-SUB2 TO ID-QUAL-LINE (LB-SUB : 4)
                 ADD 4 TO LB-SUB
                 IF JOIN-SCH-ID1-SUB3 IS NOT EQUAL TO SPACES AND ZERO 
                 THEN 
                    MOVE "," TO ID-QUAL-LINE (LB-SUB : 4) 
                    ADD 1 TO LB-SUB 
                    MOVE JOIN-SCH-ID1-SUB3 TO 
                         ID-QUAL-LINE (LB-SUB : 4)
                    ADD 4 TO LB-SUB 
                 END-IF 
              END-IF
              PERFORM INSERT-RIGHT THRU INSERT-RIGHT-XIT
              MOVE ID-QUAL-LINE TO FLD2657510-VAL 
           END-IF 
           IF JOIN-SCH-ALY-1 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2657515-HCON TO FLD2657515-HDG
              MOVE JOIN-SCH-ALY-1 TO FLD2655015-VAL 
           END-IF 
      * 
      *    OUTPUT 2ND DISPLAY LINE
      * 
           IF CAT26575-LINE2 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT26575-LINE2 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
              MOVE SPACES TO ID-QUAL-LINE 
           END-IF 
           MOVE SPACES TO CAT26575-LINE3
      * 
      *    FORMAT 3RD JOINS DISPLAY LINE
      * 
           IF JOIN-SCH-CQUAL1 IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD26575OF-HCON TO FLD26575OF-HDG
              MOVE JOIN-SCH-CQUAL1 TO FLD26575OF-VAL
           END-IF 
      * 
      *    OUTPUT 3RD DISPLAY LINE
      * 
           IF CAT26575-LINE3 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT26575-LINE3 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           GO TO FMT-CAT575-XIT.
  
       CHECK-LINE-C.
  
           MOVE SPACES TO CAT26550-LINE2
      * 
      *    FORMAT 2ND JOINS DISPLAY LINE
      * 
           IF JOIN-SCH-ID2 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2657525-HCON TO FLD2657510-HDG
              MOVE JOIN-SCH-ID2 TO FLD2657510-VAL 
           END-IF 
           IF JOIN-SCH-ID2-SUB1 IS NOT EQUAL TO SPACES AND ZERO 
           THEN 
              MOVE JOIN-SCH-ID2 TO ID-QUAL-LINE 
              PERFORM INSERT-LEFT THRU INSERT-LEFT-XIT
              MOVE JOIN-SCH-ID2-SUB1 TO ID-QUAL-LINE (LB-SUB : 4) 
              ADD 4 TO LB-SUB 
              IF JOIN-SCH-ID2-SUB2 IS NOT EQUAL TO SPACES AND ZERO
              THEN
                 MOVE "," TO ID-QUAL-LINE (LB-SUB : 1)
                 ADD 1 TO LB-SUB
                 MOVE JOIN-SCH-ID2-SUB2 TO ID-QUAL-LINE (LB-SUB : 4)
                 ADD 4 TO LB-SUB
                 IF JOIN-SCH-ID2-SUB3 IS NOT EQUAL TO SPACES AND ZERO 
                 THEN 
                    MOVE "," TO ID-QUAL-LINE (LB-SUB : 4) 
                    ADD 1 TO LB-SUB 
                    MOVE JOIN-SCH-ID2-SUB3 TO 
                         ID-QUAL-LINE (LB-SUB : 4)
                    ADD 4 TO LB-SUB 
                 END-IF 
              END-IF
              PERFORM INSERT-RIGHT THRU INSERT-RIGHT-XIT
              MOVE ID-QUAL-LINE TO FLD2657510-VAL 
           END-IF 
           IF JOIN-SCH-ALY-2 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2657515-HCON TO FLD2657515-HDG
              MOVE JOIN-SCH-ALY-2 TO FLD2655015-VAL 
           END-IF 
      * 
      *    OUTPUT 4TH DISPLAY LINE
      * 
           IF CAT26575-LINE2 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT26575-LINE2 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
              MOVE SPACES TO ID-QUAL-LINE 
           END-IF 
           MOVE SPACES TO CAT26575-LINE3
      * 
      *    FORMAT 5TH JOINS DISPLAY LINE
      * 
           IF JOIN-SCH-DQUAL1 IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD26575OF-HCON TO FLD26575OF-HDG
              MOVE JOIN-SCH-DQUAL1 TO FLD26575OF-VAL
           END-IF 
      * 
      *    OUTPUT 5TH DISPLAY LINE
      * 
           IF CAT26575-LINE3 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT26575-LINE3 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF.
  
       FMT-CAT575-XIT.
           EXIT.
  
      ********************************************************
      *     I N T E R P R E T    S U B R O U T I N E S
      ********************************************************
  
  
       INTERPRET-INC. 
           MOVE 1 TO SUB3.
       INTERPRET-INC-CONT.
           IF FLD2630015-CODES (SUB3) IS EQUAL TO STC-SCH-INCLUDE 
           THEN 
              MOVE FLD2630015-MNG (SUB3) TO FLD2630015-VAL
              GO TO INTERPRET-INC-XIT 
           ELSE 
              ADD 1 TO SUB3 
              GO TO INTERPRET-INC-CONT
           END-IF.
       INTERPRET-INC-XIT. 
           EXIT.
  
       INTERPRET-CTYPE. 
           MOVE 1 TO SUB3.
       INTERPRET-CTYPE-CONT.
           IF FLD2630010-CODES (SUB3) IS EQUAL TO STC-SCH-NAME-TYPE 
           THEN 
              MOVE FLD2630010-MNG (SUB3) TO FLD2630010-VAL
              GO TO INTERPRET-CTYPE-XIT 
           ELSE 
              ADD 1 TO SUB3 
              GO TO INTERPRET-CTYPE-CONT
           END-IF.
       INTERPRET-CTYPE-XIT. 
           EXIT.
  
       INTERPRET-DENSITY. 
           MOVE 1 TO SUB3.
       INTERPRET-DENSITY-CONT.
           IF FLD2647530-CODES (SUB3) IS EQUAL TO JC-SCH-DENSITY
           THEN 
              MOVE FLD2647530-MNG (SUB3) TO FLD2647530-VAL
              GO TO INTERPRET-DENSITY-XIT 
           ELSE 
              ADD 1 TO SUB3 
              GO TO INTERPRET-DENSITY-CONT
           END-IF.
       INTERPRET-DENSITY-XIT. 
           EXIT.
  
       INTERPRET-TTYPE. 
           MOVE 1 TO SUB3.
       INTERPRET-TTYPE-CONT.
           IF FLD2647535-CODES (SUB3) IS EQUAL TO JC-SCH-TAPE-TYPE
           THEN 
              MOVE FLD2647535-MNG (SUB3) TO FLD2647535-VAL
              GO TO INTERPRET-TTYPE-XIT 
           ELSE 
              ADD 1 TO SUB3 
              GO TO INTERPRET-TTYPE-CONT
           END-IF.
       INTERPRET-TTYPE-XIT. 
           EXIT.
  
      ********************************************************* 
      *    I N S E R T  " [ ] "     S U B R O U T I N E S 
      ********************************************************* 
       INSERT-LEFT. 
           MOVE 1 TO LB-SUB 
       INSERT-LEFT-CONT.
           IF ID-QUAL-LINE (LB-SUB : 1) IS EQUAL TO SPACE 
           THEN 
              MOVE "[" TO ID-QUAL-LINE (LB-SUB : 1) 
              ADD 1 TO LB-SUB 
              GO TO INSERT-LEFT-XIT 
           ELSE 
              ADD 1 TO LB-SUB 
              GO TO INSERT-LEFT-CONT
           END-IF 
       INSERT-LEFT-XIT. 
           EXIT.
  
  
       INSERT-RIGHT.
           ADD 1, LB-SUB GIVING RB-SUB
       INSERT-RIGHT-CONT. 
           IF ID-QUAL-LINE (RB-SUB : 1) IS EQUAL TO SPACE 
           THEN 
              SUBTRACT 1 FROM RB-SUB
              GO TO INSERT-RIGHT-CONT 
           ELSE 
              ADD 1 TO RB-SUB 
              MOVE "]" TO ID-QUAL-LINE (RB-SUB : 1) 
           END-IF 
       INSERT-RIGHT-XIT.
           EXIT.
  
