*DECK     DCUPD05 
00001  IDENTIFICATION DIVISION.                                         06/08/78
       PROGRAM-ID. UPD05. 
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION. 
       SOURCE-COMPUTER. CYBER.
       OBJECT-COMPUTER. CYBER.
       DATA DIVISION. 
*CALL UPDCS 
*CALL DCDWA05 
*CALL QUALINE 
*CALL     DCUPDSWS
00004  01  CYC-CODES     PICTURE X(18) VALUE                               CL**2
00005      "DWMQASR0123456789/".                                           CL**2
00006  01  TIME-UNIT-CODES PICTURE X(17) VALUE                             CL**2
00007      "DWMQAS0123456789/".                                            CL**2
*CALL CODES 
00010  01  CONT-CODES    PICTURE X(2)  VALUE                               CL**2
00011      "-/".                                                           CL**2
00012  01  CTL-CODES     PICTURE X(13) VALUE                               CL**2
00013      "VC0123456789/".                                                CL**2
00014  01  JUST-CODES    PICTURE X(13) VALUE                               CL**2
00015      "RL0123456789/".                                                CL**2
00018  01  DYN-CODES     PICTURE X(13) VALUE                               CL**2
00019      "DS0123456789/".                                                CL**2
00020  01  GEN-CODES    PICTURE X(13) VALUE                                CL**2
00021      "YN0123456789/".                                                CL**2
       01  PROCESS-CODES   PICTURE X(27)  VALUE 
           "AR VR CH EC DC EA DA CA /  ". 
00026  PROCEDURE DIVISION.                                                 CL**2
*CALL     DCUPDKW 
00029 *****************************************************                CL**2
00030 *                                                                    CL**2
00031 *     E L E M E N T A R Y   E N T R Y   E D I T I N G                CL**2
00032 *                                                                    CL**2
00033 *****************************************************                CL**2
00034 *                                                                    CL**2
00035 *                                                                    CL**2
00036 ******************************************************               CL**2
00037 *                                                                    CL**2
00038 *     ORIGIN CATEGORY                                                CL**2
00039 *                                                                    CL**2
00040 ******************************************************               CL**2
00041  ORG-EDIT.                                                           CL**2
00042      IF CAT-ID NOT EQUAL TO 100 GO TO VAL-EDIT.                      CL**2
00043 *                                                                    CL**2
00044 *     ORIGIN - DEPARTMENT                                            CL**2
00045 *                                                                    CL**2
00046  ORG-EDIT-DEPT.                                                      CL**2
00047      IF FIELD-ID NOT EQUAL TO 05 GO TO ORG-EDIT-PROG.                CL**2
00048      MOVE ORG-DEPT TO OLD-VALUE.                                     CL**2
00049      IF VAL (1) EQUAL TO "$" GO TO ORG-DEL-DEPT.                     CL**2
00050      MOVE VAL-AREA TO ORG-DEPT.                                      CL**2
00051      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00052  ORG-DEL-DEPT.                                                       CL**2
00053      IF ORG-DEPT EQUAL TO SPACES                                     CL**2
00054           GO TO CAT-MVC-MSG-ERR-DEL.                                 CL**2
00055      MOVE SPACES TO ORG-DEPT.                                        CL**2
00056      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00057 *                                                                    CL**2
00058 *     ORIGIN - PROGRAM                                               CL**2
00059 *                                                                    CL**2
00060  ORG-EDIT-PROG.                                                      CL**2
00061      IF FIELD-ID NOT EQUAL TO 10 GO TO ORG-EDIT-FORM.                CL**2
00062      MOVE ORG-PROGRAM TO OLD-VALUE.                                  CL**2
00063      IF VAL (1) EQUAL TO "$" GO TO ORG-DEL-PROG.                     CL**2
00064      MOVE VAL-AREA TO ORG-PROGRAM.                                   CL**2
00065      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00066  ORG-DEL-PROG.                                                       CL**2
00067      IF ORG-PROGRAM EQUAL TO SPACES                                  CL**2
00068           GO TO CAT-MVC-MSG-ERR-DEL.                                 CL**2
00069      MOVE SPACES TO ORG-PROGRAM.                                     CL**2
00070      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00071 *                                                                    CL**2
00072 *     ORIGIN - FORM                                                  CL**2
00073 *                                                                    CL**2
00074  ORG-EDIT-FORM.                                                      CL**2
00075      IF FIELD-ID NOT EQUAL TO 15 GO TO ORG-EDIT-GEN.                 CL**2
00076      MOVE ORG-FORM TO OLD-VALUE.                                     CL**2
00077      IF VAL (1) EQUAL TO "$" GO TO ORG-DEL-FORM.                     CL**2
00078      MOVE VAL-AREA TO ORG-FORM.                                      CL**2
00079      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00080  ORG-DEL-FORM.                                                       CL**2
00081      IF ORG-FORM EQUAL TO SPACES                                     CL**2
00082           GO TO CAT-MVC-MSG-ERR-DEL.                                 CL**2
00083      MOVE SPACES TO ORG-FORM.                                        CL**2
00084      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00085 *                                                                    CL**2
00086 *     ORIGIN - GENERATED                                             CL**2
00087 *                                                                    CL**2
00088  ORG-EDIT-GEN.                                                       CL**2
00089      IF FIELD-ID NOT EQUAL TO 20 GO TO ORG-EDIT-CYC.                 CL**2
00090      MOVE ORG-GEN TO OLD-VALUE.                                      CL**2
00091      IF VAL (1) EQUAL TO "$" GO TO ORG-DEL-GEN.                      CL**2
00092      MOVE GEN-CODES TO VALID-CODE-TABLE.                             CL**2
00093      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00094      MOVE VAL (1) TO ORG-GEN.                                        CL**2
00095      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00096  ORG-DEL-GEN.                                                        CL**2
00097      IF ORG-GEN EQUAL TO SPACE                                       CL**2
00098          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00099      MOVE SPACES TO ORG-GEN.                                         CL**2
00100      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00101 *                                                                    CL**2
00102 *     ORIGIN - CYCLE                                                 CL**2
00103 *                                                                    CL**2
00104  ORG-EDIT-CYC.                                                       CL**2
00105      IF FIELD-ID NOT EQUAL TO 25 GO TO ORG-EDIT-LIFET.               CL**2
           MOVE ORG-CYCLE TO OLD-VALUE. 
           IF VAL (1) EQUAL TO "$"
              GO TO ORG-DEL-CYC.
00107      MOVE CYC-CODES TO VALID-CODE-TABLE.                             CL**2
00108      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00109      MOVE VAL (1) TO ORG-CYCLE.                                      CL**2
00110      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00111  ORG-DEL-CYC.                                                        CL**2
00112      IF ORG-CYCLE EQUAL TO SPACE                                     CL**2
00113          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00114      MOVE SPACE TO ORG-CYCLE.                                        CL**2
00115      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00116 *                                                                    CL**2
00117 *     ORIGIN - LIFE TIME                                             CL**2
00118 *                                                                    CL**2
00119  ORG-EDIT-LIFET.                                                     CL**2
00120      IF FIELD-ID NOT EQUAL TO 30 GO TO ORG-EDIT-LIFEU.               CL**2
00121      MOVE ORG-LIFE-TIME TO OLD-VALUE.                                CL**2
00122      IF VAL (1) EQUAL TO "$" GO TO ORG-DEL-LIFET.                    CL**2
           MOVE SPACES TO NUM-EDIT. 
00123      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO ORG-LIFE-TIME.
00126      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00127  ORG-DEL-LIFET.                                                      CL**2
00128      IF ORG-LIFE-TIME EQUAL TO SPACES                                CL**2
00129          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00130      MOVE SPACES TO ORG-LIFE-TIME.                                   CL**2
00131      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00132 *                                                                    CL**2
00133 *     ORIGIN - LIFE UNIT                                             CL**2
00134 *                                                                    CL**2
00135  ORG-EDIT-LIFEU.                                                     CL**2
00136      IF FIELD-ID NOT EQUAL TO 35 GO TO FLD-ERR.                      CL**2
00137      MOVE ORG-LIFE-UNIT TO OLD-VALUE.                                CL**2
00138      IF VAL (1) EQUAL TO "$" GO TO ORG-DEL-LIFEU.                    CL**2
00139      MOVE TIME-UNIT-CODES TO VALID-CODE-TABLE.                       CL**2
00140      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00141      MOVE VAL (1) TO ORG-LIFE-UNIT.                                  CL**2
00142      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00143  ORG-DEL-LIFEU.                                                      CL**2
00144      IF ORG-LIFE-UNIT EQUAL TO SPACES                                CL**2
00145          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00146      MOVE SPACES TO ORG-LIFE-UNIT.                                   CL**2
00147      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00148 ******************************************************               CL**2
00149 *                                                                    CL**2
00150 *     VALUE CATEGORY                                                 CL**2
00151 *                                                                    CL**2
00152 ******************************************************               CL**2
00153  VAL-EDIT.                                                           CL**2
00154      IF CAT-ID NOT EQUAL TO 110 GO TO PT-EDIT.                       CL**2
00155 *                                                                    CL**2
00156 *     VALUE - VALUE                                                  CL**2
00157 *                                                                    CL**2
00158  VAL-EDIT-VAL.                                                       CL**2
00159      IF FIELD-ID NOT EQUAL TO 05 GO TO VAL-EDIT-NOTE.                CL**2
00160      MOVE VAL-VALUE TO OLD-VALUE.                                    CL**2
00161      IF VAL (1) EQUAL TO "$" GO TO VAL-DEL-VAL.                      CL**2
00162      MOVE VAL-AREA TO VAL-VALUE.                                     CL**2
00163      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00164  VAL-DEL-VAL.                                                        CL**2
00165      IF VAL-VALUE EQUAL TO SPACES                                    CL**2
00166          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00167      MOVE SPACES TO VAL-VALUE.                                       CL**2
00168      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00169 *                                                                    CL**2
00170 *     VALUE - NOTE                                                   CL**2
00171 *                                                                    CL**2
00172  VAL-EDIT-NOTE.                                                      CL**2
           IF FIELD-ID NOT EQUAL TO 10
               GO TO VAL-EDIT-CHECKBY.
00174      MOVE VAL-NOTE TO OLD-VALUE.                                     CL**2
00175      IF VAL (1) EQUAL TO "$" GO TO VAL-DEL-NOTE.                     CL**2
00176      MOVE VAL-AREA TO VAL-NOTE.                                      CL**2
00177      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00178  VAL-DEL-NOTE.                                                       CL**2
00179      IF VAL-NOTE EQUAL TO SPACES                                     CL**2
00180          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00181      MOVE SPACES TO VAL-NOTE.                                        CL**2
00182      GO TO CAT-MVC-MSG-DEL.                                          CL**2
      * 
      *        VALUE - CHECKBY
      * 
       VAL-EDIT-CHECKBY.
           IF FIELD-ID NOT EQUAL TO 20
               GO TO VAL-EDIT-CKVAL.
           MOVE VAL-CHECKBY TO OLD-VALUE. 
           IF VAL (1) EQUAL TO "$" GO TO VAL-DEL-CHECKBY. 
           MOVE 13 TO MAX-LENGTH. 
           MOVE  "PICPROVAL/  " TO BIG-CODES. 
           PERFORM CHECK-SLASHES THRU CHECK-SLASHES-EXIT. 
           MOVE VAL-AREA TO VAL-CHECKBY.
           MOVE "C" TO CHK-LINE-TYPE. 
           GO TO CAT-MVC-MSG-CHG. 
       VAL-DEL-CHECKBY. 
           IF VAL-CHECKBY EQUAL SPACES
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO VAL-CHECKBY.
           GO TO DEL-CHECKER. 
      * 
      *        VALUE - CHECK VALUE
      * 
       VAL-EDIT-CKVAL.
           IF FIELD-ID NOT EQUAL TO 25
               GO TO VAL-EDIT-THRU. 
           MOVE VAL-CKVAL TO OLD-VALUE. 
           IF VAL (1) EQUAL TO "$"
               GO TO VAL-DEL-CKVAL. 
           IF QUOTE-SW EQUAL "Y"
               MOVE VAL-AREA TO VAL-CKVAL 
               MOVE "L" TO VAL-TYPE 
           ELSE 
               IF VAL (1) IS NUMERIC
                 OR VAL (1) EQUAL "-" 
                   MOVE "." TO NUM-EDIT 
                   MOVE 10 TO FLD-LEN (FLD) 
                   PERFORM MOVE-NUM THRU VALID-NUM-XIT
                   MOVE SPACES TO VAL-CKVAL 
                   MOVE NUM-HOLD-X TO VAL-CKVAL (1 : 10)
                   MOVE 30 TO FLD-LEN (FLD) 
                   MOVE "N" TO VAL-TYPE 
               END-IF 
           END-IF 
           MOVE "C" TO CHK-LINE-TYPE. 
           GO TO CAT-MVC-MSG-CHG. 
       VAL-DEL-CKVAL. 
           IF VAL-CKVAL EQUAL SPACES
               GO TO CAT-MVC-MSG-CHG. 
           MOVE SPACES TO VAL-CKVAL.
           GO TO DEL-CHECKER. 
      * 
      *        VALUE - CHECK THRU 
      * 
       VAL-EDIT-THRU. 
           IF FIELD-ID NOT EQUAL TO 30
               GO TO FLD-ERR. 
           MOVE VAL-THRU TO OLD-VALUE.
           IF VAL (1) EQUAL TO "$"
               GO TO VAL-DEL-THRU.
           IF QUOTE-SW EQUAL "Y"
               MOVE "L" TO THRU-TYPE
               MOVE VAL-AREA TO VAL-THRU
           ELSE 
               IF VAL (1) IS NUMERIC
                 OR VAL (1) EQUAL "-" 
                   MOVE "N" TO THRU-TYPE
                   MOVE "." TO NUM-EDIT 
                   MOVE 10 TO FLD-LEN (FLD) 
                   PERFORM MOVE-NUM THRU VALID-NUM-XIT
                   MOVE SPACES TO VAL-THRU
                   MOVE NUM-HOLD-X TO VAL-THRU (1 : 10) 
                   MOVE 30 TO FLD-LEN (FLD) 
               END-IF 
           END-IF 
           MOVE "C" TO CHK-LINE-TYPE. 
           GO TO CAT-MVC-MSG-CHG. 
       VAL-DEL-THRU.
           IF VAL-THRU EQUAL SPACES 
               GO TO CAT-MVC-MSG-CHG. 
           MOVE SPACES TO VAL-THRU. 
           GO TO DEL-CHECKER. 
00183 ******************************************************               CL**2
00184 *                                                                    CL**2
00185 *     PRO TEST CATEGORY                                              CL**2
00186 *                                                                    CL**2
00187 ******************************************************               CL**2
00188  PT-EDIT.                                                            CL**2
00189      IF CAT-ID NOT EQUAL TO 120 GO TO STD-EDIT.                      CL**2
00190 *                                                                    CL**2
00191 *     PRO TEST - CONTINUE CODE                                       CL**2
00192 *                                                                    CL**2
00193  PT-EDIT-CONT.                                                       CL**2
00194      IF FIELD-ID NOT EQUAL TO 05 GO TO PT-EDIT-CCODE.                CL**2
00195      MOVE PT-CONTINUE TO OLD-VALUE.                                  CL**2
00196      IF VAL (1) EQUAL TO "$" GO TO PT-DEL-CONT.                      CL**2
00197      MOVE CONT-CODES TO VALID-CODE-TABLE.                            CL**2
00198      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00199      MOVE VAL (1) TO PT-CONTINUE.                                    CL**2
00200      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00201  PT-DEL-CONT.                                                        CL**2
00202      IF PT-CONTINUE EQUAL TO SPACES                                  CL**2
00203          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00204      MOVE SPACE TO PT-CONTINUE.                                      CL**2
00205      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00206 *                                                                    CL**2
00207 *     PRO TEST - CONTROL CODE                                        CL**2
00208 *                                                                    CL**2
00209  PT-EDIT-CCODE.                                                      CL**2
00210      IF FIELD-ID NOT EQUAL TO 10 GO TO PT-EDIT-TYPE.                 CL**2
00211      MOVE PT-CTLCODE TO OLD-VALUE.                                   CL**2
00212      IF VAL (1) EQUAL TO "$" GO TO PT-DEL-CCODE.                     CL**2
00213      MOVE CTL-CODES TO VALID-CODE-TABLE.                             CL**2
00214      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00215      MOVE VAL (1) TO PT-CTLCODE.                                     CL**2
00216      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00217  PT-DEL-CCODE.                                                       CL**2
00218      IF PT-CTLCODE EQUAL TO SPACES                                   CL**2
00219          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00220      MOVE SPACES TO PT-CTLCODE.                                      CL**2
00221      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00222 *                                                                    CL**2
00223 *     PRO TEST - FIELD TYPE                                          CL**2
00224 *                                                                    CL**2
00225  PT-EDIT-TYPE.                                                       CL**2
00226      IF FIELD-ID NOT EQUAL TO 15 GO TO PT-EDIT-HR.                   CL**2
00227      MOVE PT-FIELDTYPE TO OLD-VALUE.                                 CL**2
00228      IF VAL (1) EQUAL TO "$" GO TO PT-DEL-TYPE.                      CL**2
00229      IF VAL-AREA EQUAL TO "CONN" GO TO PT-EDIT-TYPE10.               CL**2
00230      IF VAL-AREA EQUAL TO "CONP" GO TO PT-EDIT-TYPE10.               CL**2
00231      IF VAL-AREA EQUAL TO "CONB" GO TO PT-EDIT-TYPE10.               CL**2
00232      IF VAL-AREA EQUAL TO "CONF" GO TO PT-EDIT-TYPE10.               CL**2
00233      IF VAL-AREA EQUAL TO "CONA" GO TO PT-EDIT-TYPE10.               CL**2
00234      IF VAL-AREA EQUAL TO "CONX" GO TO PT-EDIT-TYPE10.               CL**2
00235      IF VAL-AREA EQUAL TO "FILL" GO TO PT-EDIT-TYPE10.               CL**2
00236      IF VAL-AREA EQUAL TO "RNGN" GO TO PT-EDIT-TYPE10.               CL**2
00237      IF VAL-AREA EQUAL TO "RNGP" GO TO PT-EDIT-TYPE10.               CL**2
00238      IF VAL-AREA EQUAL TO "RNGB" GO TO PT-EDIT-TYPE10.               CL**2
00239      IF VAL-AREA EQUAL TO "RNGF" GO TO PT-EDIT-TYPE10.               CL**2
00240      IF VAL-AREA EQUAL TO "RNGA" GO TO PT-EDIT-TYPE10.               CL**2
00241      IF VAL-AREA EQUAL TO "RNGX" GO TO PT-EDIT-TYPE10.               CL**2
00242      IF VAL-AREA EQUAL TO "RANN" GO TO PT-EDIT-TYPE10.               CL**2
00243      IF VAL-AREA EQUAL TO "RANP" GO TO PT-EDIT-TYPE10.               CL**2
00244      IF VAL-AREA EQUAL TO "RANB" GO TO PT-EDIT-TYPE10.               CL**2
00245      IF VAL-AREA EQUAL TO "RANF" GO TO PT-EDIT-TYPE10.               CL**2
00246      IF VAL-AREA EQUAL TO "RANA" GO TO PT-EDIT-TYPE10.               CL**2
00247      IF VAL-AREA EQUAL TO "RANX" GO TO PT-EDIT-TYPE10.               CL**2
00248      MOVE CERR-235W TO MSG-POS5 (MSG).                               CL**2
00249      MOVE "235-W" TO MSG-POS2 (MSG).                                 CL**2
00250      GO TO CAT-MVC-MSG-ERR.                                          CL**2
00251  PT-EDIT-TYPE10.                                                     CL**2
00252      MOVE VAL-AREA TO PT-FIELDTYPE.                                  CL**2
00253      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00254  PT-DEL-TYPE.                                                        CL**2
00255      IF PT-FIELDTYPE EQUAL TO SPACES                                 CL**2
00256          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00257      MOVE SPACES TO PT-FIELDTYPE.                                    CL**2
00258      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00259 *                                                                    CL**2
00260 *     PRO TEST - HR CODE                                             CL**2
00261 *                                                                    CL**2
00262  PT-EDIT-HR.                                                         CL**2
00263      IF FIELD-ID NOT EQUAL TO 35 GO TO PT-EDIT-CONV.                 CL**2
00264      MOVE PT-HRCODE TO OLD-VALUE.                                    CL**2
00265      IF VAL (1) EQUAL TO "$" GO TO PT-DEL-HR.                        CL**2
00266      IF VAL-AREA EQUAL TO "HOLD" OR "RESET"                          CL**2
00267          GO TO PT-EDIT-HR10.                                         CL**2
00268      MOVE CERR-235W TO MSG-POS5 (MSG).                               CL**2
00269      MOVE "235-W" TO MSG-POS2 (MSG).                                 CL**2
00270      GO TO CAT-MVC-MSG-ERR.                                          CL**2
00271  PT-EDIT-HR10.                                                       CL**2
00272      MOVE VAL-AREA TO PT-HRCODE.                                     CL**2
00273      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00274  PT-DEL-HR.                                                          CL**2
00275      IF PT-HRCODE EQUAL TO SPACES                                    CL**2
00276          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00277      MOVE SPACES TO PT-HRCODE.                                       CL**2
00278      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00279 *                                                                    CL**2
00280 *                                                                    CL**2
00281 *     PRO TEST - CON VALUE                                           CL**2
00282 *                                                                    CL**2
00283  PT-EDIT-CONV.                                                       CL**2
00284      IF FIELD-ID NOT EQUAL TO 40 GO TO PT-EDIT-FROMV.                CL**2
00285      MOVE PT-CONVALUE TO OLD-VALUE.                                  CL**2
00286      IF VAL (1) EQUAL TO "$" GO TO PT-DEL-CONV.                      CL**2
00287      MOVE VAL-AREA TO PT-CONVALUE.                                   CL**2
00288      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00289  PT-DEL-CONV.                                                        CL**2
00290      IF PT-CONVALUE EQUAL TO SPACES                                  CL**2
00291          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00292      MOVE SPACES TO PT-CONVALUE.                                     CL**2
00293      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00294 *                                                                    CL**2
00295 *     PRO TEST - FROM VALUE                                          CL**2
00296 *                                                                    CL**2
00297  PT-EDIT-FROMV.                                                      CL**2
00298      IF FIELD-ID NOT EQUAL TO 20 GO TO PT-EDIT-TOV.                  CL**2
00299      MOVE PT-FROMVALUE TO OLD-VALUE.                                 CL**2
00300      IF VAL (1) EQUAL TO "$" GO TO PT-DEL-FROMV.                     CL**2
00301      MOVE VAL-AREA TO PT-FROMVALUE.                                  CL**2
00302      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00303  PT-DEL-FROMV.                                                       CL**2
00304      IF PT-FROMVALUE EQUAL TO SPACES                                 CL**2
00305          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00306      MOVE SPACES TO PT-FROMVALUE.                                    CL**2
00307      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00308 *                                                                    CL**2
00309 *     PRO TEST - TO VALUE                                            CL**2
00310 *                                                                    CL**2
00311  PT-EDIT-TOV.                                                        CL**2
00312      IF FIELD-ID NOT EQUAL TO 25 GO TO PT-EDIT-BYV.                  CL**2
00313      MOVE PT-TOVALUE TO OLD-VALUE.                                   CL**2
00314      IF VAL (1) EQUAL TO "$" GO TO PT-DEL-TOV.                       CL**2
00315      MOVE VAL-AREA TO PT-TOVALUE.                                    CL**2
00316      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00317  PT-DEL-TOV.                                                         CL**2
00318      IF PT-TOVALUE EQUAL TO SPACES                                   CL**2
00319          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00320      MOVE SPACES TO PT-TOVALUE.                                      CL**2
00321      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00322 *                                                                    CL**2
00323 *     PRO TEST - BY VALUE                                            CL**2
00324 *                                                                    CL**2
00325  PT-EDIT-BYV.                                                        CL**2
00326      IF FIELD-ID NOT EQUAL TO 30 GO TO FLD-ERR.                      CL**2
00327      MOVE PT-BYVALUE TO OLD-VALUE.                                   CL**2
00328      IF VAL (1) EQUAL TO "$" GO TO PT-DEL-BYV.                       CL**2
00329      MOVE VAL-AREA TO PT-BYVALUE.                                    CL**2
00330      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00331  PT-DEL-BYV.                                                         CL**2
00332      IF PT-BYVALUE EQUAL TO SPACES                                   CL**2
00333          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00334      MOVE SPACES TO PT-BYVALUE.                                      CL**2
00335      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00336 ******************************************************               CL**2
00337 *                                                                    CL**2
00338 *     STD VALUE CATEGORY                                             CL**2
00339 *                                                                    CL**2
00340 ******************************************************               CL**2
00341  STD-EDIT.                                                           CL**2
00342      IF CAT-ID NOT EQUAL TO 130 GO TO NAME-EDIT.                     CL**2
00343 *                                                                    CL**2
00344 *     STD VALUE - VALUE                                              CL**2
00345 *                                                                    CL**2
00346  STD-EDIT-VAL.                                                       CL**2
00347      IF FIELD-ID NOT EQUAL TO 05 GO TO STD-EDIT-NOTE.                CL**2
00348       MOVE STD-VALUE TO OLD-VALUE.                                   CL**2
00349      IF VAL (1) EQUAL TO "$" GO TO STD-DEL-VAL.                      CL**2
00350      MOVE VAL-AREA TO STD-VALUE.                                     CL**2
00351      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00352  STD-DEL-VAL.                                                        CL**2
00353      IF STD-VALUE EQUAL TO SPACES                                    CL**2
00354          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00355      MOVE SPACES TO STD-VALUE.                                       CL**2
00356      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00357 *                                                                    CL**2
00358 *     STD VALUE - NOTE                                               CL**2
00359 *                                                                    CL**2
00360  STD-EDIT-NOTE.                                                      CL**2
00361      IF FIELD-ID NOT EQUAL TO 10 GO TO FLD-ERR.                      CL**2
00362      MOVE STD-NOTE TO OLD-VALUE.                                     CL**2
00363      IF VAL (1) EQUAL TO "$" GO TO STD-DEL-NOTE.                     CL**2
00364      MOVE VAL-AREA TO STD-NOTE.                                      CL**2
00365      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00366  STD-DEL-NOTE.                                                       CL**2
00367      IF STD-NOTE EQUAL TO SPACES                                     CL**2
00368          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00369      MOVE SPACES TO STD-NOTE.                                        CL**2
00370      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00371 ******************************************************               CL**2
00372 *                                                                    CL**2
00373 *     NAME CATEGORY                                                  CL**2
00374 *                                                                    CL**2
00375 ******************************************************               CL**2
00376  NAME-EDIT.                                                          CL**2
00377      IF CAT-ID NOT EQUAL TO 200 GO TO ATTR-EDIT.                     CL**2
00378 *                                                                    CL**2
00379 *     NAME - DATA NAME                                               CL**2
00380 *                                                                    CL**2
00381  NAME-EDIT-DN.                                                       CL**2
00382      IF FIELD-ID NOT EQUAL TO 05 GO TO NAME-EDIT-ID.                 CL**2
00383      MOVE NAME-DATA-NAME TO OLD-VALUE.                               CL**2
00384      IF VAL (1) EQUAL TO "$" GO TO NAME-DEL-DN.                      CL**2
00385      MOVE VAL-AREA TO NAME-DATA-NAME.                                CL**2
00386      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00387  NAME-DEL-DN.                                                        CL**2
00388      IF NAME-DATA-NAME EQUAL TO SPACES                               CL**2
00389          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00390      MOVE SPACES TO NAME-DATA-NAME.                                  CL**2
00391      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00392 *                                                                    CL**2
00393 *     NAME - IDENTIFIER                                              CL**2
00394 *                                                                    CL**2
00395  NAME-EDIT-ID.                                                       CL**2
00396      IF FIELD-ID NOT EQUAL TO 10 GO TO NAME-EDIT-SYM.                CL**2
00397      MOVE NAME-IDENTIFIER TO OLD-VALUE.                              CL**2
00398      IF VAL (1) EQUAL TO "$" GO TO NAME-DEL-ID.                      CL**2
00399      MOVE VAL-AREA TO NAME-IDENTIFIER.                               CL**2
00400      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00401  NAME-DEL-ID.                                                        CL**2
00402      IF NAME-IDENTIFIER EQUAL TO SPACES                              CL**2
00403          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00404      MOVE SPACES TO NAME-IDENTIFIER.                                 CL**2
00405      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00406 *                                                                    CL**2
00407 *     NAME - SYMBOL                                                  CL**2
00408 *                                                                    CL**2
00409  NAME-EDIT-SYM.                                                      CL**2
00410      IF FIELD-ID NOT EQUAL TO 15 GO TO NAME-EDIT-DB.                 CL**2
00411      MOVE NAME-SYMBOL TO OLD-VALUE.                                  CL**2
00412      IF VAL (1) EQUAL TO "$" GO TO NAME-DEL-SYM.                     CL**2
00413      MOVE VAL-AREA TO NAME-SYMBOL.                                   CL**2
00414      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00415  NAME-DEL-SYM.                                                       CL**2
00416      IF NAME-SYMBOL EQUAL TO SPACE                                   CL**2
00417          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00418      MOVE SPACES TO NAME-SYMBOL.                                     CL**2
00419      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00420 *                                                                    CL**2
00421 *     NAME - DBMS NAME                                               CL**2
00422 *                                                                    CL**2
00423  NAME-EDIT-DB.                                                       CL**2
           IF FIELD-ID NOT EQUAL TO 20 GO TO NAME-EDIT-DMS. 
00425      MOVE NAME-DBMS TO OLD-VALUE.                                    CL**2
00426      IF VAL (1) EQUAL TO "$" GO TO NAME-DEL-DB.                      CL**2
00427      MOVE VAL-AREA TO NAME-DBMS.                                     CL**2
00428      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00429  NAME-DEL-DB.                                                        CL**2
00430      IF NAME-DBMS EQUAL TO SPACES                                    CL**2
00431          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00432      MOVE SPACES TO NAME-DBMS.                                       CL**2
00433      GO TO CAT-MVC-MSG-DEL.                                          CL**2
      * 
      *    NAME - DMS NAME
      * 
       NAME-EDIT-DMS. 
           IF FIELD-ID NOT EQUAL TO 35 GO TO FLD-ERR. 
           MOVE NAME-DMS TO OLD-VALUE.
           IF VAL (1) EQUAL TO "$" GO TO NAME-DEL-DMS.
           MOVE VAL-AREA TO NAME-DMS. 
           GO TO CAT-MVC-MSG-CHG. 
       NAME-DEL-DMS.
           IF NAME-DMS EQUAL TO SPACES
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO NAME-DMS. 
           GO TO CAT-MVC-MSG-DEL. 
00462 ******************************************************               CL**2
00463 *                                                                    CL**2
00464 *     ATTRIBUTE CATEGORY                                             CL**2
00465 *                                                                    CL**2
00466 ******************************************************               CL**2
00467  ATTR-EDIT.                                                          CL**2
00468      IF CAT-ID NOT EQUAL TO 210 GO TO ALY-EDIT.                      CL**2
00469 *                                                                    CL**2
00470 *     ATTRIBUTE - LENGTH                                             CL**2
00471 *                                                                    CL**2
00472  ATTR-EDIT-LEN.                                                      CL**2
00473      IF FIELD-ID NOT EQUAL TO 05 GO TO ATTR-EDIT-USE.                CL**2
00474      MOVE ATTR-LENGTH TO OLD-VALUE.                                  CL**2
00475      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-LEN.                     CL**2
           MOVE "." TO NUM-EDIT.
00476      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO ATTR-LENGTH.
00479      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00480  ATTR-DEL-LEN.                                                       CL**2
00481      IF ATTR-LENGTH EQUAL TO SPACES                                  CL**2
00482          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00483      MOVE SPACES TO ATTR-LENGTH.                                     CL**2
00484      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00485 *                                                                    CL**2
00486 *     ATTRIBUTE - USAGE                                              CL**2
00487 *                                                                    CL**2
00488  ATTR-EDIT-USE.                                                      CL**2
00489      IF FIELD-ID NOT EQUAL TO 10 GO TO ATTR-EDIT-JUST.               CL**2
00490      MOVE ATTR-FORMAT TO OLD-VALUE.                                  CL**2
00491      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-USE.                     CL**2
           MOVE VAL-AREA (1 : VA) TO HOLD-FORMAT. 
           MOVE FORMAT-CODES TO BIG-CODES.
           PERFORM FORMAT-VALIDATION THRU FORMAT-VALIDATION-EXIT. 
           MOVE HOLD-FORMAT TO ATTR-FORMAT. 
00495      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00496  ATTR-DEL-USE.                                                       CL**2
00497      IF ATTR-FORMAT EQUAL TO SPACES                                  CL**2
00498          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00499      MOVE SPACES TO ATTR-FORMAT.                                     CL**2
00500      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00501 *                                                                    CL**2
00502 *     ATTRIBUTE - JUSTIFIED                                          CL**2
00503 *                                                                    CL**2
00504  ATTR-EDIT-JUST.                                                     CL**2
00505      IF FIELD-ID NOT EQUAL TO 15 GO TO ATTR-EDIT-SYNC.               CL**2
00506      MOVE ATTR-JUST TO OLD-VALUE.                                    CL**2
00507      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-JUST.                    CL**2
00508      MOVE JUST-CODES TO VALID-CODE-TABLE.                            CL**2
00509      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00510      MOVE VAL (1) TO ATTR-JUST.                                      CL**2
00511      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00512  ATTR-DEL-JUST.                                                      CL**2
00513      IF ATTR-JUST EQUAL TO SPACE                                     CL**2
00514          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00515      MOVE SPACES TO ATTR-JUST.                                       CL**2
00516      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00517 *                                                                    CL**2
00518 *     ATTRIBUTE -SYNC                                                CL**2
00519 *                                                                    CL**2
00520  ATTR-EDIT-SYNC.                                                     CL**2
00521      IF FIELD-ID NOT EQUAL TO 20 GO TO ATTR-EDIT-VOL.                CL**2
00522      MOVE ATTR-SYNC TO OLD-VALUE.                                    CL**2
00523      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-SYNC.                    CL**2
00524      MOVE SYNC-CODES TO VALID-CODE-TABLE.                            CL**2
00525      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00526      MOVE VAL (1) TO ATTR-SYNC.                                      CL**2
00527      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00528  ATTR-DEL-SYNC.                                                      CL**2
00529      IF ATTR-SYNC EQUAL TO SPACES                                    CL**2
00530          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00531      MOVE SPACE TO ATTR-SYNC.                                        CL**2
00532      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00533 *                                                                    CL**2
00534 *     ATTRIBUTE - VOLATILE                                           CL**2
00535 *                                                                    CL**2
00536  ATTR-EDIT-VOL.                                                      CL**2
00537      IF FIELD-ID NOT EQUAL TO 25 GO TO ATTR-EDIT-NAT.                CL**2
00538      MOVE ATTR-VOLATILE TO OLD-VALUE.                                CL**2
00539      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-VOL.                     CL**2
00540      MOVE DYN-CODES TO VALID-CODE-TABLE.                             CL**2
00541      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00542      MOVE VAL (1) TO ATTR-VOLATILE.                                  CL**2
00543      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00544  ATTR-DEL-VOL.                                                       CL**2
00545      IF ATTR-VOLATILE EQUAL TO SPACES                                CL**2
00546          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00547      MOVE SPACES TO ATTR-VOLATILE.                                   CL**2
00548      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00549 *                                                                    CL**2
00550 *     ATTRIBUTE - NATURE                                             CL**2
00551 *                                                                    CL**2
00552  ATTR-EDIT-NAT.                                                      CL**2
00553      IF FIELD-ID NOT EQUAL TO 30 GO TO ATTR-EDIT-MEA.                CL**2
00554      MOVE ATTR-NATURE TO OLD-VALUE.                                  CL**2
           IF VAL (1) EQUAL TO "$"
00556          GO TO ATTR-DEL-NAT.                                         CL**2
00557      MOVE VAL-AREA TO ATTR-NATURE.                                   CL**2
00558      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00559  ATTR-DEL-NAT.                                                       CL**2
00560      IF ATTR-NATURE EQUAL TO SPACES                                  CL**2
00561          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00562      MOVE SPACES TO ATTR-NATURE.                                     CL**2
00563      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00564 *                                                                    CL**2
00565 *     ATTRIBUTE - MEASUREMENT                                        CL**2
00566 *                                                                    CL**2
00567  ATTR-EDIT-MEA.                                                      CL**2
00568      IF FIELD-ID NOT EQUAL TO 35 GO TO ATTR-EDIT-PIC.                CL**2
00569      MOVE ATTR-MEASURE TO OLD-VALUE.                                 CL**2
00570      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-MEA.                     CL**2
00571      MOVE VAL-AREA TO ATTR-MEASURE.                                  CL**2
00572      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00573   ATTR-DEL-MEA.                                                      CL**2
00574      IF ATTR-MEASURE EQUAL TO SPACES                                 CL**2
00575          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00576      MOVE SPACES TO ATTR-MEASURE.                                    CL**2
00577      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00578 *                                                                    CL**2
00579 *     ATTRIBUTE - PICTURE                                            CL**2
00580 *                                                                    CL**2
00581  ATTR-EDIT-PIC.                                                      CL**2
00582      IF FIELD-ID NOT EQUAL TO 40 GO TO ATTR-EDIT-VAL.                CL**2
00583      MOVE ATTR-PIC TO OLD-VALUE.                                     CL**2
00584      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-PIC.                     CL**2
00585      MOVE VAL-AREA TO ATTR-PIC.                                      CL**2
00586      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00587  ATTR-DEL-PIC.                                                       CL**2
00588      IF ATTR-PIC EQUAL TO SPACES                                     CL**2
00589          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00590      MOVE SPACES TO ATTR-PIC.                                        CL**2
00591      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00592 *                                                                    CL**2
00593 *     ATTRIBUTE - INT VALUE                                          CL**2
00594 *                                                                    CL**2
00595  ATTR-EDIT-VAL.                                                      CL**2
00596      IF FIELD-ID NOT EQUAL TO 45 GO TO FLD-ERR.                      CL**2
00597      MOVE ATTR-INT-VALUE TO OLD-VALUE.                               CL**2
00598      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-VAL.                     CL**2
00599      MOVE VAL-AREA TO ATTR-INT-VALUE.                                CL**2
00600      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00601  ATTR-DEL-VAL.                                                       CL**2
00602      IF ATTR-INT-VALUE EQUAL TO SPACES                               CL**2
00603          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00604      MOVE SPACES TO ATTR-INT-VALUE.                                  CL**2
00605      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00606 ************************************************************         CL**2
00607 *                                                                    CL**2
00608 *     ALYSIS CATEGORY                                                CL**2
00609 *                                                                    CL**2
00610 *************************************************************        CL**2
00611  ALY-EDIT.                                                           CL**2
           IF CAT-ID NOT EQUAL TO 211 GO TO PROCESS-EDIT. 
00613 *                                                                    CL**2
00614 *     ALIAS - DATA NAME                                              CL**2
00615 *                                                                    CL**2
00616  ALY-EDIT-DN.                                                        CL**2
00617       IF FIELD-ID NOT EQUAL TO 05 GO TO ALY-EDIT-ID.                 CL**2
00618       MOVE ALY-DATA-NAME TO OLD-VALUE.                               CL**2
00619       IF VAL (1) EQUAL TO "$" GO TO ALY-DEL-DN.                      CL**2
00620      MOVE VAL-AREA TO ALY-DATA-NAME.                                 CL**2
00621      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00622  ALY-DEL-DN.                                                         CL**2
00623      IF ALY-DATA-NAME EQUAL TO SPACES                                CL**2
00624          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00625      MOVE SPACES TO ALY-DATA-NAME.                                   CL**2
00626      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00627 *                                                                    CL**2
00628 *     ALIAS - IDENTIFIER                                             CL**2
00629 *                                                                    CL**2
00630  ALY-EDIT-ID.                                                        CL**2
00631      IF FIELD-ID NOT EQUAL TO 10 GO TO ALY-EDIT-SYM.                 CL**2
00632      MOVE ALY-IDENTIFER TO OLD-VALUE.                                CL**2
00633      IF VAL (1) EQUAL TO "$" GO TO ALY-DEL-ID.                       CL**2
00634      MOVE VAL-AREA TO ALY-IDENTIFER.                                 CL**2
00635      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00636  ALY-DEL-ID.                                                         CL**2
00637      IF ALY-IDENTIFER EQUAL TO SPACES                                CL**2
00638          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00639      MOVE SPACES TO ALY-IDENTIFER.                                   CL**2
00640      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00641 *                                                                    CL**2
00642 *     ALIAS - SYMBOL                                                 CL**2
00643 *                                                                    CL**2
00644  ALY-EDIT-SYM.                                                       CL**2
00645      IF FIELD-ID NOT EQUAL TO 15 GO TO ALY-EDIT-DBMS.                CL**2
00646      MOVE ALY-SYMBOL TO OLD-VALUE.                                   CL**2
00647      IF VAL (1) EQUAL TO "$" GO TO ALY-DEL-SYM.                      CL**2
00648      MOVE VAL-AREA TO ALY-SYMBOL.                                    CL**2
00649      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00650  ALY-DEL-SYM.                                                        CL**2
00651      IF ALY-SYMBOL EQUAL TO SPACES                                   CL**2
00652          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00653      MOVE SPACES TO ALY-SYMBOL.                                      CL**2
00654      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00655 *                                                                    CL**2
00656 *     ALIAS - DBMS                                                   CL**2
00657 *                                                                    CL**2
00658  ALY-EDIT-DBMS.                                                      CL**2
00659      IF FIELD-ID NOT EQUAL TO 20 GO TO ALY-EDIT-LEN.                 CL**2
00660      MOVE ALY-DBMS TO OLD-VALUE.                                     CL**2
00661      IF VAL (1) EQUAL TO "$" GO TO ALY-DEL-DBMS.                     CL**2
00662      MOVE VAL-AREA TO ALY-DBMS.                                      CL**2
00663      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00664  ALY-DEL-DBMS.                                                       CL**2
00665      IF ALY-DBMS EQUAL TO SPACES                                     CL**2
00666          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00667      MOVE SPACES TO ALY-DBMS.                                        CL**2
00668      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00669 *                                                                    CL**2
00670 *     ALIAS - LENGTH                                                 CL**2
00671 *                                                                    CL**2
00672  ALY-EDIT-LEN.                                                       CL**2
00673      IF FIELD-ID NOT EQUAL TO 25 GO TO ALY-EDIT-USE.                 CL**2
00674      MOVE ALY-LENGTH TO OLD-VALUE.                                   CL**2
00675      IF VAL (1) EQUAL TO "$" GO TO ALY-DEL-LEN.                      CL**2
           MOVE "." TO NUM-EDIT.
00676      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO ALY-LENGTH. 
00679      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00680  ALY-DEL-LEN.                                                        CL**2
00681      IF ALY-LENGTH EQUAL TO SPACES                                   CL**2
00682          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00683      MOVE SPACES TO ALY-LENGTH.                                      CL**2
00684      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00685 *                                                                    CL**2
00686 *     ALIAS - USAGE                                                  CL**2
00687 *                                                                    CL**2
00688  ALY-EDIT-USE.                                                       CL**2
00689      IF FIELD-ID NOT EQUAL TO 30 GO TO ALY-EDIT-JUST.                CL**2
00690      MOVE ALY-FORMAT TO OLD-VALUE.                                   CL**2
00691      IF VAL (1) EQUAL TO "$" GO TO ALY-DEL-USE.                      CL**2
           MOVE VAL-AREA (1 : VA) TO HOLD-FORMAT. 
           MOVE FORMAT-CODES TO BIG-CODES.
           PERFORM FORMAT-VALIDATION THRU FORMAT-VALIDATION-EXIT. 
           MOVE HOLD-FORMAT TO ALY-FORMAT.
00695      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00696  ALY-DEL-USE.                                                        CL**2
00697      IF ALY-FORMAT EQUAL TO SPACES                                   CL**2
00698          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00699      MOVE SPACES TO ALY-FORMAT.                                      CL**2
00700      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00701 *                                                                    CL**2
00702 *     ALIAS - JUSTIFIED                                              CL**2
00703 *                                                                    CL**2
00704  ALY-EDIT-JUST.                                                      CL**2
00705      IF FIELD-ID NOT EQUAL TO 35 GO TO ALY-EDIT-SYNC.                CL**2
00706      MOVE ALY-JUST TO OLD-VALUE.                                     CL**2
00707      IF VAL (1) EQUAL TO "$" GO TO ALY-DEL-JUST.                     CL**2
00708      MOVE JUST-CODES TO VALID-CODE-TABLE.                            CL**2
00709      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00710      MOVE VAL (1) TO ALY-JUST.                                       CL**2
00711      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00712  ALY-DEL-JUST.                                                       CL**2
00713      IF ALY-JUST EQUAL TO SPACE                                      CL**2
00714          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00715      MOVE SPACES TO ALY-JUST.                                        CL**2
00716      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00717 *                                                                    CL**2
00718 *     ALIAS - SYNC                                                   CL**2
00719 *                                                                    CL**2
00720  ALY-EDIT-SYNC.                                                      CL**2
00721      IF FIELD-ID NOT EQUAL TO 40 GO TO ALY-EDIT-PIC.                 CL**2
00722      MOVE ALY-SYNC TO OLD-VALUE.                                     CL**2
00723      IF VAL (1) EQUAL TO "$" GO TO ALY-DEL-SYNC.                     CL**2
00724      MOVE SYNC-CODES TO VALID-CODE-TABLE.                            CL**2
00725      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00726        MOVE VAL (1) TO ALY-SYNC.                                     CL**2
00727      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00728  ALY-DEL-SYNC.                                                       CL**2
00729      IF ALY-SYNC EQUAL TO SPACES                                     CL**2
00730          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00731      MOVE SPACE TO ALY-SYNC.                                         CL**2
00732      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00733 *                                                                    CL**2
00734 *     ALIAS - PICTURE                                                CL**2
00735 *                                                                    CL**2
00736  ALY-EDIT-PIC.                                                       CL**2
00737      IF FIELD-ID NOT EQUAL TO 45 GO TO ALY-EDIT-VAL.                 CL**2
00738      MOVE ALY-PIC TO OLD-VALUE.                                      CL**2
00739      IF VAL (1) EQUAL TO "$" GO TO ALY-DEL-PIC.                      CL**2
00740      MOVE VAL-AREA TO ALY-PIC.                                       CL**2
00741      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00742  ALY-DEL-PIC.                                                        CL**2
00743      IF ALY-PIC EQUAL TO SPACES                                      CL**2
00744          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00745      MOVE SPACES TO ALY-PIC.                                         CL**2
00746      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00747 *                                                                    CL**2
00748 *     ALIAS - INT VALUE                                              CL**2
00749 *                                                                    CL**2
00750  ALY-EDIT-VAL.                                                       CL**2
00751      IF FIELD-ID NOT EQUAL TO 50 GO TO FLD-ERR.                      CL**2
00752      MOVE ALY-INT-VALUE TO OLD-VALUE.                                CL**2
00753      IF VAL (1) EQUAL TO "$" GO TO ALY-DEL-VAL.                      CL**2
00754      MOVE VAL-AREA TO ALY-INT-VALUE.                                 CL**2
00755      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00756  ALY-DEL-VAL.                                                        CL**2
00757      IF ALY-INT-VALUE EQUAL TO SPACES                                CL**2
00758          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00759      MOVE SPACES TO ALY-INT-VALUE.                                   CL**2
00760      GO TO CAT-MVC-MSG-DEL.                                          CL**2
      ******************************************************************
      * 
      *        PROCESS CATEGORY 
      * 
      ******************************************************************
       PROCESS-EDIT.
           IF CAT-ID NOT EQUAL TO 400 GO TO CAT-ERR.
      * 
      *    PROCESS - DBP NAME 
      * 
       PROCESS-EDIT-NAME. 
           IF FIELD-ID NOT EQUAL TO 05
               GO TO PROCESS-EDIT-USE.
           MOVE PROCESS-DBPROC TO OLD-VALUE.
           IF VAL (1) EQUAL TO "$"
               GO TO PROCESS-DEL-NAME.
           MOVE "P" TO PROCESS-LINE-TYPE. 
           PERFORM CK-CATNAME THRU CK-CATNAME-XIT.
           PERFORM CHANGE-DELETE THRU CHANGE-DELETE-EXIT. 
           MOVE VAL-AREA TO PROCESS-DBPROC. 
           MOVE "S" TO TYPE-CATAL-NAME. 
           MOVE VAL-AREA TO NEW-CATAL-NAME. 
           GO TO CAT-MVC-MSG-CHG. 
       PROCESS-DEL-NAME.
           IF PROCESS-DBPROC EQUAL SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO PROCESS-DBPROC. 
           PERFORM FIELD-DELETE THRU FIELD-DELETE-EXIT. 
           GO TO DEL-CHECKER. 
      * 
      *    PROCESS - DBPROC USAGE (TYPE)
      * 
       PROCESS-EDIT-USE.
           IF FIELD-ID NOT EQUAL TO 10
               GO TO PROCESS-EDIT-TIME. 
           IF VAL (1) EQUAL "$" 
               GO TO PROCESS-DEL-USE. 
           MOVE PROCESS-CODES TO BIG-CODES. 
           MOVE VAL-AREA (1 : VA) TO HOLD-FORMAT. 
           PERFORM FORMAT-VALIDATION THRU FORMAT-VALIDATION-EXIT. 
           MOVE VAL-AREA TO PROCESS-TYPE. 
           MOVE "P" TO PROCESS-LINE-TYPE. 
           GO TO CAT-MVC-MSG-CHG. 
       PROCESS-DEL-USE. 
           IF PROCESS-TYPE EQUAL TO SPACES
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO PROCESS-TYPE. 
           GO TO DEL-CHECKER. 
      * 
      *    PROCESS - DBPROC TIME
      * 
       PROCESS-EDIT-TIME. 
           IF FIELD-ID NOT EQUAL TO 15
               GO TO PROCESS-EDIT-OPT.
           IF VAL (1) EQUAL "$" 
               GO TO PROCESS-DEL-TIME.
           MOVE 5 TO MAX-LENGTH.
           MOVE "A  B  E  /  " TO BIG-CODES.
           PERFORM CHECK-SLASHES THRU CHECK-SLASHES-EXIT. 
           MOVE VAL-AREA TO PROCESS-TIME. 
           MOVE "P" TO PROCESS-LINE-TYPE. 
           GO TO CAT-MVC-MSG-CHG. 
       PROCESS-DEL-TIME.
           IF PROCESS-TIME EQUAL TO SPACES
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO PROCESS-TIME. 
           GO TO DEL-CHECKER. 
      * 
      *    PROCESS - OPTION 
      * 
       PROCESS-EDIT-OPT.
           IF FIELD-ID NOT EQUAL TO 20
               GO TO FLD-ERR. 
           IF VAL (1) EQUAL "$" 
               GO TO PROCESS-DEL-OPT. 
           MOVE 5 TO MAX-LENGTH.
           MOVE "S  M  G  /  " TO BIG-CODES.
           PERFORM CHECK-SLASHES THRU CHECK-SLASHES-EXIT. 
           MOVE VAL-AREA TO PROCESS-OPTION. 
           MOVE "P" TO PROCESS-LINE-TYPE. 
           MOVE "P" TO PROCESS-LINE-TYPE. 
           GO TO CAT-MVC-MSG-CHG. 
       PROCESS-DEL-OPT. 
           IF PROCESS-OPTION EQUAL TO SPACES
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO PROCESS-OPTION. 
           GO TO DEL-CHECKER. 
*CALL CPROCS
00761 ****** END DCUPD05 **********************************                CL**2
