*DECK     DCUPD32 
00001  IDENTIFICATION DIVISION.                                         04/10/78
       PROGRAM-ID. UPD32. 
00003 *****************************************************************    LV002
00004 *                                                                    CL**2
00005 *    TOTAL DATABASE EDITING                                          CL**2
00006 *                                                                    CL**2
00007 *****************************************************************    CL**2
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION. 
       SOURCE-COMPUTER. CYBER.
       OBJECT-COMPUTER. CYBER.
       DATA DIVISION. 
*CALL UPDCS 
*CALL TOTWA32 
00008 ****** DCUPDSWS ******                                               CL**2
*CALL QUALINE 
*CALL     DCUPDSWS                                                         CL**2
00010  01  DSTYPE-CODES              PICTURE X(13)   VALUE                 CL**2
00011     "MV0123456789/".                                                 CL**2
00012  01  MODEL-CODES               PICTURE X(11)   VALUE                 CL**2
00013     "0123456789/".                                                   CL**2
00018                                                                    DCUPD32
00019  PROCEDURE DIVISION.                                                 CL**2
*CALL     DCUPDKW                                                          CL**2
00022                                                                    DCUPD32
00023 *****************************************************************    CL**2
00024 *                                                                    CL**2
00025 *    DATABASE ENTRY EDITING----TOTAL                                 CL**2
00026 *                                                                    CL**2
00027 *****************************************************************    CL**2
00028 *                                                                    CL**2
00029 *                                                                    CL**2
00030 *****************************************************************    CL**2
00031 *                                                                    CL**2
00032 *    DATABASE RESPONSIBILITY CATEGORY                                CL**2
00033 *                                                                    CL**2
00034 *****************************************************************    CL**2
00035  TOT-RESP-EDIT.                                                      CL**2
           MOVE SPACE TO NUM-EDIT.
00036      IF CAT-ID NOT EQUAL TO 140 GO TO TOT-NAMES-EDIT.                CL**2
00037 *                                                                    CL**2
00038 *    RESPONSIBILITY STATUS FIELD COMPARE                             CL**2
00039 *                                                                    CL**2
00040  TOT-EDIT-STATUS.                                                    CL**2
00041      IF FIELD-ID NOT EQUAL TO 05 GO TO TOT-EDIT-FUNCTION.            CL**2
00042      MOVE RESP-TOT-STATUS TO OLD-VALUE.                              CL**2
00043      IF VAL (1) EQUAL TO "$" GO TO TOT-DEL-STATUS.                   CL**2
00044      MOVE STAT-CODES TO VALID-CODE-TABLE.                            CL**2
00045      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00046      MOVE VAL-AREA TO RESP-TOT-STATUS.                               CL**2
00047      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00048  TOT-DEL-STATUS.                                                     CL**2
00049      IF RESP-TOT-STATUS EQUAL TO SPACES                              CL**2
00050          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00051      MOVE SPACES TO RESP-TOT-STATUS.                                 CL**2
00052      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00053 *                                                                    CL**2
00054 *    RESPONSIBILITY FUNCTION FIELD                                   CL**2
00055 *                                                                    CL**2
00056  TOT-EDIT-FUNCTION.                                                  CL**2
00057      IF FIELD-ID NOT EQUAL TO 10 GO TO TOT-EDIT-DEPT.                CL**2
00058      MOVE RESP-TOT-FUNC TO OLD-VALUE.                                CL**2
00059      IF VAL (1) EQUAL TO "$" GO TO TOT-DEL-FUNCTION.                 CL**2
00060      MOVE FUNC-CODES TO VALID-CODE-TABLE.                            CL**2
00061      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00062      MOVE VAL-AREA TO RESP-TOT-FUNC.                                 CL**2
00063      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00064  TOT-DEL-FUNCTION.                                                   CL**2
00065      IF RESP-TOT-FUNC EQUAL TO SPACES                                CL**2
00066          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00067      MOVE SPACES TO RESP-TOT-FUNC.                                   CL**2
00068      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00069 *                                                                    CL**2
00070 *    RESPONSIBILITY DEPARTMENT FIELD                                 CL**2
00071 *                                                                    CL**2
00072  TOT-EDIT-DEPT.                                                      CL**2
00073      IF FIELD-ID NOT EQUAL TO 15 GO TO TOT-EDIT-PERSON.              CL**2
00074      MOVE RESP-TOT-DEPT TO OLD-VALUE.                                CL**2
00075      IF VAL (1) EQUAL TO "$" GO TO TOT-DEL-DEPT.                     CL**2
00076      MOVE VAL-AREA TO RESP-TOT-DEPT.                                 CL**2
00077      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00078  TOT-DEL-DEPT.                                                       CL**2
00079      IF RESP-TOT-DEPT EQUAL TO SPACES                                CL**2
00080          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00081      MOVE SPACES TO RESP-TOT-DEPT.                                   CL**2
00082      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00083 *                                                                    CL**2
00084 *    RESPONSIBILITY PERSON FIELD                                     CL**2
00085 *                                                                    CL**2
00086  TOT-EDIT-PERSON.                                                    CL**2
00087      IF FIELD-ID NOT EQUAL TO 20 GO TO TOT-EDIT-PHONE.               CL**2
00088      MOVE RESP-TOT-PERSON TO OLD-VALUE.                              CL**2
00089      IF VAL (1) EQUAL TO "$" GO TO TOT-DEL-PERSON.                   CL**2
00090      MOVE VAL-AREA TO RESP-TOT-PERSON.                               CL**2
00091      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00092  TOT-DEL-PERSON.                                                     CL**2
00093      IF RESP-TOT-PERSON EQUAL TO SPACES                              CL**2
00094          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00095      MOVE SPACES TO RESP-TOT-PERSON.                                 CL**2
00096      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00097 *                                                                    CL**2
00098 *    RESPONSIBILITY PHONE FIELD                                      CL**2
00099 *                                                                    CL**2
00100  TOT-EDIT-PHONE.                                                     CL**2
00101      IF FIELD-ID NOT EQUAL TO 25 GO TO TOT-EDIT-TITLE.               CL**2
00102      MOVE RESP-TOT-PHONE TO OLD-VALUE.                               CL**2
00103      IF VAL (1) EQUAL TO "$" GO TO TOT-DEL-PHONE.                    CL**2
00104      MOVE VAL-AREA TO RESP-TOT-PHONE.                                CL**2
00105      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00106  TOT-DEL-PHONE.                                                      CL**2
00107      IF RESP-TOT-PHONE EQUAL TO SPACES                               CL**2
00108          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00109      MOVE SPACES TO RESP-TOT-PHONE.                                  CL**2
00110      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00111 *                                                                    CL**2
00112 *    RESPONSIBLITY TITLE FIELD                                       CL**2
00113 *                                                                    CL**2
00114  TOT-EDIT-TITLE.                                                     CL**2
00115      IF FIELD-ID NOT EQUAL TO 30 GO TO TOT-EDIT-MAIL.                CL**2
00116      MOVE RESP-TOT-TITLE TO OLD-VALUE.                               CL**2
00117      IF VAL (1) EQUAL TO "$" GO TO TOT-DEL-TITLE.                    CL**2
00118      MOVE VAL-AREA TO RESP-TOT-TITLE.                                CL**2
00119      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00120  TOT-DEL-TITLE.                                                      CL**2
00121      IF RESP-TOT-TITLE EQUAL TO SPACES                               CL**2
00122          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00123      MOVE SPACES TO RESP-TOT-TITLE.                                  CL**2
00124      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00125 *                                                                    CL**2
00126 *    RESPONSIBILITY MAIL FIELD                                       CL**2
00127 *                                                                    CL**2
00128  TOT-EDIT-MAIL.                                                      CL**2
00129      IF FIELD-ID NOT EQUAL TO 35 GO TO TOT-EDIT-DATE.                CL**2
00130      MOVE RESP-TOT-MAIL TO OLD-VALUE.                                CL**2
00131      IF VAL (1) EQUAL TO "$" GO TO TOT-DEL-MAIL.                     CL**2
00132      MOVE VAL-AREA TO RESP-TOT-MAIL.                                 CL**2
00133      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00134  TOT-DEL-MAIL.                                                       CL**2
00135      IF RESP-TOT-MAIL EQUAL TO SPACES                                CL**2
00136          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00137      MOVE SPACES TO RESP-TOT-MAIL.                                   CL**2
00138      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00139 *                                                                    CL**2
00140 *    RESPONSIBILITY DATE FIELD                                       CL**2
00141 *                                                                    CL**2
00142  TOT-EDIT-DATE.                                                      CL**2
00143      IF FIELD-ID NOT EQUAL TO 40 GO TO FLD-ERR.                      CL**2
00144      MOVE RESP-TOT-DATE TO OLD-VALUE.                                CL**2
00145      IF VAL (1) EQUAL TO "$" GO TO TOT-DEL-DATE.                     CL**2
00146      MOVE VAL-AREA TO RESP-TOT-DATE.                                 CL**2
00147      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00148  TOT-DEL-DATE.                                                       CL**2
00149      IF RESP-TOT-DATE EQUAL TO SPACES                                CL**2
00150          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00151      MOVE SPACES TO RESP-TOT-DATE.                                   CL**2
00152      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00153                                                                    DCUPD32
00154 ******************************************************************   CL**2
00155 *                                                                    CL**2
00156 *    DATABASE NAMES CATEGORY                                         CL**2
00157 *                                                                    CL**2
00158 ******************************************************************   CL**2
00159  TOT-NAMES-EDIT.                                                     CL**2
00160      IF CAT-ID NOT EQUAL TO 200 GO TO TOT-IOAREA-EDIT.               CL**2
00161 *                                                                    CL**2
00162 *    NAMES DATABASE DBNAME FIELD                                     CL**2
00163 *                                                                    CL**2
00164  TOT-EDIT-DBNAME.                                                    CL**2
00165      IF FIELD-ID NOT EQUAL TO 05 GO TO TOT-EDIT-NAME.                CL**2
00166      MOVE NAME-TOT-DBNAME TO OLD-VALUE.                              CL**2
00167      IF VAL (1) EQUAL TO "$" GO TO TOT-DEL-DBNAME.                   CL**2
00168      MOVE VAL-AREA TO NAME-TOT-DBNAME.                               CL**2
00169      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00170  TOT-DEL-DBNAME.                                                     CL**2
00171      IF NAME-TOT-DBNAME EQUAL TO SPACES                              CL**2
00172          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00173      MOVE SPACES TO NAME-TOT-DBNAME.                                 CL**2
00174      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00175 *                                                                    CL**2
00176 *    NAMES DATABASE NAME FIELD                                       CL**2
00177 *                                                                    CL**2
00178  TOT-EDIT-NAME.                                                      CL**2
00179      IF FIELD-ID NOT EQUAL TO 10 GO TO FLD-ERR.                      CL**2
00180      MOVE NAME-TOT-NAME TO OLD-VALUE.                                CL**2
00181      IF VAL (1) EQUAL TO "$" GO TO TOT-DEL-NAME.                     CL**2
00182      MOVE VAL-AREA TO NAME-TOT-NAME.                                 CL**2
00183      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00184  TOT-DEL-NAME.                                                       CL**2
00185      IF NAME-TOT-NAME EQUAL TO SPACES                                CL**2
00186          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00187      MOVE SPACES TO NAME-TOT-NAME.                                   CL**2
00188      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00189                                                                    DCUPD32
00190 *****************************************************************    CL**2
00191 *                                                                    CL**2
00192 *    DATABASE IOAREA CATEGORY                                        CL**2
00193 *                                                                    CL**2
00194 *****************************************************************    CL**2
00195  TOT-IOAREA-EDIT.                                                    CL**2
00196      IF CAT-ID NOT EQUAL TO 215 GO TO TOT-STRUCTURE-EDIT.            CL**2
00197 *                                                                    CL**2
00198 *    IOAREA DATABASE -- TRACK FIELD.                                 CL**2
00199 *                                                                    CL**2
00200  TOT-EDIT-TRACK.                                                     CL**2
00201      IF FIELD-ID NOT EQUAL TO 05 GO TO TOT-EDIT-CATNAME.             CL**2
00202      MOVE IOA-TOT-TRACK TO OLD-VALUE.                                CL**2
00203      IF VAL (1) EQUAL TO "$" GO TO TOT-DEL-TRACK.                    CL**2
00204      MOVE PUSE-CODES TO VALID-CODE-TABLE.                            CL**2
00205      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00206      MOVE VAL-AREA TO IOA-TOT-TRACK.                                 CL**2
00207      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00208  TOT-DEL-TRACK.                                                      CL**2
00209      IF IOA-TOT-TRACK EQUAL TO SPACES                                CL**2
00210          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00211      MOVE SPACES TO IOA-TOT-TRACK.                                   CL**2
00212      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00213 *                                                                    CL**2
00214 *    IOAREA CATNAME FIELD                                            CL**2
00215 *                                                                    CL**2
00216  TOT-EDIT-CATNAME.                                                   CL**2
00217      IF FIELD-ID NOT EQUAL TO 10 GO TO TOT-EDIT-IOAREA.              CL**2
00218      MOVE IOA-TOT-CATNAME TO OLD-VALUE.                              CL**2
00219      IF VAL (1) EQUAL TO "$" GO TO TOT-DEL-CATNAME.                  CL**2
00220      MOVE VAL-AREA TO IOA-TOT-CATNAME.                               CL**2
00221      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00222  TOT-DEL-CATNAME.                                                    CL**2
00223      IF IOA-TOT-CATNAME EQUAL TO SPACES                              CL**2
00224          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00225      MOVE SPACES TO IOA-TOT-CATNAME.                                 CL**2
00226      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00227 *                                                                    CL**2
00228 *    IOAREA IOAREA FIELD                                             CL**2
00229 *                                                                    CL**2
00230  TOT-EDIT-IOAREA.                                                    CL**2
00231      IF FIELD-ID NOT EQUAL TO 15 GO TO TOT-EDIT-OCCURS.              CL**2
00232      MOVE IOA-TOT-IOAREA TO OLD-VALUE.                               CL**2
00233      IF VAL (1) EQUAL "$" GO TO TOT-DEL-IOAREA.                      CL**2
00234      MOVE VAL-AREA TO IOA-TOT-IOAREA.                                CL**2
00235      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00236  TOT-DEL-IOAREA.                                                     CL**2
00237      IF IOA-TOT-IOAREA EQUAL TO SPACES                               CL**2
00238          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00239      MOVE SPACES TO IOA-TOT-IOAREA.                                  CL**2
00240      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00241 *                                                                    CL**2
00242 *    IOAREA NUMBER OF OCCURANCES FIELD                               CL**2
00243 *                                                                    CL**2
00244  TOT-EDIT-OCCURS.                                                    CL**2
00245      IF FIELD-ID NOT EQUAL TO 20 GO TO FLD-ERR.                      CL**2
00246      MOVE IOA-TOT-OCCURS TO OLD-VALUE.                               CL**2
00247      IF VAL (1) EQUAL TO "$" GO TO TOT-DEL-OCCURS.                   CL**2
00248      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO IOA-TOT-OCCURS. 
00251      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00252  TOT-DEL-OCCURS.                                                     CL**2
00253      IF IOA-TOT-OCCURS EQUAL TO SPACES                               CL**2
00254          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00255      MOVE SPACES TO IOA-TOT-OCCURS.                                  CL**2
00256      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00257                                                                    DCUPD32
00258 ******************************************************************   CL**2
00259 *                                                                    CL**2
00260 *    DATABASE STRUCTURE CATEGORY-----TOTAL                           CL**2
00261 *                                                                    CL**2
00262 ******************************************************************   CL**2
00263  TOT-STRUCTURE-EDIT.                                                 CL**2
00264      IF CAT-ID NOT EQUAL TO 300 GO TO CAT-ERR.                       CL**2
00265 *                                                                    CL**2
00266 *    STRUCTURE DATABASE DATASET NAME FIELD                           CL**2
00267 *                                                                    CL**2
00268  TOT-EDIT-DSNAME.                                                    CL**2
00269      IF FIELD-ID NOT EQUAL TO 05 GO TO TOT-EDIT-TYPE.                CL**2
00270      MOVE DS-TOT-DSNAME TO OLD-VALUE.                                CL**2
00271      IF VAL (1) EQUAL TO "$" GO TO TOT-DEL-DSNAME.                   CL**2
00272      PERFORM CK-CATNAME THRU CK-CATNAME-XIT.                         CL**2
           PERFORM CHANGE-DELETE THRU CHANGE-DELETE-EXIT. 
00273      MOVE "S" TO TYPE-CATAL-NAME.                                    CL**2
00274      MOVE VAL-AREA TO NEW-CATAL-NAME.                                CL**2
00275      MOVE VAL-AREA TO DS-TOT-DSNAME.                                 CL**2
00276      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00277  TOT-DEL-DSNAME.                                                     CL**2
00278      IF DS-TOT-DSNAME EQUAL TO SPACES                                CL**2
00279          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
           PERFORM FIELD-DELETE THRU FIELD-DELETE-EXIT. 
00281      MOVE SPACES TO DS-TOT-DSNAME.                                   CL**2
00283      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00284 *                                                                    CL**2
00285 *    STRUCTURE DATASET TYPE FIELD                                    CL**2
00286 *                                                                    CL**2
00287  TOT-EDIT-TYPE.                                                      CL**2
00288      IF FIELD-ID NOT EQUAL TO 10 GO TO TOT-EDIT-EXCLUDE.             CL**2
00289      MOVE DS-TOT-TYPE TO OLD-VALUE.                                  CL**2
00290      IF VAL (1) EQUAL TO "$" GO TO TOT-DEL-TYPE.                     CL**2
00291      MOVE DSTYPE-CODES TO VALID-CODE-TABLE.                          CL**2
00292      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00293      MOVE VAL-AREA TO DS-TOT-TYPE.                                   CL**2
00294      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00295  TOT-DEL-TYPE.                                                       CL**2
00296      IF DS-TOT-TYPE EQUAL TO SPACES                                  CL**2
00297          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00298      MOVE SPACES TO DS-TOT-TYPE.                                     CL**2
00299      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00300 *                                                                    CL**2
00301 *    STRUCTURE EXCLUDE FIELD                                         CL**2
00302 *                                                                    CL**2
00303  TOT-EDIT-EXCLUDE.                                                   CL**2
00304      IF FIELD-ID NOT EQUAL TO 15 GO TO FLD-ERR.                      CL**2
00305      MOVE DS-TOT-EXCLUDE TO OLD-VALUE.                               CL**2
00306      IF VAL (1) EQUAL TO "$" GO TO TOT-DEL-EXCLUDE.                  CL**2
00307      MOVE PUSE-CODES TO VALID-CODE-TABLE.                            CL**2
00308      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00309      MOVE VAL-AREA TO DS-TOT-EXCLUDE.                                CL**2
00310      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00311  TOT-DEL-EXCLUDE.                                                    CL**2
00312      IF DS-TOT-EXCLUDE EQUAL TO SPACES                               CL**2
00313          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00314      MOVE SPACES TO DS-TOT-EXCLUDE.                                  CL**2
00315      GO TO CAT-MVC-MSG-DEL.                                          CL**2
