*DECK     DCUPD35 
00001  IDENTIFICATION DIVISION.                                         04/10/78
       PROGRAM-ID. UPD35. 
00003 ******************************************************               LV001
00004 *                                                                 DCUPD35 
00005 *     F O R M   E N T R Y   E D I T I N G                         DCUPD35 
00006 *                                                                 DCUPD35 
00007 ******************************************************            DCUPD35 
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION. 
       SOURCE-COMPUTER. CYBER.
       OBJECT-COMPUTER. CYBER.
       DATA DIVISION. 
*CALL UPDCS 
*CALL DCDWA35 
*CALL QUALINE 
*CALL     DCUPDSWS                                                         CL**5
00009  01  UNIT-CODES      PICTURE X(16) VALUE                             CL**2
00010      "BCHRT0123456789/".                                             CL**2
00011  01  FLOW-CODES      PICTURE X(14) VALUE                             CL**2
00012      "OPU0123456789/".                                               CL**2
00017  PROCEDURE DIVISION.                                                 CL**2
*CALL     DCUPDKW                                                          CL**5
00020 ******************************************************            DCUPD35 
00021 *                                                                 DCUPD35 
00022 *     F O R M   E N T R Y   E D I T I N G                         DCUPD35 
00023 *                                                                 DCUPD35 
00024 ******************************************************            DCUPD35 
00025 *                                                                 DCUPD35 
00026 *                                                                 DCUPD35 
00027 ******************************************************            DCUPD35 
00028 *                                                                 DCUPD35 
00029 *     RESPONSIBILITY CATEGORY                                     DCUPD35 
00030 *                                                                 DCUPD35 
00031 ******************************************************            DCUPD35 
00032  RESP-F-EDIT.                                                     DCUPD35 
           MOVE SPACE TO NUM-EDIT.
00033      IF CAT-ID NOT EQUAL TO 140 GO TO NAME-EDIT.                  DCUPD35 
00034 *                                                                 DCUPD35 
00035 *     RESPONSIBILITY - STATUS                                     DCUPD35 
00036 *                                                                 DCUPD35 
00037  RESP-EDIT-STAT.                                                  DCUPD35 
00038      IF FIELD-ID NOT EQUAL TO 005 GO TO RESP-EDIT-FUNC.           DCUPD35 
00039      MOVE RESP-F-STATUS TO OLD-VALUE.                             DCUPD35 
00040      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-STAT.                 DCUPD35 
00041      MOVE STAT-CODES TO VALID-CODE-TABLE.                         DCUPD35 
00042      PERFORM VALID-CODE THRU VALID-CODE-XIT.                      DCUPD35 
00043      MOVE VAL-AREA TO RESP-F-STATUS.                              DCUPD35 
00044      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00045  RESP-DEL-STAT.                                                   DCUPD35 
00046      IF RESP-F-STATUS EQUAL TO SPACES                             DCUPD35 
00047          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD35 
00048      MOVE SPACES TO RESP-F-STATUS.                                DCUPD35 
00049      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00050 *                                                                 DCUPD35 
00051 *     RESPONSIBILITY - FUNCTION                                   DCUPD35 
00052 *                                                                 DCUPD35 
00053  RESP-EDIT-FUNC.                                                  DCUPD35 
00054      IF FIELD-ID NOT EQUAL TO 010 GO TO RESP-EDIT-DPT.            DCUPD35 
00055      MOVE RESP-F-FUNC TO OLD-VALUE.                               DCUPD35 
00056      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-FUNC.                 DCUPD35 
00057      MOVE FUNC-CODES TO VALID-CODE-TABLE.                         DCUPD35 
00058      PERFORM VALID-CODE THRU VALID-CODE-XIT.                      DCUPD35 
00059      MOVE VAL-AREA TO RESP-F-FUNC.                                DCUPD35 
00060      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00061  RESP-DEL-FUNC.                                                   DCUPD35 
00062      IF RESP-F-FUNC EQUAL TO SPACES                               DCUPD35 
00063          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD35 
00064      MOVE SPACES TO RESP-F-FUNC.                                  DCUPD35 
00065      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00066 *                                                                 DCUPD35 
00067 *     RESPOSSIBILITY - DEPT                                       DCUPD35 
00068 *                                                                 DCUPD35 
00069  RESP-EDIT-DPT.                                                   DCUPD35 
00070      IF FIELD-ID NOT EQUAL TO 015 GO TO RESP-EDIT-PER.            DCUPD35 
00071      MOVE RESP-F-DEPT TO OLD-VALUE.                               DCUPD35 
00072      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-DPT.                  DCUPD35 
00073      MOVE VAL-AREA TO RESP-F-DEPT.                                DCUPD35 
00074      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00075  RESP-DEL-DPT.                                                    DCUPD35 
00076      IF RESP-F-DEPT EQUAL TO SPACES                               DCUPD35 
00077          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD35 
00078      MOVE SPACES TO RESP-F-DEPT.                                  DCUPD35 
00079      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00080 *                                                                 DCUPD35 
00081 *     RESPONSIBILITY - PERSON                                     DCUPD35 
00082 *                                                                 DCUPD35 
00083  RESP-EDIT-PER.                                                   DCUPD35 
00084      IF FIELD-ID NOT EQUAL TO 020 GO TO RESP-EDIT-PHONE.          DCUPD35 
00085      MOVE RESP-F-PERSON TO OLD-VALUE.                             DCUPD35 
00086      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-PER.                  DCUPD35 
00087      MOVE VAL-AREA TO RESP-F-PERSON.                              DCUPD35 
00088      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00089  RESP-DEL-PER.                                                    DCUPD35 
00090      IF RESP-F-PERSON EQUAL TO SPACES                             DCUPD35 
00091          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD35 
00092      MOVE SPACES TO RESP-F-PERSON.                                DCUPD35 
00093      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00094 *                                                                 DCUPD35 
00095 *     RESPONSIBILITY - PHONE                                      DCUPD35 
00096 *                                                                    CL**2
00097  RESP-EDIT-PHONE.                                                 DCUPD35 
00098      IF FIELD-ID NOT EQUAL TO 025 GO TO RESP-EDIT-TIT.            DCUPD35 
00099      MOVE RESP-F-PHONE TO OLD-VALUE.                              DCUPD35 
00100      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-PHONE.                DCUPD35 
00101      MOVE VAL-AREA TO RESP-F-PHONE.                               DCUPD35 
00102      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00103  RESP-DEL-PHONE.                                                  DCUPD35 
00104      IF RESP-F-PHONE EQUAL TO SPACES                              DCUPD35 
00105          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD35 
00106      MOVE SPACES TO RESP-F-PHONE.                                 DCUPD35 
00107      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00108 *                                                                 DCUPD35 
00109 *     RESPONSIBILITY - TITLE                                      DCUPD35 
00110 *                                                                 DCUPD35 
00111  RESP-EDIT-TIT.                                                   DCUPD35 
00112      IF FIELD-ID NOT EQUAL TO 030 GO TO RESP-EDIT-MAIL.           DCUPD35 
00113      MOVE RESP-F-TITLE TO OLD-VALUE.                              DCUPD35 
00114      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-TIT.                  DCUPD35 
00115      MOVE VAL-AREA TO RESP-F-TITLE.                               DCUPD35 
00116      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00117  RESP-DEL-TIT.                                                    DCUPD35 
00118      IF RESP-F-TITLE EQUAL TO SPACES                              DCUPD35 
00119          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD35 
00120      MOVE SPACES TO RESP-F-TITLE.                                 DCUPD35 
00121      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00122 *                                                                 DCUPD35 
00123 *     RESPONSIBILITY - MAIL                                       DCUPD35 
00124 *                                                                 DCUPD35 
00125  RESP-EDIT-MAIL.                                                  DCUPD35 
00126      IF FIELD-ID NOT EQUAL TO 035 GO TO RESP-EDIT-DATE.           DCUPD35 
00127      MOVE RESP-F-MAIL TO OLD-VALUE.                               DCUPD35 
00128      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-MAIL.                 DCUPD35 
00129      MOVE VAL-AREA TO RESP-F-MAIL.                                DCUPD35 
00130      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00131  RESP-DEL-MAIL.                                                   DCUPD35 
00132      IF RESP-F-MAIL EQUAL TO SPACES                               DCUPD35 
00133          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD35 
00134      MOVE SPACES TO RESP-F-MAIL.                                  DCUPD35 
00135      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00136 *                                                                 DCUPD35 
00137 *     RESPONSIBILITY - DATE                                       DCUPD35 
00138 *                                                                 DCUPD35 
00139  RESP-EDIT-DATE.                                                  DCUPD35 
00140      IF FIELD-ID NOT EQUAL TO 040 GO TO FLD-ERR.                  DCUPD35 
00141      MOVE RESP-F-DATE TO OLD-VALUE.                               DCUPD35 
00142      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-DATE.                 DCUPD35 
00143      MOVE VAL-AREA TO RESP-F-DATE.                                DCUPD35 
00144      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00145  RESP-DEL-DATE.                                                   DCUPD35 
00146      IF RESP-F-DATE EQUAL TO SPACES                               DCUPD35 
00147          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD35 
00148      MOVE SPACES TO RESP-F-DATE.                                  DCUPD35 
00149      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00150 *****************************************************             DCUPD35 
00151 *                                                                 DCUPD35 
00152 *     NAME CATEGORY                                               DCUPD35 
00153 *                                                                 DCUPD35 
00154 *****************************************************             DCUPD35 
00155  NAME-EDIT.                                                       DCUPD35 
00156      IF CAT-ID NOT EQUAL TO 200 GO TO ATTR-EDIT.                  DCUPD35 
00157 *                                                                 DCUPD35 
00158 *     NAME - FORM NAME                                            DCUPD35 
00159 *                                                                 DCUPD35 
00160  NAME-EDIT-FN.                                                    DCUPD35 
00161      IF FIELD-ID NOT EQUAL TO 05 GO TO NAME-EDIT-FID.                CL**2
00162      MOVE NAME-F-FORM-NAME TO OLD-VALUE.                          DCUPD35 
00163      IF VAL (1) EQUAL TO "$" GO TO NAME-DEL-FN.                   DCUPD35 
00164      MOVE VAL-AREA TO NAME-F-FORM-NAME.                           DCUPD35 
00165      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00166  NAME-DEL-FN.                                                     DCUPD35 
00167      IF NAME-F-FORM-NAME EQUAL TO SPACES                          DCUPD35 
00168          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD35 
00169      MOVE SPACES TO NAME-F-FORM-NAME.                             DCUPD35 
00170      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00171 *                                                                 DCUPD35 
00172 *     NAME - FORM NO                                              DCUPD35 
00173 *                                                                 DCUPD35 
00174  NAME-EDIT-FID.                                                   DCUPD35 
00175      IF FIELD-ID NOT EQUAL TO 10 GO TO FLD-ERR.                   DCUPD35 
00176      MOVE NAME-F-FORMNO TO OLD-VALUE.                             DCUPD35 
00177      IF VAL (1) EQUAL TO "$" GO TO NAME-DEL-FID.                  DCUPD35 
00178      MOVE VAL-AREA TO NAME-F-FORMNO.                              DCUPD35 
00179      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00180  NAME-DEL-FID.                                                    DCUPD35 
00181      IF NAME-F-FORMNO EQUAL TO SPACES                             DCUPD35 
00182          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD35 
00183      MOVE SPACES TO NAME-F-FORMNO.                                DCUPD35 
00184      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00185 ****************************************************              DCUPD35 
00186 *                                                                 DCUPD35 
00187 *     ATTRIBUTE CATEGORY                                          DCUPD35 
00188 *                                                                 DCUPD35 
00189 ***************************************************               DCUPD35 
00190  ATTR-EDIT.                                                       DCUPD35 
00191      IF CAT-ID NOT EQUAL TO 210 GO TO SUPLY-EDIT.                 DCUPD35 
00192 *                                                                 DCUPD35 
00193 *     ATTR - PARTS                                                DCUPD35 
00194 *                                                                 DCUPD35 
00195  ATTR-EDIT-PARTS.                                                 DCUPD35 
00196      IF FIELD-ID NOT EQUAL TO 05 GO TO ATTR-EDIT-COLOR.           DCUPD35 
00197      MOVE ATTR-F-PARTS TO OLD-VALUE.                              DCUPD35 
00198      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-PARTS.                DCUPD35 
00199      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                         DCUPD35 
           MOVE NUM-HOLD-X TO ATTR-F-PARTS. 
00202      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00203  ATTR-DEL-PARTS.                                                  DCUPD35 
00204      IF ATTR-F-PARTS EQUAL TO SPACES                              DCUPD35 
00205          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD35 
00206      MOVE SPACES TO ATTR-F-PARTS.                                 DCUPD35 
00207      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00208 *                                                                 DCUPD35 
00209 *     ATTR - COLOR                                                DCUPD35 
00210 *                                                                 DCUPD35 
00211  ATTR-EDIT-COLOR.                                                 DCUPD35 
00212      IF FIELD-ID NOT EQUAL TO 10 GO TO FLD-ERR.                   DCUPD35 
00213      MOVE ATTR-F-COLOR TO OLD-VALUE.                              DCUPD35 
00214      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-COLOR.                DCUPD35 
00215      MOVE VAL-AREA TO ATTR-F-COLOR.                               DCUPD35 
00216      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00217  ATTR-DEL-COLOR.                                                  DCUPD35 
00218      IF ATTR-F-COLOR EQUAL TO SPACES                              DCUPD35 
00219          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD35 
00220      MOVE SPACES TO ATTR-F-COLOR.                                 DCUPD35 
00221      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00222 *******************************************************           DCUPD35 
00223 *                                                                 DCUPD35 
00224 *     SUPLY CATEGORY                                              DCUPD35 
00225 *                                                                 DCUPD35 
00226 ******************************************************            DCUPD35 
00227  SUPLY-EDIT.                                                      DCUPD35 
00228      IF CAT-ID NOT EQUAL TO 230 GO TO FLOW-EDIT.                  DCUPD35 
00229 *                                                                 DCUPD35 
00230 *     SUPLY -SUPPLIER NAME                                        DCUPD35 
00231 *                                                                 DCUPD35 
00232  SUPLY-EDIT-SNAME.                                                DCUPD35 
00233      IF FIELD-ID NOT EQUAL TO 05 GO TO SUPLY-EDIT-NO.             DCUPD35 
00234      MOVE SUPLY-NAME TO OLD-VALUE.                                DCUPD35 
00235      IF VAL (1) EQUAL TO "$" GO TO SUPLY-DEL-SNAME.               DCUPD35 
00236      MOVE VAL-AREA TO SUPLY-NAME.                                 DCUPD35 
00237      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00238  SUPLY-DEL-SNAME.                                                 DCUPD35 
00239      IF SUPLY-NAME EQUAL TO SPACES                                DCUPD35 
00240          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD35 
00241      MOVE SPACES TO SUPLY-NAME.                                   DCUPD35 
00242      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00243 *                                                                 DCUPD35 
00244 *     SUPLY - SUPPLIER NO                                         DCUPD35 
00245 *                                                                 DCUPD35 
00246  SUPLY-EDIT-NO.                                                   DCUPD35 
00247      IF FIELD-ID NOT EQUAL TO 10 GO TO SUPLY-EDIT-RQTY.           DCUPD35 
00248      MOVE SUPLY-NO TO OLD-VALUE.                                  DCUPD35 
00249      IF VAL (1) EQUAL TO "$" GO TO SUPLY-DEL-NO.                  DCUPD35 
00250      MOVE VAL-AREA TO SUPLY-NO.                                   DCUPD35 
00251      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00252  SUPLY-DEL-NO.                                                    DCUPD35 
00253      IF SUPLY-NO EQUAL TO SPACES                                  DCUPD35 
00254          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD35 
00255      MOVE SPACES TO SUPLY-NO.                                     DCUPD35 
00256      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00257 *                                                                 DCUPD35 
00258 *     SUPLY - REORDER QTY                                         DCUPD35 
00259 *                                                                 DCUPD35 
00260  SUPLY-EDIT-RQTY.                                                 DCUPD35 
00261      IF FIELD-ID NOT EQUAL TO 15 GO TO SUPLY-EDIT-RUNIT.          DCUPD35 
00262      MOVE SUPLY-REORDER-QTY TO OLD-VALUE.                         DCUPD35 
00263      IF VAL (1) EQUAL TO "$" GO TO SUPLY-DEL-RQTY.                DCUPD35 
00264      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                         DCUPD35 
           MOVE NUM-HOLD-X TO SUPLY-REORDER-QTY.
00267      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00268  SUPLY-DEL-RQTY.                                                  DCUPD35 
00269      IF SUPLY-REORDER-QTY EQUAL TO SPACES                         DCUPD35 
00270          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD35 
00271      MOVE SPACES TO SUPLY-REORDER-QTY.                            DCUPD35 
00272      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00273 *                                                                 DCUPD35 
00274 *     SUPLY - REORDER UNIT                                        DCUPD35 
00275 *                                                                 DCUPD35 
00276  SUPLY-EDIT-RUNIT.                                                DCUPD35 
00277      IF FIELD-ID NOT EQUAL TO 20 GO TO SUPLY-EDIT-OQTY.           DCUPD35 
00278      MOVE SUPLY-REORDER-UNIT TO OLD-VALUE.                        DCUPD35 
00279      IF VAL (1) EQUAL TO "$" GO TO SUPLY-DEL-RUNIT.               DCUPD35 
00280      MOVE UNIT-CODES TO VALID-CODE-TABLE.                         DCUPD35 
00281      PERFORM VALID-CODE THRU VALID-CODE-XIT.                      DCUPD35 
00282      MOVE VAL-AREA TO SUPLY-REORDER-UNIT.                         DCUPD35 
00283      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00284  SUPLY-DEL-RUNIT.                                                 DCUPD35 
00285      IF SUPLY-REORDER-UNIT EQUAL TO SPACES                        DCUPD35 
00286          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD35 
00287      MOVE SPACES TO SUPLY-REORDER-UNIT.                           DCUPD35 
00288      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00289 *                                                                 DCUPD35 
00290 *     SUPLY - ONHAND QTY                                          DCUPD35 
00291 *                                                                 DCUPD35 
00292  SUPLY-EDIT-OQTY.                                                 DCUPD35 
00293      IF FIELD-ID NOT EQUAL TO 25 GO TO SUPLY-EDIT-OUNIT.          DCUPD35 
00294      MOVE SUPLY-ONHAND-QTY TO OLD-VALUE.                          DCUPD35 
00295      IF VAL (1) EQUAL TO "$" GO TO SUPLY-DEL-OQTY.                DCUPD35 
00296      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                         DCUPD35 
           MOVE NUM-HOLD-X TO SUPLY-ONHAND-QTY. 
00299      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00300  SUPLY-DEL-OQTY.                                                  DCUPD35 
00301      IF SUPLY-ONHAND-QTY EQUAL TO SPACES                          DCUPD35 
00302          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD35 
00303      MOVE SPACES TO SUPLY-ONHAND-QTY.                             DCUPD35 
00304      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00305 *                                                                 DCUPD35 
00306 *     SUPLY - ONHAND UNIT                                         DCUPD35 
00307 *                                                                 DCUPD35 
00308  SUPLY-EDIT-OUNIT.                                                DCUPD35 
00309      IF FIELD-ID NOT EQUAL TO 30 GO TO SUPLY-EDIT-EQTY.           DCUPD35 
00310      MOVE SUPLY-ONHAND-UNIT TO OLD-VALUE.                         DCUPD35 
00311      IF VAL (1) EQUAL TO "$" GO TO SUPLY-DEL-OUNIT.               DCUPD35 
00312      MOVE UNIT-CODES TO VALID-CODE-TABLE.                         DCUPD35 
00313      PERFORM VALID-CODE THRU VALID-CODE-XIT.                      DCUPD35 
00314      MOVE VAL-AREA TO SUPLY-ONHAND-UNIT.                          DCUPD35 
00315      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00316  SUPLY-DEL-OUNIT.                                                 DCUPD35 
00317      IF SUPLY-ONHAND-UNIT EQUAL TO SPACES                         DCUPD35 
00318          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD35 
00319      MOVE SPACES TO SUPLY-ONHAND-UNIT.                            DCUPD35 
00320      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00321 *                                                                 DCUPD35 
00322 *     SUPLY - EOQ QTY                                             DCUPD35 
00323 *                                                                 DCUPD35 
00324  SUPLY-EDIT-EQTY.                                                 DCUPD35 
00325      IF FIELD-ID NOT EQUAL TO 35 GO TO SUPLY-EDIT-EUNIT.          DCUPD35 
00326      MOVE SUPLY-EOQ-QTY TO OLD-VALUE.                             DCUPD35 
00327      IF VAL (1) EQUAL TO "$" GO TO SUPLY-DEL-EQTY.                DCUPD35 
00328      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                         DCUPD35 
           MOVE NUM-HOLD-X TO SUPLY-EOQ-QTY.
00331      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00332  SUPLY-DEL-EQTY.                                                  DCUPD35 
00333      IF SUPLY-EOQ-QTY EQUAL TO SPACES                             DCUPD35 
00334          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD35 
00335      MOVE SPACES TO SUPLY-EOQ-QTY.                                DCUPD35 
00336      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00337 *                                                                 DCUPD35 
00338 *     SUPLY - EOQ UNIT                                            DCUPD35 
00339 *                                                                 DCUPD35 
00340  SUPLY-EDIT-EUNIT.                                                DCUPD35 
00341      IF FIELD-ID NOT EQUAL TO 40 GO TO SUPLY-EDIT-MQTY.           DCUPD35 
00342      MOVE SUPLY-EOQ-UNIT TO OLD-VALUE.                            DCUPD35 
00343      IF VAL (1) EQUAL TO "$" GO TO SUPLY-DEL-EUNIT.               DCUPD35 
00344      MOVE UNIT-CODES TO VALID-CODE-TABLE.                         DCUPD35 
00345      PERFORM VALID-CODE THRU VALID-CODE-XIT.                      DCUPD35 
00346      MOVE VAL-AREA TO SUPLY-EOQ-UNIT.                             DCUPD35 
00347      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00348  SUPLY-DEL-EUNIT.                                                 DCUPD35 
00349      IF SUPLY-EOQ-UNIT EQUAL TO SPACES                            DCUPD35 
00350          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD35 
00351      MOVE SPACES TO SUPLY-EOQ-UNIT.                               DCUPD35 
00352      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00353 *                                                                 DCUPD35 
00354 *     SUPLY - MIN ORD QYT                                         DCUPD35 
00355 *                                                                 DCUPD35 
00356  SUPLY-EDIT-MQTY.                                                 DCUPD35 
00357      IF FIELD-ID NOT EQUAL TO 45 GO TO SUPLY-EDIT-MUNIT.          DCUPD35 
00358      MOVE SUPLY-MIN-ORDER-QTY TO OLD-VALUE.                       DCUPD35 
00359      IF VAL (1) EQUAL TO "$" GO TO SUPLY-DEL-MQTY.                DCUPD35 
00360      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                         DCUPD35 
           MOVE NUM-HOLD-X TO SUPLY-MIN-ORDER-QTY.
00363      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00364  SUPLY-DEL-MQTY.                                                  DCUPD35 
00365      IF SUPLY-MIN-ORDER-QTY EQUAL TO SPACES                       DCUPD35 
00366          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD35 
00367      MOVE SPACES TO SUPLY-MIN-ORDER-QTY.                          DCUPD35 
00368      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00369 *                                                                 DCUPD35 
00370 *     SUPLY - MIN ORD UNIT                                        DCUPD35 
00371 *                                                                 DCUPD35 
00372  SUPLY-EDIT-MUNIT.                                                DCUPD35 
00373      IF FIELD-ID NOT EQUAL TO 50 GO TO SUPLY-EDIT-LTIME.          DCUPD35 
00374      MOVE SUPLY-MIN-ORDER-UNIT TO OLD-VALUE.                      DCUPD35 
00375      IF VAL (1) EQUAL TO "$" GO TO SUPLY-DEL-MUNIT.               DCUPD35 
00376      MOVE UNIT-CODES TO VALID-CODE-TABLE.                         DCUPD35 
00377      PERFORM VALID-CODE THRU VALID-CODE-XIT.                      DCUPD35 
00378      MOVE VAL-AREA TO SUPLY-MIN-ORDER-UNIT.                       DCUPD35 
00379      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00380  SUPLY-DEL-MUNIT.                                                 DCUPD35 
00381      IF SUPLY-MIN-ORDER-UNIT EQUAL TO SPACES                      DCUPD35 
00382          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD35 
00383      MOVE SPACES TO SUPLY-MIN-ORDER-UNIT.                         DCUPD35 
00384      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00385 *                                                                 DCUPD35 
00386 *     SUPLY - LEAD TIME                                           DCUPD35 
00387 *                                                                 DCUPD35:  
00388  SUPLY-EDIT-LTIME.                                                DCUPD35 
00389      IF FIELD-ID NOT EQUAL TO 55 GO TO SUPLY-EDIT-LUNIT.          DCUPD35 
00390      MOVE SUPLY-LEAD-TIME TO OLD-VALUE.                           DCUPD35 
00391      IF VAL (1) EQUAL TO "$" GO TO SUPLY-DEL-LTIME.                  CL**2
00392      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                         DCUPD35 
           MOVE NUM-HOLD-X TO SUPLY-LEAD-TIME.
00395      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00396  SUPLY-DEL-LTIME.                                                    CL**2
00397      IF SUPLY-LEAD-TIME EQUAL TO SPACES                           DCUPD35 
00398          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD35 
00399      MOVE SPACES TO SUPLY-LEAD-TIME.                              DCUPD35 
00400      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00401 *                                                                 DCUPD35 
00402 *     SUPLY - LEAD UNIT                                           DCUPD35 
00403 *                                                                 DCUPD35 
00404  SUPLY-EDIT-LUNIT.                                                DCUPD35 
00405      IF FIELD-ID NOT EQUAL TO 60 GO TO FLD-ERR.                   DCUPD35 
00406      MOVE SUPLY-LEAD-UNIT TO OLD-VALUE.                           DCUPD35 
00407      IF VAL (1) EQUAL TO "$" GO TO SUPLY-DEL-LUNIT.               DCUPD35 
00408      MOVE TIME-CODES TO VALID-CODE-TABLE.                         DCUPD35 
00409      PERFORM VALID-CODE THRU VALID-CODE-XIT.                      DCUPD35 
00410      MOVE VAL-AREA TO SUPLY-LEAD-UNIT.                            DCUPD35 
00411      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00412  SUPLY-DEL-LUNIT.                                                 DCUPD35 
00413      IF SUPLY-LEAD-UNIT EQUAL TO SPACES                           DCUPD35 
00414          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD35 
00415      MOVE SPACES TO SUPLY-LEAD-UNIT.                              DCUPD35 
00416      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00417 *****************************************************             DCUPD35 
00418 *                                                                 DCUPD35 
00419 *     FLOW CATEGORY                                               DCUPD35 
00420 *                                                                 DCUPD35 
00421 ****************************************************              DCUPD35 
00422  FLOW-EDIT.                                                       DCUPD35 
00423 *                                                                 DCUPD35 
00424 *     FLOW - CODE                                                 DCUPD35 
00425 *                                                                 DCUPD35 
00426      IF CAT-ID NOT EQUAL TO 240 GO TO REL-EDIT.                      CL**2
00427  FLOW-EDIT-CODE.                                                  DCUPD35 
00428      IF FIELD-ID NOT EQUAL TO 05 GO TO FLOW-EDIT-DEPT.            DCUPD35 
00429      MOVE FLOW-CODE TO OLD-VALUE.                                 DCUPD35 
00430      IF VAL (1) EQUAL TO "$" GO TO FLOW-DEL-CODE.                 DCUPD35 
00431      MOVE FLOW-CODES TO VALID-CODE-TABLE.                         DCUPD35 
00432      PERFORM VALID-CODE THRU VALID-CODE-XIT.                      DCUPD35 
00433      MOVE VAL (1) TO FLOW-CODE.                                   DCUPD35 
00434      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00435  FLOW-DEL-CODE.                                                   DCUPD35 
00436      IF FLOW-CODE EQUAL TO SPACES                                 DCUPD35 
00437      GO TO CAT-MVC-MSG-ERR-DEL.                                      CL**2
00438      MOVE SPACES TO FLOW-CODE.                                    DCUPD35 
00439      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00440 *                                                                 DCUPD35 
00441 *     FLOW - DEPT                                                 DCUPD35 
00442 *                                                                 DCUPD35 
00443  FLOW-EDIT-DEPT.                                                  DCUPD35 
00444      IF FIELD-ID NOT EQUAL TO 10 GO TO FLOW-EDIT-PER.             DCUPD35 
00445      MOVE FLOW-DEPT TO OLD-VALUE.                                 DCUPD35 
00446      IF VAL (1) EQUAL TO "$" GO TO FLOW-DEL-DEPT.                 DCUPD35 
00447      MOVE VAL-AREA TO FLOW-DEPT.                                     CL**2
00448      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00449   FLOW-DEL-DEPT.                                                  DCUPD35 
00450      IF FLOW-DEPT EQUAL TO SPACES                                 DCUPD35 
00451          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00452      MOVE SPACES TO FLOW-DEPT.                                    DCUPD35 
00453      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00454 *                                                                 DCUPD35 
00455 *     FLOW - PERSON                                               DCUPD35 
00456 *                                                                 DCUPD35 
00457  FLOW-EDIT-PER.                                                   DCUPD35 
00458      IF FIELD-ID NOT EQUAL TO 15 GO TO FLOW-EDIT-PHO.             DCUPD35 
00459      MOVE FLOW-PERSON TO OLD-VALUE.                               DCUPD35 
00460      IF VAL (1) EQUAL TO "$" GO TO FLOW-DEL-PER.                     CL**2
00461      MOVE VAL-AREA TO FLOW-PERSON.                                DCUPD35 
00462      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00463  FLOW-DEL-PER.                                                    DCUPD35 
00464      IF FLOW-PERSON EQUAL TO SPACES                               DCUPD35 
00465          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00466      MOVE SPACES TO FLOW-PERSON.                                  DCUPD35 
00467      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00468 *                                                                 DCUPD35 
00469 *     FLOW - PHONE                                                DCUPD35 
00470 *                                                                 DCUPD35 
00471  FLOW-EDIT-PHO.                                                   DCUPD35 
00472      IF FIELD-ID NOT EQUAL TO 20 GO TO FLOW-EDIT-PARTS.           DCUPD35 
00473      MOVE FLOW-PHONE TO OLD-VALUE.                                DCUPD35 
00474      IF VAL (1) EQUAL TO "$" GO TO FLOW-DEL-PHO.                  DCUPD35 
00475      MOVE VAL-AREA TO FLOW-PHONE.                                 DCUPD35 
00476      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00477  FLOW-DEL-PHO.                                                    DCUPD35 
00478      IF FLOW-PHONE EQUAL TO SPACES                                DCUPD35 
00479          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00480      MOVE SPACES TO FLOW-PHONE.                                   DCUPD35 
00481      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00482 *                                                                 DCUPD35 
00483 *     FLOW - PARTS                                                DCUPD35 
00484 *                                                                 DCUPD35 
00485  FLOW-EDIT-PARTS.                                                 DCUPD35 
00486      IF FIELD-ID NOT EQUAL TO 25 GO TO FLOW-EDIT-SDAY.            DCUPD35 
00487      MOVE FLOW-PARTS TO OLD-VALUE.                                DCUPD35 
00488      IF VAL (1) EQUAL TO "$" GO TO FLOW-DEL-PARTS.                DCUPD35 
00489      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO FLOW-PARTS. 
00492      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00493  FLOW-DEL-PARTS.                                                  DCUPD35 
00494      IF FLOW-PARTS EQUAL TO SPACES                                DCUPD35 
00495          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00496      MOVE SPACES TO FLOW-PARTS.                                   DCUPD35 
00497      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00498 *                                                                 DCUPD35 
00499 *     FLOW - SUBMITION DAY                                        DCUPD35 
00500 *                                                                 DCUPD35 
00501  FLOW-EDIT-SDAY.                                                  DCUPD35 
00502      IF FIELD-ID NOT EQUAL TO 30 GO TO FLD-ERR.                   DCUPD35 
00503      MOVE FLOW-SUBMIT-DAY TO OLD-VALUE.                           DCUPD35 
00504      IF VAL (1) EQUAL TO "$" GO TO FLOW-DEL-SDAY.                 DCUPD35 
00505      MOVE VAL-AREA TO FLOW-SUBMIT-DAY.                               CL**2
00506      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00507  FLOW-DEL-SDAY.                                                   DCUPD35 
00508      IF FLOW-SUBMIT-DAY EQUAL TO SPACES                           DCUPD35 
00509          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00510      MOVE SPACES TO FLOW-SUBMIT-DAY.                              DCUPD35 
00511      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00512 ****************************************************              DCUPD35 
00513 *                                                                 DCUPD35 
00514 *     RELATIONAL CATEGORY                                         DCUPD35 
00515 *                                                                 DCUPD35 
00516 ****************************************************              DCUPD35 
00517  REL-EDIT.                                                        DCUPD35 
00518      IF CAT-ID NOT EQUAL TO 800 GO TO CAT-ERR.                    DCUPD35 
00519 *                                                                 DCUPD35 
00520 *     RELATIONAL - CAT NAME                                       DCUPD35 
00521 *                                                                 DCUPD35 
00522  REL-EDIT-CN.                                                     DCUPD35 
00523      IF FIELD-ID NOT EQUAL TO 05 GO TO REL-EDIT-PUSE.             DCUPD35 
00524      MOVE REL-F-CNAME TO OLD-VALUE.                               DCUPD35 
00525      MOVE REL-F-CNAME TO OLD-CATAL-NAME.                             CL**2
00526      IF VAL (1) EQUAL TO "$" GO TO REL-DEL-CN.                    DCUPD35 
00527      PERFORM CK-CATNAME THRU CK-CATNAME-XIT.                      DCUPD35 
00528      MOVE "R" TO TYPE-CATAL-NAME.                                    CL**2
00529      MOVE VAL-AREA TO NEW-CATAL-NAME.                                CL**2
00530      MOVE VAL-AREA TO REL-F-CNAME.                                DCUPD35 
00531      GO TO CAT-MVC-MSG-CHG.                                       DCUPD35 
00532  REL-DEL-CN.                                                      DCUPD35 
00533      IF REL-F-CNAME EQUAL TO SPACES                               DCUPD35 
00534          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD35 
00535      MOVE "R" TO TYPE-CATAL-NAME.                                    CL**2
00536      MOVE SPACES TO REL-F-CNAME.                                  DCUPD35 
00537      MOVE SPACE TO NEW-CATAL-NAME.                                   CL**2
00538      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
00539 *                                                                 DCUPD35 
00540 *     RELATIONAL - PUSE                                              CL**2
00541 *                                                                 DCUPD35 
00542  REL-EDIT-PUSE.                                                      CL**2
00543      IF FIELD-ID NOT EQUAL TO 10 GO TO FLD-ERR.                   DCUPD35 
00544      MOVE REL-F-PUSE TO OLD-VALUE.                                DCUPD35 
00545      IF VAL (1) EQUAL TO "$" GO TO REL-DEL-PUSE.                  DCUPD35 
00546      MOVE PUSE-CODES TO VALID-CODE-TABLE.                         DCUPD35 
00547      PERFORM VALID-CODE THRU VALID-CODE-XIT.                      DCUPD35 
00548      MOVE VAL (1) TO REL-F-PUSE.                                  DCUPD35 
00549      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00550  REL-DEL-PUSE.                                                    DCUPD35 
00551      IF REL-F-PUSE EQUAL TO SPACES                                DCUPD35 
00552          GO TO CAT-MVC-MSG-ERR-DEL.                               DCUPD35 
00553      MOVE SPACES TO REL-F-PUSE.                                   DCUPD35 
00554      GO TO CAT-MVC-MSG-DEL.                                       DCUPD35 
