*DECK     DCUPD20 
00001  IDENTIFICATION DIVISION.                                         06/08/78
       PROGRAM-ID. UPD20. 
00003 ******************************************************               LV001
00004 *                                                                    CL**2
00005 *     F I L E   E N T R Y   E D I T I N G                            CL**2
00006 *                                                                    CL**2
00007 ******************************************************               CL**2
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION. 
       SOURCE-COMPUTER. CYBER.
       OBJECT-COMPUTER. CYBER.
       DATA DIVISION. 
*CALL UPDCS 
*CALL DCDWA20 
*CALL QUALINE 
*CALL     DCUPDSWS                                                         CL**2
00009  01  DEN-CODES    PICTURE X(11) VALUE                                CL**2
00010      "0123456789/".                                                  CL**2
00011  01  ADDR-CODES   PICTURE X(13) VALUE                                CL**2
00012      "DI0123456789/".                                                CL**2
00013  01  UNIT-TYPE-CODES  PICTURE X(16) VALUE                            CL**2
00014      "CTBRD0123456789/".                                             CL**2
       01  FTYPE-CODES  PICTURE X(8)     VALUE
           "ILPQRT/". 
00021  PROCEDURE DIVISION.                                                 CL**2
*CALL     DCUPDKW                                                          CL**2
00024 ******************************************************               CL**2
00025 *                                                                    CL**2
00026 *     F I L E   E N T R Y   E D I T I N G                            CL**2
00027 *                                                                    CL**2
00028 ******************************************************               CL**2
00029 *                                                                    CL**2
00030 *                                                                    CL**2
00031 ******************************************************               CL**2
00032 *                                                                    CL**2
00033 *     RESPONSIBILITY CATEGORY                                        CL**2
00034 *                                                                    CL**2
00035 ******************************************************               CL**2
00036  RESP-EDIT.                                                          CL**2
           MOVE SPACE TO NUM-EDIT.
00037      IF CAT-ID NOT EQUAL TO 140 GO TO NAME-EDIT.                     CL**2
00038 *                                                                    CL**2
00039 *     RESPONSIBILITY - STATUS                                        CL**2
00040 *                                                                    CL**2
00041  RESP-EDIT-STAT.                                                     CL**2
00042      IF FIELD-ID NOT EQUAL TO 05 GO TO RESP-EDIT-FUNC.               CL**2
00043      MOVE RESP-STATUS TO OLD-VALUE.                                  CL**2
00044      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-STAT.                    CL**2
00045      MOVE STAT-CODES TO VALID-CODE-TABLE.                            CL**2
00046      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00047      MOVE VAL (1) TO RESP-STATUS.                                    CL**2
00048      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00049  RESP-DEL-STAT.                                                      CL**2
00050      IF RESP-STATUS EQUAL TO SPACES                                  CL**2
00051          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00052      MOVE SPACES TO RESP-STATUS.                                     CL**2
00053      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00054 *                                                                    CL**2
00055 *     RESPONSIBILITY - FUNCTION                                      CL**2
00056 *                                                                    CL**2
00057  RESP-EDIT-FUNC.                                                     CL**2
00058      IF FIELD-ID NOT EQUAL TO 10 GO TO RESP-EDIT-DPT.                CL**2
00059      MOVE RESP-FUNC TO OLD-VALUE.                                    CL**2
00060      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-FUNC.                    CL**2
00061      MOVE FUNC-CODES TO VALID-CODE-TABLE.                            CL**2
00062      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00063      MOVE VAL (1) TO RESP-FUNC.                                      CL**2
00064      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00065  RESP-DEL-FUNC.                                                      CL**2
00066      IF RESP-FUNC EQUAL TO SPACES                                    CL**2
00067          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00068      MOVE SPACES TO RESP-FUNC.                                       CL**2
00069      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00070 *                                                                    CL**2
00071 *     RESPOSSIBILITY - DEPT                                          CL**2
00072 *                                                                    CL**2
00073  RESP-EDIT-DPT.                                                      CL**2
00074      IF FIELD-ID NOT EQUAL TO 15 GO TO RESP-EDIT-PER.                CL**2
00075      MOVE RESP-DEPT TO OLD-VALUE.                                    CL**2
00076      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-DPT.                     CL**2
00077      MOVE VAL-AREA TO RESP-DEPT.                                     CL**2
00078      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00079  RESP-DEL-DPT.                                                       CL**2
00080      IF RESP-DEPT EQUAL TO SPACES                                    CL**2
00081          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00082      MOVE SPACES TO RESP-DEPT.                                       CL**2
00083      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00084 *                                                                    CL**2
00085 *     RESPONSIBILITY - PERSON                                        CL**2
00086 *                                                                    CL**2
00087  RESP-EDIT-PER.                                                      CL**2
00088      IF FIELD-ID NOT EQUAL TO 20 GO TO RESP-EDIT-PHONE.              CL**2
00089      MOVE RESP-PERSON TO OLD-VALUE.                                  CL**2
00090      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-PER.                     CL**2
00091      MOVE VAL-AREA TO RESP-PERSON.                                   CL**2
00092      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00093  RESP-DEL-PER.                                                       CL**2
00094      IF RESP-PERSON EQUAL TO SPACES                                  CL**2
00095          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00096      MOVE SPACES TO RESP-PERSON.                                     CL**2
00097      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00098 *                                                                    CL**2
00099 *     RESPONSIBILITY - PHONE                                         CL**2
00100 *                                                                    CL**2
00101  RESP-EDIT-PHONE.                                                    CL**2
00102      IF FIELD-ID NOT EQUAL TO 25 GO TO RESP-EDIT-TIT.                CL**2
00103      MOVE RESP-PHONE TO OLD-VALUE.                                   CL**2
00104      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-PHONE.                   CL**2
00105      MOVE VAL-AREA TO RESP-PHONE.                                    CL**2
00106      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00107  RESP-DEL-PHONE.                                                     CL**2
00108      IF RESP-PHONE EQUAL TO SPACES                                   CL**2
00109          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00110      MOVE SPACES TO RESP-PHONE.                                      CL**2
00111      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00112 *                                                                    CL**2
00113 *     RESPONSIBILITY - TITLE                                         CL**2
00114 *                                                                    CL**2
00115  RESP-EDIT-TIT.                                                      CL**2
00116      IF FIELD-ID NOT EQUAL TO 30 GO TO RESP-EDIT-MAIL.               CL**2
00117      MOVE RESP-TITLE TO OLD-VALUE.                                   CL**2
00118      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-TIT.                     CL**2
00119      MOVE VAL-AREA TO RESP-TITLE.                                    CL**2
00120      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00121  RESP-DEL-TIT.                                                       CL**2
00122      IF RESP-TITLE EQUAL TO SPACES                                   CL**2
00123          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00124      MOVE SPACES TO RESP-TITLE.                                      CL**2
00125      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00126 *                                                                    CL**2
00127 *     RESPONSIBILITY - MAIL                                          CL**2
00128 *                                                                    CL**2
00129  RESP-EDIT-MAIL.                                                     CL**2
00130      IF FIELD-ID NOT EQUAL TO 35 GO TO RESP-EDIT-DATE.               CL**2
00131      MOVE RESP-MAIL TO OLD-VALUE.                                    CL**2
00132      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-MAIL.                    CL**2
00133      MOVE VAL-AREA TO RESP-MAIL.                                     CL**2
00134      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00135  RESP-DEL-MAIL.                                                      CL**2
00136      IF RESP-MAIL EQUAL TO SPACES                                    CL**2
00137          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00138      MOVE SPACES TO RESP-MAIL.                                       CL**2
00139      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00140 *                                                                    CL**2
00141 *     RESPONSIBILITY - DATE                                          CL**2
00142 *                                                                    CL**2
00143  RESP-EDIT-DATE.                                                     CL**2
00144      IF FIELD-ID NOT EQUAL TO 40 GO TO FLD-ERR.                      CL**2
00145      MOVE RESP-DATE TO OLD-VALUE.                                    CL**2
00146      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-DATE.                    CL**2
00147      MOVE VAL-AREA TO RESP-DATE.                                     CL**2
00148      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00149  RESP-DEL-DATE.                                                      CL**2
00150      IF RESP-DATE EQUAL TO SPACES                                    CL**2
00151          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00152      MOVE SPACES TO RESP-DATE.                                       CL**2
00153      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00154 *****************************************************                CL**2
00155 *                                                                    CL**2
00156 *     NAME CATEGORY                                                  CL**2
00157 *                                                                    CL**2
00158 *****************************************************                CL**2
00159  NAME-EDIT.                                                          CL**2
00160      IF CAT-ID NOT EQUAL TO 200 GO TO ATTR-EDIT.                     CL**2
00161 *                                                                    CL**2
00162 *     NAME - FD NAME                                                 CL**2
00163 *                                                                    CL**2
00164  NAME-EDIT-FD.                                                       CL**2
00165      IF FIELD-ID NOT EQUAL TO 05 GO TO NAME-EDIT-DS.                 CL**2
00166      MOVE NAME-FILE-FD TO OLD-VALUE.                                 CL**2
00167      IF VAL (1) EQUAL TO "$" GO TO NAME-DEL-FD.                      CL**2
00168      MOVE VAL-AREA TO NAME-FILE-FD.                                  CL**2
00169      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00170  NAME-DEL-FD.                                                        CL**2
00171      IF NAME-FILE-FD EQUAL TO SPACES                                 CL**2
00172          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00173      MOVE SPACES TO NAME-FILE-FD.                                    CL**2
00174      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00175 *                                                                    CL**2
00176 *     NAME - DATA SET                                                CL**2
00177 *                                                                    CL**2
00178  NAME-EDIT-DS.                                                       CL**2
00179      IF FIELD-ID NOT EQUAL TO 10 GO TO NAME-EDIT-MEM.                CL**2
00180      MOVE NAME-FILE-DS TO OLD-VALUE.                                 CL**2
00181      IF VAL (1) EQUAL TO "$" GO TO NAME-DEL-DS.                      CL**2
00182      MOVE VAL-AREA TO NAME-FILE-DS.                                  CL**2
00183      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00184  NAME-DEL-DS.                                                        CL**2
00185      IF NAME-FILE-DS EQUAL TO SPACES                                 CL**2
00186          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00187      MOVE SPACES TO NAME-FILE-DS.                                    CL**2
00188      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00189 *                                                                    CL**2
00190 *     NAME - MEMBER                                                  CL**2
00191 *                                                                    CL**2
00192  NAME-EDIT-MEM.                                                      CL**2
00193      IF FIELD-ID NOT EQUAL TO 15 GO TO NAME-EDIT-DD.                 CL**2
00194      MOVE NAME-FILE-MEMBER TO OLD-VALUE.                             CL**2
00195      IF VAL (1) EQUAL TO "$" GO TO NAME-DEL-MEM.                     CL**2
00196      MOVE VAL-AREA TO NAME-FILE-MEMBER.                              CL**2
00197      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00198  NAME-DEL-MEM.                                                       CL**2
00199      IF NAME-FILE-MEMBER EQUAL TO SPACES                             CL**2
00200          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00201      MOVE SPACES TO NAME-FILE-MEMBER.                                CL**2
00202      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00203 *                                                                    CL**2
00204 *     NAME - DD                                                      CL**2
00205 *                                                                    CL**2
00206  NAME-EDIT-DD.                                                       CL**2
           IF FIELD-ID NOT EQUAL TO 20 GO TO NAME-EDIT-DMS. 
00208      MOVE NAME-FILE-DD TO OLD-VALUE.                                 CL**2
00209      IF VAL (1) EQUAL TO "$" GO TO NAME-DEL-DD.                      CL**2
00210      MOVE VAL-AREA TO NAME-FILE-DD.                                  CL**2
00211      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00212  NAME-DEL-DD.                                                        CL**2
00213      IF NAME-FILE-DD EQUAL TO SPACES                                 CL**2
00214          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00215      MOVE SPACES TO NAME-FILE-DD.                                    CL**2
00216      GO TO CAT-MVC-MSG-DEL.                                          CL**2
      * 
      *        NAME - DMS FILE
      * 
       NAME-EDIT-DMS. 
           IF FIELD-ID NOT EQUAL TO 35 GO TO FLD-ERR. 
           MOVE NAME-FILE-DMS TO OLD-VALUE. 
           IF VAL (1) EQUAL "$" GO TO NAME-DEL-DMS. 
           MOVE VAL-AREA TO NAME-FILE-DMS.
           GO TO CAT-MVC-MSG-CHG. 
       NAME-DEL-DMS.
           IF NAME-FILE-DMS EQUAL SPACES
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO NAME-FILE-DMS.
           GO TO CAT-MVC-MSG-DEL. 
00245 *****************************************************                CL**2
00246 *                                                                    CL**2
00247 *     ATTRIBUTE CATEGORY                                             CL**2
00248 *                                                                    CL**2
00249 ****************************************************                 CL**2
00250  ATTR-EDIT.                                                          CL**2
00251      IF CAT-ID NOT EQUAL TO 210 GO TO UNIT-EDIT.                     CL**2
00252 *                                                                    CL**2
00253 *     ATTRIBUTE - RECSIZE                                            CL**2
00254 *                                                                    CL**2
00255  ATTR-EDIT-REC.                                                      CL**2
00256      IF FIELD-ID NOT EQUAL TO 05 GO TO ATTR-EDIT-BLK.                CL**2
00257      MOVE ATTR-FILE-RECSIZE TO OLD-VALUE.                            CL**2
00258      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-REC.                     CL**2
00259      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO ATTR-FILE-RECSIZE.
00262      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00263  ATTR-DEL-REC.                                                       CL**2
00264      IF ATTR-FILE-RECSIZE EQUAL TO SPACES                            CL**2
00265          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00266      MOVE SPACES TO ATTR-FILE-RECSIZE.                               CL**2
00267      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00268 *                                                                    CL**2
00269 *     ATTRIBUTE - BLKSIZE                                            CL**2
00270 *                                                                    CL**2
00271  ATTR-EDIT-BLK.                                                      CL**2
00272      IF FIELD-ID NOT EQUAL TO 10 GO TO ATTR-EDIT-FM.                 CL**2
00273      MOVE ATTR-FILE-BLKSIZE TO OLD-VALUE.                            CL**2
00274      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-BLK.                     CL**2
00275      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO ATTR-FILE-BLKSIZE.
00278      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00279  ATTR-DEL-BLK.                                                       CL**2
00280      IF ATTR-FILE-BLKSIZE EQUAL TO SPACES                            CL**2
00281          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00282      MOVE SPACES TO ATTR-FILE-BLKSIZE.                               CL**2
00283      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00284 *                                                                    CL**2
00285 *     ATTRIBUTE - RECFM                                              CL**2
00286 *                                                                    CL**2
00287  ATTR-EDIT-FM.                                                       CL**2
00288      IF FIELD-ID NOT EQUAL TO 15 GO TO ATTR-EDIT-DS.                 CL**2
00289      MOVE ATTR-FILE-RECFM TO OLD-VALUE.                              CL**2
00290      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-FM.                      CL**2
00291      MOVE VAL-AREA TO ATTR-FILE-RECFM.                               CL**2
00292      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00293  ATTR-DEL-FM.                                                        CL**2
00294      IF ATTR-FILE-RECFM EQUAL TO SPACES                              CL**2
00295          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00296      MOVE SPACES TO ATTR-FILE-RECFM.                                 CL**2
00297      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00298 *                                                                    CL**2
00299 *                                                                    CL**2
00300 *     ATTRIBUTE - DSORG                                              CL**2
00301 *                                                                    CL**2
00302  ATTR-EDIT-DS.                                                       CL**2
00303      IF FIELD-ID NOT EQUAL TO 20 GO TO ATTR-EDIT-LB.                 CL**2
00304      MOVE ATTR-FILE-DSORG TO OLD-VALUE.                              CL**2
00305      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-DS.                      CL**2
00306      IF VAL-AREA EQUAL TO "DA " GO TO ATTR-EDIT-DS10.                CL**2
00307      IF VAL-AREA EQUAL TO "DAU" GO TO ATTR-EDIT-DS10.                CL**2
00308      IF VAL-AREA EQUAL TO "IS " GO TO ATTR-EDIT-DS10.                CL**2
00309      IF VAL-AREA EQUAL TO "ISU" GO TO ATTR-EDIT-DS10.                CL**2
00310      IF VAL-AREA EQUAL TO "PO " GO TO ATTR-EDIT-DS10.                CL**2
00311      IF VAL-AREA EQUAL TO "POU" GO TO ATTR-EDIT-DS10.                CL**2
00312      IF VAL-AREA EQUAL TO "PS " GO TO ATTR-EDIT-DS10.                CL**2
00313      IF VAL-AREA EQUAL TO "PSU" GO TO ATTR-EDIT-DS10.                CL**2
00314      MOVE CERR-235W TO MSG-POS5 (MSG).                               CL**2
00315      MOVE "235-W" TO MSG-POS2 (MSG).                                 CL**2
00316      GO TO CAT-MVC-MSG-ERR.                                          CL**2
00317  ATTR-EDIT-DS10.                                                     CL**2
00318      MOVE VAL-AREA TO ATTR-FILE-DSORG.                               CL**2
00319      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00320   ATTR-DEL-DS.                                                       CL**2
00321      IF ATTR-FILE-DSORG EQUAL TO SPACES                              CL**2
00322          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00323      MOVE SPACES TO ATTR-FILE-DSORG.                                 CL**2
00324      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00325 *                                                                    CL**2
00326 *     ATTRIBUTE - LABEL                                              CL**2
00327 *                                                                    CL**2
00328  ATTR-EDIT-LB.                                                       CL**2
00329      IF FIELD-ID NOT EQUAL TO 25 GO TO ATTR-EDIT-DEN.                CL**2
00330      MOVE ATTR-FILE-LABEL TO OLD-VALUE.                              CL**2
00331      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-LB.                      CL**2
00332      IF VAL-AREA EQUAL TO "SL " GO TO ATTR-EDIT-LB10.                CL**2
00333      IF VAL-AREA EQUAL TO "AL " GO TO ATTR-EDIT-LB10.                CL**2
00334      IF VAL-AREA EQUAL TO "ALU" GO TO ATTR-EDIT-LB10.                CL**2
00335      IF VAL-AREA EQUAL TO "NL " GO TO ATTR-EDIT-LB10.                CL**2
00336      IF VAL-AREA EQUAL TO "SLU" GO TO ATTR-EDIT-LB10.                CL**2
00337      IF VAL-AREA EQUAL TO "NSL" GO TO ATTR-EDIT-LB10.                CL**2
00338      IF VAL-AREA EQUAL TO "BLP" GO TO ATTR-EDIT-LB10.                CL**2
00339      MOVE CERR-235W TO MSG-POS5 (MSG).                               CL**2
00340      MOVE "235-W" TO MSG-POS2 (MSG).                                 CL**2
00341      GO TO CAT-MVC-MSG-ERR.                                          CL**2
00342  ATTR-EDIT-LB10.                                                     CL**2
00343      MOVE VAL-AREA TO ATTR-FILE-LABEL.                               CL**2
00344      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00345  ATTR-DEL-LB.                                                        CL**2
00346      IF ATTR-FILE-LABEL EQUAL TO SPACES                              CL**2
00347          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00348      MOVE SPACES TO ATTR-FILE-LABEL.                                 CL**2
00349      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00350 *                                                                    CL**2
00351 *     ATTRIBUTE - DENSITY                                            CL**2
00352 *                                                                    CL**2
00353  ATTR-EDIT-DEN.                                                      CL**2
00354      IF FIELD-ID NOT EQUAL TO 30 GO TO ATTR-EDIT-BUF.                CL**2
00355      MOVE ATTR-FILE-DEN TO OLD-VALUE.                                CL**2
00356      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-DEN.                     CL**2
00357      MOVE DEN-CODES TO VALID-CODE-TABLE.                             CL**2
00358      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00359      MOVE VAL (1) TO ATTR-FILE-DEN.                                  CL**2
00360      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00361  ATTR-DEL-DEN.                                                       CL**2
00362      IF ATTR-FILE-DEN EQUAL TO SPACES                                CL**2
00363          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00364      MOVE SPACES TO ATTR-FILE-DEN.                                   CL**2
00365      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00366 *                                                                    CL**2
00367 *     ATTRIBUTE -BUFFER                                              CL**2
00368 *                                                                    CL**2
00369  ATTR-EDIT-BUF.                                                      CL**2
00370      IF FIELD-ID NOT EQUAL TO 35 GO TO ATTR-EDIT-ADR.                CL**2
00371      MOVE ATTR-FILE-BUFF TO OLD-VALUE.                               CL**2
00372      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-BUF.                     CL**2
00373      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO ATTR-FILE-BUFF. 
00376      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00377  ATTR-DEL-BUF.                                                       CL**2
00378      IF ATTR-FILE-BUFF EQUAL TO SPACES                               CL**2
00379          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00380      MOVE SPACES TO ATTR-FILE-BUFF.                                  CL**2
00381      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00382 *                                                                    CL**2
00383 *     ATTRIBUTE - ADDRESSING                                         CL**2
00384 *                                                                    CL**2
00385  ATTR-EDIT-ADR.                                                      CL**2
00386      IF FIELD-ID NOT EQUAL TO 40 GO TO ATTR-EDIT-MOD.                CL**2
00387      MOVE ATTR-FILE-ADDR TO OLD-VALUE.                               CL**2
00388      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-MOD.                     CL**2
00389      MOVE ADDR-CODES TO VALID-CODE-TABLE.                            CL**2
00390      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00391      MOVE VAL (1) TO ATTR-FILE-ADDR.                                 CL**2
00392      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00393  ATTR-DEL-ADR.                                                       CL**2
00394      IF ATTR-FILE-ADDR EQUAL TO SPACES                               CL**2
00395          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00396      MOVE SPACES TO ATTR-FILE-ADDR.                                  CL**2
00397      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00398 *                                                                    CL**2
00399 *     ATTRIBUTE - RAND MODULE                                        CL**2
00400 *                                                                    CL**2
00401  ATTR-EDIT-MOD.                                                      CL**2
00402      IF FIELD-ID NOT EQUAL TO 45 GO TO ATTR-EDIT-KEY.                CL**2
00403      MOVE ATTR-FILE-RMOD TO OLD-VALUE.                               CL**2
00404      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-MOD.                     CL**2
00405      MOVE VAL-AREA TO ATTR-FILE-RMOD.                                CL**2
00406      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00407  ATTR-DEL-MOD.                                                       CL**2
00408      IF ATTR-FILE-RMOD EQUAL TO SPACES                               CL**2
00409          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00410      MOVE SPACES TO ATTR-FILE-RMOD.                                  CL**2
00411      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00412 *                                                                    CL**2
00413 *     ATTRIBUTE - KEY LENGTH                                         CL**2
00414 *                                                                    CL**2
00415  ATTR-EDIT-KEY.                                                      CL**2
00416      IF FIELD-ID NOT EQUAL TO 50 GO TO ATTR-EDIT-RKP.                CL**2
00417      MOVE ATTR-FILE-KEYLEN TO OLD-VALUE.                             CL**2
00418      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-KEY.                     CL**2
00419      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO ATTR-FILE-KEYLEN. 
00422      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00423  ATTR-DEL-KEY.                                                       CL**2
00424      IF ATTR-FILE-KEYLEN EQUAL TO SPACES                             CL**2
00425          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00426      MOVE SPACES TO ATTR-FILE-KEYLEN.                                CL**2
00427      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00428 *                                                                    CL**2
00429 *     ATTRIBUTE - RKP                                                CL**2
00430 *                                                                    CL**2
00431  ATTR-EDIT-RKP.                                                      CL**2
           IF FIELD-ID NOT = 55 GO TO ATTR-EDIT-CYL.
00433      MOVE ATTR-FILE-RKP TO OLD-VALUE.                                CL**2
00434      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-RKP.                     CL**2
00435      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO ATTR-FILE-RKP.
00438      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00439  ATTR-DEL-RKP.                                                       CL**2
00440      IF ATTR-FILE-RKP EQUAL TO SPACES                                CL**2
00441          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00442      MOVE SPACES TO ATTR-FILE-RKP.                                   CL**2
00443      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00444 *                                                                    CL**2
00445 *     ATTRIBUTE - CYLOFL                                             CL**2
00446 *                                                                    CL**2
00447  ATTR-EDIT-CYL.                                                      CL**2
00448      IF FIELD-ID NOT EQUAL TO 60 GO TO ATTR-EDIT-OPT.                CL**2
00449      MOVE ATTR-FILE-CYLOFL TO OLD-VALUE.                             CL**2
00450      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-CYL.                     CL**2
00451      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO ATTR-FILE-CYLOFL. 
00454      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00455  ATTR-DEL-CYL.                                                       CL**2
00456      IF ATTR-FILE-CYLOFL EQUAL TO SPACES                             CL**2
00457          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00458      MOVE SPACES TO ATTR-FILE-CYLOFL.                                CL**2
00459      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00460 *                                                                    CL**2
00461 *     ATTRIBUTE - OPT                                                CL**2
00462 *                                                                    CL**2
00463  ATTR-EDIT-OPT.                                                      CL**2
00464      IF FIELD-ID NOT EQUAL TO 65 GO TO ATTR-EDIT-LIM.                CL**2
00465      MOVE ATTR-FILE-OPT TO OLD-VALUE.                                CL**2
00466      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-OPT.                     CL**2
00467      MOVE VAL-AREA TO ATTR-FILE-OPT.                                 CL**2
00468      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00469  ATTR-DEL-OPT.                                                       CL**2
00470      IF ATTR-FILE-OPT EQUAL TO SPACES                                CL**2
00471          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00472      MOVE SPACES TO ATTR-FILE-OPT.                                   CL**2
00473      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00474 *                                                                    CL**2
00475 *     ATTRIBUTE - LIMCT                                              CL**2
00476 *                                                                    CL**2
00477  ATTR-EDIT-LIM.                                                      CL**2
00478       IF FIELD-ID NOT EQUAL TO 70 GO TO FLD-ERR.                     CL**2
00479      MOVE ATTR-FILE-LIMCT TO OLD-VALUE.                              CL**2
00480      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-LIM.                     CL**2
00481      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO ATTR-FILE-LIMCT.
00484      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00485  ATTR-DEL-LIM.                                                       CL**2
00486      IF ATTR-FILE-LIMCT EQUAL TO SPACES                              CL**2
00487          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00488      MOVE SPACES TO ATTR-FILE-LIMCT.                                 CL**2
00489      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00490 *******************************************************              CL**2
00491 *                                                                    CL**2
00492 *     UNIT CATEGORY                                                  CL**2
00493 *                                                                    CL**2
00494 ******************************************************               CL**2
00495  UNIT-EDIT.                                                          CL**2
00496      IF CAT-ID NOT EQUAL TO 220 GO TO STC-EDIT.                      CL**2
00497 *                                                                    CL**2
00498 *     UNIT - UNIT                                                    CL**2
00499 *                                                                    CL**2
00500  UNIT-EDIT-UNIT.                                                     CL**2
00501      IF FIELD-ID NOT EQUAL TO 05 GO TO UNIT-EDIT-VSER.               CL**2
00502      MOVE UNIT-UNIT TO OLD-VALUE.                                    CL**2
00503      IF VAL (1) EQUAL TO "$" GO TO UNIT-DEL-UNIT.                    CL**2
00504      MOVE VAL-AREA TO UNIT-UNIT.                                     CL**2
00505      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00506  UNIT-DEL-UNIT.                                                      CL**2
00507      IF UNIT-UNIT EQUAL TO SPACES                                    CL**2
00508          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00509      MOVE SPACES TO UNIT-UNIT.                                       CL**2
00510      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00511 *                                                                    CL**2
00512 *     UNIT - VOLSER                                                  CL**2
00513 *                                                                    CL**2
00514  UNIT-EDIT-VSER.                                                     CL**2
00515      IF FIELD-ID NOT EQUAL TO 10 GO TO UNIT-EDIT-SPACE.              CL**2
00516      MOVE UNIT-VOLSER TO OLD-VALUE.                                  CL**2
00517      IF VAL (1) EQUAL TO "$" GO TO UNIT-DEL-VSER.                    CL**2
00518      MOVE VAL-AREA TO UNIT-VOLSER.                                   CL**2
00519      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00520  UNIT-DEL-VSER.                                                      CL**2
00521      IF UNIT-VOLSER EQUAL TO SPACES                                  CL**2
00522          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00523      MOVE SPACES TO UNIT-VOLSER.                                     CL**2
00524      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00525 *                                                                    CL**2
00526 *     UNIT - SPACE                                                   CL**2
00527 *                                                                    CL**2
00528  UNIT-EDIT-SPACE.                                                    CL**2
00529      IF FIELD-ID NOT EQUAL TO 15 GO TO UNIT-EDIT-TYPE.               CL**2
00530      MOVE UNIT-SPACE TO OLD-VALUE.                                   CL**2
00531      IF VAL (1) EQUAL TO "$" GO TO UNIT-DEL-SPACE.                   CL**2
00532      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO UNIT-SPACE. 
00535      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00536  UNIT-DEL-SPACE.                                                     CL**2
00537      IF UNIT-SPACE EQUAL TO SPACES                                   CL**2
00538          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00539      MOVE SPACES TO UNIT-SPACE.                                      CL**2
00540      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00541 *                                                                    CL**2
00542 *     UNIT - TYPE                                                    CL**2
00543 *                                                                    CL**2
00544  UNIT-EDIT-TYPE.                                                     CL**2
00545      IF FIELD-ID NOT EQUAL TO 20 GO TO UNIT-EDIT-IUNIT.              CL**2
00546      MOVE UNIT-TYPE TO OLD-VALUE.                                    CL**2
00547      IF VAL (1) EQUAL TO "$" GO TO UNIT-DEL-TYPE.                    CL**2
00548      MOVE UNIT-TYPE-CODES TO VALID-CODE-TABLE.                       CL**2
00549      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00550      MOVE VAL (1) TO UNIT-TYPE.                                      CL**2
00551      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00552  UNIT-DEL-TYPE.                                                      CL**2
00553      IF UNIT-TYPE EQUAL TO SPACES                                    CL**2
00554          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00555      MOVE SPACES TO UNIT-TYPE.                                       CL**2
00556      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00557 *                                                                    CL**2
00558 *     UNIT - INDEX UNIT                                              CL**2
00559 *                                                                    CL**2
00560  UNIT-EDIT-IUNIT.                                                    CL**2
00561      IF FIELD-ID NOT EQUAL TO 25 GO TO UNIT-EDIT-IVSER.              CL**2
00562      MOVE UNIT-IDX-UNIT TO OLD-VALUE.                                CL**2
00563      IF VAL (1) EQUAL TO "$" GO TO UNIT-DEL-IUNIT.                   CL**2
00564      MOVE VAL-AREA TO UNIT-IDX-UNIT.                                 CL**2
00565      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00566  UNIT-DEL-IUNIT.                                                     CL**2
00567      IF UNIT-IDX-UNIT EQUAL TO SPACES                                CL**2
00568          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00569      MOVE SPACES TO UNIT-IDX-UNIT.                                   CL**2
00570      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00571 *                                                                    CL**2
00572 *     UNIT - INDEX VOLSER                                            CL**2
00573 *                                                                    CL**2
00574  UNIT-EDIT-IVSER.                                                    CL**2
00575      IF FIELD-ID NOT EQUAL TO 30 GO TO UNIT-EDIT-ISPACE.             CL**2
00576      MOVE UNIT-IDX-VOLSER TO OLD-VALUE.                              CL**2
00577      IF VAL (1) EQUAL TO "$" GO TO UNIT-DEL-IVSER.                   CL**2
00578      MOVE VAL-AREA TO UNIT-IDX-VOLSER.                               CL**2
00579      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00580  UNIT-DEL-IVSER.                                                     CL**2
00581      IF UNIT-IDX-VOLSER EQUAL TO SPACES                              CL**2
00582          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00583      MOVE SPACES TO UNIT-IDX-VOLSER.                                 CL**2
00584      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00585 *                                                                    CL**2
00586 *     UNIT - INDEX SPACE                                             CL**2
00587 *                                                                    CL**2
00588  UNIT-EDIT-ISPACE.                                                   CL**2
00589      IF FIELD-ID NOT EQUAL TO 35 GO TO UNIT-EDIT-ITYPE.              CL**2
00590      MOVE UNIT-IDX-SPACE TO OLD-VALUE.                               CL**2
00591      IF VAL (1) EQUAL TO "$" GO TO UNIT-DEL-ISPACE.                  CL**2
00592      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO UNIT-IDX-SPACE. 
00595      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00596  UNIT-DEL-ISPACE.                                                    CL**2
00597      IF UNIT-IDX-SPACE EQUAL TO SPACES                               CL**2
00598          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00599      MOVE SPACES TO UNIT-IDX-SPACE.                                  CL**2
00600      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00601 *                                                                    CL**2
00602 *     UNIT - INDEX TYPE                                              CL**2
00603 *                                                                    CL**2
00604  UNIT-EDIT-ITYPE.                                                    CL**2
00605      IF FIELD-ID NOT EQUAL TO 40 GO TO UNIT-EDIT-OUNIT.              CL**2
00606      MOVE UNIT-IDX-TYPE TO OLD-VALUE.                                CL**2
00607      IF VAL (1) EQUAL TO "$" GO TO UNIT-DEL-ITYPE.                   CL**2
00608      MOVE UNIT-TYPE-CODES TO VALID-CODE-TABLE.                       CL**2
00609      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00610      MOVE VAL-AREA TO UNIT-IDX-TYPE.                                 CL**2
00611      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00612  UNIT-DEL-ITYPE.                                                     CL**2
00613      IF UNIT-IDX-TYPE EQUAL TO SPACES                                CL**2
00614          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00615      MOVE SPACES TO UNIT-IDX-TYPE.                                   CL**2
00616      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00617 *                                                                    CL**2
00618 *     UNIT - OVERFLOW UNIT                                           CL**2
00619 *                                                                    CL**2
00620  UNIT-EDIT-OUNIT.                                                    CL**2
00621      IF FIELD-ID NOT EQUAL TO 45 GO TO UNIT-EDIT-OVSER.              CL**2
00622      MOVE UNIT-OVF-UNIT TO OLD-VALUE.                                CL**2
00623      IF VAL (1) EQUAL TO "$" GO TO UNIT-DEL-OUNIT.                   CL**2
00624      MOVE VAL-AREA TO UNIT-OVF-UNIT.                                 CL**2
00625      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00626  UNIT-DEL-OUNIT.                                                     CL**2
00627      IF UNIT-OVF-UNIT EQUAL TO SPACES                                CL**2
00628          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00629      MOVE SPACES TO UNIT-OVF-UNIT.                                   CL**2
00630      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00631 *                                                                    CL**2
00632 *     UNIT - OVERFLOW VOLSER                                         CL**2
00633 *                                                                    CL**2
00634  UNIT-EDIT-OVSER.                                                    CL**2
00635      IF FIELD-ID NOT EQUAL TO 50 GO TO UNIT-EDIT-OSPACE.             CL**2
00636      MOVE UNIT-OVF-VOLSER TO OLD-VALUE.                              CL**2
00637      IF VAL (1) EQUAL TO "$" GO TO UNIT-DEL-OVSER.                   CL**2
00638      MOVE VAL-AREA TO UNIT-OVF-VOLSER.                               CL**2
00639      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00640  UNIT-DEL-OVSER.                                                     CL**2
00641      IF UNIT-OVF-VOLSER EQUAL TO SPACES                              CL**2
00642          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00643      MOVE SPACES TO UNIT-OVF-VOLSER.                                 CL**2
00644      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00645 *                                                                    CL**2
00646 *     UNIT - OVERFLOW SPACE                                          CL**2
00647 *                                                                    CL**2
00648  UNIT-EDIT-OSPACE.                                                   CL**2
00649      IF FIELD-ID NOT EQUAL TO 55 GO TO UNIT-EDIT-OTYPE.              CL**2
00650      MOVE UNIT-OVF-SPACE TO OLD-VALUE.                               CL**2
00651      IF VAL (1) EQUAL TO "$" GO TO UNIT-DEL-OSPACE.                  CL**2
00652      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO UNIT-OVF-SPACE. 
00655      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00656  UNIT-DEL-OSPACE.                                                    CL**2
00657      IF UNIT-OVF-SPACE EQUAL TO SPACES                               CL**2
00658          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00659      MOVE SPACES TO UNIT-OVF-SPACE.                                  CL**2
00660      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00661 *                                                                    CL**2
00662 *     UNIT - OVERFLOW TYPE                                           CL**2
00663 *                                                                    CL**2
00664  UNIT-EDIT-OTYPE.                                                    CL**2
00665      IF FIELD-ID NOT EQUAL TO 60 GO TO FLD-ERR.                      CL**2
00666      MOVE UNIT-OVF-TYPE TO OLD-VALUE.                                CL**2
00667      IF VAL (1) EQUAL TO "$" GO TO UNIT-EDIT-OTYPE.                  CL**2
00668      MOVE UNIT-TYPE-CODES TO VALID-CODE-TABLE.                       CL**2
00669      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00670      MOVE VAL (1) TO UNIT-OVF-TYPE.                                  CL**2
00671      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00672  UNIT-DEL-OTYPE.                                                     CL**2
00673      IF UNIT-OVF-TYPE EQUAL TO SPACES                                CL**2
00674          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00675      MOVE SPACES TO UNIT-OVF-TYPE.                                   CL**2
00676      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00677 ****************************************************                 CL**2
00678 *                                                                    CL**2
00679 *     STRUCTURE CATEGORY                                             CL**2
00680 *                                                                    CL**2
00681 ****************************************************                 CL**2
00682  STC-EDIT.                                                           CL**2
           IF CAT-ID NOT EQUAL TO 300 
               GO TO MD-EDIT. 
00684 *                                                                    CL**2
00685 *     STRUCTURE - CAT NAME                                           CL**2
00686 *                                                                    CL**2
00687  STC-EDIT-CN.                                                        CL**2
00688      IF FIELD-ID NOT EQUAL TO 05 GO TO STC-EDIT-TYPE.                CL**2
00689      MOVE STC-FILE-CNAME TO OLD-VALUE.                               CL**2
00691      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-CN.                       CL**2
00692      PERFORM CK-CATNAME THRU CK-CATNAME-XIT.                         CL**2
           PERFORM CHANGE-DELETE THRU CHANGE-DELETE-EXIT. 
00693      MOVE "S" TO TYPE-CATAL-NAME.                                    CL**2
00694      MOVE VAL-AREA TO NEW-CATAL-NAME.                                CL**2
00695      MOVE VAL-AREA TO STC-FILE-CNAME.                                CL**2
00696      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00697  STC-DEL-CN.                                                         CL**2
00698      IF STC-FILE-CNAME EQUAL TO SPACES                               CL**2
00699          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
           PERFORM FIELD-DELETE THRU FIELD-DELETE-EXIT. 
00701      MOVE SPACES TO STC-FILE-CNAME.                                  CL**2
00703      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00704 *                                                                    CL**2
00705 *     STRUCTURE - TYPE                                               CL**2
00706 *                                                                    CL**2
00707  STC-EDIT-TYPE.                                                      CL**2
           IF FIELD-ID NOT = 10 GO TO STC-EDIT-FREQ.
00709      MOVE STC-FILE-TYPE TO OLD-VALUE.                                CL**2
00710      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-TYPE.                     CL**2
00711      MOVE VAL-AREA TO STC-FILE-TYPE.                                 CL**2
00712      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00713  STC-DEL-TYPE.                                                       CL**2
00714      IF STC-FILE-TYPE EQUAL TO SPACES                                CL**2
00715          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00716      MOVE SPACES TO STC-FILE-TYPE.                                   CL**2
00717      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00718 *                                                                    CL**2
00719 *     STRUCTURE - FREQUENCY                                          CL**2
00720 *                                                                    CL**2
00721  STC-EDIT-FREQ.                                                      CL**2
00722      IF FIELD-ID NOT EQUAL TO 15 GO TO STC-EDIT-SEG.                 CL**2
00723      MOVE STC-FILE-FREQ TO OLD-VALUE.                                CL**2
00724      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-FREQ.                     CL**2
00725      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO STC-FILE-FREQ.
00728      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00729  STC-DEL-FREQ.                                                       CL**2
00730      IF STC-FILE-FREQ EQUAL TO SPACES                                CL**2
00731          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00732      MOVE SPACES TO STC-FILE-FREQ.                                   CL**2
00733      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00734 *                                                                    CL**2
00735 *     STRUCTURE - SEG NO (MK4)                                       CL**2
00736 *                                                                    CL**2
00737  STC-EDIT-SEG.                                                       CL**2
00738      IF FIELD-ID NOT EQUAL TO 20 GO TO STC-EDIT-LEV.                 CL**2
00739      MOVE STC-FILE-SEGNO TO OLD-VALUE.                               CL**2
00740      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-SEG.                      CL**2
00741      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO STC-FILE-SEGNO. 
00744      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00745  STC-DEL-SEG.                                                        CL**2
00746      IF STC-FILE-SEGNO EQUAL TO SPACES                               CL**2
00747          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00748      MOVE SPACES TO STC-FILE-SEGNO.                                  CL**2
00749      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00750 *                                                                    CL**2
00751 *     STRUCTURE - LEV NO (MK4)                                       CL**2
00752 *                                                                    CL**2
00753  STC-EDIT-LEV.                                                       CL**2
00754      IF FIELD-ID NOT EQUAL TO 25 GO TO FLD-ERR.                      CL**2
00755      MOVE STC-FILE-LEVNO TO OLD-VALUE.                               CL**2
00756      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-LEV.                      CL**2
00757      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO STC-FILE-LEVNO. 
00760      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00761  STC-DEL-LEV.                                                        CL**2
00762      IF STC-FILE-LEVNO EQUAL TO SPACES                               CL**2
00763          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00764      MOVE SPACES TO STC-FILE-LEVNO.                                  CL**2
00765      GO TO CAT-MVC-MSG-DEL.                                          CL**2
      ************************************************* 
      *        MDINFO CATEGORY
      ************************************************* 
       MD-EDIT. 
           IF CAT-ID NOT EQUAL TO 450 
               GO TO CAT-ERR. 
      * 
      *    FILE TYPE - MDINFO CATEGORY
      * 
       MD-EDIT-TYPE.
           IF FIELD-ID NOT EQUAL TO 05
               GO TO MD-EDIT-UN.
           MOVE MD-FILE-TYPE TO OLD-VALUE.
           IF VAL (1) EQUAL TO "$"
               GO TO MD-DEL-TYPE. 
           MOVE FTYPE-CODES TO VALID-CODE-TABLE.
           PERFORM VALID-CODE THRU VALID-CODE-XIT.
           MOVE VAL (1) TO MD-FILE-TYPE.
           GO TO CAT-MVC-MSG-CHG. 
       MD-DEL-TYPE. 
           IF MD-FILE-TYPE EQUAL SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO MD-FILE-TYPE. 
           GO TO CAT-MVC-MSG-DEL. 
      * 
      *        MDINFO - USER NUMBER 
      * 
       MD-EDIT-UN.
           IF FIELD-ID NOT EQUAL TO 10 GO TO MD-EDIT-PW.
           MOVE MD-FILE-UN TO OLD-VALUE.
           IF VAL (1) EQUAL "$" GO TO MD-DEL-UN.
           MOVE VAL-AREA TO MD-FILE-UN. 
           GO TO CAT-MVC-MSG-CHG. 
       MD-DEL-UN. 
           IF MD-FILE-UN EQUAL SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO MD-FILE-UN. 
           GO TO CAT-MVC-MSG-DEL. 
      * 
      *        MDINFO - PASSWORD
      * 
       MD-EDIT-PW.
           IF FIELD-ID NOT EQUAL TO 15 GO TO MD-EDIT-UNLMT. 
           MOVE MD-FILE-PW TO OLD-VALUE.
           IF VAL (1) EQUAL "$" GO TO MD-DEL-PW.
           MOVE VAL-AREA TO MD-FILE-PW. 
           GO TO CAT-MVC-MSG-CHG. 
       MD-DEL-PW. 
           IF MD-FILE-PW EQUAL SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO MD-FILE-PW. 
           GO TO CAT-MVC-MSG-DEL. 
      * 
      *        MDINFO - UNIT LIMIT
      * 
       MD-EDIT-UNLMT. 
           IF FIELD-ID NOT EQUAL TO 20 GO TO MD-EDIT-UPLMT. 
           MOVE MD-FILE-UNIT-LIMIT TO OLD-VALUE.
           IF VAL (1) EQUAL "$" GO TO MD-DEL-UNLMT. 
           PERFORM MOVE-NUM THRU VALID-NUM-XIT. 
           MOVE NUM-HOLD-X TO MD-FILE-UNIT-LIMIT. 
           GO TO CAT-MVC-MSG-CHG. 
       MD-DEL-UNLMT.
           IF MD-FILE-UNIT-LIMIT EQUAL SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE ZEROS TO MD-FILE-UNIT-LIMIT.
           GO TO CAT-MVC-MSG-DEL. 
      * 
      *        MDINFO - UPDATE LIMIT
      * 
       MD-EDIT-UPLMT. 
           IF FIELD-ID NOT EQUAL TO 25 GO TO MD-EDIT-FAM. 
           MOVE MD-FILE-UPD-LIMIT TO OLD-VALUE. 
           IF VAL (1) EQUAL "$" GO TO MD-DEL-UPLMT. 
           PERFORM MOVE-NUM THRU VALID-NUM-XIT. 
           MOVE NUM-HOLD-X TO MD-FILE-UPD-LIMIT.
           GO TO CAT-MVC-MSG-CHG. 
       MD-DEL-UPLMT.
           IF MD-FILE-UPD-LIMIT EQUAL SPACES
               GO TO CAT-MVC-MSG-DEL. 
           MOVE ZEROS TO MD-FILE-UPD-LIMIT. 
           GO TO CAT-MVC-MSG-DEL. 
      * 
      *    MDINFO - FAMILY
      * 
       MD-EDIT-FAM. 
           IF FIELD-ID NOT EQUAL TO 30 GO TO MD-EDIT-PACK.
           MOVE MD-FILE-FAMILY TO OLD-VALUE.
           IF VAL (1) EQUAL "$" GO TO MD-DEL-FAM. 
           MOVE VAL-AREA TO MD-FILE-FAMILY. 
           GO TO CAT-MVC-MSG-CHG. 
       MD-DEL-FAM.
           IF MD-FILE-FAMILY EQUAL SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO MD-FILE-FAMILY. 
           GO TO CAT-MVC-MSG-DEL. 
      * 
      *    MDINFO - PACK
      * 
       MD-EDIT-PACK.
           IF FIELD-ID NOT EQUAL TO 35 GO TO MD-EDIT-SET. 
           MOVE MD-FILE-PACK TO OLD-VALUE.
           IF VAL (1) EQUAL "$" GO TO MD-DEL-PACK.
           MOVE VAL-AREA TO MD-FILE-PACK. 
           GO TO CAT-MVC-MSG-CHG. 
       MD-DEL-PACK. 
           IF MD-FILE-PACK EQUAL SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO MD-FILE-PACK. 
           GO TO CAT-MVC-MSG-DEL. 
      * 
      *    MDINFO - SET 
      * 
       MD-EDIT-SET. 
           IF FIELD-ID NOT EQUAL TO 40 GO TO FLD-ERR. 
           MOVE MD-FILE-SET TO OLD-VALUE. 
           IF VAL (1) EQUAL "$" GO TO MD-DEL-SET. 
           MOVE VAL-AREA TO MD-FILE-SET.
           GO TO CAT-MVC-MSG-CHG. 
       MD-DEL-SET.
           IF MD-FILE-SET EQUAL SPACES
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO MD-FILE-SET.
           GO TO CAT-MVC-MSG-DEL. 
