*DECK     DCUPD55 
00001  IDENTIFICATION DIVISION.                                         04/10/78
       PROGRAM-ID. UPD55. 
00003 ******************************************************               LV001
00004 *                                                                 DCUPD55 
00005 *     M A N U A L   T A S K   E D I T I N G                       DCUPD55 
00006 *                                                                 DCUPD55 
00007 ******************************************************            DCUPD55 
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION. 
       SOURCE-COMPUTER. CYBER.
       OBJECT-COMPUTER. CYBER.
       DATA DIVISION. 
*CALL UPDCS 
*CALL DCDWA55 
*CALL QUALINE 
*CALL     DCUPDSWS                                                         CL**5
00009  01  CYCLE-CODES          PICTURE X(18) VALUE                        CL**2
00010      "DWMQSAR0123456789/".                                           CL**2
00011  01  IO-CODES              PICTURE X(14) VALUE                       CL**2
00012      "IOB0123456789/".                                               CL**2
00017  PROCEDURE DIVISION.                                                 CL**2
*CALL     DCUPDKW                                                          CL**5
00020 ******************************************************            DCUPD55 
00021 *                                                                 DCUPD55 
00022 *     M A N U A L  T A S K   E N T R Y   E D I T I N G            DCUPD55 
00023 *                                                                 DCUPD55 
00024 ******************************************************            DCUPD55 
00025 *                                                                 DCUPD55 
00026 *                                                                 DCUPD55 
00027 ******************************************************            DCUPD55 
00028 *                                                                 DCUPD55 
00029 *     RESPONSIBILITY CATEGORY                                     DCUPD55 
00030 *                                                                 DCUPD55 
00031 ******************************************************            DCUPD55 
00032  RESP-TSK-EDIT.                                                   DCUPD55 
           MOVE SPACE TO NUM-EDIT.
00033      IF CAT-ID NOT EQUAL TO 140 GO TO NAME-EDIT.                  DCUPD55 
00034 *                                                                 DCUPD55 
00035 *     RESPONSIBILITY - STATUS                                     DCUPD55 
00036 *                                                                 DCUPD55 
00037  RESP-EDIT-STAT.                                                  DCUPD55 
00038      IF FIELD-ID NOT EQUAL TO 05 GO TO RESP-EDIT-FUNC.            DCUPD55 
00039      MOVE RESP-TSK-STATUS TO OLD-VALUE.                           DCUPD55 
00040      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-STAT.                 DCUPD55 
00041      MOVE STAT-CODES TO VALID-CODE-TABLE.                         DCUPD55 
00042      PERFORM VALID-CODE THRU VALID-CODE-XIT.                      DCUPD55 
00043      MOVE VAL-AREA TO RESP-TSK-STATUS.                            DCUPD55 
00044      GO TO CAT-MVC-MSG-CHG.                                       DCUPD55 
00045  RESP-DEL-STAT.                                                   DCUPD55 
00046      IF RESP-TSK-STATUS EQUAL TO SPACES                           DCUPD55 
00047          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD55 
00048      MOVE SPACES TO RESP-TSK-STATUS.                              DCUPD55 
00049      GO TO CAT-MVC-MSG-DEL.                                       DCUPD55 
00050 *                                                                 DCUPD55 
00051 *     RESPONSIBILITY - FUNCTION                                   DCUPD55 
00052 *                                                                 DCUPD55 
00053  RESP-EDIT-FUNC.                                                  DCUPD55 
00054      IF FIELD-ID NOT EQUAL TO 10 GO TO RESP-EDIT-DPT.             DCUPD55 
00055      MOVE RESP-TSK-FUNC TO OLD-VALUE.                             DCUPD55 
00056      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-FUNC.                 DCUPD55 
00057      MOVE FUNC-CODES TO VALID-CODE-TABLE.                         DCUPD55 
00058      PERFORM VALID-CODE THRU VALID-CODE-XIT.                      DCUPD55 
00059      MOVE VAL-AREA TO RESP-TSK-FUNC.                              DCUPD55 
00060      GO TO CAT-MVC-MSG-CHG.                                       DCUPD55 
00061  RESP-DEL-FUNC.                                                   DCUPD55 
00062      IF RESP-TSK-FUNC EQUAL TO SPACES                             DCUPD55 
00063          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD55 
00064      MOVE SPACES TO RESP-TSK-FUNC.                                DCUPD55 
00065      GO TO CAT-MVC-MSG-DEL.                                       DCUPD55 
00066 *                                                                 DCUPD55 
00067 *     RESPOSSIBILITY - DEPT                                       DCUPD55 
00068 *                                                                 DCUPD55 
00069  RESP-EDIT-DPT.                                                   DCUPD55 
00070      IF FIELD-ID NOT EQUAL TO 15 GO TO RESP-EDIT-PER.             DCUPD55 
00071      MOVE RESP-TSK-DEPT TO OLD-VALUE.                             DCUPD55 
00072      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-DPT.                  DCUPD55 
00073      MOVE VAL-AREA TO RESP-TSK-DEPT.                              DCUPD55 
00074      GO TO CAT-MVC-MSG-CHG.                                       DCUPD55 
00075  RESP-DEL-DPT.                                                    DCUPD55 
00076      IF RESP-TSK-DEPT EQUAL TO SPACES                             DCUPD55 
00077          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD55 
00078      MOVE SPACES TO RESP-TSK-DEPT.                                DCUPD55 
00079      GO TO CAT-MVC-MSG-DEL.                                       DCUPD55 
00080 *                                                                 DCUPD55 
00081 *     RESPONSIBILITY - PERSON                                     DCUPD55 
00082 *                                                                 DCUPD55 
00083  RESP-EDIT-PER.                                                   DCUPD55 
00084      IF FIELD-ID NOT EQUAL TO 20 GO TO RESP-EDIT-PHONE.           DCUPD55 
00085      MOVE RESP-TSK-PERSON TO OLD-VALUE.                           DCUPD55 
00086      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-PER.                  DCUPD55 
00087      MOVE VAL-AREA TO RESP-TSK-PERSON.                            DCUPD55 
00088      GO TO CAT-MVC-MSG-CHG.                                       DCUPD55 
00089  RESP-DEL-PER.                                                    DCUPD55 
00090      IF RESP-TSK-PERSON EQUAL TO SPACES                           DCUPD55 
00091          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD55 
00092      MOVE SPACES TO RESP-TSK-PERSON.                              DCUPD55 
00093      GO TO CAT-MVC-MSG-DEL.                                       DCUPD55 
00094 *                                                                 DCUPD55 
00095 *     RESPONSIBILITY - PHONE                                      DCUPD55 
00096 *                                                                    CL**2
00097  RESP-EDIT-PHONE.                                                 DCUPD55 
00098      IF FIELD-ID NOT EQUAL TO 25 GO TO RESP-EDIT-TIT.             DCUPD55 
00099      MOVE RESP-TSK-PHONE TO OLD-VALUE.                            DCUPD55 
00100      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-PHONE.                DCUPD55 
00101      MOVE VAL-AREA TO RESP-TSK-PHONE.                             DCUPD55 
00102      GO TO CAT-MVC-MSG-CHG.                                       DCUPD55 
00103  RESP-DEL-PHONE.                                                  DCUPD55 
00104      IF RESP-TSK-PHONE EQUAL TO SPACES                            DCUPD55 
00105          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD55 
00106      MOVE SPACES TO RESP-TSK-PHONE.                               DCUPD55 
00107      GO TO CAT-MVC-MSG-DEL.                                       DCUPD55 
00108 *                                                                 DCUPD55 
00109 *     RESPONSIBILITY - TITLE                                      DCUPD55 
00110 *                                                                 DCUPD55 
00111  RESP-EDIT-TIT.                                                   DCUPD55 
00112      IF FIELD-ID NOT EQUAL TO 30 GO TO RESP-EDIT-MAIL.            DCUPD55 
00113      MOVE RESP-TSK-TITLE TO OLD-VALUE.                            DCUPD55 
00114      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-TIT.                  DCUPD55 
00115      MOVE VAL-AREA TO RESP-TSK-TITLE.                             DCUPD55 
00116      GO TO CAT-MVC-MSG-CHG.                                       DCUPD55 
00117  RESP-DEL-TIT.                                                    DCUPD55 
00118      IF RESP-TSK-TITLE EQUAL TO SPACES                            DCUPD55 
00119          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD55 
00120      MOVE SPACES TO RESP-TSK-TITLE.                               DCUPD55 
00121      GO TO CAT-MVC-MSG-DEL.                                       DCUPD55 
00122 *                                                                 DCUPD55 
00123 *     RESPONSIBILITY - MAIL                                       DCUPD55 
00124 *                                                                 DCUPD55 
00125  RESP-EDIT-MAIL.                                                  DCUPD55 
00126      IF FIELD-ID NOT EQUAL TO 35 GO TO RESP-EDIT-DATE.            DCUPD55 
00127      MOVE RESP-TSK-MAIL TO OLD-VALUE.                             DCUPD55 
00128      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-MAIL.                 DCUPD55 
00129      MOVE VAL-AREA TO RESP-TSK-MAIL.                              DCUPD55 
00130      GO TO CAT-MVC-MSG-CHG.                                       DCUPD55 
00131  RESP-DEL-MAIL.                                                   DCUPD55 
00132      IF RESP-TSK-MAIL EQUAL TO SPACES                             DCUPD55 
00133          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD55 
00134      MOVE SPACES TO RESP-TSK-MAIL.                                DCUPD55 
00135      GO TO CAT-MVC-MSG-DEL.                                       DCUPD55 
00136 *                                                                 DCUPD55 
00137 *     RESPONSIBILITY - DATE                                       DCUPD55 
00138 *                                                                 DCUPD55 
00139  RESP-EDIT-DATE.                                                  DCUPD55 
00140      IF FIELD-ID NOT EQUAL TO 40 GO TO FLD-ERR.                   DCUPD55 
00141      MOVE RESP-TSK-DATE TO OLD-VALUE.                             DCUPD55 
00142      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-DATE.                 DCUPD55 
00143      MOVE VAL-AREA TO RESP-TSK-DATE.                              DCUPD55 
00144      GO TO CAT-MVC-MSG-CHG.                                       DCUPD55 
00145  RESP-DEL-DATE.                                                   DCUPD55 
00146      IF RESP-TSK-DATE EQUAL TO SPACES                             DCUPD55 
00147          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD55 
00148      MOVE SPACES TO RESP-TSK-DATE.                                DCUPD55 
00149      GO TO CAT-MVC-MSG-DEL.                                       DCUPD55 
00150 ******************************************************            DCUPD55 
00151 *                                                                 DCUPD55 
00152 *     NAME CATEGORY                                               DCUPD55 
00153 *                                                                 DCUPD55 
00154 ******************************************************            DCUPD55 
00155  NAME-EDIT.                                                       DCUPD55 
00156      IF CAT-ID NOT EQUAL TO 200 GO TO SCH-EDIT.                   DCUPD55 
00157 *                                                                 DCUPD55 
00158 *     NAME - TASK NAME                                            DCUPD55 
00159 *                                                                 DCUPD55 
00160  NAME-EDIT-TN.                                                    DCUPD55 
00161      IF FIELD-ID NOT EQUAL TO 05 GO TO NAME-EDIT-ID.              DCUPD55 
00162      MOVE NAME-TSK-NAME TO OLD-VALUE.                             DCUPD55 
00163      IF VAL (1) EQUAL TO "$" GO TO NAME-DEL-TN.                   DCUPD55 
00164      MOVE VAL-AREA TO NAME-TSK-NAME.                              DCUPD55 
00165      GO TO CAT-MVC-MSG-CHG.                                       DCUPD55 
00166  NAME-DEL-TN.                                                     DCUPD55 
00167      IF NAME-TSK-NAME EQUAL TO SPACES                             DCUPD55 
00168          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD55 
00169      MOVE SPACES TO NAME-TSK-NAME.                                DCUPD55 
00170      GO TO CAT-MVC-MSG-DEL.                                       DCUPD55 
00171 *                                                                 DCUPD55 
00172 *     NAME - TASK ID                                              DCUPD55 
00173 *                                                                 DCUPD55 
00174  NAME-EDIT-ID.                                                    DCUPD55 
00175      IF FIELD-ID NOT EQUAL TO 10 GO TO FLD-ERR.                   DCUPD55 
00176      MOVE NAME-TSK-ID TO OLD-VALUE.                               DCUPD55 
00177      IF VAL (1) EQUAL TO "$" GO TO NAME-DEL-ID.                   DCUPD55 
00178      MOVE VAL-AREA TO NAME-TSK-ID.                                DCUPD55 
00179      GO TO CAT-MVC-MSG-CHG.                                       DCUPD55 
00180  NAME-DEL-ID.                                                     DCUPD55 
00181      IF NAME-TSK-ID EQUAL TO SPACES                               DCUPD55 
00182          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD55 
00183      MOVE SPACES TO NAME-TSK-ID.                                  DCUPD55 
00184      GO TO CAT-MVC-MSG-DEL.                                       DCUPD55 
00185 ******************************************************            DCUPD55 
00186 *                                                                 DCUPD55 
00187 *     SCHEDULLING CATEGORY                                        DCUPD55 
00188 *                                                                 DCUPD55 
00189 ******************************************************            DCUPD55 
00190  SCH-EDIT.                                                           CL**2
00191      IF CAT-ID NOT EQUAL TO 280 GO TO REL-EDIT.                      CL**2
00192 *                                                                 DCUPD55 
00193 *     SCHEDULLING - NORM START                                    DCUPD55 
00194 *                                                                 DCUPD55 
00195  SCH-EDIT-NSTRT.                                                  DCUPD55 
00196      IF FIELD-ID NOT EQUAL TO 05 GO TO SCH-EDIT-NSTOP.            DCUPD55 
00197      MOVE SCHLD-TSK-NORM-START TO OLD-VALUE.                      DCUPD55 
00198      IF VAL (1) EQUAL TO "$" GO TO SCH-DEL-NSTRT.                 DCUPD55 
00199      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                         DCUPD55 
           MOVE NUM-HOLD-X TO SCHLD-TSK-NORM-START. 
00202      GO TO CAT-MVC-MSG-CHG.                                       DCUPD55 
00203  SCH-DEL-NSTRT.                                                   DCUPD55 
00204      IF SCHLD-TSK-NORM-START EQUAL TO SPACES                      DCUPD55 
00205          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD55 
00206      MOVE SPACES TO SCHLD-TSK-NORM-START.                         DCUPD55 
00207      GO TO CAT-MVC-MSG-DEL.                                       DCUPD55 
00208 *                                                                 DCUPD55 
00209 *     SCHEDULLING - NORM STOP                                     DCUPD55 
00210 *                                                                 DCUPD55 
00211  SCH-EDIT-NSTOP.                                                  DCUPD55 
00212      IF FIELD-ID NOT EQUAL TO 10 GO TO SCH-EDIT-NDAY.             DCUPD55 
00213      MOVE SCHLD-TSK-NORM-STOP TO OLD-VALUE.                       DCUPD55 
00214      IF VAL (1) EQUAL TO "$" GO TO SCH-DEL-NSTOP.                 DCUPD55 
00215      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                         DCUPD55 
           MOVE NUM-HOLD-X TO SCHLD-TSK-NORM-STOP.
00218      GO TO CAT-MVC-MSG-CHG.                                       DCUPD55 
00219  SCH-DEL-NSTOP.                                                   DCUPD55 
00220      IF SCHLD-TSK-NORM-STOP EQUAL TO SPACES                       DCUPD55 
00221          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD55 
00222      MOVE SPACES TO SCHLD-TSK-NORM-STOP.                             CL**2
00223      GO TO CAT-MVC-MSG-DEL.                                       DCUPD55 
00224 *                                                                 DCUPD55 
00225 *     SCHOSSIBILITY - NORM DAY                                    DCUPD55 
00226 *                                                                 DCUPD55 
00227  SCH-EDIT-NDAY.                                                   DCUPD55 
00228      IF FIELD-ID NOT EQUAL TO 15 GO TO SCH-EDIT-DSTRT.               CL**2
00229      MOVE SCHLD-TSK-NORM-DAY TO OLD-VALUE.                        DCUPD55 
00230      IF VAL (1) EQUAL TO "$" GO TO SCH-DEL-NDAY.                  DCUPD55 
00231      MOVE VAL-AREA TO SCHLD-TSK-NORM-DAY.                         DCUPD55 
00232      GO TO CAT-MVC-MSG-CHG.                                       DCUPD55 
00233  SCH-DEL-NDAY.                                                    DCUPD55 
00234      IF SCHLD-TSK-NORM-DAY EQUAL TO SPACES                        DCUPD55 
00235          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD55 
00236      MOVE SPACES TO SCHLD-TSK-NORM-DAY.                           DCUPD55 
00237      GO TO CAT-MVC-MSG-DEL.                                       DCUPD55 
00238 *                                                                 DCUPD55 
00239 *     SCHEDULLING - DEAD START                                    DCUPD55 
00240 *                                                                 DCUPD55 
00241  SCH-EDIT-DSTRT.                                                  DCUPD55 
00242      IF FIELD-ID NOT EQUAL TO 20 GO TO SCH-EDIT-DSTOP.            DCUPD55 
00243      MOVE SCHLD-TSK-DEAD-START TO OLD-VALUE.                      DCUPD55 
00244      IF VAL (1) EQUAL TO "$" GO TO SCH-DEL-DSTRT.                 DCUPD55 
00245      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                         DCUPD55 
           MOVE NUM-HOLD-X TO SCHLD-TSK-DEAD-START. 
00248      GO TO CAT-MVC-MSG-CHG.                                       DCUPD55 
00249  SCH-DEL-DSTRT.                                                   DCUPD55 
00250      IF SCHLD-TSK-DEAD-START EQUAL TO SPACES                      DCUPD55 
00251          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD55 
00252      MOVE SPACES TO SCHLD-TSK-DEAD-START.                         DCUPD55 
00253      GO TO CAT-MVC-MSG-DEL.                                       DCUPD55 
00254 *                                                                 DCUPD55 
00255 *     SCHEDULLING - DEAD STOP                                     DCUPD55 
00256 *                                                                 DCUPD55 
00257  SCH-EDIT-DSTOP.                                                  DCUPD55 
00258      IF FIELD-ID NOT EQUAL TO 25 GO TO SCH-EDIT-DDAY.             DCUPD55 
00259      MOVE SCHLD-TSK-DEAD-STOP TO OLD-VALUE.                       DCUPD55 
00260      IF VAL (1) EQUAL TO "$" GO TO SCH-DEL-DSTOP.                 DCUPD55 
00261      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                         DCUPD55 
           MOVE NUM-HOLD-X TO SCHLD-TSK-DEAD-STOP.
00264      GO TO CAT-MVC-MSG-CHG.                                       DCUPD55 
00265  SCH-DEL-DSTOP.                                                   DCUPD55 
00266      IF SCHLD-TSK-DEAD-STOP EQUAL TO SPACES                       DCUPD55 
00267          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD55 
00268      MOVE SPACES TO SCHLD-TSK-DEAD-STOP.                             CL**2
00269      GO TO CAT-MVC-MSG-DEL.                                       DCUPD55 
00270 *                                                                 DCUPD55 
00271 *     SCHOSSIBILITY - DEAD DAY                                    DCUPD55 
00272 *                                                                 DCUPD55 
00273  SCH-EDIT-DDAY.                                                   DCUPD55 
00274      IF FIELD-ID NOT EQUAL TO 30 GO TO SCH-EDIT-CYCLE.            DCUPD55 
00275      MOVE SCHLD-TSK-DEAD-DAY TO OLD-VALUE.                        DCUPD55 
00276      IF VAL (1) EQUAL TO "$" GO TO SCH-DEL-DDAY.                  DCUPD55:  
00277      MOVE VAL-AREA TO SCHLD-TSK-DEAD-DAY.                         DCUPD55 
00278      GO TO CAT-MVC-MSG-CHG.                                       DCUPD55 
00279  SCH-DEL-DDAY.                                                    DCUPD55 
00280      IF SCHLD-TSK-DEAD-DAY EQUAL TO SPACES                        DCUPD55 
00281          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD55 
00282      MOVE SPACES TO SCHLD-TSK-DEAD-DAY.                           DCUPD55 
00283      GO TO CAT-MVC-MSG-DEL.                                       DCUPD55 
00284 *                                                                 DCUPD55 
00285 *     SCHEDULLING - CYCLE                                         DCUPD55 
00286 *                                                                 DCUPD55 
00287  SCH-EDIT-CYCLE.                                                  DCUPD55 
00288      IF FIELD-ID NOT EQUAL TO 35 GO TO SCH-EDIT-PPRG.             DCUPD55 
00289      MOVE SCHLD-TSK-CYCLE TO OLD-VALUE.                           DCUPD55 
00290      IF VAL (1) EQUAL TO "$" GO TO SCH-DEL-CYCLE.                 DCUPD55 
00291      MOVE CYCLE-CODES TO VALID-CODE-TABLE.                           CL**2
00292      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00293      MOVE VAL-AREA TO SCHLD-TSK-CYCLE.                            DCUPD55 
00294      GO TO CAT-MVC-MSG-CHG.                                       DCUPD55 
00295  SCH-DEL-CYCLE.                                                   DCUPD55 
00296      IF SCHLD-TSK-CYCLE EQUAL TO SPACES                           DCUPD55 
00297          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD55 
00298      MOVE SPACES TO SCHLD-TSK-CYCLE.                              DCUPD55 
00299      GO TO CAT-MVC-MSG-DEL.                                       DCUPD55 
00300 *                                                                 DCUPD55 
00301 *     SCHEDULLING - PROCEDING PROGRAM                             DCUPD55 
00302 *                                                                 DCUPD55 
00303  SCH-EDIT-PPRG.                                                   DCUPD55 
00304      IF FIELD-ID NOT EQUAL TO 40 GO TO FLD-ERR.                   DCUPD55 
00305      MOVE SCHLD-TSK-PROCED-PROG TO OLD-VALUE.                     DCUPD55 
00306      IF VAL (1) EQUAL TO "$" GO TO SCH-DEL-PPRG.                  DCUPD55 
00307      MOVE VAL-AREA TO SCHLD-TSK-PROCED-PROG.                      DCUPD55 
00308      GO TO CAT-MVC-MSG-CHG.                                       DCUPD55 
00309  SCH-DEL-PPRG.                                                    DCUPD55 
00310      IF SCHLD-TSK-PROCED-PROG EQUAL TO SPACES                     DCUPD55 
00311          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD55 
00312      MOVE SPACES TO SCHLD-TSK-PROCED-PROG.                        DCUPD55 
00313      GO TO CAT-MVC-MSG-DEL.                                       DCUPD55 
00314 *                                                                 DCUPD55 
00315 *****************************************************             DCUPD55 
00316 *                                                                 DCUPD55 
00317 *     RELATIONAL CATEGORY                                         DCUPD55 
00318 *                                                                 DCUPD55 
00319 *****************************************************             DCUPD55 
00320  REL-EDIT.                                                        DCUPD55 
00321      IF CAT-ID NOT EQUAL TO 800 GO TO CAT-ERR.                    DCUPD55 
00322 *                                                                 DCUPD55 
00323 *     RELATIONAL - CAT NAME                                       DCUPD55 
00324 *                                                                 DCUPD55 
00325  REL-EDIT-CN.                                                     DCUPD55 
00326      IF FIELD-ID NOT EQUAL TO 05 GO TO REL-EDIT-PUSE.             DCUPD55 
00327      MOVE REL-TSK-CNAME TO OLD-VALUE.                             DCUPD55 
00328      MOVE REL-TSK-CNAME TO OLD-CATAL-NAME.                           CL**2
00329      IF VAL (1) EQUAL TO "$" GO TO REL-DEL-CN.                    DCUPD55 
00330      PERFORM CK-CATNAME THRU CK-CATNAME-XIT.                      DCUPD55 
00331      MOVE "R" TO TYPE-CATAL-NAME.                                    CL**2
00332      MOVE VAL-AREA TO NEW-CATAL-NAME.                                CL**2
00333      MOVE VAL-AREA TO REL-TSK-CNAME.                              DCUPD55 
00334      GO TO CAT-MVC-MSG-CHG.                                       DCUPD55 
00335  REL-DEL-CN.                                                      DCUPD55 
00336      IF REL-TSK-CNAME EQUAL TO SPACES                             DCUPD55 
00337          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD55 
00338      MOVE "R" TO TYPE-CATAL-NAME.                                    CL**2
00339      MOVE SPACES TO REL-TSK-CNAME.                                DCUPD55 
00340      MOVE SPACES TO NEW-CATAL-NAME.                                  CL**2
00341      GO TO CAT-MVC-MSG-DEL.                                       DCUPD55 
00342 *                                                                 DCUPD55 
00343 *     RELATIONAL - PARTIAL USE                                    DCUPD55 
00344 *                                                                 DCUPD55 
00345  REL-EDIT-PUSE.                                                   DCUPD55 
00346      IF FIELD-ID NOT EQUAL TO 10 GO TO REL-EDIT-IO.               DCUPD55 
00347      MOVE REL-TSK-PUSE TO OLD-VALUE.                              DCUPD55 
00348      IF VAL (1) EQUAL TO "$" GO TO REL-DEL-PUSE.                  DCUPD55 
00349      MOVE PUSE-CODES TO VALID-CODE-TABLE.                            CL**2
00350      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00351      MOVE VAL-AREA TO REL-TSK-PUSE.                               DCUPD55 
00352      GO TO CAT-MVC-MSG-CHG.                                       DCUPD55 
00353  REL-DEL-PUSE.                                                    DCUPD55 
00354      IF REL-TSK-PUSE EQUAL TO SPACES                              DCUPD55 
00355          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD55 
00356      MOVE SPACES TO REL-TSK-PUSE.                                 DCUPD55 
00357      GO TO CAT-MVC-MSG-DEL.                                       DCUPD55 
00358 *                                                                 DCUPD55 
00359 *     RELATIONAL - IO                                             DCUPD55 
00360 *                                                                 DCUPD55 
00361  REL-EDIT-IO.                                                     DCUPD55 
00362      IF FIELD-ID NOT EQUAL TO 15 GO TO REL-EDIT-CYC.              DCUPD55 
00363      MOVE REL-TSK-IO TO OLD-VALUE.                                DCUPD55 
00364      IF VAL (1) EQUAL TO "$" GO TO REL-DEL-IO.                    DCUPD55 
00365      MOVE IO-CODES TO VALID-CODE-TABLE.                           DCUPD55 
00366      PERFORM VALID-CODE THRU VALID-CODE-XIT.                      DCUPD55 
00367      MOVE VAL-AREA TO REL-TSK-IO.                                 DCUPD55 
00368      GO TO CAT-MVC-MSG-CHG.                                       DCUPD55 
00369  REL-DEL-IO.                                                      DCUPD55 
00370      IF REL-TSK-IO EQUAL TO SPACES                                DCUPD55 
00371          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD55 
00372      MOVE SPACES TO REL-TSK-IO.                                   DCUPD55 
00373      GO TO CAT-MVC-MSG-DEL.                                       DCUPD55 
00374 *                                                                 DCUPD55 
00375 *     RELATIONAL - CYCLE                                          DCUPD55 
00376 *                                                                 DCUPD55 
00377  REL-EDIT-CYC.                                                       CL**2
00378      IF FIELD-ID NOT EQUAL TO 20 GO TO FLD-ERR.                   DCUPD55 
00379      MOVE REL-TSK-CYCLE TO OLD-VALUE.                                CL**2
00380      IF VAL (1) EQUAL TO "$" GO TO REL-DEL-CYC.                      CL**2
00381      MOVE CYCLE-CODES TO VALID-CODE-TABLE.                           CL**2
00382      PERFORM VALID-CODE THRU VALID-CODE-XIT.                      DCUPD55 
00383      MOVE VAL-AREA TO REL-TSK-CYCLE.                                 CL**2
00384      GO TO CAT-MVC-MSG-CHG.                                       DCUPD55 
00385  REL-DEL-CYC.                                                     DCUPD55 
00386      IF REL-TSK-CYCLE EQUAL TO SPACES                                CL**2
00387          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD55 
00388      MOVE SPACES TO REL-TSK-CYCLE.                                   CL**2
00389      GO TO CAT-MVC-MSG-DEL.                                       DCUPD55 
