*DECK     DCUPD50 
00001  IDENTIFICATION DIVISION.                                         04/25/78
       PROGRAM-ID. UPD50. 
00003 ******************************************************               LV001
00004 *                                                                 DCUPD50 
00005 *     P R O G R A M   E N T R Y   E D I T I N G                   DCUPD50 
00006 *                                                                 DCUPD50 
00007 ******************************************************            DCUPD50 
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION. 
       SOURCE-COMPUTER. CYBER.
       OBJECT-COMPUTER. CYBER.
       DATA DIVISION. 
*CALL UPDCS 
*CALL DCDWA50 
*CALL QUALINE 
*CALL     DCUPDSWS                                                         CL**5
00009  01  LANG-CODES            PICTURE X(17) VALUE                       CL**2
00010      "ACFMPR0123456789/".                                            CL**2
00011  01  TYPE-CODES            PICTURE X(13) VALUE                       CL**2
00012      "BT0123456789/".                                                CL**2
00013  01  OVLY-CODES            PICTURE X(13) VALUE                       CL**2
00014      "YN0123456789/".                                                CL**2
00015  01  SEG-CODES             PICTURE X(13) VALUE                       CL**2
00016      "YN0123456789/".                                                CL**2
00017  01  CALL-CODES            PICTURE X(13) VALUE                       CL**2
00018      "ER0123456789/".                                                CL**2
00019  01  STORE-CODES           PICTURE X(17) VALUE                       CL**2
00020      "LOPRSC0123456789/".                                            CL**2
00021  01  SIZE-CODES            PICTURE X(17) VALUE                       CL**2
00022      "BCKPRT0123456789/".                                            CL**2
00023  01  ACC-CODES             PICTURE X(16) VALUE                       CL**2
00024      "ACDRU0123456789/".                                             CL**2
00025  01  IO-CODES              PICTURE X(14) VALUE                       CL**2
00026      "IOB0123456789/".                                               CL**2
00027  01  CYCLE-CODES            PICTURE X(18) VALUE                      CL**2
00028      "DWMQSAR0123456789/".                                           CL**2
00029  01  SML-TIME-CODES      PICTURE X(14) VALUE                         CL**2
00030      "HMS0123456789/".                                               CL**2
00035  PROCEDURE DIVISION.                                                 CL**2
*CALL     DCUPDKW                                                          CL**5
00038 ******************************************************            DCUPD50 
00039 *                                                                 DCUPD50 
00040 *     P R O G R A M   E N T R Y                                   DCUPD50 
00041 *                                                                 DCUPD50 
00042 ******************************************************            DCUPD50 
00043 *                                                                 DCUPD50 
00044 *                                                                 DCUPD50 
00045 ******************************************************            DCUPD50 
00046 *                                                                 DCUPD50 
00047 *     RESPONSIBILITY CATEGORY                                     DCUPD50 
00048 *                                                                 DCUPD50 
00049 ******************************************************            DCUPD50 
00050  RESP-PRG-EDIT.                                                   DCUPD50 
           MOVE SPACE TO NUM-EDIT.
00051      IF CAT-ID NOT EQUAL TO 140 GO TO NAME-EDIT.                  DCUPD50 
00052 *                                                                 DCUPD50 
00053 *     RESPONSIBILITY - STATUS                                     DCUPD50 
00054 *                                                                 DCUPD50 
00055  RESP-EDIT-STAT.                                                  DCUPD50 
00056      IF FIELD-ID NOT EQUAL TO 05 GO TO RESP-EDIT-FUNC.            DCUPD50 
00057      MOVE RESP-PRG-STATUS TO OLD-VALUE.                           DCUPD50 
00058      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-STAT.                 DCUPD50 
00059      MOVE STAT-CODES TO VALID-CODE-TABLE.                         DCUPD50 
00060      PERFORM VALID-CODE THRU VALID-CODE-XIT.                      DCUPD50 
00061      MOVE VAL-AREA TO RESP-PRG-STATUS.                            DCUPD50 
00062      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00063  RESP-DEL-STAT.                                                   DCUPD50 
00064      IF RESP-PRG-STATUS EQUAL TO SPACES                           DCUPD50 
00065          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00066      MOVE SPACES TO RESP-PRG-STATUS.                              DCUPD50 
00067      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00068 *                                                                 DCUPD50 
00069 *     RESPONSIBILITY - FUNCTION                                   DCUPD50 
00070 *                                                                 DCUPD50 
00071  RESP-EDIT-FUNC.                                                  DCUPD50 
00072      IF FIELD-ID NOT EQUAL TO 10 GO TO RESP-EDIT-DPT.             DCUPD50 
00073      MOVE RESP-PRG-FUNC TO OLD-VALUE.                             DCUPD50 
00074      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-FUNC.                 DCUPD50 
00075      MOVE FUNC-CODES TO VALID-CODE-TABLE.                         DCUPD50 
00076      PERFORM VALID-CODE THRU VALID-CODE-XIT.                      DCUPD50 
00077      MOVE VAL-AREA TO RESP-PRG-FUNC.                              DCUPD50 
00078      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00079  RESP-DEL-FUNC.                                                   DCUPD50 
00080      IF RESP-PRG-FUNC EQUAL TO SPACES                             DCUPD50 
00081          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00082      MOVE SPACES TO RESP-PRG-FUNC.                                DCUPD50 
00083      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00084 *                                                                 DCUPD50 
00085 *     RESPONSIBILITY - DEPT                                       DCUPD50 
00086 *                                                                 DCUPD50 
00087  RESP-EDIT-DPT.                                                   DCUPD50 
00088      IF FIELD-ID NOT EQUAL TO 15 GO TO RESP-EDIT-PER.             DCUPD50 
00089      MOVE RESP-PRG-DEPT TO OLD-VALUE.                             DCUPD50 
00090      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-DPT.                  DCUPD50 
00091      MOVE VAL-AREA TO RESP-PRG-DEPT.                              DCUPD50 
00092      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00093  RESP-DEL-DPT.                                                    DCUPD50 
00094      IF RESP-PRG-DEPT EQUAL TO SPACES                             DCUPD50 
00095          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00096      MOVE SPACES TO RESP-PRG-DEPT.                                DCUPD50 
00097      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00098 *                                                                 DCUPD50 
00099 *     RESPONSIBILITY - PERSON                                     DCUPD50 
00100 *                                                                 DCUPD50 
00101  RESP-EDIT-PER.                                                   DCUPD50 
00102      IF FIELD-ID NOT EQUAL TO 20 GO TO RESP-EDIT-PHONE.           DCUPD50 
00103      MOVE RESP-PRG-PERSON TO OLD-VALUE.                           DCUPD50 
00104      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-PER.                  DCUPD50 
00105      MOVE VAL-AREA TO RESP-PRG-PERSON.                            DCUPD50 
00106      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00107  RESP-DEL-PER.                                                    DCUPD50 
00108      IF RESP-PRG-PERSON EQUAL TO SPACES                           DCUPD50 
00109          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00110      MOVE SPACES TO RESP-PRG-PERSON.                              DCUPD50 
00111      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00112 *                                                                 DCUPD50 
00113 *     RESPONSIBILITY - PHONE                                      DCUPD50 
00114 *                                                                    CL**2
00115  RESP-EDIT-PHONE.                                                 DCUPD50 
00116      IF FIELD-ID NOT EQUAL TO 25 GO TO RESP-EDIT-TIT.             DCUPD50 
00117      MOVE RESP-PRG-PHONE TO OLD-VALUE.                            DCUPD50 
00118      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-PHONE.                DCUPD50 
00119      MOVE VAL-AREA TO RESP-PRG-PHONE.                             DCUPD50 
00120      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00121  RESP-DEL-PHONE.                                                  DCUPD50 
00122      IF RESP-PRG-PHONE EQUAL TO SPACES                            DCUPD50 
00123          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00124      MOVE SPACES TO RESP-PRG-PHONE.                               DCUPD50 
00125      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00126 *                                                                 DCUPD50 
00127 *     RESPONSIBILITY - TITLE                                      DCUPD50 
00128 *                                                                 DCUPD50 
00129  RESP-EDIT-TIT.                                                   DCUPD50 
00130      IF FIELD-ID NOT EQUAL TO 30 GO TO RESP-EDIT-MAIL.            DCUPD50 
00131      MOVE RESP-PRG-TITLE TO OLD-VALUE.                            DCUPD50 
00132      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-TIT.                  DCUPD50 
00133      MOVE VAL-AREA TO RESP-PRG-TITLE.                             DCUPD50 
00134      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00135  RESP-DEL-TIT.                                                    DCUPD50 
00136      IF RESP-PRG-TITLE EQUAL TO SPACES                            DCUPD50 
00137          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00138      MOVE SPACES TO RESP-PRG-TITLE.                               DCUPD50 
00139      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00140 *                                                                 DCUPD50 
00141 *     RESPONSIBILITY - MAIL                                       DCUPD50 
00142 *                                                                 DCUPD50 
00143  RESP-EDIT-MAIL.                                                  DCUPD50 
00144      IF FIELD-ID NOT EQUAL TO 35 GO TO RESP-EDIT-DATE.            DCUPD50 
00145      MOVE RESP-PRG-MAIL TO OLD-VALUE.                             DCUPD50 
00146      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-MAIL.                 DCUPD50 
00147      MOVE VAL-AREA TO RESP-PRG-MAIL.                              DCUPD50 
00148      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00149  RESP-DEL-MAIL.                                                   DCUPD50 
00150      IF RESP-PRG-MAIL EQUAL TO SPACES                             DCUPD50 
00151          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00152      MOVE SPACES TO RESP-PRG-MAIL.                                DCUPD50 
00153      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00154 *                                                                 DCUPD50 
00155 *     RESPONSIBILITY - DATE                                       DCUPD50 
00156 *                                                                 DCUPD50 
00157  RESP-EDIT-DATE.                                                  DCUPD50 
00158      IF FIELD-ID NOT EQUAL TO 40 GO TO FLD-ERR.                   DCUPD50 
00159      MOVE RESP-PRG-DATE TO OLD-VALUE.                             DCUPD50 
00160      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-DATE.                 DCUPD50 
00161      MOVE VAL-AREA TO RESP-PRG-DATE.                              DCUPD50 
00162      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00163  RESP-DEL-DATE.                                                   DCUPD50 
00164      IF RESP-PRG-DATE EQUAL TO SPACES                             DCUPD50 
00165          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00166      MOVE SPACES TO RESP-PRG-DATE.                                DCUPD50 
00167      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00168 ******************************************************            DCUPD50 
00169 *                                                                 DCUPD50 
00170 *     NAME CATEGORY                                               DCUPD50 
00171 *                                                                 DCUPD50 
00172 ******************************************************            DCUPD50 
00173  NAME-EDIT.                                                       DCUPD50 
00174      IF CAT-ID NOT EQUAL TO 200 GO TO ATTR-EDIT.                  DCUPD50 
00175 *                                                                 DCUPD50 
00176 *     NAME - PROG NAME                                            DCUPD50 
00177 *                                                                 DCUPD50 
00178  NAME-EDIT-TN.                                                    DCUPD50 
00179      IF FIELD-ID NOT EQUAL TO 05 GO TO NAME-EDIT-MODID.           DCUPD50 
00180      MOVE NAME-PRG-NAME TO OLD-VALUE.                             DCUPD50 
00181      IF VAL (1) EQUAL TO "$" GO TO NAME-DEL-TN.                   DCUPD50 
00182      MOVE VAL-AREA TO NAME-PRG-NAME.                              DCUPD50 
00183      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00184  NAME-DEL-TN.                                                     DCUPD50 
00185      IF NAME-PRG-NAME EQUAL TO SPACES                             DCUPD50 
00186          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00187      MOVE SPACES TO NAME-PRG-NAME.                                DCUPD50 
00188      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00189 *                                                                 DCUPD50 
00190 *     NAME - PROG ID                                              DCUPD50 
00191 *                                                                 DCUPD50 
00192  NAME-EDIT-MODID.                                                 DCUPD50 
00193      IF FIELD-ID NOT EQUAL TO 10 GO TO FLD-ERR.                      CL**2
00194      MOVE NAME-PRG-MODID TO OLD-VALUE.                            DCUPD50 
00195      IF VAL (1) EQUAL TO "$" GO TO NAME-DEL-MODID.                DCUPD50 
00196      MOVE VAL-AREA TO NAME-PRG-MODID.                             DCUPD50 
00197      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00198  NAME-DEL-MODID.                                                  DCUPD50 
00199      IF NAME-PRG-MODID EQUAL TO SPACES                            DCUPD50 
00200          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00201      MOVE SPACES TO NAME-PRG-MODID.                               DCUPD50 
00202      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00203 ******************************************************            DCUPD50 
00204 *                                                                 DCUPD50 
00205 *     ATTRIBUTE CATEGORY                                          DCUPD50 
00206 *                                                                 DCUPD50 
00207 ******************************************************            DCUPD50 
00208  ATTR-EDIT.                                                       DCUPD50 
00209      IF CAT-ID NOT EQUAL TO 210 GO TO STORE-EDIT.                    CL**2
00210 *                                                                 DCUPD50 
00211 *     ATTRIBUTE - LANG NAME                                       DCUPD50 
00212 *                                                                 DCUPD50 
00213  ATTR-EDIT-LANG.                                                  DCUPD50 
00214      IF FIELD-ID NOT EQUAL TO 05 GO TO ATTR-EDIT-TYPE.            DCUPD50 
00215      MOVE ATTR-PRG-LANG TO OLD-VALUE.                             DCUPD50 
00216      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-LANG.                 DCUPD50 
00217      MOVE LANG-CODES TO VALID-CODE-TABLE.                         DCUPD50 
00218      PERFORM VALID-CODE THRU VALID-CODE-XIT.                      DCUPD50 
00219      MOVE VAL (1) TO ATTR-PRG-LANG.                               DCUPD50 
00220      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00221  ATTR-DEL-LANG.                                                   DCUPD50 
00222      IF ATTR-PRG-LANG EQUAL TO SPACES                             DCUPD50 
00223          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00224      MOVE SPACES TO ATTR-PRG-LANG.                                DCUPD50 
00225      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00226 *                                                                 DCUPD50 
00227 *     ATTRIBUTE - PRG-TYPE                                        DCUPD50 
00228 *                                                                 DCUPD50 
00229  ATTR-EDIT-TYPE.                                                  DCUPD50 
00230      IF FIELD-ID NOT EQUAL TO 10 GO TO ATTR-EDIT-OVLY.            DCUPD50 
00231      MOVE ATTR-PRG-TYPE TO OLD-VALUE.                             DCUPD50 
00232      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-TYPE.                 DCUPD50 
00233      MOVE TYPE-CODES TO VALID-CODE-TABLE.                         DCUPD50 
00234      PERFORM VALID-CODE THRU VALID-CODE-XIT.                      DCUPD50 
00235      MOVE VAL-AREA TO ATTR-PRG-TYPE.                              DCUPD50 
00236      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00237  ATTR-DEL-TYPE.                                                   DCUPD50 
00238      IF ATTR-PRG-TYPE EQUAL TO SPACES                             DCUPD50 
00239          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00240      MOVE SPACES TO ATTR-PRG-TYPE.                                DCUPD50 
00241      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00242 *                                                                 DCUPD50 
00243 *     ATTRIBUTE - OVLY                                            DCUPD50 
00244 *                                                                 DCUPD50 
00245  ATTR-EDIT-OVLY.                                                  DCUPD50 
00246      IF FIELD-ID NOT EQUAL TO 15 GO TO ATTR-EDIT-SEG.             DCUPD50 
00247      MOVE ATTR-PRG-OVLY TO OLD-VALUE.                             DCUPD50 
00248      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-OVLY.                 DCUPD50 
00249      MOVE OVLY-CODES TO VALID-CODE-TABLE.                         DCUPD50 
00250      PERFORM VALID-CODE THRU VALID-CODE-XIT.                      DCUPD50 
00251      MOVE VAL-AREA TO ATTR-PRG-OVLY.                              DCUPD50 
00252      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00253  ATTR-DEL-OVLY.                                                   DCUPD50 
00254      IF ATTR-PRG-OVLY EQUAL TO SPACES                             DCUPD50 
00255          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00256      MOVE SPACES TO ATTR-PRG-OVLY.                                DCUPD50 
00257      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00258 *                                                                 DCUPD50 
00259 *     ATTRIBUTE - SEGMENTED                                       DCUPD50 
00260 *                                                                 DCUPD50 
00261  ATTR-EDIT-SEG.                                                   DCUPD50 
00262      IF FIELD-ID NOT EQUAL TO 20 GO TO ATTR-EDIT-CTYP.            DCUPD50 
00263      MOVE ATTR-PRG-SEG TO OLD-VALUE.                              DCUPD50 
00264      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-SEG.                  DCUPD50 
00265      MOVE SEG-CODES TO VALID-CODE-TABLE.                          DCUPD50 
00266      PERFORM VALID-CODE THRU VALID-CODE-XIT.                      DCUPD50 
00267      MOVE VAL-AREA TO ATTR-PRG-SEG.                               DCUPD50 
00268      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00269  ATTR-DEL-SEG.                                                    DCUPD50 
00270      IF ATTR-PRG-SEG EQUAL TO SPACES                              DCUPD50 
00271          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00272      MOVE SPACES TO ATTR-PRG-SEG.                                 DCUPD50 
00273      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00274 *                                                                 DCUPD50 
00275 *     ATTRIBUTE - CALL TYPE                                       DCUPD50 
00276 *                                                                 DCUPD50 
00277  ATTR-EDIT-CTYP.                                                  DCUPD50 
00278      IF FIELD-ID NOT EQUAL TO 25 GO TO FLD-ERR.                      CL**2
00279      MOVE ATTR-PRG-CALLTYP TO OLD-VALUE.                          DCUPD50 
00280      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-CTYP.                 DCUPD50 
00281       MOVE CALL-CODES TO VALID-CODE-TABLE.                        DCUPD50 
00282       PERFORM VALID-CODE THRU VALID-CODE-XIT.                     DCUPD50 
00283       MOVE VAL (1) TO ATTR-PRG-CALLTYP.                           DCUPD50 
00284      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00285  ATTR-DEL-CTYP.                                                   DCUPD50 
00286      IF ATTR-PRG-CALLTYP EQUAL TO SPACES                          DCUPD50 
00287          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00288      MOVE SPACES TO ATTR-PRG-CALLTYP.                             DCUPD50 
00289      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00290 ******************************************************            DCUPD50 
00291 *                                                                 DCUPD50 
00292 *     STORAGE CATEGORY                                            DCUPD50 
00293 *                                                                 DCUPD50 
00294 ******************************************************            DCUPD50 
00295  STORE-EDIT.                                                      DCUPD50 
00296      IF CAT-ID NOT EQUAL TO 260 GO TO PASS-EDIT.                     CL**2
00297 *                                                                 DCUPD50 
00298 *     STORAGE - TYPE                                              DCUPD50 
00299 *                                                                 DCUPD50 
00300  STORE-EDIT-TYPE.                                                 DCUPD50 
00301      IF FIELD-ID NOT EQUAL TO 05 GO TO STORE-EDIT-PLACE.          DCUPD50 
00302      MOVE STORE-TYPE TO OLD-VALUE.                                DCUPD50 
00303      IF VAL (1) EQUAL TO "$" GO TO STORE-DEL-TYPE.                DCUPD50 
00304      MOVE STORE-CODES TO VALID-CODE-TABLE.                        DCUPD50 
00305      PERFORM VALID-CODE THRU VALID-CODE-XIT.                      DCUPD50 
00306      MOVE VAL-AREA TO STORE-TYPE.                                 DCUPD50 
00307      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00308  STORE-DEL-TYPE.                                                  DCUPD50 
00309      IF STORE-TYPE EQUAL TO SPACES                                DCUPD50 
00310          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00311      MOVE SPACES TO STORE-TYPE.                                   DCUPD50 
00312      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00313 *                                                                 DCUPD50 
00314 *     STORAGE - PLACE                                             DCUPD50 
00315 *                                                                 DCUPD50 
00316  STORE-EDIT-PLACE.                                                DCUPD50 
00317      IF FIELD-ID NOT EQUAL TO 10 GO TO STORE-EDIT-MODE.           DCUPD50 
00318      MOVE STORE-PLACE TO OLD-VALUE.                               DCUPD50 
00319      IF VAL (1) EQUAL TO "$" GO TO STORE-DEL-PLACE.               DCUPD50 
00320      MOVE VAL-AREA TO STORE-PLACE.                                DCUPD50 
00321      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00322  STORE-DEL-PLACE.                                                 DCUPD50 
00323      IF STORE-PLACE EQUAL TO SPACES                               DCUPD50 
00324          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00325      MOVE SPACES TO STORE-PLACE.                                  DCUPD50 
00326      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00327 *                                                                 DCUPD50 
00328 *     STORAGE - MODE                                              DCUPD50 
00329 *                                                                 DCUPD50 
00330  STORE-EDIT-MODE.                                                 DCUPD50:  
00331      IF FIELD-ID NOT EQUAL TO 15 GO TO STORE-EDIT-SIZE.           DCUPD50 
00332      MOVE STORE-MODE TO OLD-VALUE.                                DCUPD50 
00333      IF VAL (1) EQUAL TO "$" GO TO STORE-DEL-MODE.                DCUPD50 
00334      MOVE VAL-AREA TO STORE-MODE.                                 DCUPD50 
00335      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00336  STORE-DEL-MODE.                                                  DCUPD50 
00337      IF STORE-MODE EQUAL TO SPACES                                DCUPD50 
00338          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00339      MOVE SPACES TO STORE-MODE.                                   DCUPD50 
00340      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00341 *                                                                 DCUPD50 
00342 *     STORAGE - SIZE                                              DCUPD50 
00343 *                                                                 DCUPD50 
00344  STORE-EDIT-SIZE.                                                 DCUPD50 
00345      IF FIELD-ID NOT EQUAL TO 20 GO TO STORE-EDIT-SUNIT.          DCUPD50 
00346      MOVE STORE-SIZE TO OLD-VALUE.                                DCUPD50 
00347      IF VAL (1) EQUAL TO "$" GO TO STORE-DEL-SIZE.                DCUPD50 
00348      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
00349 *TEMPO 7 DIGIT FIX                                                   CL**2
00350      MOVE NUM-HOLD TO STORE-SIZE.                                    CL**2
00351      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00352  STORE-DEL-SIZE.                                                  DCUPD50 
00353      IF STORE-SIZE EQUAL TO SPACES                                DCUPD50 
00354          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00355      MOVE SPACES TO STORE-SIZE.                                   DCUPD50 
00356      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00357 *                                                                 DCUPD50 
00358 *     STORAGE - SIZE UNIT                                         DCUPD50 
00359 *                                                                    CL**2
00360  STORE-EDIT-SUNIT.                                                DCUPD50 
00361      IF FIELD-ID NOT EQUAL TO 25 GO TO FLD-ERR.                   DCUPD50 
00362      MOVE STORE-SIZE-UNIT TO OLD-VALUE.                           DCUPD50 
00363      IF VAL (1) EQUAL TO "$" GO TO STORE-DEL-SUNIT.               DCUPD50 
00364      MOVE SIZE-CODES TO VALID-CODE-TABLE.                         DCUPD50 
00365      PERFORM VALID-CODE THRU VALID-CODE-XIT.                      DCUPD50 
00366      MOVE VAL (1) TO STORE-SIZE-UNIT.                             DCUPD50 
00367      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00368  STORE-DEL-SUNIT.                                                 DCUPD50 
00369      IF STORE-SIZE-UNIT EQUAL TO SPACES                           DCUPD50 
00370          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00371      MOVE SPACES TO STORE-SIZE-UNIT.                              DCUPD50 
00372      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00373 *********************************************************         DCUPD50 
00374 *                                                                 DCUPD50 
00375 *     PASSING CATEGORY                                            DCUPD50 
00376 *                                                                 DCUPD50 
00377 ********************************************************          DCUPD50 
00378  PASS-EDIT.                                                       DCUPD50 
00379      IF CAT-ID NOT EQUAL TO 290 GO TO RES-PRG-EDIT.                  CL**2
00380 *                                                                 DCUPD50 
00381 *     PASSING - CAT NAME                                          DCUPD50 
00382 *                                                                 DCUPD50 
00383  PASS-EDIT-CNAME.                                                 DCUPD50 
00384      IF FIELD-ID NOT EQUAL TO 05 GO TO FLD-ERR.                   DCUPD50 
00385      MOVE PASS-CNAME TO OLD-VALUE.                                DCUPD50 
00386      IF VAL (1) EQUAL TO "$" GO TO PASS-DEL-CNAME.                DCUPD50 
00387      MOVE VAL-AREA TO PASS-CNAME.                                 DCUPD50 
00388      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00389  PASS-DEL-CNAME.                                                  DCUPD50 
00390      IF PASS-CNAME EQUAL TO SPACES                                DCUPD50 
00391          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00392      MOVE SPACES TO PASS-CNAME.                                   DCUPD50 
00393      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00394 ******************************************************            DCUPD50 
00395 *                                                                 DCUPD50 
00396 *    OPERATING CATEGORY                                              CL**2
00397 *                                                                 DCUPD50 
00398 ******************************************************            DCUPD50 
00399  RES-PRG-EDIT.                                                    DCUPD50 
00400      IF CAT-ID NOT EQUAL TO 270 GO TO SCH-EDIT.                      CL**2
00401 *                                                                 DCUPD50 
00402 *     RESOURCE - STEP NAME                                        DCUPD50 
00403 *                                                                 DCUPD50 
00404  RES-EDIT-STEP.                                                   DCUPD50 
00405      IF FIELD-ID NOT EQUAL TO 05 GO TO RES-EDIT-REG.              DCUPD50 
00406      MOVE RES-STEP-NAME TO OLD-VALUE.                             DCUPD50 
00407      IF VAL (1) EQUAL TO "$" GO TO RES-DEL-STEP.                  DCUPD50 
00408      MOVE VAL-AREA TO RES-STEP-NAME.                              DCUPD50 
00409      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00410  RES-DEL-STEP.                                                    DCUPD50 
00411      IF RES-STEP-NAME EQUAL TO SPACES                             DCUPD50 
00412          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00413      MOVE SPACES TO RES-STEP-NAME.                                DCUPD50 
00414      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00415 *                                                                 DCUPD50 
00416 *     RESOURCE - REGION                                           DCUPD50 
00417 *                                                                 DCUPD50 
00418  RES-EDIT-REG.                                                    DCUPD50 
00419      IF FIELD-ID NOT EQUAL TO 10 GO TO RES-EDIT-ETIME.            DCUPD50 
00420      MOVE RES-REGION TO OLD-VALUE.                                DCUPD50 
00421      IF VAL (1) EQUAL TO "$" GO TO RES-DEL-REG.                   DCUPD50 
00422      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO RES-REGION. 
00425      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00426  RES-DEL-REG.                                                     DCUPD50 
00427      IF RES-REGION EQUAL TO SPACES                                DCUPD50 
00428          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00429      MOVE SPACES TO RES-REGION.                                   DCUPD50 
00430      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00431 *                                                                 DCUPD50 
00432 *     RESOSSIBILITY - ELAPSED TIME                                DCUPD50 
00433 *                                                                 DCUPD50 
00434  RES-EDIT-ETIME.                                                  DCUPD50 
00435      IF FIELD-ID NOT EQUAL TO 15 GO TO RES-EDIT-EUNIT.            DCUPD50 
00436      MOVE RES-ELAPSED-TIME TO OLD-VALUE.                          DCUPD50 
00437      IF VAL (1) EQUAL TO "$" GO TO RES-DEL-ETIME.                 DCUPD50 
00438      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO RES-ELAPSED-TIME. 
00441      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00442  RES-DEL-ETIME.                                                   DCUPD50 
00443      IF RES-ELAPSED-TIME EQUAL TO SPACES                          DCUPD50 
00444          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00445      MOVE SPACES TO RES-ELAPSED-TIME.                             DCUPD50 
00446      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00447 *                                                                 DCUPD50 
00448 *     RESOURCE - ELAPSED UNIT                                     DCUPD50 
00449 *                                                                 DCUPD50 
00450  RES-EDIT-EUNIT.                                                  DCUPD50 
00451      IF FIELD-ID NOT EQUAL TO 20 GO TO RES-EDIT-CPUT.             DCUPD50 
00452      MOVE RES-ELAPSED-UNIT TO OLD-VALUE.                          DCUPD50 
00453      IF VAL (1) EQUAL TO "$" GO TO RES-DEL-EUNIT.                 DCUPD50 
00454      MOVE SML-TIME-CODES TO VALID-CODE-TABLE.                        CL**2
00455      PERFORM VALID-CODE THRU VALID-CODE-XIT.                      DCUPD50 
00456      MOVE VAL-AREA TO RES-ELAPSED-UNIT.                           DCUPD50 
00457      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00458  RES-DEL-EUNIT.                                                   DCUPD50 
00459      IF RES-ELAPSED-UNIT EQUAL TO SPACES                          DCUPD50 
00460          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00461      MOVE SPACES TO RES-ELAPSED-UNIT.                             DCUPD50 
00462      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00463 *                                                                 DCUPD50 
00464 *     RESOURCE - CPU TIME                                         DCUPD50 
00465 *                                                                    CL**2
00466  RES-EDIT-CPUT.                                                   DCUPD50 
00467      IF FIELD-ID NOT EQUAL TO 25 GO TO RES-EDIT-CPUU.             DCUPD50 
00468      MOVE RES-CPU-TIME TO OLD-VALUE.                              DCUPD50 
00469      IF VAL (1) EQUAL TO "$" GO TO RES-DEL-CPUT.                  DCUPD50 
00470      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                         DCUPD50 
           MOVE NUM-HOLD-X TO RES-CPU-TIME. 
00473      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00474  RES-DEL-CPUT.                                                    DCUPD50 
00475      IF RES-CPU-TIME EQUAL TO SPACES                              DCUPD50 
00476          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00477      MOVE SPACES TO RES-CPU-TIME.                                 DCUPD50 
00478      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00479 *                                                                 DCUPD50 
00480 *     RESOURCE - CPU UNIT                                         DCUPD50 
00481 *                                                                 DCUPD50 
00482  RES-EDIT-CPUU.                                                   DCUPD50 
00483      IF FIELD-ID NOT EQUAL TO 30 GO TO RES-EDIT-PROC.             DCUPD50 
00484      MOVE RES-CPU-UNIT TO OLD-VALUE.                              DCUPD50 
00485      IF VAL (1) EQUAL TO "$" GO TO RES-DEL-CPUU.                  DCUPD50 
00486      MOVE SML-TIME-CODES TO VALID-CODE-TABLE.                        CL**2
00487      PERFORM VALID-CODE THRU VALID-CODE-XIT.                      DCUPD50 
00488      MOVE VAL-AREA TO RES-CPU-UNIT.                               DCUPD50 
00489      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00490  RES-DEL-CPUU.                                                    DCUPD50 
00491      IF RES-CPU-UNIT EQUAL TO SPACES                              DCUPD50 
00492          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00493      MOVE SPACES TO RES-CPU-UNIT.                                 DCUPD50 
00494      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00495 *                                                                 DCUPD50 
00496 *     RESOURCE - PROCEDURE                                        DCUPD50 
00497 *                                                                 DCUPD50 
00498  RES-EDIT-PROC.                                                   DCUPD50 
00499      IF FIELD-ID NOT EQUAL TO 35 GO TO RES-EDIT-PSEQ.             DCUPD50 
00500      MOVE RES-PROCEDURE TO OLD-VALUE.                             DCUPD50 
00501      IF VAL (1) EQUAL TO "$" GO TO RES-DEL-PROC.                  DCUPD50 
00502      MOVE VAL-AREA TO RES-PROCEDURE.                              DCUPD50 
00503      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00504  RES-DEL-PROC.                                                    DCUPD50 
00505      IF RES-PROCEDURE EQUAL TO SPACES                             DCUPD50 
00506          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00507      MOVE SPACES TO RES-PROCEDURE.                                DCUPD50 
00508      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00509 *                                                                 DCUPD50 
00510 *     RESOURCE - PROC SEQ                                         DCUPD50 
00511 *                                                                 DCUPD50 
00512  RES-EDIT-PSEQ.                                                   DCUPD50 
00513      IF FIELD-ID NOT EQUAL TO 40 GO TO RES-EDIT-LINES.            DCUPD50 
00514      MOVE RES-PROC-SEQ TO OLD-VALUE.                              DCUPD50 
00515      IF VAL (1) EQUAL TO "$" GO TO RES-DEL-PSEQ.                  DCUPD50 
00516      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                         DCUPD50 
           MOVE NUM-HOLD-X TO RES-PROC-SEQ. 
00519      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00520  RES-DEL-PSEQ.                                                    DCUPD50 
00521      IF RES-PROC-SEQ EQUAL TO SPACES                              DCUPD50 
00522          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00523      MOVE SPACES TO RES-PROC-SEQ.                                 DCUPD50 
00524      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00525 *                                                                 DCUPD50 
00526 *     RESOURCE - LINES                                            DCUPD50 
00527 *                                                                 DCUPD50 
00528  RES-EDIT-LINES.                                                  DCUPD50 
00529      IF FIELD-ID NOT EQUAL TO 45 GO TO RES-EDIT-PUNCH.            DCUPD50 
00530      MOVE RES-LINES TO OLD-VALUE.                                 DCUPD50 
00531      IF VAL (1) EQUAL TO "$" GO TO RES-DEL-LINES.                 DCUPD50 
00532      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                         DCUPD50 
           MOVE NUM-HOLD-X TO RES-LINES.
00535      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00536  RES-DEL-LINES.                                                   DCUPD50 
00537      IF RES-LINES EQUAL TO SPACES                                 DCUPD50 
00538          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00539      MOVE SPACES TO RES-LINES.                                    DCUPD50 
00540      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00541 *                                                                 DCUPD50 
00542 *     RESOURCE - PUNCH                                               CL**2
00543 *                                                                 DCUPD50 
00544  RES-EDIT-PUNCH.                                                  DCUPD50 
00545      IF FIELD-ID NOT EQUAL TO 50 GO TO FLD-ERR.                   DCUPD50 
00546      MOVE RES-PUNCH TO OLD-VALUE.                                 DCUPD50 
00547      IF VAL (1) EQUAL TO "$" GO TO RES-DEL-PUNCH.                    CL**2
00548      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                         DCUPD50 
           MOVE NUM-HOLD-X TO RES-PUNCH.
00551      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00552  RES-DEL-PUNCH.                                                      CL**2
00553      IF RES-PUNCH EQUAL TO SPACES                                 DCUPD50 
00554          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00555      MOVE SPACES TO RES-PUNCH.                                    DCUPD50 
00556      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00557 ******************************************************            DCUPD50 
00558 *                                                                 DCUPD50 
00559 *     SCHEDULLING CATEGORY                                        DCUPD50 
00560 *                                                                 DCUPD50 
00561 ******************************************************            DCUPD50 
00562  SCH-EDIT.                                                           CL**2
00563      IF CAT-ID NOT EQUAL TO 280 GO TO REL-EDIT.                      CL**2
00564 *                                                                 DCUPD50 
00565 *     SCHEDULLING - NORM START                                    DCUPD50 
00566 *                                                                 DCUPD50 
00567  SCH-EDIT-NSTRT.                                                  DCUPD50 
00568      IF FIELD-ID NOT EQUAL TO 05 GO TO SCH-EDIT-NSTOP.            DCUPD50 
00569      MOVE SCHLD-NORM-START TO OLD-VALUE.                          DCUPD50 
00570      IF VAL (1) EQUAL TO "$" GO TO SCH-DEL-NSTRT.                 DCUPD50 
00571      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                         DCUPD50 
           MOVE NUM-HOLD-X TO SCHLD-NORM-START. 
00574      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00575  SCH-DEL-NSTRT.                                                   DCUPD50 
00576      IF SCHLD-NORM-START EQUAL TO SPACES                          DCUPD50 
00577          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00578      MOVE SPACES TO SCHLD-NORM-START.                             DCUPD50 
00579      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00580 *                                                                 DCUPD50 
00581 *     SCHEDULLING - NORM STOP                                     DCUPD50 
00582 *                                                                 DCUPD50 
00583  SCH-EDIT-NSTOP.                                                  DCUPD50 
00584      IF FIELD-ID NOT EQUAL TO 10 GO TO SCH-EDIT-NDAY.             DCUPD50 
00585      MOVE SCHLD-NORM-STOP TO OLD-VALUE.                           DCUPD50 
00586      IF VAL (1) EQUAL TO "$" GO TO SCH-DEL-NSTOP.                 DCUPD50 
00587      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                         DCUPD50 
           MOVE NUM-HOLD-X TO SCHLD-NORM-STOP.
00590      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00591  SCH-DEL-NSTOP.                                                   DCUPD50 
00592      IF SCHLD-NORM-STOP EQUAL TO SPACES                           DCUPD50 
00593          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00594      MOVE SPACES TO SCHLD-NORM-STOP.                                 CL**2
00595      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00596 *                                                                 DCUPD50 
00597 *     SCHOSSIBILITY - NORM DAY                                    DCUPD50 
00598 *                                                                 DCUPD50 
00599  SCH-EDIT-NDAY.                                                   DCUPD50 
00600      IF FIELD-ID NOT EQUAL TO 15 GO TO SCH-EDIT-DSTRT.               CL**2
00601      MOVE SCHLD-NORM-DAY TO OLD-VALUE.                            DCUPD50 
00602      IF VAL (1) EQUAL TO "$" GO TO SCH-DEL-NDAY.                  DCUPD50 
00603      MOVE VAL-AREA TO SCHLD-NORM-DAY.                             DCUPD50 
00604      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00605  SCH-DEL-NDAY.                                                    DCUPD50 
00606      IF SCHLD-NORM-DAY EQUAL TO SPACES                            DCUPD50 
00607          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00608      MOVE SPACES TO SCHLD-NORM-DAY.                               DCUPD50 
00609      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00610 *                                                                 DCUPD50 
00611 *     SCHEDULLING - DEAD START                                    DCUPD50 
00612 *                                                                 DCUPD50 
00613  SCH-EDIT-DSTRT.                                                  DCUPD50 
00614      IF FIELD-ID NOT EQUAL TO 20 GO TO SCH-EDIT-DSTOP.            DCUPD50 
00615      MOVE SCHLD-DEAD-START TO OLD-VALUE.                          DCUPD50 
00616      IF VAL (1) EQUAL TO "$" GO TO SCH-DEL-DSTRT.                 DCUPD50 
00617      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                         DCUPD50 
           MOVE NUM-HOLD-X TO SCHLD-DEAD-START. 
00620      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00621  SCH-DEL-DSTRT.                                                   DCUPD50 
00622      IF SCHLD-DEAD-START EQUAL TO SPACES                          DCUPD50 
00623          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00624      MOVE SPACES TO SCHLD-DEAD-START.                             DCUPD50 
00625      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00626 *                                                                 DCUPD50 
00627 *     SCHEDULLING - DEAD STOP                                     DCUPD50 
00628 *                                                                 DCUPD50 
00629  SCH-EDIT-DSTOP.                                                  DCUPD50 
00630      IF FIELD-ID NOT EQUAL TO 25 GO TO SCH-EDIT-DDAY.             DCUPD50 
00631      MOVE SCHLD-DEAD-STOP TO OLD-VALUE.                           DCUPD50 
00632      IF VAL (1) EQUAL TO "$" GO TO SCH-DEL-DSTOP.                 DCUPD50 
00633      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                         DCUPD50 
           MOVE NUM-HOLD-X TO SCHLD-DEAD-STOP.
00636      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00637  SCH-DEL-DSTOP.                                                   DCUPD50 
00638      IF SCHLD-DEAD-STOP EQUAL TO SPACES                           DCUPD50 
00639          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00640      MOVE SPACES TO SCHLD-DEAD-STOP.                                 CL**2
00641      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00642 *                                                                 DCUPD50 
00643 *     SCHOSSIBILITY - DEAD DAY                                    DCUPD50 
00644 *                                                                 DCUPD50 
00645  SCH-EDIT-DDAY.                                                   DCUPD50 
00646      IF FIELD-ID NOT EQUAL TO 30 GO TO SCH-EDIT-CYCLE.            DCUPD50 
00647      MOVE SCHLD-DEAD-DAY TO OLD-VALUE.                            DCUPD50 
00648      IF VAL (1) EQUAL TO "$" GO TO SCH-DEL-DDAY.                  DCUPD50 
00649      MOVE VAL-AREA TO SCHLD-DEAD-DAY.                             DCUPD50 
00650      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00651  SCH-DEL-DDAY.                                                    DCUPD50 
00652      IF SCHLD-DEAD-DAY EQUAL TO SPACES                            DCUPD50 
00653          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00654      MOVE SPACES TO SCHLD-DEAD-DAY.                               DCUPD50 
00655      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00656 *                                                                 DCUPD50:  
00657 *     SCHEDULLING - CYCLE                                         DCUPD50 
00658 *                                                                 DCUPD50 
00659  SCH-EDIT-CYCLE.                                                  DCUPD50 
00660      IF FIELD-ID NOT EQUAL TO 35 GO TO SCH-EDIT-PPRG.             DCUPD50 
00661      MOVE SCHLD-CYCLE TO OLD-VALUE.                               DCUPD50 
00662      IF VAL (1) EQUAL TO "$" GO TO SCH-DEL-CYCLE.                 DCUPD50 
00663      MOVE CYCLE-CODES TO VALID-CODE-TABLE.                           CL**2
00664      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00665      MOVE VAL-AREA TO SCHLD-CYCLE.                                DCUPD50 
00666      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00667  SCH-DEL-CYCLE.                                                   DCUPD50 
00668      IF SCHLD-CYCLE EQUAL TO SPACES                               DCUPD50 
00669          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00670      MOVE SPACES TO SCHLD-CYCLE.                                  DCUPD50 
00671      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00672 *                                                                 DCUPD50:  
00673 *     SCHEDULLING - PROCEDING PROGRAM                             DCUPD50 
00674 *                                                                 DCUPD50 
00675  SCH-EDIT-PPRG.                                                   DCUPD50 
00676      IF FIELD-ID NOT EQUAL TO 40 GO TO FLD-ERR.                   DCUPD50 
00677      MOVE SCHLD-PROCED-PROG TO OLD-VALUE.                         DCUPD50 
00678      IF VAL (1) EQUAL TO "$" GO TO SCH-DEL-PPRG.                  DCUPD50 
00679      MOVE VAL-AREA TO SCHLD-PROCED-PROG.                          DCUPD50 
00680      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00681  SCH-DEL-PPRG.                                                    DCUPD50 
00682      IF SCHLD-PROCED-PROG EQUAL TO SPACES                         DCUPD50 
00683          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00684      MOVE SPACES TO SCHLD-PROCED-PROG.                            DCUPD50 
00685      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00686 *                                                                 DCUPD50 
00687 *****************************************************             DCUPD50 
00688 *                                                                 DCUPD50 
00689 *     RELATIONAL CATEGORY                                         DCUPD50 
00690 *                                                                 DCUPD50 
00691 *****************************************************             DCUPD50 
00692  REL-EDIT.                                                        DCUPD50 
00693      IF CAT-ID NOT EQUAL TO 800 GO TO CAT-ERR.                    DCUPD50 
00694 *                                                                 DCUPD50 
00695 *     RELATIONAL - CAT NAME                                       DCUPD50 
00696 *                                                                 DCUPD50 
00697  REL-EDIT-CN.                                                     DCUPD50 
00698      IF FIELD-ID NOT EQUAL TO 05 GO TO REL-EDIT-PUSE.             DCUPD50 
00699      MOVE REL-PRG-CNAME TO OLD-VALUE.                             DCUPD50 
00700      MOVE REL-PRG-CNAME TO OLD-CATAL-NAME.                           CL**2
00701      IF VAL (1) EQUAL TO "$" GO TO REL-DEL-CN.                    DCUPD50 
00702      PERFORM CK-CATNAME THRU CK-CATNAME-XIT.                      DCUPD50 
00703      MOVE "R" TO TYPE-CATAL-NAME.                                    CL**2
00704      MOVE VAL-AREA TO NEW-CATAL-NAME.                                CL**2
00705      MOVE VAL-AREA TO REL-PRG-CNAME.                              DCUPD50 
00706      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00707  REL-DEL-CN.                                                      DCUPD50 
00708      IF REL-PRG-CNAME EQUAL TO SPACES                             DCUPD50 
00709          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00710      MOVE "R" TO TYPE-CATAL-NAME.                                    CL**2
00711      MOVE SPACES TO REL-PRG-CNAME.                                DCUPD50 
00712      MOVE SPACES TO NEW-CATAL-NAME.                                  CL**2
00713      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00714 *                                                                 DCUPD50 
00715 *     RELATIONAL - PARTIAL USE                                    DCUPD50 
00716 *                                                                 DCUPD50 
00717  REL-EDIT-PUSE.                                                   DCUPD50 
00718      IF FIELD-ID NOT EQUAL TO 10 GO TO REL-EDIT-IO.               DCUPD50 
00719      MOVE REL-PRG-PUSE TO OLD-VALUE.                              DCUPD50 
00720      IF VAL (1) EQUAL TO "$" GO TO REL-DEL-PUSE.                  DCUPD50 
00721      MOVE PUSE-CODES TO VALID-CODE-TABLE.                            CL**2
00722      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00723      MOVE VAL-AREA TO REL-PRG-PUSE.                               DCUPD50 
00724      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00725  REL-DEL-PUSE.                                                    DCUPD50 
00726      IF REL-PRG-PUSE EQUAL TO SPACES                              DCUPD50 
00727          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00728      MOVE SPACES TO REL-PRG-PUSE.                                 DCUPD50 
00729      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00730 *                                                                 DCUPD50 
00731 *     RELATIONAL - IO                                             DCUPD50 
00732 *                                                                 DCUPD50 
00733  REL-EDIT-IO.                                                     DCUPD50 
00734      IF FIELD-ID NOT EQUAL TO 15 GO TO REL-EDIT-ACC.                 CL**2
00735      MOVE REL-PRG-IO TO OLD-VALUE.                                DCUPD50 
00736      IF VAL (1) EQUAL TO "$" GO TO REL-DEL-IO.                    DCUPD50 
00737      MOVE IO-CODES TO VALID-CODE-TABLE.                           DCUPD50 
00738      PERFORM VALID-CODE THRU VALID-CODE-XIT.                      DCUPD50 
00739      MOVE VAL-AREA TO REL-PRG-IO.                                 DCUPD50 
00740      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00741  REL-DEL-IO.                                                      DCUPD50 
00742      IF REL-PRG-IO EQUAL TO SPACES                                DCUPD50 
00743          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00744      MOVE SPACES TO REL-PRG-IO.                                   DCUPD50 
00745      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00746 *                                                                 DCUPD50 
00747 *     RELATIONAL - ACCESS                                            CL**2
00748 *                                                                 DCUPD50 
00749  REL-EDIT-ACC.                                                       CL**2
00750      IF FIELD-ID NOT EQUAL TO 20 GO TO REL-EDIT-CYC.                 CL**2
00751      MOVE REL-PRG-ACCESS TO OLD-VALUE.                               CL**2
00752      IF VAL (1) EQUAL TO "$" GO TO REL-DEL-ACC.                      CL**2
00753      MOVE ACC-CODES TO VALID-CODE-TABLE.                             CL**2
00754      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00755      MOVE VAL (1) TO REL-PRG-ACCESS.                                 CL**2
00756      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00757  REL-DEL-ACC.                                                        CL**2
00758      IF REL-PRG-ACCESS EQUAL TO SPACES                               CL**2
00759          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00760      MOVE SPACES TO REL-PRG-ACCESS.                                  CL**2
00761      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00762 *                                                                 DCUPD50 
00763 *     RELATIONAL - CYCLE                                             CL**2
00764 *                                                                 DCUPD50 
00765  REL-EDIT-CYC.                                                    DCUPD50 
00766      IF FIELD-ID NOT EQUAL TO 25 GO TO REL-EDIT-FREQ.             DCUPD50 
00767      MOVE REL-PRG-CYCLE TO OLD-VALUE.                             DCUPD50 
00768      IF VAL (1) EQUAL TO "$" GO TO REL-DEL-CYCLE.                    CL**2
00769      MOVE CYCLE-CODES TO VALID-CODE-TABLE.                        DCUPD50 
00770      PERFORM VALID-CODE THRU VALID-CODE-XIT.                      DCUPD50 
00771      MOVE VAL-AREA TO REL-PRG-CYCLE.                              DCUPD50 
00772      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00773  REL-DEL-CYCLE.                                                   DCUPD50 
00774      IF REL-PRG-CYCLE EQUAL TO SPACES                             DCUPD50 
00775          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00776      MOVE SPACES TO REL-PRG-CYCLE.                                DCUPD50 
00777      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00778 *                                                                 DCUPD50 
00779 *     RELATIONAL - FREQ                                           DCUPD50 
00780 *                                                                 DCUPD50 
00781  REL-EDIT-FREQ.                                                   DCUPD50 
00782      IF FIELD-ID NOT EQUAL TO 30 GO TO REL-EDIT-D1.               DCUPD50 
00783      MOVE REL-PRG-FREQ TO OLD-VALUE.                              DCUPD50 
00784      IF VAL (1) EQUAL TO "$" GO TO REL-DEL-FREQ.                  DCUPD50 
00785      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO REL-PRG-FREQ. 
00788      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00789  REL-DEL-FREQ.                                                    DCUPD50 
00790      IF REL-PRG-FREQ EQUAL TO SPACES                              DCUPD50 
00791          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00792      MOVE SPACES TO REL-PRG-FREQ.                                 DCUPD50 
00793      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
00794 *                                                                 DCUPD50 
00795 *     RELATIONAL - DISP1                                          DCUPD50 
00796 *                                                                 DCUPD50 
00797  REL-EDIT-D1.                                                     DCUPD50 
00798      IF FIELD-ID NOT EQUAL TO 35 GO TO FLD-ERR.                      CL**2
00799      MOVE REL-PRG-DISP1 TO OLD-VALUE.                             DCUPD50 
00800      IF VAL (1) EQUAL TO "$" GO TO REL-DEL-DISP1.                 DCUPD50 
00801      MOVE VAL-AREA TO REL-PRG-DISP1.                              DCUPD50 
00802      GO TO CAT-MVC-MSG-CHG.                                       DCUPD50 
00803  REL-DEL-DISP1.                                                   DCUPD50 
00804      IF REL-PRG-DISP1 EQUAL TO SPACES                             DCUPD50 
00805          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD50 
00806      MOVE SPACES TO REL-PRG-DISP1.                                DCUPD50 
00807      GO TO CAT-MVC-MSG-DEL.                                       DCUPD50 
