*DECK     DCUPD60 
00001  IDENTIFICATION DIVISION.                                         08/24/78
       PROGRAM-ID. UPD60. 
00003 ******************************************************               LV002
00004 *                                                                 DCUPD60 
00005 *     S Y S T E M   E N T R Y   E D I T I N G                     DCUPD60 
00006 *                                                                 DCUPD60 
00007 ******************************************************            DCUPD60 
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION. 
       SOURCE-COMPUTER. CYBER.
       OBJECT-COMPUTER. CYBER.
       DATA DIVISION. 
*CALL UPDCS 
*CALL DCDWA60 
*CALL QUALINE 
*CALL     DCUPDSWS                                                         CL**5
00013  PROCEDURE DIVISION.                                                 CL**2
*CALL     DCUPDKW                                                          CL**5
00016 ******************************************************            DCUPD60 
00017 *                                                                 DCUPD60 
00018 *     S Y S T E M   E N T R Y   E D I T I N G                     DCUPD60 
00019 *                                                                 DCUPD60 
00020 ******************************************************            DCUPD60 
00021 *                                                                 DCUPD60 
00022 *                                                                 DCUPD60 
00023 ******************************************************            DCUPD60 
00024 *                                                                 DCUPD60 
00025 *     RESPONSIBILITY CATEGORY                                     DCUPD60 
00026 *                                                                 DCUPD60 
00027 ******************************************************            DCUPD60 
00028  RESP-EDIT.                                                       DCUPD60 
00029      IF CAT-ID NOT EQUAL TO 140 GO TO NAME-EDIT.                  DCUPD60 
00030 *                                                                 DCUPD60 
00031 *     RESPONSIBILITY - STATUS                                     DCUPD60 
00032 *                                                                 DCUPD60 
00033  RESP-EDIT-STAT.                                                  DCUPD60 
00034      IF FIELD-ID NOT EQUAL TO 05 GO TO RESP-EDIT-FUNC.            DCUPD60 
00035      MOVE RESP-SYS-STATUS TO OLD-VALUE.                           DCUPD60 
00036      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-STAT.                 DCUPD60 
00037      MOVE STAT-CODES TO VALID-CODE-TABLE.                         DCUPD60 
00038      PERFORM VALID-CODE THRU VALID-CODE-XIT.                      DCUPD60 
00039      MOVE VAL-AREA TO RESP-SYS-STATUS.                            DCUPD60 
00040      GO TO CAT-MVC-MSG-CHG.                                       DCUPD60 
00041  RESP-DEL-STAT.                                                   DCUPD60 
00042      IF RESP-SYS-STATUS EQUAL TO SPACES                           DCUPD60 
00043          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD60 
00044      MOVE SPACES TO RESP-SYS-STATUS.                              DCUPD60 
00045      GO TO CAT-MVC-MSG-DEL.                                       DCUPD60 
00046 *                                                                 DCUPD60 
00047 *     RESPONSIBILITY - FUNCTION                                   DCUPD60 
00048 *                                                                 DCUPD60 
00049  RESP-EDIT-FUNC.                                                  DCUPD60 
00050      IF FIELD-ID NOT EQUAL TO 10 GO TO RESP-EDIT-DPT.             DCUPD60 
00051      MOVE RESP-SYS-FUNC TO OLD-VALUE.                             DCUPD60 
00052      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-FUNC.                 DCUPD60 
00053      MOVE FUNC-CODES TO VALID-CODE-TABLE.                         DCUPD60 
00054      PERFORM VALID-CODE THRU VALID-CODE-XIT.                      DCUPD60 
00055      MOVE VAL-AREA TO RESP-SYS-FUNC.                              DCUPD60 
00056      GO TO CAT-MVC-MSG-CHG.                                       DCUPD60 
00057  RESP-DEL-FUNC.                                                   DCUPD60 
00058      IF RESP-SYS-FUNC EQUAL TO SPACES                             DCUPD60 
00059          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD60 
00060      MOVE SPACES TO RESP-SYS-FUNC.                                DCUPD60 
00061      GO TO CAT-MVC-MSG-DEL.                                       DCUPD60 
00062 *                                                                 DCUPD60 
00063 *     RESPOSSIBILITY - DEPT                                       DCUPD60 
00064 *                                                                 DCUPD60 
00065  RESP-EDIT-DPT.                                                   DCUPD60 
00066      IF FIELD-ID NOT EQUAL TO 15 GO TO RESP-EDIT-PER.             DCUPD60 
00067      MOVE RESP-SYS-DEPT TO OLD-VALUE.                             DCUPD60 
00068      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-DPT.                  DCUPD60 
00069      MOVE VAL-AREA TO RESP-SYS-DEPT.                              DCUPD60 
00070      GO TO CAT-MVC-MSG-CHG.                                       DCUPD60 
00071  RESP-DEL-DPT.                                                    DCUPD60 
00072      IF RESP-SYS-DEPT EQUAL TO SPACES                             DCUPD60 
00073          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD60 
00074      MOVE SPACES TO RESP-SYS-DEPT.                                DCUPD60 
00075      GO TO CAT-MVC-MSG-DEL.                                       DCUPD60 
00076 *                                                                 DCUPD60 
00077 *     RESPONSIBILITY - PERSON                                     DCUPD60 
00078 *                                                                 DCUPD60 
00079  RESP-EDIT-PER.                                                   DCUPD60 
00080      IF FIELD-ID NOT EQUAL TO 20 GO TO RESP-EDIT-PHONE.           DCUPD60 
00081      MOVE RESP-SYS-PERSON TO OLD-VALUE.                           DCUPD60 
00082      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-PER.                  DCUPD60 
00083      MOVE VAL-AREA TO RESP-SYS-PERSON.                            DCUPD60 
00084      GO TO CAT-MVC-MSG-CHG.                                       DCUPD60 
00085  RESP-DEL-PER.                                                    DCUPD60 
00086      IF RESP-SYS-PERSON EQUAL TO SPACES                           DCUPD60 
00087          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD60 
00088      MOVE SPACES TO RESP-SYS-PERSON.                              DCUPD60 
00089      GO TO CAT-MVC-MSG-DEL.                                       DCUPD60 
00090 *                                                                 DCUPD60 
00091 *     RESPONSIBILITY - PHONE                                      DCUPD60 
00092 *                                                                    CL**2
00093  RESP-EDIT-PHONE.                                                 DCUPD60 
00094      IF FIELD-ID NOT EQUAL TO 25 GO TO RESP-EDIT-TIT.             DCUPD60 
00095      MOVE RESP-SYS-PHONE TO OLD-VALUE.                            DCUPD60 
00096      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-PHONE.                DCUPD60 
00097      MOVE VAL-AREA TO RESP-SYS-PHONE.                             DCUPD60 
00098      GO TO CAT-MVC-MSG-CHG.                                       DCUPD60 
00099  RESP-DEL-PHONE.                                                  DCUPD60 
00100      IF RESP-SYS-PHONE EQUAL TO SPACES                            DCUPD60 
00101          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD60 
00102      MOVE SPACES TO RESP-SYS-PHONE.                               DCUPD60 
00103      GO TO CAT-MVC-MSG-DEL.                                       DCUPD60 
00104 *                                                                 DCUPD60 
00105 *     RESPONSIBILITY - TITLE                                      DCUPD60 
00106 *                                                                 DCUPD60 
00107  RESP-EDIT-TIT.                                                   DCUPD60 
00108      IF FIELD-ID NOT EQUAL TO 30 GO TO RESP-EDIT-MAIL.            DCUPD60 
00109      MOVE RESP-SYS-TITLE TO OLD-VALUE.                            DCUPD60 
00110      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-TIT.                  DCUPD60 
00111      MOVE VAL-AREA TO RESP-SYS-TITLE.                             DCUPD60 
00112      GO TO CAT-MVC-MSG-CHG.                                       DCUPD60 
00113  RESP-DEL-TIT.                                                    DCUPD60 
00114      IF RESP-SYS-TITLE EQUAL TO SPACES                            DCUPD60 
00115          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD60 
00116      MOVE SPACES TO RESP-SYS-TITLE.                               DCUPD60 
00117      GO TO CAT-MVC-MSG-DEL.                                       DCUPD60 
00118 *                                                                 DCUPD60 
00119 *     RESPONSIBILITY - MAIL                                       DCUPD60 
00120 *                                                                 DCUPD60 
00121  RESP-EDIT-MAIL.                                                  DCUPD60 
00122      IF FIELD-ID NOT EQUAL TO 35 GO TO RESP-EDIT-DATE.            DCUPD60 
00123      MOVE RESP-SYS-MAIL TO OLD-VALUE.                             DCUPD60 
00124      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-MAIL.                 DCUPD60 
00125      MOVE VAL-AREA TO RESP-SYS-MAIL.                              DCUPD60 
00126      GO TO CAT-MVC-MSG-CHG.                                       DCUPD60 
00127  RESP-DEL-MAIL.                                                   DCUPD60 
00128      IF RESP-SYS-MAIL EQUAL TO SPACES                             DCUPD60 
00129          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD60 
00130      MOVE SPACES TO RESP-SYS-MAIL.                                DCUPD60 
00131      GO TO CAT-MVC-MSG-DEL.                                       DCUPD60 
00132 *                                                                 DCUPD60 
00133 *     RESPONSIBILITY - DATE                                       DCUPD60 
00134 *                                                                 DCUPD60 
00135  RESP-EDIT-DATE.                                                  DCUPD60 
00136      IF FIELD-ID NOT EQUAL TO 40 GO TO FLD-ERR.                   DCUPD60 
00137      MOVE RESP-SYS-DATE TO OLD-VALUE.                             DCUPD60 
00138      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-DATE.                 DCUPD60 
00139      MOVE VAL-AREA TO RESP-SYS-DATE.                              DCUPD60 
00140      GO TO CAT-MVC-MSG-CHG.                                       DCUPD60 
00141  RESP-DEL-DATE.                                                   DCUPD60 
00142      IF RESP-SYS-DATE EQUAL TO SPACES                             DCUPD60 
00143          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD60 
00144      MOVE SPACES TO RESP-SYS-DATE.                                DCUPD60 
00145      GO TO CAT-MVC-MSG-DEL.                                       DCUPD60 
00146 ******************************************************            DCUPD60 
00147 *                                                                 DCUPD60 
00148 *     NAME CATEGORY                                               DCUPD60 
00149 *                                                                 DCUPD60 
00150 ******************************************************            DCUPD60 
00151  NAME-EDIT.                                                       DCUPD60 
00152      IF CAT-ID NOT EQUAL TO 200 GO TO REL-EDIT.                   DCUPD60 
00153 *                                                                 DCUPD60 
00154 *     NAME - TASK NAME                                            DCUPD60 
00155 *                                                                 DCUPD60 
00156  NAME-EDIT-TN.                                                    DCUPD60 
00157      IF FIELD-ID NOT EQUAL TO 05 GO TO NAME-EDIT-ID.              DCUPD60 
00158      MOVE NAME-SYS-NAME TO OLD-VALUE.                             DCUPD60 
00159      IF VAL (1) EQUAL TO "$" GO TO NAME-DEL-TN.                   DCUPD60 
00160      MOVE VAL-AREA TO NAME-SYS-NAME.                              DCUPD60 
00161      GO TO CAT-MVC-MSG-CHG.                                       DCUPD60 
00162  NAME-DEL-TN.                                                     DCUPD60 
00163      IF NAME-SYS-NAME EQUAL TO SPACES                             DCUPD60 
00164          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD60 
00165      MOVE SPACES TO NAME-SYS-NAME.                                DCUPD60 
00166      GO TO CAT-MVC-MSG-DEL.                                       DCUPD60 
00167 *                                                                 DCUPD60 
00168 *     NAME - TASK ID                                              DCUPD60 
00169 *                                                                 DCUPD60 
00170  NAME-EDIT-ID.                                                    DCUPD60 
00171      IF FIELD-ID NOT EQUAL TO 10 GO TO FLD-ERR.                   DCUPD60 
00172      MOVE NAME-SYS-ID TO OLD-VALUE.                               DCUPD60 
00173      IF VAL (1) EQUAL TO "$" GO TO NAME-DEL-ID.                   DCUPD60 
00174      MOVE VAL-AREA TO NAME-SYS-ID.                                DCUPD60 
00175      GO TO CAT-MVC-MSG-CHG.                                       DCUPD60 
00176  NAME-DEL-ID.                                                     DCUPD60 
00177      IF NAME-SYS-ID EQUAL TO SPACES                               DCUPD60 
00178          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD60 
00179      MOVE SPACES TO NAME-SYS-ID.                                  DCUPD60 
00180      GO TO CAT-MVC-MSG-DEL.                                       DCUPD60 
00181 *                                                                 DCUPD60 
00182 *****************************************************             DCUPD60 
00183 *                                                                 DCUPD60 
00184 *     RELATIONAL CATEGORY                                         DCUPD60 
00185 *                                                                 DCUPD60 
00186 *****************************************************             DCUPD60 
00187  REL-EDIT.                                                        DCUPD60 
00188      IF CAT-ID NOT EQUAL TO 800 GO TO CAT-ERR.                    DCUPD60 
00189 *                                                                 DCUPD60 
00190 *     RELATIONAL - CAT NAME                                       DCUPD60 
00191 *                                                                 DCUPD60 
00192  REL-EDIT-CN.                                                     DCUPD60 
00193      IF FIELD-ID NOT EQUAL TO 05 GO TO REL-EDIT-PUSE.             DCUPD60 
00194      MOVE REL-SYS-CNAME TO OLD-VALUE.                             DCUPD60 
00195      MOVE REL-SYS-CNAME TO OLD-CATAL-NAME.                           CL**2
00196      IF VAL (1) EQUAL TO "$" GO TO REL-DEL-CN.                    DCUPD60 
00197      PERFORM CK-CATNAME THRU CK-CATNAME-XIT.                      DCUPD60 
00198      MOVE "R" TO TYPE-CATAL-NAME.                                    CL**2
00199      MOVE VAL-AREA TO NEW-CATAL-NAME.                                CL**2
00200      MOVE VAL-AREA TO REL-SYS-CNAME.                              DCUPD60 
00201      GO TO CAT-MVC-MSG-CHG.                                       DCUPD60 
00202  REL-DEL-CN.                                                      DCUPD60 
00203      IF REL-SYS-CNAME EQUAL TO SPACES                                CL**2
00204          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00205      MOVE "R" TO TYPE-CATAL-NAME.                                    CL**2
00206      MOVE SPACES TO REL-SYS-CNAME.                                DCUPD60 
00207      MOVE SPACES TO NEW-CATAL-NAME.                                  CL**2
00208      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00209 *                                                                 DCUPD60 
00210 *     RELATIONAL - PARTIAL USE                                    DCUPD60 
00211 *                                                                 DCUPD60 
00212  REL-EDIT-PUSE.                                                   DCUPD60 
00213      IF FIELD-ID NOT EQUAL TO 10 GO TO REL-EDIT-JOB.              DCUPD60 
00214      MOVE REL-SYS-PUSE TO OLD-VALUE.                              DCUPD60 
00215      IF VAL (1) EQUAL TO "$" GO TO REL-DEL-PUSE.                  DCUPD60 
00216      MOVE PUSE-CODES TO VALID-CODE-TABLE.                            CL**2
00217      PERFORM VALID-CODE THRU VALID-CODE-XIT.                      DCUPD60 
00218      MOVE VAL-AREA TO REL-SYS-PUSE.                               DCUPD60 
00219      GO TO CAT-MVC-MSG-CHG.                                       DCUPD60 
00220  REL-DEL-PUSE.                                                    DCUPD60 
00221      IF REL-SYS-PUSE EQUAL TO SPACES                              DCUPD60 
00222          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD60 
00223      MOVE SPACES TO REL-SYS-PUSE.                                 DCUPD60 
00224      GO TO CAT-MVC-MSG-DEL.                                       DCUPD60 
00225 *                                                                 DCUPD60 
00226 *     RELATIONAL - JOB                                            DCUPD60 
00227 *                                                                 DCUPD60 
00228  REL-EDIT-JOB.                                                    DCUPD60 
00229      IF FIELD-ID NOT EQUAL TO 15 GO TO REL-EDIT-NJOB.             DCUPD60 
00230      MOVE REL-SYS-JOB TO OLD-VALUE.                               DCUPD60 
00231      IF VAL (1) EQUAL TO "$" GO TO REL-DEL-JOB.                   DCUPD60 
00232      MOVE VAL-AREA TO REL-SYS-JOB.                                DCUPD60 
00233      GO TO CAT-MVC-MSG-CHG.                                       DCUPD60 
00234  REL-DEL-JOB.                                                     DCUPD60 
00235      IF REL-SYS-JOB EQUAL TO SPACES                               DCUPD60 
00236          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD60 
00237      MOVE SPACES TO REL-SYS-JOB.                                  DCUPD60 
00238      GO TO CAT-MVC-MSG-DEL.                                       DCUPD60 
00239 *                                                                 DCUPD60 
00240 *     RELATIONAL - NAME OF JOB                                    DCUPD60 
00241 *                                                                 DCUPD60 
00242  REL-EDIT-NJOB.                                                   DCUPD60 
00243      IF FIELD-ID NOT EQUAL TO 20 GO TO FLD-ERR.                   DCUPD60 
00244      MOVE REL-SYS-NAMEJOB TO OLD-VALUE.                           DCUPD60 
00245      IF VAL (1) EQUAL TO "$" GO TO REL-DEL-NJOB.                  DCUPD60 
00246      MOVE VAL-AREA TO REL-SYS-NAMEJOB.                            DCUPD60 
00247      GO TO CAT-MVC-MSG-CHG.                                       DCUPD60 
00248  REL-DEL-NJOB.                                                    DCUPD60 
00249      IF REL-SYS-NAMEJOB EQUAL TO SPACES                           DCUPD60 
00250          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD60 
00251      MOVE SPACES TO REL-SYS-NAMEJOB.                              DCUPD60 
00252      GO TO CAT-MVC-MSG-DEL.                                       DCUPD60 
