*DECK DCUPD03 
       IDENTIFICATION DIVISION. 
       PROGRAM-ID. UPD03. 
      ******************************************* 
      * 
      *    D A T A  B A S E   P R O C E D U R E S 
      * 
      ******************************************* 
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION. 
       SOURCE-COMPUTER.  CYBER. 
       OBJECT-COMPUTER.  CYBER. 
       DATA DIVISION. 
*CALL UPDCS 
*CALL DCDWA03 
*CALL QUALINE 
*CALL DCUPDSWS
       PROCEDURE DIVISION.
*CALL DCUPDKW 
      ******************************************************
      * 
      *    D A T A   B A S E   P R O C E D U R E   E N T R Y
      * 
      ******************************************************
      * 
      * 
      ******************************************************
           MOVE 03 TO SAVE-ENT-TYPE.
           MOVE SPACE TO NUM-EDIT.
      * 
      *    RESPONSIBILITY CATEGORY
      * 
       RESP-EDIT. 
           IF CAT-ID NOT EQUAL TO 140 
               GO TO NAME-DBP-EDIT. 
      * 
      *    RESPONSIBILITY - STATUS
      * 
       RESP-EDIT-STAT.
           IF FIELD-ID NOT = 05 
               GO TO RESP-EDIT-FUNC.
           MOVE RESP-DBP-STATUS TO OLD-VALUE. 
           IF VAL (1) = "$" 
               GO TO RESP-DEL-STAT. 
           MOVE STAT-CODES TO VALID-CODE-TABLE. 
           PERFORM VALID-CODE THRU VALID-CODE-XIT.
           MOVE VAL-AREA TO RESP-DBP-STATUS.
           GO TO CAT-MVC-MSG-CHG. 
       RESP-DEL-STAT. 
           IF RESP-DBP-STATUS = SPACES
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO RESP-DBP-STATUS.
           GO TO CAT-MVC-MSG-DEL. 
      * 
      *    RESPONSIBILITY - FUNCTION
      * 
       RESP-EDIT-FUNC.
           IF FIELD-ID NOT = 10 
               GO TO RESP-EDIT-DPT. 
           MOVE RESP-DBP-FUNC TO OLD-VALUE. 
           IF VAL (1) = "$" 
               GO TO RESP-DEL-FUNC. 
           MOVE FUNC-CODES TO VALID-CODE-TABLE. 
           PERFORM VALID-CODE THRU VALID-CODE-XIT.
           MOVE VAL-AREA TO RESP-DBP-FUNC.
           GO TO CAT-MVC-MSG-CHG. 
       RESP-DEL-FUNC. 
           IF RESP-DBP-FUNC = SPACES
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO RESP-DBP-FUNC.
           GO TO CAT-MVC-MSG-DEL. 
      * 
      *    RESPONSIBILITY - DEPT
      * 
       RESP-EDIT-DPT. 
           IF FIELD-ID NOT = 15 
               GO TO RESP-EDIT-PER. 
           MOVE RESP-DBP-DEPT TO OLD-VALUE. 
           IF VAL (1) = "$" 
               GO TO RESP-DEL-DPT.
           MOVE VAL-AREA TO RESP-DBP-DEPT.
           GO TO CAT-MVC-MSG-CHG. 
       RESP-DEL-DPT.
           IF RESP-DBP-DEPT = SPACES
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO RESP-DBP-DEPT.
           GO TO CAT-MVC-MSG-DEL. 
      * 
      *    RESPONSIBILITY - PERSON
      * 
       RESP-EDIT-PER. 
           IF FIELD-ID NOT = 20 
               GO TO RESP-EDIT-PHONE. 
           MOVE RESP-DBP-PERSON TO OLD-VALUE. 
           IF VAL (1) = "$" 
               GO TO RESP-DEL-PER.
           MOVE VAL-AREA TO RESP-DBP-PERSON.
           GO TO CAT-MVC-MSG-CHG. 
       RESP-DEL-PER.
           IF RESP-DBP-PERSON = SPACES
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO RESP-DBP-PERSON.
           GO TO CAT-MVC-MSG-DEL. 
      * 
      *    RESPONSIBILITY - PHONE 
      * 
      * 
       RESP-EDIT-PHONE. 
           IF FIELD-ID NOT = 25 
               GO TO RESP-EDIT-TIT. 
           MOVE RESP-DBP-PHONE TO OLD-VALUE.
           IF VAL (1) = "$" 
               GO TO RESP-DEL-PER.
           MOVE VAL-AREA TO RESP-DBP-PHONE. 
           GO TO CAT-MVC-MSG-CHG. 
       RESP-DEL-PHONE.
           IF RESP-DBP-PHONE = SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO RESP-DBP-PHONE. 
           GO TO CAT-MVC-MSG-DEL. 
      * 
      *    RESPONSIBILITY - TITLE 
      * 
       RESP-EDIT-TIT. 
           IF FIELD-ID NOT = 30 
               GO TO RESP-EDIT-MAIL.
           MOVE RESP-DBP-TITLE TO OLD-VALUE.
           IF VAL (1) = "$" 
               GO TO RESP-DEL-TIT.
           MOVE VAL-AREA TO RESP-DBP-TITLE. 
           GO TO CAT-MVC-MSG-CHG. 
       RESP-DEL-TIT.
           IF RESP-DBP-TITLE = SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE VAL-AREA TO RESP-DBP-TITLE. 
           GO TO CAT-MVC-MSG-DEL. 
      * 
      *    RESPONSIBILITY - MAIL
      * 
       RESP-EDIT-MAIL.
           IF FIELD-ID NOT = 35 
               GO TO RESP-EDIT-DATE.
           MOVE RESP-DBP-MAIL TO OLD-VALUE. 
           IF VAL (1) = "$" 
               GO TO RESP-DEL-MAIL. 
           MOVE VAL-AREA TO RESP-DBP-MAIL.
           GO TO CAT-MVC-MSG-CHG. 
       RESP-DEL-MAIL. 
           IF RESP-DBP-MAIL = SPACES
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE VAL-AREA TO RESP-DBP-MAIL.
           GO TO CAT-MVC-MSG-DEL. 
      * 
      *    RESPONSIBILITY - DATE
      * 
       RESP-EDIT-DATE.
           IF FIELD-ID NOT = 40 
               GO TO FLD-ERR. 
           MOVE RESP-DBP-DATE TO OLD-VALUE. 
           IF VAL (1) = "$" 
               GO TO RESP-DEL-DATE. 
           MOVE VAL-AREA TO RESP-DBP-DATE.
           GO TO CAT-MVC-MSG-CHG. 
       RESP-DEL-DATE. 
           IF RESP-DBP-DATE = SPACES
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO RESP-DBP-DATE.
           GO TO CAT-MVC-MSG-DEL. 
      ******************************************
      * 
      *    NAME CATEGORY
      * 
      ******************************************
       NAME-DBP-EDIT. 
           IF CAT-ID NOT = 200
               GO TO ATTR-DBP-EDIT. 
      * 
      *    NAME - DBPROC
      * 
       NAME-EDIT-DBP. 
           IF FIELD-ID NOT = 05 
               GO TO FLD-ERR. 
           MOVE NAME-DBP-DMSNAME TO OLD-VALUE.
           IF VAL (1) = "$" 
               GO TO NAME-DEL-DBP.
           MOVE VAL-AREA TO NAME-DBP-DMSNAME. 
           GO TO CAT-MVC-MSG-CHG. 
       NAME-DEL-DBP.
           IF NAME-DBP-DMSNAME = SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO NAME-DBP-DMSNAME. 
           GO TO CAT-MVC-MSG-DEL. 
      * 
      *    ATTRIBUTE - DBPROC 
      * 
       ATTR-DBP-EDIT. 
           IF CAT-ID NOT = 210
               GO TO CAT-ERR. 
      * 
      *    ATTRIBUTE - LANGUAGE 
      * 
       ATTR-EDIT-LANG.
           IF FIELD-ID NOT = 05 
               GO TO FLD-ERR. 
           MOVE ATTR-DBP-LANG TO OLD-VALUE. 
           IF VAL (1) = "$" 
               GO TO ATTR-DEL-LANG. 
           IF VAL (1) NOT = "A" AND "C" AND "F" 
               GO TO VALIDATION-ERROR.
           MOVE VAL (1) TO ATTR-DBP-LANG. 
           GO TO CAT-MVC-MSG-CHG. 
       ATTR-DEL-LANG. 
           IF ATTR-DBP-LANG = SPACES
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO ATTR-DBP-LANG.
           GO TO CAT-MVC-MSG-DEL. 
