*COMDECK RPTRT24
      ******************************************************************
      * 
      *    FORMAT CATEGORY 140 DETAIL LINE
      *        CATEGORY 140 = RESPONSIBILITY
      * 
      ******************************************************************
       5500-FMT-CAT140. 
           MOVE SPACES TO CAT24140-LINE1. 
      * 
      *    FORMAT STATUS FIELD
      * 
       5505-FMT-FLD05.
           IF RESP-SS-STATUS EQUAL TO SPACES
               GO TO 5550-FMT-FLD10.
           MOVE FLD2414005-HCON TO FLD2414005-HDG.
               GO TO 5520-INTERPRET-CODE. 
       5510-JUST-CODE.
           MOVE RESP-SS-STATUS TO FLD2414005-POS1.
               GO TO 5550-FMT-FLD10.
       5520-INTERPRET-CODE. 
           MOVE 01 TO SUB3. 
       5530-NEXT-CODE-CK. 
           IF FLD2414005-CODES (SUB3) EQUAL TO "9"
               GO TO 5510-JUST-CODE.
           IF FLD2414005-CODES (SUB3) EQUAL TO RESP-SS-STATUS 
               GO TO 5540-EXTRACT-MNG.
           ADD 1 TO SUB3. 
           GO TO 5530-NEXT-CODE-CK. 
       5540-EXTRACT-MNG.
           MOVE FLD2414005-MNG (SUB3) TO FLD2414005-VAL.
      * 
      *    FORMAT FUNCTION FIELD
      * 
       5550-FMT-FLD10.
           IF RESP-SS-FUNC EQUAL TO SPACES
               GO TO 5600-FMT-FLD25.
           MOVE FLD2414010-HCON TO FLD2414010-HDG.
               GO TO 5570-INTERPRET-CODE. 
       5560-JUST-CODE.
           MOVE RESP-SS-FUNC TO FLD2414010-POS1.
               GO TO 5600-FMT-FLD25.
       5570-INTERPRET-CODE. 
           MOVE 01 TO SUB3. 
       5580-NEXT-CODE-CK. 
           IF FLD2414010-CODES (SUB3) EQUAL TO "9"
               GO TO 5560-JUST-CODE.
           IF FLD2414010-CODES (SUB3) EQUAL TO RESP-SS-FUNC 
               GO TO 5590-EXTRACT-MNG.
           ADD 1 TO SUB3. 
           GO TO 5580-NEXT-CODE-CK. 
       5590-EXTRACT-MNG.
           MOVE FLD2414010-MNG (SUB3) TO FLD2414010-VAL.
      * 
      *    FORMAT PHONE FIELD 
      * 
       5600-FMT-FLD25.
           IF RESP-SS-PHONE EQUAL TO SPACES 
               GO TO 5610-FMT-FLD35.
           MOVE FLD2414025-HCON TO FLD2414025-HDG.
           MOVE RESP-SS-PHONE TO FLD2414025-VAL.
      * 
      *    FORMAT MAIL FIELD
      * 
       5610-FMT-FLD35.
           IF RESP-SS-MAIL EQUAL TO SPACES
               GO TO 5620-OUTPUT-LN1. 
           MOVE FLD2414035-HCON TO FLD2414035-HDG.
           MOVE RESP-SS-MAIL TO FLD2414035-VAL. 
      * 
      *    OUTPUT 1ST DISPLAY LINE
      * 
       5620-OUTPUT-LN1. 
           IF CAT24140-LINE1 EQUAL TO SPACES
               GO TO 5630-FMT-FLD15.
           MOVE CAT24140-LINE1 TO STDRPT-70CHR. 
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.
      * 
      *    FORMAT 2ND DISPLAY LINE
      * 
       5630-FMT-FLD15.
           MOVE SPACES TO CAT24140-LINE2. 
      * 
      *    FORMAT DEPARTMENT FIELD
      * 
           IF RESP-SS-DEPT EQUAL TO SPACES
               GO TO 5640-FMT-FLD40.
           MOVE FLD2414015-HCON TO FLD2414015-HDG.
           MOVE RESP-SS-DEPT TO FLD2414015-VAL. 
      * 
      *    FORMAT DATE FIELD
      * 
       5640-FMT-FLD40.
           IF RESP-SS-DATE EQUAL TO SPACES
               GO TO 5650-OUTPUT-LN2. 
           MOVE FLD2414040-HCON TO FLD2414040-HDG.
           MOVE RESP-SS-DATE TO FLD2414040-VAL. 
      * 
      *    OUTPUT 2ND DISPLAY LINE
      * 
       5650-OUTPUT-LN2. 
           IF CAT24140-LINE2 EQUAL TO SPACES
               GO TO 5660-FMT-FLD20.
           MOVE CAT24140-LINE2 TO STDRPT-70CHR. 
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.
      * 
      *    FORMAT 3RD DISPLAY LINE
      * 
       5660-FMT-FLD20.
           MOVE SPACES TO CAT24140-LINE3. 
      * 
      *    FORMAT PERSON FIELD
      * 
           IF RESP-SS-PERSON EQUAL TO SPACES
               GO TO 5670-FMT-FLD30.
           MOVE FLD2414020-HCON TO FLD2414020-HDG.
           MOVE RESP-SS-PERSON TO FLD2414020-VAL. 
      * 
      *    FORMAT TITLE FIELD 
      * 
       5670-FMT-FLD30.
           IF RESP-SS-TITLE EQUAL TO SPACES 
               GO TO 5680-OUTPUT-LN3. 
           MOVE FLD2414030-HCON TO FLD2414030-HDG.
           MOVE RESP-SS-TITLE TO FLD2414030-VAL.
      * 
      *    OUTPUT 3RD DISPLAY LINE
      * 
       5680-OUTPUT-LN3. 
           IF CAT24140-LINE3 EQUAL TO SPACES
               GO TO 5690-FMT-CAT140-XIT. 
           MOVE CAT24140-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 CAT24200-LINE1
      * 
      *    FORMAT SSLFN FIELD 
      * 
           MOVE FLD2420005-HCON TO FLD2420005-HDG 
           MOVE NAME-SS-DMSNAME TO FLD2420005-VAL 
      * 
      *    OUTPUT DISPLAY LINE
      * 
           MOVE CAT24200-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 CAT24300-LINE1
      * 
      *    FORMAT 1ST STRUCTURE DISPLAY LINE
      * 
           IF STC-SS-AREA IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2430005-HCON TO FLD2430005-HDG
              MOVE STC-SS-AREA TO FLD2430005-VAL
           END-IF 
           IF STC-SS-ALY-NO IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2430010-HCON TO FLD2430010-HDG
              MOVE STC-SS-ALY-NO TO FLD2430010-VAL
           END-IF 
      * 
      *    OUTPUT 1ST DISPLAY LINE
      * 
           IF CAT24300-LINE1 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT24300-LINE1 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           MOVE SPACES TO CAT24300-LINE2
      * 
      *    FORMAT 2ND STRUCTURE DISPLAY LINE
      * 
           IF STC-SS-INCLUDE IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2430015-HCON TO FLD2430015-HDG
              PERFORM INTERPRET-INC THRU INTERPRET-INC-XIT
           END-IF 
      * 
      *    OUTPUT 2ND DISPLAY LINE
      * 
           IF CAT24300-LINE2 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT24300-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.
  
           MOVE SPACES TO CAT24450-LINE1
      * 
      *    FORMAT 1ST MDINFO DISPLAY LINE 
      * 
           IF MD-SS-SSLFN IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2445005-HCON TO FLD2445005-HDG
              MOVE MD-SS-SSLFN TO FLD2445005-VAL
           END-IF 
      * 
      *    OUTPUT 1ST DISPLAY LINE
      * 
           IF CAT24450-LINE1 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT24450-LINE1 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
  
       FMT-CAT450-XIT.
           EXIT.
  
      ******************************************************************
      * 
      *    FORMAT CATEGORY 525 DETAIL LINES 
      *        CATEGORY 525 = SSREL 
      * 
      ******************************************************************
       FMT-CAT525.
  
      *    INITIALIZE SAVE AREAS FOR SUBSCHEMA RELATION 
  
           MOVE SPACES TO SAVE-SSREL-LINES. 
  
           IF CTL-LINE-TYPE IS NOT EQUAL TO "R" 
           THEN 
              GO TO FORMAT-LINEI
           END-IF 
  
           MOVE SPACES TO CAT24525-LINE1
      * 
      *    FORMAT 1ST SSREL DISPLAY LINE
      * 
           IF SSREL-SS-RELNAME IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2452501-HCON TO FLD2452501-HDG
              MOVE SSREL-SS-RELNAME TO FLD2452501-VAL 
           END-IF 
      * 
      *    OUTPUT 1ST DISPLAY LINE
      * 
           IF CAT24525-LINE1 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT24525-LINE1 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
  
           MOVE SPACES TO CAT24525-LINE2
      * 
      *    FORMAT 2ND SSREL DISPLAY LINE
      * 
           IF SSREL-SS-RESTRICT IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2452502-HCON TO FLD2452502-HDG
              MOVE SSREL-SS-RESTRICT TO FLD2452502-VAL
           END-IF 
           IF SSREL-SS-R-ALIAS IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2452503-HCON TO FLD2452503-HDG
              MOVE SSREL-SS-R-ALIAS TO FLD2452503-VAL 
           END-IF 
      * 
      *    OUTPUT 2ND DISPLAY LINE
      * 
           IF CAT24525-LINE2 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT24525-LINE2 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           GO TO FMT-CAT525-XIT.
  
       FORMAT-LINEI.
  
           MOVE DETAIL-WORK TO REL-LINEI
           MOVE SPACES TO CAT24525-LINE3
      * 
      *    FORMAT 3RD SSREL DISPLAY LINE
      * 
           IF S-PRELOP IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2452504-HCON TO FLD2452504-HDG
              MOVE S-PRELOP TO FLD2452504-VAL 
           END-IF 
           IF S-LEFT-PAREN IS NOT EQUAL TO SPACES AND ZERO
           THEN 
              MOVE FLD24525LP-HCON TO FLD24525LP-HDG
              MOVE S-LEFT-PAREN TO FLD24525LP-VAL 
           END-IF 
      * 
      *    OUTPUT 3RD DISPLAY LINE
      * 
           IF CAT24525-LINE3 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT24525-LINE3 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
  
           MOVE SPACES TO CAT24525-LINE4
      * 
      *    FORMAT 4TH SSREL DISPLAY LINE
      * 
           IF S-ID1 IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2452505-HCON TO FLD24525ID-HDG
              MOVE S-ID1 TO FLD24525ID-VAL
           END-IF 
           IF ( S-ID1-SUB1 IS NOT EQUAL TO SPACES AND ZERO )
           THEN 
              MOVE 1 TO LB-SUB
              MOVE S-ID1 TO ID-QUAL-LINE (LB-SUB : 32)
              ADD 32 TO LB-SUB
              PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
              MOVE "[" TO ID-QUAL-LINE (LB-SUB : 1) 
              ADD 1 TO LB-SUB 
              MOVE S-ID1-SUB1 TO ID-QUAL-LINE (LB-SUB : 4)
              ADD 4 TO LB-SUB 
              IF ( S-ID1-SUB2 IS NOT EQUAL TO SPACES AND ZERO ) 
              THEN
                 PERFORM POSITION-FIELD THRU POSITION-FLD-XIT 
                 MOVE "," TO ID-QUAL-LINE (LB-SUB : 1)
                 ADD 1 TO LB-SUB
                 MOVE S-ID1-SUB2 TO ID-QUAL-LINE (LB-SUB : 4) 
                 ADD 4 TO LB-SUB
                 IF ( S-ID1-SUB3 IS NOT EQUAL TO SPACES AND ZERO )
                 THEN 
                    PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
                    MOVE "," TO ID-QUAL-LINE (LB-SUB : 1) 
                    ADD 1 TO LB-SUB 
                    MOVE S-ID1-SUB3 TO ID-QUAL-LINE (LB-SUB : 4)
                    ADD 4 TO LB-SUB 
                 END-IF 
              END-IF
              PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
              MOVE "]" TO ID-QUAL-LINE (LB-SUB : 1) 
              MOVE ID-QUAL-LINE TO FLD24525ID-VAL 
           END-IF 
  
           IF S-ID1-ALIAS IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2452503-HCON TO FLD2452507-HDG
              MOVE S-ID1-ALIAS TO FLD2452507-VAL
           END-IF 
      * 
      *    OUTPUT 4TH DISPLAY LINE
      * 
           IF CAT24525-LINE4 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT24525-LINE4 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
              MOVE SPACES TO ID-QUAL-LINE, CAT24525-LINE4 
           END-IF 
  
      * 
      *    FORMAT 5TH SSREL DISPLAY LINE
      * 
           IF (( S-ID1-QUAL-FLAG IS EQUAL TO ZERO OR SPACES ) 
               AND ( S-ID2-QUAL-FLAG IS EQUAL TO ZERO OR SPACES ))
           THEN 
              GO TO FORMAT-ROP
           END-IF 
  
       READ-SSREL-LINES.
  
           MOVE SPACES TO DETAIL-WORK 
           PERFORM READ-NEXT-DATA THRU READ-NEXT-DATA-XIT 
           IF ( DATA-RETURN-CODE IS EQUAL TO 1 OR 2 ) 
           THEN 
              GO TO PROCESS-SSREL-FIELDS
           END-IF 
           IF (CTL-LINE-TYPE IS EQUAL TO "Q") 
           THEN 
              MOVE DETAIL-WORK TO REL-LINEQ 
           END-IF 
           IF (CTL-LINE-TYPE IS EQUAL TO "2") 
           THEN 
              MOVE DETAIL-WORK TO REL-LINE2 
           END-IF 
           IF (CTL-LINE-TYPE IS EQUAL TO "3") 
           THEN 
              MOVE DETAIL-WORK TO REL-LINE3 
           END-IF 
           IF (CTL-LINE-TYPE IS EQUAL TO "B") 
           THEN 
              MOVE DETAIL-WORK TO REL-LINEB 
           END-IF 
           IF (CTL-LINE-TYPE IS EQUAL TO "R" OR "I" OR "*") 
           THEN 
              MOVE 4 TO DATA-RETURN-CODE
              GO TO PROCESS-SSREL-FIELDS
           END-IF 
           GO TO READ-SSREL-LINES.
  
       PROCESS-SSREL-FIELDS.
  
              IF ( S-ID1-A1QUAL IS EQUAL TO SPACES )
              THEN
                 GO TO CHECK-ID1-QUAL2
              END-IF
              MOVE FLD24525OF-HCON TO FLD24525OF-HDG
              MOVE S-ID1-A1QUAL TO FLD24525OF-VAL 
              IF ( S-ID1-A1Q-SUB1 IS NOT EQUAL TO SPACES AND ZERO ) 
              THEN
                 MOVE 1 TO LB-SUB 
                 MOVE S-ID1-A1QUAL TO ID-QUAL-LINE (LB-SUB : 32)
                 ADD 32 TO LB-SUB 
                 PERFORM POSITION-FIELD THRU POSITION-FLD-XIT 
                 MOVE "[" TO ID-QUAL-LINE (LB-SUB : 1)
                 ADD 1 TO LB-SUB
                 MOVE S-ID1-A1Q-SUB1 TO ID-QUAL-LINE (LB-SUB : 4) 
                 ADD 4 TO LB-SUB
                 IF ( S-ID1-A1Q-SUB2 IS NOT EQUAL TO SPACES AND ZERO )
                 THEN 
                    PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
                    MOVE "," TO ID-QUAL-LINE (LB-SUB : 1) 
                    ADD 1 TO LB-SUB 
                    MOVE S-ID1-A1Q-SUB2 TO ID-QUAL-LINE (LB-SUB : 4)
                    ADD 4 TO LB-SUB 
                    IF ( S-ID1-A1Q-SUB3 IS NOT EQUAL TO SPACES
                        AND ZERO )
                    THEN
                       PERFORM POSITION-FIELD THRU POSITION-FLD-XIT 
                       MOVE "," TO ID-QUAL-LINE (LB-SUB : 1)
                       ADD 1 TO LB-SUB
                       MOVE S-ID1-A1Q-SUB3 TO 
                            ID-QUAL-LINE (LB-SUB : 4) 
                       ADD 4 TO LB-SUB
                    END-IF
                 END-IF 
              PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
              MOVE "]" TO ID-QUAL-LINE (LB-SUB : 1) 
              MOVE ID-QUAL-LINE TO FLD24525OF-VAL 
              END-IF
      * 
      *    OUTPUT 5TH DISPLAY LINE
      * 
           PERFORM DISPLAY-QUAL-LINE THRU DISPLAY-QUAL-LINE-XIT 
           MOVE SPACES TO ID-QUAL-LINE, CAT24525-LINE5
  
       CHECK-ID1-QUAL2. 
  
      * 
      *    FORMAT 6TH SSREL DISPLAY LINE
      * 
              IF ( S-ID1-A2QUAL IS EQUAL TO SPACES )
              THEN
                 GO TO CHECK-ID1-QUAL3
              END-IF
              MOVE FLD24525OF-HCON TO FLD24525OF-HDG
              MOVE S-ID1-A2QUAL TO FLD24525OF-VAL 
              IF ( S-ID1-A2Q-SUB1 IS NOT EQUAL TO SPACES AND ZERO ) 
              THEN
                 MOVE 1 TO LB-SUB 
                 MOVE S-ID1-A2QUAL TO ID-QUAL-LINE (LB-SUB : 32)
                 ADD 32 TO LB-SUB 
                 PERFORM POSITION-FIELD THRU POSITION-FLD-XIT 
                 MOVE "[" TO ID-QUAL-LINE (LB-SUB : 1)
                 ADD 1 TO LB-SUB
                 MOVE S-ID1-A2Q-SUB1 TO ID-QUAL-LINE (LB-SUB : 4) 
                 ADD 4 TO LB-SUB
                 IF ( S-ID1-A2Q-SUB2 IS NOT EQUAL TO SPACES AND ZERO )
                 THEN 
                    PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
                    MOVE "," TO ID-QUAL-LINE (LB-SUB : 1) 
                    ADD 1 TO LB-SUB 
                    MOVE S-ID1-A2Q-SUB2 TO ID-QUAL-LINE (LB-SUB : 4)
                    ADD 4 TO LB-SUB 
                    IF ( S-ID1-A2Q-SUB3 IS NOT EQUAL TO SPACES
                        AND ZERO )
                    THEN
                       PERFORM POSITION-FIELD THRU POSITION-FLD-XIT 
                       MOVE "," TO ID-QUAL-LINE (LB-SUB : 1)
                       ADD 1 TO LB-SUB
                       MOVE S-ID1-A2Q-SUB3 TO ID-QUAL-LINE (LB-SUB : 4) 
                       ADD 4 TO LB-SUB
                    END-IF
                 END-IF 
              PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
              MOVE "]" TO ID-QUAL-LINE (LB-SUB : 1) 
              MOVE ID-QUAL-LINE TO FLD24525OF-VAL 
              END-IF
      * 
      *    OUTPUT 6TH DISPLAY LINE
      * 
           PERFORM DISPLAY-QUAL-LINE THRU DISPLAY-QUAL-LINE-XIT 
           MOVE SPACES TO ID-QUAL-LINE, CAT24525-LINE5
  
       CHECK-ID1-QUAL3. 
  
      * 
      *    FORMAT 7TH SSREL DISPLAY LINE
      * 
              IF ( S-ID1-A3QUAL IS EQUAL TO SPACES )
              THEN
                 GO TO CHECK-ID1-QUAL4
              END-IF
              MOVE FLD24525OF-HCON TO FLD24525OF-HDG
              MOVE S-ID1-A3QUAL TO FLD24525OF-VAL 
              IF ( S-ID1-A3Q-SUB1 IS NOT EQUAL TO SPACES AND ZERO ) 
              THEN
                 MOVE 1 TO LB-SUB 
                 MOVE S-ID1-A3QUAL TO ID-QUAL-LINE (LB-SUB : 32)
                 ADD 32 TO LB-SUB 
                 PERFORM POSITION-FIELD THRU POSITION-FLD-XIT 
                 MOVE "[" TO ID-QUAL-LINE (LB-SUB : 1)
                 ADD 1 TO LB-SUB
                 MOVE S-ID1-A3Q-SUB1 TO ID-QUAL-LINE (LB-SUB : 4) 
                 ADD 4 TO LB-SUB
                 IF ( S-ID1-A3Q-SUB2 IS NOT EQUAL TO SPACES AND ZERO )
                 THEN 
                    PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
                    MOVE "," TO ID-QUAL-LINE (LB-SUB : 1) 
                    ADD 1 TO LB-SUB 
                    MOVE S-ID1-A3Q-SUB2 TO ID-QUAL-LINE (LB-SUB : 4)
                    ADD 4 TO LB-SUB 
                    IF ( S-ID1-A3Q-SUB3 IS NOT EQUAL TO SPACES
                        AND ZERO )
                    THEN
                       PERFORM POSITION-FIELD THRU POSITION-FLD-XIT 
                       MOVE "," TO ID-QUAL-LINE (LB-SUB : 1)
                       ADD 1 TO LB-SUB
                       MOVE S-ID1-A3Q-SUB3 TO ID-QUAL-LINE (LB-SUB : 4) 
                       ADD 4 TO LB-SUB
                    END-IF
                 END-IF 
              PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
              MOVE "]" TO ID-QUAL-LINE (LB-SUB : 1) 
              MOVE ID-QUAL-LINE TO FLD24525OF-VAL 
              END-IF
      * 
      *    OUTPUT 7TH DISPLAY LINE
      * 
           PERFORM DISPLAY-QUAL-LINE THRU DISPLAY-QUAL-LINE-XIT 
           MOVE SPACES TO ID-QUAL-LINE, CAT24525-LINE5
  
       CHECK-ID1-QUAL4. 
  
      * 
      *    FORMAT 8TH SSREL DISPLAY LINE
      * 
              IF ( S-ID1-A4QUAL IS EQUAL TO SPACES )
              THEN
                 GO TO CHECK-ID1-QUAL5
              END-IF
              MOVE FLD24525OF-HCON TO FLD24525OF-HDG
              MOVE S-ID1-A4QUAL TO FLD24525OF-VAL 
              IF ( S-ID1-A4Q-SUB1 IS NOT EQUAL TO SPACES AND ZERO ) 
              THEN
                 MOVE 1 TO LB-SUB 
                 MOVE S-ID1-A4QUAL TO ID-QUAL-LINE (LB-SUB : 32)
                 ADD 32 TO LB-SUB 
                 PERFORM POSITION-FIELD THRU POSITION-FLD-XIT 
                 MOVE "[" TO ID-QUAL-LINE (LB-SUB : 1)
                 ADD 1 TO LB-SUB
                 MOVE S-ID1-A4Q-SUB1 TO ID-QUAL-LINE (LB-SUB : 4) 
                 ADD 4 TO LB-SUB
                 IF ( S-ID1-A4Q-SUB2 IS NOT EQUAL TO SPACES AND ZERO )
                 THEN 
                    PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
                    MOVE "," TO ID-QUAL-LINE (LB-SUB : 1) 
                    ADD 1 TO LB-SUB 
                    MOVE S-ID1-A4Q-SUB2 TO ID-QUAL-LINE (LB-SUB : 4)
                    ADD 4 TO LB-SUB 
                    IF ( S-ID1-A4Q-SUB3 IS NOT EQUAL TO SPACES
                        AND ZERO )
                    THEN
                       PERFORM POSITION-FIELD THRU POSITION-FLD-XIT 
                       MOVE "," TO ID-QUAL-LINE (LB-SUB : 1)
                       ADD 1 TO LB-SUB
                       MOVE S-ID1-A4Q-SUB3 TO ID-QUAL-LINE (LB-SUB : 4) 
                       ADD 4 TO LB-SUB
                    END-IF
                 END-IF 
              PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
              MOVE "]" TO ID-QUAL-LINE (LB-SUB : 1) 
              MOVE ID-QUAL-LINE TO FLD24525OF-VAL 
              END-IF
      * 
      *    OUTPUT 8TH DISPLAY LINE
      * 
           PERFORM DISPLAY-QUAL-LINE THRU DISPLAY-QUAL-LINE-XIT 
           MOVE SPACES TO ID-QUAL-LINE, CAT24525-LINE5
  
       CHECK-ID1-QUAL5. 
  
      * 
      *    FORMAT 9TH SSREL DISPLAY LINE
      * 
              IF ( S-ID1-A5QUAL IS EQUAL TO SPACES )
              THEN
                 GO TO FORMAT-ROP 
              END-IF
              MOVE FLD24525OF-HCON TO FLD24525OF-HDG
              MOVE S-ID1-A5QUAL TO FLD24525OF-VAL 
              IF ( S-ID1-A5Q-SUB1 IS NOT EQUAL TO SPACES AND ZERO ) 
              THEN
                 MOVE 1 TO LB-SUB 
                 MOVE S-ID1-A5QUAL TO ID-QUAL-LINE (LB-SUB : 32)
                 ADD 32 TO LB-SUB 
                 PERFORM POSITION-FIELD THRU POSITION-FLD-XIT 
                 MOVE "[" TO ID-QUAL-LINE (LB-SUB : 1)
                 ADD 1 TO LB-SUB
                 MOVE S-ID1-A5Q-SUB1 TO ID-QUAL-LINE (LB-SUB : 4) 
                 ADD 4 TO LB-SUB
                 IF ( S-ID1-A5Q-SUB2 IS NOT EQUAL TO SPACES AND ZERO )
                 THEN 
                    PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
                    MOVE "," TO ID-QUAL-LINE (LB-SUB : 1) 
                    ADD 1 TO LB-SUB 
                    MOVE S-ID1-A5Q-SUB2 TO ID-QUAL-LINE (LB-SUB : 4)
                    ADD 4 TO LB-SUB 
                    IF ( S-ID1-A5Q-SUB3 IS NOT EQUAL TO SPACES
                        AND ZERO )
                    THEN
                       PERFORM POSITION-FIELD THRU POSITION-FLD-XIT 
                       MOVE "," TO ID-QUAL-LINE (LB-SUB : 1)
                       ADD 1 TO LB-SUB
                       MOVE S-ID1-A5Q-SUB3 TO ID-QUAL-LINE (LB-SUB : 4) 
                       ADD 4 TO LB-SUB
                    END-IF
                 END-IF 
              PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
              MOVE "]" TO ID-QUAL-LINE (LB-SUB : 1) 
              MOVE ID-QUAL-LINE TO FLD24525OF-VAL 
              END-IF
      * 
      *    OUTPUT 9TH DISPLAY LINE
      * 
           PERFORM DISPLAY-QUAL-LINE THRU DISPLAY-QUAL-LINE-XIT 
           MOVE SPACES TO ID-QUAL-LINE, CAT24525-LINE5
  
       FORMAT-ROP.
  
           MOVE SPACES TO CAT24525-LINE10 
      * 
      *    FORMAT 10TH SSREL DISPLAY LINE 
      * 
           IF S-RELOP IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2452553-HCON TO FLD2452553-HDG
              MOVE S-RELOP TO FLD2452553-VAL
           END-IF 
      * 
      *    OUTPUT 10TH DISPLAY LINE 
      * 
           IF CAT24525-LINE10 IS NOT EQUAL TO SPACES
           THEN 
              MOVE CAT24525-LINE10 TO STDRPT-70CHR
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           MOVE SPACES TO CAT24525-LINE4
      * 
      *    FORMAT 11TH SSREL DISPLAY LINE 
      * 
           IF S-ID2 IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2452529-HCON TO FLD24525ID-HDG
              MOVE S-ID2 TO FLD24525ID-VAL
           END-IF 
           IF ( S-ID2-SUB1 IS NOT EQUAL TO SPACES AND ZERO )
           THEN 
              MOVE 1 TO LB-SUB
              MOVE S-ID2 TO ID-QUAL-LINE (LB-SUB : 32)
              ADD 32 TO LB-SUB
              PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
              MOVE "[" TO ID-QUAL-LINE (LB-SUB : 1) 
              ADD 1 TO LB-SUB 
              MOVE S-ID2-SUB1 TO ID-QUAL-LINE (LB-SUB : 4)
              ADD 4 TO LB-SUB 
              IF ( S-ID2-SUB2 IS NOT EQUAL TO SPACES AND ZERO ) 
              THEN
                 PERFORM POSITION-FIELD THRU POSITION-FLD-XIT 
                 MOVE "," TO ID-QUAL-LINE (LB-SUB : 1)
                 ADD 1 TO LB-SUB
                 MOVE S-ID2-SUB2 TO ID-QUAL-LINE (LB-SUB : 4) 
                 ADD 4 TO LB-SUB
                 IF ( S-ID2-SUB3 IS NOT EQUAL TO SPACES AND ZERO )
                 THEN 
                    PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
                    MOVE "," TO ID-QUAL-LINE (LB-SUB : 1) 
                    ADD 1 TO LB-SUB 
                    MOVE S-ID2-SUB3 TO ID-QUAL-LINE (LB-SUB : 4)
                    ADD 4 TO LB-SUB 
                 END-IF 
              END-IF
              PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
              MOVE "]" TO ID-QUAL-LINE (LB-SUB : 1) 
              MOVE ID-QUAL-LINE TO FLD24525ID-VAL 
           END-IF 
  
           IF S-ID2-ALIAS IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2452503-HCON TO FLD2452507-HDG
              MOVE S-ID2-ALIAS TO FLD2452507-VAL
           END-IF 
      * 
      *    OUTPUT 11TH DISPLAY LINE 
      * 
           IF CAT24525-LINE4 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT24525-LINE4 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
              MOVE SPACES TO ID-QUAL-LINE, CAT24525-LINE4 
           END-IF 
  
      * 
      *    FORMAT 12TH SSREL DISPLAY LINE 
      * 
           IF ( S-ID2-QUAL-FLAG IS EQUAL TO ZERO OR SPACES )
           THEN 
              GO TO FORMAT-LOP
           END-IF 
           IF ( S-ID2-B1QUAL IS EQUAL TO SPACES ) 
           THEN 
              GO TO CHECK-ID2-QUAL2 
           END-IF 
           MOVE FLD24525OF-HCON TO FLD24525OF-HDG 
           MOVE S-ID2-B1QUAL TO FLD24525OF-VAL
           IF ( S-ID2-B1Q-SUB1 IS NOT EQUAL TO SPACES AND ZERO )
           THEN 
              MOVE 1 TO LB-SUB
              MOVE S-ID2-B1QUAL TO ID-QUAL-LINE (LB-SUB : 32) 
              ADD 32 TO LB-SUB
              PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
              MOVE "[" TO ID-QUAL-LINE (LB-SUB : 1) 
              ADD 1 TO LB-SUB 
              MOVE S-ID2-B1Q-SUB1 TO ID-QUAL-LINE (LB-SUB : 4)
              ADD 4 TO LB-SUB 
              IF ( S-ID2-B1Q-SUB2 IS NOT EQUAL TO SPACES AND ZERO ) 
              THEN
                 PERFORM POSITION-FIELD THRU POSITION-FLD-XIT 
                 MOVE "," TO ID-QUAL-LINE (LB-SUB : 1)
                 ADD 1 TO LB-SUB
                 MOVE S-ID2-B1Q-SUB2 TO ID-QUAL-LINE (LB-SUB : 4) 
                 ADD 4 TO LB-SUB
                 IF ( S-ID2-B1Q-SUB3 IS NOT EQUAL TO SPACES 
                     AND ZERO ) 
                 THEN 
                    PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
                    MOVE "," TO ID-QUAL-LINE (LB-SUB : 1) 
                    ADD 1 TO LB-SUB 
                    MOVE S-ID2-B1Q-SUB3 TO
                         ID-QUAL-LINE (LB-SUB : 4)
                    ADD 4 TO LB-SUB 
                  END-IF
              END-IF
              PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
              MOVE "]" TO ID-QUAL-LINE (LB-SUB : 1) 
              MOVE ID-QUAL-LINE TO FLD24525OF-VAL 
              END-IF
      * 
      *    OUTPUT 12TH DISPLAY LINE 
      * 
           PERFORM DISPLAY-QUAL-LINE THRU DISPLAY-QUAL-LINE-XIT 
           MOVE SPACES TO ID-QUAL-LINE
           MOVE SPACES TO CAT24525-LINE5
  
       CHECK-ID2-QUAL2. 
  
      * 
      *    FORMAT 13TH SSREL DISPLAY LINE 
      * 
           IF ( S-ID2-B2QUAL IS EQUAL TO SPACES ) 
           THEN 
              GO TO CHECK-ID2-QUAL3 
           END-IF 
           MOVE FLD24525OF-HCON TO FLD24525OF-HDG 
           MOVE S-ID2-B2QUAL TO FLD24525OF-VAL
           IF ( S-ID2-B2Q-SUB1 IS NOT EQUAL TO SPACES AND ZERO )
           THEN 
              MOVE 1 TO LB-SUB
              MOVE S-ID2-B2QUAL TO ID-QUAL-LINE (LB-SUB : 32) 
              ADD 32 TO LB-SUB
              PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
              MOVE "[" TO ID-QUAL-LINE (LB-SUB : 1) 
              ADD 1 TO LB-SUB 
              MOVE S-ID2-B2Q-SUB1 TO ID-QUAL-LINE (LB-SUB : 4)
              ADD 4 TO LB-SUB 
              IF ( S-ID2-B2Q-SUB2 IS NOT EQUAL TO SPACES AND ZERO ) 
              THEN
                 PERFORM POSITION-FIELD THRU POSITION-FLD-XIT 
                 MOVE "," TO ID-QUAL-LINE (LB-SUB : 1)
                 ADD 1 TO LB-SUB
                 MOVE S-ID2-B2Q-SUB2 TO ID-QUAL-LINE (LB-SUB : 4) 
                 ADD 4 TO LB-SUB
                 IF ( S-ID2-B2Q-SUB3 IS NOT EQUAL TO SPACES 
                     AND ZERO ) 
                 THEN 
                    PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
                    MOVE "," TO ID-QUAL-LINE (LB-SUB : 1) 
                    ADD 1 TO LB-SUB 
                    MOVE S-ID2-B2Q-SUB3 TO
                         ID-QUAL-LINE (LB-SUB : 4)
                    ADD 4 TO LB-SUB 
                  END-IF
              END-IF
              PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
              MOVE "]" TO ID-QUAL-LINE (LB-SUB : 1) 
              MOVE ID-QUAL-LINE TO FLD24525OF-VAL 
              END-IF
      * 
      *    OUTPUT 13TH DISPLAY LINE 
      * 
           PERFORM DISPLAY-QUAL-LINE THRU DISPLAY-QUAL-LINE-XIT 
           MOVE SPACES TO ID-QUAL-LINE
           MOVE SPACES TO CAT24525-LINE5
  
       CHECK-ID2-QUAL3. 
  
      * 
      *    FORMAT 14TH SSREL DISPLAY LINE 
      * 
           IF ( S-ID2-B3QUAL IS EQUAL TO SPACES ) 
           THEN 
              GO TO CHECK-ID2-QUAL4 
           END-IF 
           MOVE FLD24525OF-HCON TO FLD24525OF-HDG 
           MOVE S-ID2-B3QUAL TO FLD24525OF-VAL
           IF ( S-ID2-B3Q-SUB1 IS NOT EQUAL TO SPACES AND ZERO )
           THEN 
              MOVE 1 TO LB-SUB
              MOVE S-ID2-B3QUAL TO ID-QUAL-LINE (LB-SUB : 32) 
              ADD 32 TO LB-SUB
              PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
              MOVE "[" TO ID-QUAL-LINE (LB-SUB : 1) 
              ADD 1 TO LB-SUB 
              MOVE S-ID2-B3Q-SUB1 TO ID-QUAL-LINE (LB-SUB : 4)
              ADD 4 TO LB-SUB 
              IF ( S-ID2-B3Q-SUB2 IS NOT EQUAL TO SPACES AND ZERO ) 
              THEN
                 PERFORM POSITION-FIELD THRU POSITION-FLD-XIT 
                 MOVE "," TO ID-QUAL-LINE (LB-SUB : 1)
                 ADD 1 TO LB-SUB
                 MOVE S-ID2-B3Q-SUB2 TO ID-QUAL-LINE (LB-SUB : 4) 
                 ADD 4 TO LB-SUB
                 IF ( S-ID2-B3Q-SUB3 IS NOT EQUAL TO SPACES 
                     AND ZERO ) 
                 THEN 
                    PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
                    MOVE "," TO ID-QUAL-LINE (LB-SUB : 1) 
                    ADD 1 TO LB-SUB 
                    MOVE S-ID2-B3Q-SUB3 TO
                         ID-QUAL-LINE (LB-SUB : 4)
                    ADD 4 TO LB-SUB 
                  END-IF
              END-IF
              PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
              MOVE "]" TO ID-QUAL-LINE (LB-SUB : 1) 
              MOVE ID-QUAL-LINE TO FLD24525OF-VAL 
              END-IF
      * 
      *    OUTPUT 14TH DISPLAY LINE 
      * 
           PERFORM DISPLAY-QUAL-LINE THRU DISPLAY-QUAL-LINE-XIT 
           MOVE SPACES TO ID-QUAL-LINE
           MOVE SPACES TO CAT24525-LINE5
  
       CHECK-ID2-QUAL4. 
  
      * 
      *    FORMAT 15TH SSREL DISPLAY LINE 
      * 
           IF ( S-ID2-B4QUAL IS EQUAL TO SPACES ) 
           THEN 
              GO TO CHECK-ID2-QUAL5 
           END-IF 
           MOVE FLD24525OF-HCON TO FLD24525OF-HDG 
           MOVE S-ID2-B4QUAL TO FLD24525OF-VAL
           IF ( S-ID2-B4Q-SUB1 IS NOT EQUAL TO SPACES AND ZERO )
           THEN 
              MOVE 1 TO LB-SUB
              MOVE S-ID2-B4QUAL TO ID-QUAL-LINE (LB-SUB : 32) 
              ADD 32 TO LB-SUB
              PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
              MOVE "[" TO ID-QUAL-LINE (LB-SUB : 1) 
              ADD 1 TO LB-SUB 
              MOVE S-ID2-B4Q-SUB1 TO ID-QUAL-LINE (LB-SUB : 4)
              ADD 4 TO LB-SUB 
              IF ( S-ID2-B4Q-SUB2 IS NOT EQUAL TO SPACES AND ZERO ) 
              THEN
                 PERFORM POSITION-FIELD THRU POSITION-FLD-XIT 
                 MOVE "," TO ID-QUAL-LINE (LB-SUB : 1)
                 ADD 1 TO LB-SUB
                 MOVE S-ID2-B4Q-SUB2 TO ID-QUAL-LINE (LB-SUB : 4) 
                 ADD 4 TO LB-SUB
                 IF ( S-ID2-B4Q-SUB3 IS NOT EQUAL TO SPACES 
                     AND ZERO ) 
                 THEN 
                    PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
                    MOVE "," TO ID-QUAL-LINE (LB-SUB : 1) 
                    ADD 1 TO LB-SUB 
                    MOVE S-ID2-B4Q-SUB3 TO
                         ID-QUAL-LINE (LB-SUB : 4)
                    ADD 4 TO LB-SUB 
                  END-IF
              END-IF
              PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
              MOVE "]" TO ID-QUAL-LINE (LB-SUB : 1) 
              MOVE ID-QUAL-LINE TO FLD24525OF-VAL 
              END-IF
      * 
      *    OUTPUT 15TH DISPLAY LINE 
      * 
           PERFORM DISPLAY-QUAL-LINE THRU DISPLAY-QUAL-LINE-XIT 
           MOVE SPACES TO ID-QUAL-LINE
           MOVE SPACES TO CAT24525-LINE5
  
       CHECK-ID2-QUAL5. 
  
      * 
      *    FORMAT 16TH SSREL DISPLAY LINE 
      * 
           IF ( S-ID2-B5QUAL IS EQUAL TO SPACES ) 
           THEN 
              GO TO FORMAT-LOP
           END-IF 
           MOVE FLD24525OF-HCON TO FLD24525OF-HDG 
           MOVE S-ID2-B5QUAL TO FLD24525OF-VAL
           IF ( S-ID2-B5Q-SUB1 IS NOT EQUAL TO SPACES AND ZERO )
           THEN 
              MOVE 1 TO LB-SUB
              MOVE S-ID2-B5QUAL TO ID-QUAL-LINE (LB-SUB : 32) 
              ADD 32 TO LB-SUB
              PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
              MOVE "[" TO ID-QUAL-LINE (LB-SUB : 1) 
              ADD 1 TO LB-SUB 
              MOVE S-ID2-B5Q-SUB1 TO ID-QUAL-LINE (LB-SUB : 4)
              ADD 4 TO LB-SUB 
              IF ( S-ID2-B5Q-SUB2 IS NOT EQUAL TO SPACES AND ZERO ) 
              THEN
                 PERFORM POSITION-FIELD THRU POSITION-FLD-XIT 
                 MOVE "," TO ID-QUAL-LINE (LB-SUB : 1)
                 ADD 1 TO LB-SUB
                 MOVE S-ID2-B5Q-SUB2 TO ID-QUAL-LINE (LB-SUB : 4) 
                 ADD 4 TO LB-SUB
                 IF ( S-ID2-B5Q-SUB3 IS NOT EQUAL TO SPACES 
                     AND ZERO ) 
                 THEN 
                    PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
                    MOVE "," TO ID-QUAL-LINE (LB-SUB : 1) 
                    ADD 1 TO LB-SUB 
                    MOVE S-ID2-B5Q-SUB3 TO
                         ID-QUAL-LINE (LB-SUB : 4)
                    ADD 4 TO LB-SUB 
                  END-IF
              END-IF
              PERFORM POSITION-FIELD THRU POSITION-FLD-XIT
              MOVE "]" TO ID-QUAL-LINE (LB-SUB : 1) 
              MOVE ID-QUAL-LINE TO FLD24525OF-VAL 
              END-IF
      * 
      *    OUTPUT 16TH DISPLAY LINE 
      * 
           PERFORM DISPLAY-QUAL-LINE THRU DISPLAY-QUAL-LINE-XIT 
           MOVE SPACES TO ID-QUAL-LINE
  
       FORMAT-LOP.
           MOVE SPACES TO CAT24525-LINE17 
      * 
      *    FORMAT 17TH SSREL LINE 
      * 
           IF S-LOP IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2452504-HCON TO FLD2452555-HDG
              MOVE S-LOP TO FLD2452555-VAL
           END-IF 
           IF ( S-RIGHT-PAREN IS NOT EQUAL TO SPACES AND ZERO ) 
           THEN 
              MOVE FLD24525RP-HCON TO FLD24525RP-HDG
              MOVE S-RIGHT-PAREN TO FLD24525RP-VAL
           END-IF 
      * 
      *    OUTPUT 17TH DISPLAY LINE 
      * 
           IF CAT24525-LINE17 IS NOT EQUAL TO SPACES
           THEN 
              MOVE CAT24525-LINE17 TO STDRPT-70CHR
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           MOVE SPACES TO SAVE-SSREL-LINES. 
           IF (DATA-RETURN-CODE IS EQUAL TO 4)
           THEN 
              GO TO 3590-FMT-CAT-DETAIL 
           END-IF.
       FMT-CAT525-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 FLD2430015-CODES (SUB3) IS EQUAL TO STC-SS-INCLUDE
           THEN 
              MOVE FLD2430015-MNG (SUB3) TO FLD2430015-VAL
              GO TO INTERPRET-INC-XIT 
           ELSE 
              ADD 1 TO SUB3 
              GO TO INTERPRET-INC-CONT
           END-IF.
       INTERPRET-INC-XIT. 
           EXIT.
  
       DISPLAY-QUAL-LINE. 
           IF CAT24525-LINE5 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT24525-LINE5 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
       DISPLAY-QUAL-LINE-XIT. 
           EXIT.
  
       POSITION-FIELD.
           SUBTRACT 1 FROM LB-SUB 
       POSITION-FLD-CONT. 
           IF ( ID-QUAL-LINE (LB-SUB : 1) IS EQUAL TO SPACES )
           THEN 
              GO TO POSITION-FIELD
           ELSE 
              ADD 1 TO LB-SUB 
           END-IF.
       POSITION-FLD-XIT.
           EXIT.
  
