*COMDECK RPTRT03
      ******************************************************************
      * 
      *    FORMAT CATEGORY 140 DETAIL LINE
      *        CATEGORY 140 = RESPONSIBILITY
      * 
      ******************************************************************
       5500-FMT-CAT140. 
           MOVE SPACES TO CAT03140-LINE1. 
      * 
      *    FORMAT STATUS FIELD
      * 
       5505-FMT-FLD05.
           IF RESP-DBP-STATUS EQUAL TO SPACES 
               GO TO 5550-FMT-FLD10.
           MOVE FLD0314005-HCON TO FLD0314005-HDG.
               GO TO 5520-INTERPRET-CODE. 
       5510-JUST-CODE.
           MOVE RESP-DBP-STATUS TO FLD0314005-POS1. 
               GO TO 5550-FMT-FLD10.
       5520-INTERPRET-CODE. 
           MOVE 01 TO SUB3. 
       5530-NEXT-CODE-CK. 
           IF FLD0314005-CODES (SUB3) EQUAL TO "9"
               GO TO 5510-JUST-CODE.
           IF FLD0314005-CODES (SUB3) EQUAL TO RESP-DBP-STATUS
               GO TO 5540-EXTRACT-MNG.
           ADD 1 TO SUB3. 
           GO TO 5530-NEXT-CODE-CK. 
       5540-EXTRACT-MNG.
           MOVE FLD0314005-MNG (SUB3) TO FLD0314005-VAL.
      * 
      *    FORMAT FUNCTION FIELD
      * 
       5550-FMT-FLD10.
           IF RESP-DBP-FUNC EQUAL TO SPACES 
               GO TO 5600-FMT-FLD25.
           MOVE FLD0314010-HCON TO FLD0314010-HDG.
               GO TO 5570-INTERPRET-CODE. 
       5560-JUST-CODE.
           MOVE RESP-DBP-FUNC TO FLD0314010-POS1. 
               GO TO 5600-FMT-FLD25.
       5570-INTERPRET-CODE. 
           MOVE 01 TO SUB3. 
       5580-NEXT-CODE-CK. 
           IF FLD0314010-CODES (SUB3) EQUAL TO "9"
               GO TO 5560-JUST-CODE.
           IF FLD0314010-CODES (SUB3) EQUAL TO RESP-DBP-FUNC
               GO TO 5590-EXTRACT-MNG.
           ADD 1 TO SUB3. 
           GO TO 5580-NEXT-CODE-CK. 
       5590-EXTRACT-MNG.
           MOVE FLD0314010-MNG (SUB3) TO FLD0314010-VAL.
      * 
      *    FORMAT PHONE FIELD 
      * 
       5600-FMT-FLD25.
           IF RESP-DBP-PHONE EQUAL TO SPACES
               GO TO 5610-FMT-FLD35.
           MOVE FLD0314025-HCON TO FLD0314025-HDG.
           MOVE RESP-DBP-PHONE TO FLD0314025-VAL. 
      * 
      *    FORMAT MAIL FIELD
      * 
       5610-FMT-FLD35.
           IF RESP-DBP-MAIL EQUAL TO SPACES 
               GO TO 5620-OUTPUT-LN1. 
           MOVE FLD0314035-HCON TO FLD0314035-HDG.
           MOVE RESP-DBP-MAIL TO FLD0314035-VAL.
      * 
      *    OUTPUT 1ST DISPLAY LINE
      * 
       5620-OUTPUT-LN1. 
           IF CAT03140-LINE1 EQUAL TO SPACES
               GO TO 5630-FMT-FLD15.
           MOVE CAT03140-LINE1 TO STDRPT-70CHR. 
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.
      * 
      *    FORMAT 2ND DISPLAY LINE
      * 
       5630-FMT-FLD15.
           MOVE SPACES TO CAT03140-LINE2. 
      * 
      *    FORMAT DEPARTMENT FIELD
      * 
           IF RESP-DBP-DEPT EQUAL TO SPACES 
               GO TO 5640-FMT-FLD40.
           MOVE FLD0314015-HCON TO FLD0314015-HDG.
           MOVE RESP-DBP-DEPT TO FLD0314015-VAL.
      * 
      *    FORMAT DATE FIELD
      * 
       5640-FMT-FLD40.
           IF RESP-DBP-DATE EQUAL TO SPACES 
               GO TO 5650-OUTPUT-LN2. 
           MOVE FLD0314040-HCON TO FLD0314040-HDG.
           MOVE RESP-DBP-DATE TO FLD0314040-VAL.
      * 
      *    OUTPUT 2ND DISPLAY LINE
      * 
       5650-OUTPUT-LN2. 
           IF CAT03140-LINE2 EQUAL TO SPACES
               GO TO 5660-FMT-FLD20.
           MOVE CAT03140-LINE2 TO STDRPT-70CHR. 
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.
      * 
      *    FORMAT 3RD DISPLAY LINE
      * 
       5660-FMT-FLD20.
           MOVE SPACES TO CAT03140-LINE3. 
      * 
      *    FORMAT PERSON FIELD
      * 
           IF RESP-DBP-PERSON EQUAL TO SPACES 
               GO TO 5670-FMT-FLD30.
           MOVE FLD0314020-HCON TO FLD0314020-HDG.
           MOVE RESP-DBP-PERSON TO FLD0314020-VAL.
      * 
      *    FORMAT TITLE FIELD 
      * 
       5670-FMT-FLD30.
           IF RESP-DBP-TITLE EQUAL TO SPACES
               GO TO 5680-OUTPUT-LN3. 
           MOVE FLD0314030-HCON TO FLD0314030-HDG.
           MOVE RESP-DBP-TITLE TO FLD0314030-VAL. 
      * 
      *    OUTPUT 3RD DISPLAY LINE
      * 
       5680-OUTPUT-LN3. 
           IF CAT03140-LINE3 EQUAL TO SPACES
               GO TO 5690-FMT-CAT140-XIT. 
           MOVE CAT03140-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 CAT03200-LINE1
      * 
      *    FORMAT DMSNAME FIELD 
      * 
           MOVE FLD0320005-HCON TO FLD0320005-HDG 
           MOVE NAME-DBP-DMSNAME TO FLD0320005-VAL
      * 
      *    OUTPUT DISPLAY LINE
      * 
           MOVE CAT03200-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 CAT03210-LINE1. 
      * 
      *    FORMAT LANGPRG FIELD 
      * 
           MOVE FLD0321005-HCON TO FLD0321005-HDG.
           PERFORM INTERPRET-LANGPRG THRU INTERPRET-LANGPRG-XIT 
      * 
      *    OUTPUT DISPLAY LINE
      * 
           MOVE CAT03210-LINE1 TO STDRPT-70CHR. 
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.
       12595-FMT-CAT210-XIT.
           EXIT.
  
  
  
      ********************************************************
      *     I N T E R P R E T    S U B R O U T I N E S
      ********************************************************
  
       INTERPRET-LANGPRG. 
           MOVE 1 TO SUB3.
       INTERPRET-LANGPRG-CONT.
           IF FLD0321005-CODES (SUB3) IS EQUAL TO ATTR-DBP-LANG 
           THEN 
              MOVE FLD0321005-MNG (SUB3) TO FLD0321005-VAL
              GO TO INTERPRET-LANGPRG-XIT 
           ELSE 
              ADD 1 TO SUB3 
              GO TO INTERPRET-LANGPRG-CONT
           END-IF.
       INTERPRET-LANGPRG-XIT. 
           EXIT.
  
