*COMDECK RPTRT22
      ******************************************************************
      * 
      *    FORMAT CATEGORY 140 DETAIL LINE
      *        CATEGORY 140 = RESPONSIBILITY
      * 
      ******************************************************************
       5500-FMT-CAT140. 
           MOVE SPACES TO CAT22140-LINE1. 
      * 
      *    FORMAT STATUS FIELD
      * 
       5505-FMT-FLD05.
           IF RESP-A-STATUS EQUAL TO SPACES 
               GO TO 5550-FMT-FLD10.
           MOVE FLD2214005-HCON TO FLD2214005-HDG.
               GO TO 5520-INTERPRET-CODE. 
       5510-JUST-CODE.
           MOVE RESP-A-STATUS TO FLD2214005-POS1. 
               GO TO 5550-FMT-FLD10.
       5520-INTERPRET-CODE. 
           MOVE 01 TO SUB3. 
       5530-NEXT-CODE-CK. 
           IF FLD2214005-CODES (SUB3) EQUAL TO "9"
               GO TO 5510-JUST-CODE.
           IF FLD2214005-CODES (SUB3) EQUAL TO RESP-A-STATUS
               GO TO 5540-EXTRACT-MNG.
           ADD 1 TO SUB3. 
           GO TO 5530-NEXT-CODE-CK. 
       5540-EXTRACT-MNG.
           MOVE FLD2214005-MNG (SUB3) TO FLD2214005-VAL.
      * 
      *    FORMAT FUNCTION FIELD
      * 
       5550-FMT-FLD10.
           IF RESP-A-FUNC EQUAL TO SPACES 
               GO TO 5600-FMT-FLD25.
           MOVE FLD2214010-HCON TO FLD2214010-HDG.
               GO TO 5570-INTERPRET-CODE. 
       5560-JUST-CODE.
           MOVE RESP-A-FUNC TO FLD2214010-POS1. 
               GO TO 5600-FMT-FLD25.
       5570-INTERPRET-CODE. 
           MOVE 01 TO SUB3. 
       5580-NEXT-CODE-CK. 
           IF FLD2214010-CODES (SUB3) EQUAL TO "9"
               GO TO 5560-JUST-CODE.
           IF FLD2214010-CODES (SUB3) EQUAL TO RESP-A-FUNC
               GO TO 5590-EXTRACT-MNG.
           ADD 1 TO SUB3. 
           GO TO 5580-NEXT-CODE-CK. 
       5590-EXTRACT-MNG.
           MOVE FLD2214010-MNG (SUB3) TO FLD2214010-VAL.
      * 
      *    FORMAT PHONE FIELD 
      * 
       5600-FMT-FLD25.
           IF RESP-A-PHONE EQUAL TO SPACES
               GO TO 5610-FMT-FLD35.
           MOVE FLD2214025-HCON TO FLD2214025-HDG.
           MOVE RESP-A-PHONE TO FLD2214025-VAL. 
      * 
      *    FORMAT MAIL FIELD
      * 
       5610-FMT-FLD35.
           IF RESP-A-MAIL EQUAL TO SPACES 
               GO TO 5620-OUTPUT-LN1. 
           MOVE FLD2214035-HCON TO FLD2214035-HDG.
           MOVE RESP-A-MAIL TO FLD2214035-VAL.
      * 
      *    OUTPUT 1ST DISPLAY LINE
      * 
       5620-OUTPUT-LN1. 
           IF CAT22140-LINE1 EQUAL TO SPACES
               GO TO 5630-FMT-FLD15.
           MOVE CAT22140-LINE1 TO STDRPT-70CHR. 
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.
      * 
      *    FORMAT 2ND DISPLAY LINE
      * 
       5630-FMT-FLD15.
           MOVE SPACES TO CAT22140-LINE2. 
      * 
      *    FORMAT DEPARTMENT FIELD
      * 
           IF RESP-A-DEPT EQUAL TO SPACES 
               GO TO 5640-FMT-FLD40.
           MOVE FLD2214015-HCON TO FLD2214015-HDG.
           MOVE RESP-A-DEPT TO FLD2214015-VAL.
      * 
      *    FORMAT DATE FIELD
      * 
       5640-FMT-FLD40.
           IF RESP-A-DATE EQUAL TO SPACES 
               GO TO 5650-OUTPUT-LN2. 
           MOVE FLD2214040-HCON TO FLD2214040-HDG.
           MOVE RESP-A-DATE TO FLD2214040-VAL.
      * 
      *    OUTPUT 2ND DISPLAY LINE
      * 
       5650-OUTPUT-LN2. 
           IF CAT22140-LINE2 EQUAL TO SPACES
               GO TO 5660-FMT-FLD20.
           MOVE CAT22140-LINE2 TO STDRPT-70CHR. 
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.
      * 
      *    FORMAT 3RD DISPLAY LINE
      * 
       5660-FMT-FLD20.
           MOVE SPACES TO CAT22140-LINE3. 
      * 
      *    FORMAT PERSON FIELD
      * 
           IF RESP-A-PERSON EQUAL TO SPACES 
               GO TO 5670-FMT-FLD30.
           MOVE FLD2214020-HCON TO FLD2214020-HDG.
           MOVE RESP-A-PERSON TO FLD2214020-VAL.
      * 
      *    FORMAT TITLE FIELD 
      * 
       5670-FMT-FLD30.
           IF RESP-A-TITLE EQUAL TO SPACES
               GO TO 5680-OUTPUT-LN3. 
           MOVE FLD2214030-HCON TO FLD2214030-HDG.
           MOVE RESP-A-TITLE TO FLD2214030-VAL. 
      * 
      *    OUTPUT 3RD DISPLAY LINE
      * 
       5680-OUTPUT-LN3. 
           IF CAT22140-LINE3 EQUAL TO SPACES
               GO TO 5690-FMT-CAT140-XIT. 
           MOVE CAT22140-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 CAT22200-LINE1
      * 
      *    FORMAT DMSNAME FIELD 
      * 
           MOVE FLD2220005-HCON TO FLD2220005-HDG 
           MOVE NAME-A-DMS TO FLD2220005-VAL
      * 
      *    OUTPUT DISPLAY LINE
      * 
           MOVE CAT22200-LINE1 TO STDRPT-70CHR
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT 
       12270-FMT-CAT200-XIT.
           EXIT.
  
      ******************************************************************
      * 
      *    FORMAT CATEGORY 210 DETAIL LINE
      *        CATEGORY 210 = ATTRIBUTES
      * 
      ******************************************************************
       12500-FMT-CAT210.
           MOVE SPACES TO CAT22210-LINE1
      * 
      *    FORMAT ATTRIBUTES LINE 1 
      * 
           IF ATTR-A-CL IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2221001-HCON TO FLD2221001-HDG
              MOVE ATTR-A-CL TO FLD2221001-VAL
           END-IF 
           IF ATTR-A-CP IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2221003-HCON TO FLD2221003-HDG
              MOVE ATTR-A-CP TO FLD2221003-VAL
           END-IF 
           IF ATTR-A-C1 IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2221005-HCON TO FLD2221005-HDG
              PERFORM INTERPRET-C1 THRU INTERPRET-C1-XIT
           END-IF 
           IF ATTR-A-EMK IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2221007-HCON TO FLD2221007-HDG
              PERFORM INTERPRET-EMK THRU INTERPRET-EMK-XIT
           END-IF 
      * 
      *    OUTPUT 1ST DISPLAY LINE IF PRESENT 
      * 
           IF CAT22210-LINE1 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT22210-LINE1 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           MOVE SPACES TO CAT22210-LINE2
      * 
      *    FORMAT ATTRIBUTES LINE 2 
      * 
           IF ATTR-A-FO IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2221009-HCON TO FLD2221009-HDG
              PERFORM INTERPRET-FO THRU INTERPRET-FO-XIT
           END-IF 
           IF ATTR-A-HL IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2221011-HCON TO FLD2221011-HDG
              MOVE ATTR-A-HL TO FLD2221011-VAL
           END-IF 
           IF ATTR-A-HMB IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2221013-HCON TO FLD2221013-HDG
              MOVE ATTR-A-HMB TO FLD2221013-VAL 
           END-IF 
      * 
      *    OUTPUT 2ND DISPLAY LINE IF PRESENT 
      * 
           IF CAT22210-LINE2 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT22210-LINE2 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           MOVE SPACES TO CAT22210-LINE3
      * 
      *    FORMAT ATTRIBUTES LINE 3 
      * 
           IF ATTR-A-KL IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2221015-HCON TO FLD2221015-HDG
              MOVE ATTR-A-KL TO FLD2221015-VAL
           END-IF 
           IF ATTR-A-KP IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2221017-HCON TO FLD2221017-HDG
              MOVE ATTR-A-KP TO FLD2221017-VAL
           END-IF 
           IF ATTR-A-KT IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2221019-HCON TO FLD2221019-HDG
              PERFORM INTERPRET-KT THRU INTERPRET-KT-XIT
           END-IF 
           IF ATTR-A-LL IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2221021-HCON TO FLD2221021-HDG
              MOVE ATTR-A-LL TO FLD2221021-VAL
           END-IF 
           IF ATTR-A-LP IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2221023-HCON TO FLD2221023-HDG
              MOVE ATTR-A-LP TO FLD2221023-VAL
           END-IF 
      * 
      *    OUTPUT 3RD DISPLAY LINE IF PRESENT 
      * 
           IF CAT22210-LINE3 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT22210-LINE3 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           MOVE SPACES TO CAT22210-LINE4
      * 
      *    FORMAT ATTRIBUTES LINE 4 
      * 
           IF ATTR-A-MBL IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2221025-HCON TO FLD2221025-HDG
              MOVE ATTR-A-MBL TO FLD2221025-VAL 
           END-IF 
           IF ATTR-A-MNR IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2221026-HCON TO FLD2221026-HDG
              MOVE ATTR-A-MNR TO FLD2221026-VAL 
           END-IF 
           IF ATTR-A-MRL IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2221027-HCON TO FLD2221027-HDG
              MOVE ATTR-A-MRL TO FLD2221027-VAL 
           END-IF 
           IF ATTR-A-ORG IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2221029-HCON TO FLD2221029-HDG
              MOVE ATTR-A-ORG TO FLD2221029-VAL 
           END-IF 
           IF ATTR-A-RB IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2221030-HCON TO FLD2221030-HDG
              MOVE ATTR-A-RB TO FLD2221030-VAL
           END-IF 
      * 
      *    OUTPUT 4TH DISPLAY LINE IF PRESENT 
      * 
           IF CAT22210-LINE4 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT22210-LINE4 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           MOVE SPACES TO CAT22210-LINE5
      * 
      *    FORMAT ATTRIBUTES LINE 5 
      * 
           IF ATTR-A-RKP IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2221031-HCON TO FLD2221031-HDG
              MOVE ATTR-A-RKP TO FLD2221031-VAL 
           END-IF 
           IF ATTR-A-RKW IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2221033-HCON TO FLD2221033-HDG
              MOVE ATTR-A-RKW TO FLD2221033-VAL 
           END-IF 
           IF ATTR-A-RMK IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2221035-HCON TO FLD2221035-HDG
              MOVE ATTR-A-RMK TO FLD2221035-VAL 
           END-IF 
           IF ATTR-A-RT IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2221037-HCON TO FLD2221037-HDG
              PERFORM INTERPRET-RT THRU INTERPRET-RT-XIT
           END-IF 
      * 
      *    OUTPUT 5TH DISPLAY LINE IF PRESENT 
      * 
           IF CAT22210-LINE5 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT22210-LINE5 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           MOVE SPACES TO CAT22210-LINE6
      * 
      *    FORMAT ATTRIBUTES LINE 6 
      * 
           IF ATTR-A-BT IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2221024-HCON TO FLD2221024-HDG
              PERFORM INTERPRET-BT THRU INTERPRET-BT-XIT
           END-IF 
           IF ATTR-A-SEQ IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2221039-HCON TO FLD2221039-HDG
              PERFORM INTERPRET-SEQ THRU INTERPRET-SEQ-XIT
           END-IF 
           IF ATTR-A-TL IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2221041-HCON TO FLD2221041-HDG
              MOVE ATTR-A-TL TO FLD2221041-VAL
           END-IF 
      * 
      *    OUTPUT 6TH DISPLAY LINE IF PRESENT 
      * 
           IF CAT22210-LINE6 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT22210-LINE6 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF.
       12595-FMT-CAT210-XIT.
           EXIT.
  
      ******************************************************************
      * 
      *    FORMAT CATEGORY 211 DETAIL LINES 
      *        CATEGORY 211 = ALIAS 
      * 
      ******************************************************************
       FMT-CAT211.
           MOVE SPACES TO CAT22200-LINE1
      * 
      *    FORMAT ADMSNAM FIELD 
      * 
           MOVE FLD2220005-HCON TO FLD2220005-HDG 
           MOVE ALY-A-DMS TO FLD2220005-VAL 
      * 
      *    OUTPUT DISPLAY LINE
      * 
           MOVE CAT22200-LINE1 TO STDRPT-70CHR
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT 
       FMT-CAT211-XIT.
           EXIT.
  
      ******************************************************************
      * 
      *    FORMAT CATEGORY 300 DETAIL LINES 
      *        CATEGORY 300 = STRUCTURE 
      * 
      ******************************************************************
       FMT-CAT300.
           MOVE SPACES TO CAT22300-LINE1
      * 
      *    FORMAT 1ST STRUCTURE DISPLAY LINE
      * 
           IF STC-A-RNAME IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2230005-HCON TO FLD2230005-HDG
              MOVE STC-A-RNAME TO FLD2230005-VAL
           END-IF 
           IF STC-A-ALIAS-NO IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2230010-HCON TO FLD2230010-HDG
              MOVE STC-A-ALIAS-NO TO FLD2230010-VAL 
           END-IF 
      * 
      *    OUTPUT 1ST DISPLAY LINE
      * 
           IF CAT22300-LINE1 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT22300-LINE1 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           MOVE SPACES TO CAT22300-LINE2
      * 
      *    FORMAT 2ND STRUCTURE DISPLAY LINE
      * 
           IF STC-A-RC-VALUE IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2230015-HCON TO FLD2230015-HDG
              MOVE STC-A-RC-VALUE TO FLD2230015-VAL 
           END-IF 
           IF STC-A-INCLUDE IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2230020-HCON TO FLD2230020-HDG
              PERFORM INTERPRET-INC THRU INTERPRET-INC-XIT
           END-IF 
      * 
      *    OUTPUT 2ND DISPLAY LINE
      * 
           IF CAT22300-LINE2 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT22300-LINE2 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
       FMT-CAT300-XIT.
           EXIT.
  
      ******************************************************************
      * 
      *    FORMAT CATEGORY 400 DETAIL LINES 
      *        CATEGORY 400 = PROCESS 
      * 
      ******************************************************************
       FMT-CAT400.
           IF CTL-LINE-TYPE IS EQUAL TO "R" 
           THEN 
              GO TO FMT-CAT400-LINER
           END-IF 
  
           MOVE SPACES TO CAT22400-LINE1
      * 
      *    FORMAT 1ST PROCESS DISPLAY LINE
      * 
           IF PROC-A-DBPROC IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2240005-HCON TO FLD2240005-HDG
              MOVE PROC-A-DBPROC TO FLD2240005-VAL
           END-IF 
      * 
      *    OUTPUT 1ST DISPLAY LINE
      * 
           IF CAT22400-LINE1 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT22400-LINE1 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           MOVE SPACES TO CAT22400-LINE2
      * 
      *    FORMAT 2ND PROCESS DISPLAY LINE
      * 
           IF PROC-A-TYPE IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2240010-HCON TO FLD2240010-HDG
              PERFORM INTERPRET-TYPE THRU INTERPRET-TYPE-XIT
           END-IF 
      * 
      *    OUTPUT 2ND DISPLAY LINE
      * 
           IF CAT22400-LINE2 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT22400-LINE2 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           MOVE SPACES TO CAT22400-LINE3
      * 
      *    FORMAT 3RD PROCESS DISPLAY LINE
      * 
           IF PROC-A-TIME IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2240015-HCON TO FLD2240015-HDG
              PERFORM INTERPRET-TIME THRU INTERPRET-TIME-XIT
           END-IF 
      * 
      *    OUTPUT 3RD DISPLAY LINE
      * 
           IF CAT22400-LINE3 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT22400-LINE3 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           MOVE SPACES TO CAT22400-LINE4
      * 
      *    FORMAT 4TH PROCESS DISPLAY LINE
      * 
           IF PROC-A-OPTION IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2240020-HCON TO FLD2240020-HDG
              PERFORM INTERPRET-OPTION THRU INTERPRET-OPTION-XIT
           END-IF 
      * 
      *    OUTPUT 4TH DISPLAY LINE
      * 
           IF CAT22400-LINE4 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT22400-LINE4 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF.
  
       FMT-CAT400-LINER.
           IF CTL-LINE-TYPE IS EQUAL TO "P" 
           THEN 
              GO TO FMT-CAT400-XIT
           END-IF 
           MOVE SPACES TO CAT22400-LINE5
      * 
      *    FORMAT 5TH PROCESS DISPLAY LINE
      * 
           IF PROC-A-RC-DATA IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2240025-HCON TO FLD2240025-HDG
              MOVE PROC-A-RC-DATA TO FLD2240025-VAL 
           END-IF 
           IF PROC-A-RC-ALIAS IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2240035-HCON TO FLD2240035-HDG
              MOVE PROC-A-RC-ALIAS TO FLD2240035-VAL
           END-IF 
      * 
      *    OUTPUT 5TH DISPLAY LINE
      * 
           IF CAT22400-LINE5 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT22400-LINE5 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           MOVE SPACES TO CAT22400-LINE6
      * 
      *    FORMAT 6TH PROCESS DISPLAY LINE
      * 
           IF PROC-A-RC-QUAL IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD22400OF-HCON TO FLD2240030-HDG
              MOVE PROC-A-RC-QUAL TO FLD2240030-VAL 
           END-IF 
      * 
      *    OUTPUT 6TH DISPLAY LINE
      * 
           IF CAT22400-LINE6 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT22400-LINE6 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
       FMT-CAT400-XIT.
           EXIT.
  
      ******************************************************************
      * 
      *    FORMAT CATEGORY 425 DETAIL LINES 
      *        CATEGORY 425 = ACCESS
      * 
      ******************************************************************
       FMT-CAT425.
           IF CTL-LINE-TYPE IS EQUAL TO "L" 
           THEN 
              GO TO FMT-CAT425-LINEL
           END-IF 
  
           MOVE SPACES TO CAT22425-LINE1
      * 
      *    FORMAT 1ST ACCESS DISPLAY LINE 
      * 
           IF ACC-A-MODE IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2242505-HCON TO FLD2242505-HDG
              PERFORM INTERPRET-MODE THRU INTERPRET-MODE-XIT
           END-IF 
      * 
      *    OUTPUT 1ST DISPLAY LINE
      * 
           IF CAT22425-LINE1 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT22425-LINE1 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           GO TO FMT-CAT425-XIT.
  
       FMT-CAT425-LINEL.
           MOVE SPACES TO CAT22425-LINE2
      * 
      *    FORMAT 2ND ACCESS DISPLAY LINE 
      * 
           IF ACC-A-LOCK IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2242510-HCON TO FLD2242510-HDG
              MOVE ACC-A-LOCK TO FLD2242510-VAL 
           END-IF 
      * 
      *    OUTPUT 2ND DISPLAY LINE
      * 
           IF CAT22425-LINE2 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT22425-LINE2 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
       FMT-CAT425-XIT.
           EXIT.
  
      ******************************************************************
      * 
      *    FORMAT CATEGORY 450 DETAIL LINES 
      *        CATEGORY 450 = MDINFO
      * 
      ******************************************************************
       FMT-CAT450.
  
           MOVE SPACES TO CAT22450-LINE1
      * 
      *    FORMAT 1ST MDINFO DISPLAY LINE 
      * 
           IF MD-A-PFN IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2245050-HCON TO FLD2245050-HDG
              MOVE MD-A-PFN TO FLD2245050-VAL 
           END-IF 
           IF MD-A-INDX-FILE IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2245005-HCON TO FLD2245005-HDG
              MOVE MD-A-INDX-FILE TO FLD2245005-VAL 
           END-IF 
      * 
      *    OUTPUT 1ST DISPLAY LINE
      * 
           IF CAT22450-LINE1 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT22450-LINE1 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
  
           MOVE SPACES TO CAT22450-LINE2
      * 
      *    FORMAT 2ND MDINFO DISPLAY LINE 
      * 
           IF MD-A-UN IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2245010-HCON TO FLD2245010-HDG
              MOVE MD-A-UN TO FLD2245010-VAL
           END-IF 
           IF MD-A-PW IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2245015-HCON TO FLD2245015-HDG
              MOVE MD-A-PW TO FLD2245015-VAL
           END-IF 
           IF MD-A-SET IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2245030-HCON TO FLD2245030-HDG
              MOVE MD-A-SET TO FLD2245030-VAL 
           END-IF 
           IF MD-A-VSN IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2245035-HCON TO FLD2245035-HDG
              MOVE MD-A-VSN TO FLD2245035-VAL 
           END-IF 
      * 
      *    OUTPUT 2ND DISPLAY LINE
      * 
           IF CAT22450-LINE2 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT22450-LINE2 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           MOVE SPACES TO CAT22450-LINE3
      * 
      *    FORMAT 3RD MDINFO DISPLAY LINE 
      * 
           IF MD-A-FAMILY IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2245020-HCON TO FLD2245020-HDG
              MOVE MD-A-FAMILY TO FLD2245020-VAL
           END-IF 
           IF MD-A-PACK IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2245025-HCON TO FLD2245025-HDG
              MOVE MD-A-PACK TO FLD2245025-VAL
           END-IF 
           IF MD-A-DT IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2245040-HCON TO FLD2245040-HDG
              MOVE MD-A-DT TO FLD2245040-VAL
           END-IF 
      * 
      *    OUTPUT 3RD DISPLAY LINE
      * 
           IF CAT22450-LINE3 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT22450-LINE3 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           MOVE SPACES TO CAT22450-LINE4
      * 
      *    FORMAT 4TH MDINFO DISPLAY LINE 
      * 
           IF MD-A-LOG IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2245045-HCON TO FLD2245045-HDG
              PERFORM INTERPRET-LOG THRU INTERPRET-LOG-XIT
           END-IF 
      * 
      *    OUTPUT 3RD DISPLAY LINE
      * 
           IF CAT22450-LINE4 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT22450-LINE4 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
       FMT-CAT450-XIT.
           EXIT.
  
      ******************************************************************
      * 
      *    FORMAT CATEGORY 500 DETAIL LINES 
      *        CATEGORY 500 = AREAKEYS
      * 
      ******************************************************************
       FMT-CAT500.
  
           IF CTL-LINE-TYPE IS EQUAL TO "C" 
           THEN 
              GO TO FMT-CAT500-LINEC
           END-IF 
           IF CTL-LINE-TYPE IS EQUAL TO "I" 
           THEN 
              GO TO FMT-CAT500-LINEI
           END-IF 
           MOVE SPACES TO CAT22500-LINE1
      * 
      *    FORMAT 1ST AREAKEYS DISPLAY LINE 
      * 
           IF AK-A-KEYNAME IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2250005-HCON TO FLD2250005-HDG
              MOVE AK-A-KEYNAME TO FLD2250005-VAL 
           END-IF 
           IF AK-A-KEY-ALIAS IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2250010-HCON TO FLD2250010-HDG
              MOVE AK-A-KEY-ALIAS TO FLD2250010-VAL 
           END-IF 
      * 
      *    OUTPUT 1ST DISPLAY LINE
      * 
           IF CAT22500-LINE1 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT22500-LINE1 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
  
           MOVE SPACES TO CAT22500-LINE2
      * 
      *    FORMAT 2ND AREAKEYS DISPLAY LINE 
      * 
           IF AK-A-KEY-QUAL IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD22400OF-HCON TO FLD2250013-HDG
              MOVE AK-A-KEY-QUAL TO FLD2250013-VAL
           END-IF 
      * 
      *    OUTPUT 2ND DISPLAY LINE
      * 
           IF CAT22500-LINE2 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT22500-LINE2 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           MOVE SPACES TO CAT22500-LINE3
      * 
      *    FORMAT 3RD AREAKEYS DISPLAY LINE 
      * 
           IF AK-A-KEY-TYPE IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2250015-HCON TO FLD2250015-HDG
              PERFORM INTERPRET-KEY THRU INTERPRET-KEY-XIT
           END-IF 
           IF AK-A-KEY-DUPES IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2250020-HCON TO FLD2250020-HDG
              PERFORM INTERPRET-DUPES THRU INTERPRET-DUPES-XIT
           END-IF 
           IF AK-A-KEY-USING IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2250025-HCON TO FLD2250025-HDG
              PERFORM INTERPRET-USING THRU INTERPRET-USING-XIT
           END-IF 
      * 
      *    OUTPUT 3RD DISPLAY LINE
      * 
           IF CAT22500-LINE3 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT22500-LINE3 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           GO TO FMT-CAT500-XIT.
  
       FMT-CAT500-LINEC.
  
           MOVE SPACES TO CAT22500-LINE4
      * 
      *    FORMAT 4TH AREAKEYS DISPLAY LINE 
      * 
           IF AK-A-CON-NAME IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2250030-HCON TO FLD2250030-HDG
              MOVE AK-A-CON-NAME TO FLD2250030-VAL
           END-IF 
      * 
      *    OUTPUT 4TH DISPLAY LINE
      * 
           IF CAT22500-LINE4 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT22500-LINE4 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           MOVE SPACES TO CAT22500-LINE3
      * 
      *    FORMAT 5TH AREAKEYS DISPLAY LINE 
      * 
           IF AK-A-CON-TYPE IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2250015-HCON TO FLD2250015-HDG
              PERFORM INTERPRET-KEY THRU INTERPRET-KEY-XIT
           END-IF 
           IF AK-A-CON-DUPES IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2250020-HCON TO FLD2250020-HDG
              PERFORM INTERPRET-DUPES THRU INTERPRET-DUPES-XIT
           END-IF 
           IF AK-A-CON-USING IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2250025-HCON TO FLD2250025-HDG
              PERFORM INTERPRET-USING THRU INTERPRET-USING-XIT
           END-IF 
      * 
      *    OUTPUT 5TH DISPLAY LINE
      * 
           IF CAT22500-LINE3 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT22500-LINE3 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           GO TO FMT-CAT500-XIT.
  
       FMT-CAT500-LINEI.
  
           MOVE SPACES TO CAT22500-LINE6
      * 
      *    FORMAT 6TH AREAKEYS DISPLAY LINE 
      * 
           IF AK-A-CON-ID IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2250045-HCON TO FLD2250045-HDG
              MOVE AK-A-CON-ID TO FLD2250045-VAL
           END-IF 
           IF AK-A-CON-ALIAS IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2250010-HCON TO FLD2250050-HDG
              MOVE AK-A-CON-ALIAS TO FLD2250050-VAL 
           END-IF 
      * 
      *    OUTPUT 6TH DISPLAY LINE
      * 
           IF CAT22500-LINE6 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT22500-LINE6 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
           MOVE SPACES TO CAT22500-LINE2
      * 
      *    FORMAT 7TH AREAKEYS DISPLAY LINE 
      * 
           IF AK-A-CON-QUAL IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD22400OF-HCON TO FLD2250013-HDG
              MOVE AK-A-CON-QUAL TO FLD2250013-VAL
           END-IF 
      * 
      *    OUTPUT 7TH DISPLAY LINE
      * 
           IF CAT22500-LINE2 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT22500-LINE2 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
       FMT-CAT500-XIT.
           EXIT.
  
  
      ********************************************************
      *     I N T E R P R E T    S U B R O U T I N E S
      ********************************************************
  
       INTERPRET-C1.
           MOVE 1 TO SUB3.
       INTERPRET-C1-CONT. 
           IF FLD2221005-CODES (SUB3) IS EQUAL TO ATTR-A-C1 
           THEN 
              MOVE FLD2221005-MNG (SUB3) TO FLD2221005-VAL
              GO TO INTERPRET-C1-XIT
           ELSE 
              ADD 1 TO SUB3 
              GO TO INTERPRET-C1-CONT 
           END-IF.
       INTERPRET-C1-XIT.
           EXIT.
  
       INTERPRET-EMK. 
           MOVE 1 TO SUB3.
       INTERPRET-EMK-CONT.
           IF FLD2221007-CODES (SUB3) IS EQUAL TO ATTR-A-EMK
           THEN 
              MOVE FLD2221007-MNG (SUB3) TO FLD2221007-VAL
              GO TO INTERPRET-EMK-XIT 
           ELSE 
              ADD 1 TO SUB3 
              GO TO INTERPRET-EMK-CONT
           END-IF.
       INTERPRET-EMK-XIT. 
           EXIT.
  
       INTERPRET-FO.
           MOVE 1 TO SUB3.
       INTERPRET-FO-CONT. 
           IF FLD2221009-CODES (SUB3) IS EQUAL TO ATTR-A-FO 
           THEN 
              MOVE FLD2221009-MNG (SUB3) TO FLD2221009-VAL
              GO TO INTERPRET-FO-XIT
           ELSE 
              ADD 1 TO SUB3 
              GO TO INTERPRET-FO-CONT 
           END-IF.
       INTERPRET-FO-XIT.
           EXIT.
  
       INTERPRET-KT.
           MOVE 1 TO SUB3.
       INTERPRET-KT-CONT. 
           IF FLD2221019-CODES (SUB3) IS EQUAL TO ATTR-A-KT 
           THEN 
              MOVE FLD2221019-MNG (SUB3) TO FLD2221019-VAL
              GO TO INTERPRET-KT-XIT
           ELSE 
              ADD 1 TO SUB3 
              GO TO INTERPRET-KT-CONT 
           END-IF.
       INTERPRET-KT-XIT.
           EXIT.
  
       INTERPRET-BT.
           MOVE 1 TO SUB3.
       INTERPRET-BT-CONT. 
           IF FLD2221024-CODES (SUB3) IS EQUAL TO ATTR-A-BT 
           THEN 
              MOVE FLD2221024-MNG (SUB3) TO FLD2221024-VAL
              GO TO INTERPRET-BT-XIT
           ELSE 
              ADD 1 TO SUB3 
              GO TO INTERPRET-BT-CONT 
           END-IF.
       INTERPRET-BT-XIT.
           EXIT.
  
       INTERPRET-RT.
           MOVE 1 TO SUB3.
       INTERPRET-RT-CONT. 
           IF FLD2221037-CODES (SUB3) IS EQUAL TO ATTR-A-RT 
           THEN 
              MOVE FLD2221037-MNG (SUB3) TO FLD2221037-VAL
              GO TO INTERPRET-RT-XIT
           ELSE 
              ADD 1 TO SUB3 
              GO TO INTERPRET-RT-CONT 
           END-IF.
       INTERPRET-RT-XIT.
           EXIT.
  
       INTERPRET-SEQ. 
           MOVE 1 TO SUB3.
       INTERPRET-SEQ-CONT.
           IF FLD2221039-CODES (SUB3) IS EQUAL TO ATTR-A-SEQ
           THEN 
              MOVE FLD2221039-MNG (SUB3) TO FLD2221039-VAL
              GO TO INTERPRET-SEQ-XIT 
           ELSE 
              ADD 1 TO SUB3 
              GO TO INTERPRET-SEQ-CONT
           END-IF.
       INTERPRET-SEQ-XIT. 
           EXIT.
  
       INTERPRET-INC. 
           MOVE 1 TO SUB3.
       INTERPRET-INC-CONT.
           IF FLD2230020-CODES (SUB3) IS EQUAL TO STC-A-INCLUDE 
           THEN 
              MOVE FLD2230020-MNG (SUB3) TO FLD2230020-VAL
              GO TO INTERPRET-INC-XIT 
           ELSE 
              ADD 1 TO SUB3 
              GO TO INTERPRET-INC-CONT
           END-IF.
       INTERPRET-INC-XIT. 
           EXIT.
  
       INTERPRET-TYPE.
           MOVE 1 TO SUB3.
       INTERPRET-TYPE-CONT. 
           IF FLD2240010-CODES (SUB3) IS EQUAL TO PROC-A-TYPE 
           THEN 
              MOVE FLD2240010-MNG (SUB3) TO FLD2240010-VAL
              GO TO INTERPRET-TYPE-XIT
           ELSE 
              ADD 1 TO SUB3 
              GO TO INTERPRET-TYPE-CONT 
           END-IF.
       INTERPRET-TYPE-XIT.
           EXIT.
  
       INTERPRET-TIME.
           IF PROC-A-TIME (1 : 1) IS EQUAL TO "B" 
              OR PROC-A-TIME (3 : 1) IS EQUAL TO "B"
              OR PROC-A-TIME (5 : 1) IS EQUAL TO "B"
           THEN 
              MOVE "BEFORE" TO FLD2240015-VAL1
           END-IF 
           IF PROC-A-TIME (1 : 1) IS EQUAL TO "E" 
              OR PROC-A-TIME (3 : 1) IS EQUAL TO "E"
              OR PROC-A-TIME (5 : 1) IS EQUAL TO "E"
           THEN 
              MOVE "ON ERROR DURING" TO FLD2240015-VAL2 
           END-IF 
           IF PROC-A-TIME (1 : 1) IS EQUAL TO "A" 
              OR PROC-A-TIME (3 : 1) IS EQUAL TO "A"
              OR PROC-A-TIME (5 : 1) IS EQUAL TO "A"
           THEN 
              MOVE "AFTER" TO FLD2240015-VAL3 
           END-IF.
       INTERPRET-TIME-XIT.
           EXIT.
  
       INTERPRET-OPTION.
           IF PROC-A-OPTION (1 : 1) IS EQUAL TO "O" 
              OR PROC-A-OPTION (3 : 1) IS EQUAL TO "O"
              OR PROC-A-OPTION (5 : 1) IS EQUAL TO "O"
              OR PROC-A-OPTION (7 : 1) IS EQUAL TO "O"
           THEN 
              MOVE "OPEN" TO FLD2240020-VAL1
           END-IF 
           IF PROC-A-OPTION (1 : 1) IS EQUAL TO "C" 
              OR PROC-A-OPTION (3 : 1) IS EQUAL TO "C"
              OR PROC-A-OPTION (5 : 1) IS EQUAL TO "C"
              OR PROC-A-OPTION (7 : 1) IS EQUAL TO "C"
           THEN 
              MOVE "CLOSE" TO FLD2240020-VAL2 
           END-IF 
           IF PROC-A-OPTION (1 : 1) IS EQUAL TO "U" 
              OR PROC-A-OPTION (3 : 1) IS EQUAL TO "U"
              OR PROC-A-OPTION (5 : 1) IS EQUAL TO "U"
              OR PROC-A-OPTION (7 : 1) IS EQUAL TO "U"
           THEN 
              MOVE "UPDATE" TO FLD2240020-VAL3
           END-IF 
           IF PROC-A-OPTION (1 : 1) IS EQUAL TO "R" 
              OR PROC-A-OPTION (3 : 1) IS EQUAL TO "R"
              OR PROC-A-OPTION (5 : 1) IS EQUAL TO "R"
              OR PROC-A-OPTION (7 : 1) IS EQUAL TO "R"
           THEN 
              MOVE "RETRIEVAL" TO FLD2240020-VAL4 
           END-IF.
       INTERPRET-OPTION-XIT.
           EXIT.
  
       INTERPRET-MODE.
           IF ACC-A-MODE (1 : 1) IS EQUAL TO "R"
              OR ACC-A-MODE (3 : 1) IS EQUAL TO "R" 
           THEN 
              MOVE "RETRIEVAL" TO FLD2242505-VAL1 
           END-IF 
           IF ACC-A-MODE (1 : 1) IS EQUAL TO "U"
              OR ACC-A-MODE (3 : 1) IS EQUAL TO "U" 
           THEN 
              MOVE "UPDATE" TO FLD2242505-VAL2
           END-IF 
       INTERPRET-MODE-XIT.
           EXIT.
  
       INTERPRET-LOG. 
           IF MD-A-LOG (1 : 2) IS EQUAL TO "BR" 
              OR MD-A-LOG (4 : 2) IS EQUAL TO "BR"
              OR MD-A-LOG (7 : 2) IS EQUAL TO "BR"
           THEN 
              MOVE "BEFORE RECORDS" TO FLD2245045-VAL1
           END-IF 
           IF MD-A-LOG (1 : 2) IS EQUAL TO "AR" 
              OR MD-A-LOG (4 : 2) IS EQUAL TO "AR"
              OR MD-A-LOG (7 : 2) IS EQUAL TO "AR"
           THEN 
              MOVE "AFTER RECORDS" TO FLD2245045-VAL2 
           END-IF 
           IF MD-A-LOG (1 : 2) IS EQUAL TO "BB" 
              OR MD-A-LOG (4 : 2) IS EQUAL TO "BB"
              OR MD-A-LOG (7 : 2) IS EQUAL TO "BB"
           THEN 
              MOVE "BEFORE BLOCKS" TO FLD2245045-VAL3 
           END-IF 
       INTERPRET-LOG-XIT. 
           EXIT.
  
       INTERPRET-KEY. 
           MOVE 1 TO SUB3.
       INTERPRET-KEY-CONT.
           IF CTL-LINE-TYPE IS  EQUAL TO "K"
           THEN 
              IF FLD2250015-CODES (SUB3) IS EQUAL TO AK-A-KEY-TYPE
                 MOVE FLD2250015-MNG (SUB3) TO FLD2250015-VAL 
                 GO TO INTERPRET-KEY-XIT
              END-IF
           END-IF 
           IF CTL-LINE-TYPE IS EQUAL TO "C" 
           THEN 
              IF FLD2250015-CODES (SUB3) IS EQUAL TO AK-A-CON-TYPE
                 MOVE FLD2250015-MNG (SUB3) TO FLD2250015-VAL 
                 GO TO INTERPRET-KEY-XIT
              END-IF
           END-IF 
           ADD 1 TO SUB3
           GO TO INTERPRET-KEY-CONT.
       INTERPRET-KEY-XIT. 
           EXIT.
  
       INTERPRET-DUPES. 
           MOVE 1 TO SUB3.
       INTERPRET-DUPES-CONT.
           IF CTL-LINE-TYPE IS  EQUAL TO "K"
           THEN 
              IF FLD2250020-CODES (SUB3) IS EQUAL TO AK-A-KEY-DUPES 
                 MOVE FLD2250020-MNG (SUB3) TO FLD2250020-VAL 
                 GO TO INTERPRET-DUPES-XIT
              END-IF
           END-IF 
           IF CTL-LINE-TYPE IS EQUAL TO "C" 
           THEN 
              IF FLD2250020-CODES (SUB3) IS EQUAL TO AK-A-CON-DUPES 
                 MOVE FLD2250020-MNG (SUB3) TO FLD2250020-VAL 
                 GO TO INTERPRET-DUPES-XIT
              END-IF
           END-IF 
           ADD 1 TO SUB3
           GO TO INTERPRET-DUPES-CONT.
       INTERPRET-DUPES-XIT. 
           EXIT.
  
       INTERPRET-USING. 
           MOVE 1 TO SUB3.
       INTERPRET-USING-CONT.
           IF CTL-LINE-TYPE IS  EQUAL TO "K"
           THEN 
              IF FLD2250025-CODES (SUB3) IS EQUAL TO AK-A-KEY-USING 
                 MOVE FLD2250025-MNG (SUB3) TO FLD2250025-VAL 
                 GO TO INTERPRET-USING-XIT
              END-IF
           END-IF 
           IF CTL-LINE-TYPE IS EQUAL TO "C" 
           THEN 
              IF FLD2250025-CODES (SUB3) IS EQUAL TO AK-A-CON-USING 
                 MOVE FLD2250025-MNG (SUB3) TO FLD2250025-VAL 
                 GO TO INTERPRET-USING-XIT
              END-IF
           END-IF 
           ADD 1 TO SUB3
           GO TO INTERPRET-USING-CONT.
       INTERPRET-USING-XIT. 
           EXIT.
  
  
