*DECK     DCUPD19 
00002  IDENTIFICATION DIVISION.                                         DCUPD19 
00003 ******************************************************               LV002
00004 *                                                                    CL**2
00005 *     D A T A S E T   E N T R Y   E D I T I N G                      CL**2
00006 *                                                                    CL**2
00007 ******************************************************               CL**2
       PROGRAM-ID. UPD19. 
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION. 
       SOURCE-COMPUTER. CYBER.
       OBJECT-COMPUTER. CYBER.
       DATA DIVISION. 
*CALL UPDCS 
*CALL DCDWA19 
*CALL QUALINE 
*CALL     DCUPDSWS                                                         CL**2
00010  01  DEN-CODES    PICTURE X(11) VALUE                                CL**2
00011      "0123456789/".                                                  CL**2
00012  01  ADDR-CODES   PICTURE X(13) VALUE                                CL**2
00013      "DI0123456789/".                                                CL**2
00014  01  UNIT-TYPE-CODES  PICTURE X(16) VALUE                            CL**2
00015      "CTBRD0123456789/".                                             CL**2
00020  PROCEDURE DIVISION.                                                 CL**2
*CALL     DCUPDKW                                                          CL**2
00023 ******************************************************               CL**2
00024 *                                                                    CL**2
00025 *     D A T A S E T   E N T R Y   E D I T I N G                      CL**2
00026 *                                                                    CL**2
00027 ******************************************************               CL**2
00028 *                                                                    CL**2
00029 *                                                                    CL**2
00030 ******************************************************               CL**2
00031 *                                                                    CL**2
00032 *     RESPONSIBILITY CATEGORY                                        CL**2
00033 *                                                                    CL**2
00034 ******************************************************               CL**2
00035  RESP-EDIT.                                                          CL**2
           MOVE SPACE TO NUM-EDIT.
00036      IF CAT-ID NOT EQUAL TO 140 GO TO NAME-SET-EDIT.                 CL**2
00037 *                                                                    CL**2
00038 *     RESPONSIBILITY - STATUS                                        CL**2
00039 *                                                                    CL**2
00040  RESP-EDIT-STAT.                                                     CL**2
00041      IF FIELD-ID NOT EQUAL TO 05 GO TO RESP-EDIT-FUNC.               CL**2
00042      MOVE RESP-SET-STATUS TO OLD-VALUE.                              CL**2
00043      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-STAT.                    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-SET-STATUS.                               CL**2
00047      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00048  RESP-DEL-STAT.                                                      CL**2
00049      IF RESP-SET-STATUS EQUAL TO SPACES                              CL**2
00050          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00051      MOVE SPACES TO RESP-SET-STATUS.                                 CL**2
00052      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00053 *                                                                    CL**2
00054 *     RESPONSIBILITY - FUNCTION                                      CL**2
00055 *                                                                    CL**2
00056  RESP-EDIT-FUNC.                                                     CL**2
00057      IF FIELD-ID NOT EQUAL TO 10 GO TO RESP-EDIT-DPT.                CL**2
00058      MOVE RESP-SET-FUNC TO OLD-VALUE.                                CL**2
00059      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-FUNC.                    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-SET-FUNC.                                 CL**2
00063      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00064  RESP-DEL-FUNC.                                                      CL**2
00065      IF RESP-SET-FUNC EQUAL TO SPACES                                CL**2
00066          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00067      MOVE SPACES TO RESP-SET-FUNC.                                   CL**2
00068      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00069 *                                                                    CL**2
00070 *     RESPONSIBILITY - DEPT                                          CL**2
00071 *                                                                    CL**2
00072  RESP-EDIT-DPT.                                                      CL**2
00073      IF FIELD-ID NOT EQUAL TO 15 GO TO RESP-EDIT-PER.                CL**2
00074      MOVE RESP-SET-DEPT TO OLD-VALUE.                                CL**2
00075      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-DPT.                     CL**2
00076      MOVE VAL-AREA TO RESP-SET-DEPT.                                 CL**2
00077      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00078  RESP-DEL-DPT.                                                       CL**2
00079      IF RESP-SET-DEPT EQUAL TO SPACES                                CL**2
00080          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00081      MOVE SPACES TO RESP-SET-DEPT.                                   CL**2
00082      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00083 *                                                                    CL**2
00084 *     RESPONSIBILITY - PERSON                                        CL**2
00085 *                                                                    CL**2
00086  RESP-EDIT-PER.                                                      CL**2
00087      IF FIELD-ID NOT EQUAL TO 20 GO TO RESP-EDIT-PHONE.              CL**2
00088      MOVE RESP-SET-PERSON TO OLD-VALUE.                              CL**2
00089      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-PER.                     CL**2
00090      MOVE VAL-AREA TO RESP-SET-PERSON.                               CL**2
00091      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00092  RESP-DEL-PER.                                                       CL**2
00093      IF RESP-SET-PERSON EQUAL TO SPACES                              CL**2
00094          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00095      MOVE SPACES TO RESP-SET-PERSON.                                 CL**2
00096      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00097 *                                                                    CL**2
00098 *     RESPONSIBILITY - PHONE                                         CL**2
00099 *                                                                    CL**2
00100  RESP-EDIT-PHONE.                                                    CL**2
00101      IF FIELD-ID NOT EQUAL TO 25 GO TO RESP-EDIT-TIT.                CL**2
00102      MOVE RESP-SET-PHONE TO OLD-VALUE.                               CL**2
00103      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-PHONE.                   CL**2
00104      MOVE VAL-AREA TO RESP-SET-PHONE.                                CL**2
00105      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00106  RESP-DEL-PHONE.                                                     CL**2
00107      IF RESP-SET-PHONE EQUAL TO SPACES                               CL**2
00108          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00109      MOVE SPACES TO RESP-SET-PHONE.                                  CL**2
00110      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00111 *                                                                    CL**2
00112 *     RESPONSIBILITY - TITLE                                         CL**2
00113 *                                                                    CL**2
00114  RESP-EDIT-TIT.                                                      CL**2
00115      IF FIELD-ID NOT EQUAL TO 30 GO TO RESP-EDIT-MAIL.               CL**2
00116      MOVE RESP-SET-TITLE TO OLD-VALUE.                               CL**2
00117      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-TIT.                     CL**2
00118      MOVE VAL-AREA TO RESP-SET-TITLE.                                CL**2
00119      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00120  RESP-DEL-TIT.                                                       CL**2
00121      IF RESP-SET-TITLE EQUAL TO SPACES                               CL**2
00122          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00123      MOVE SPACES TO RESP-SET-TITLE.                                  CL**2
00124      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00125 *                                                                    CL**2
00126 *     RESPONSIBILITY - MAIL                                          CL**2
00127 *                                                                    CL**2
00128  RESP-EDIT-MAIL.                                                     CL**2
00129      IF FIELD-ID NOT EQUAL TO 35 GO TO RESP-EDIT-DATE.               CL**2
00130      MOVE RESP-SET-MAIL TO OLD-VALUE.                                CL**2
00131      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-MAIL.                    CL**2
00132      MOVE VAL-AREA TO RESP-SET-MAIL.                                 CL**2
00133      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00134  RESP-DEL-MAIL.                                                      CL**2
00135      IF RESP-SET-MAIL EQUAL TO SPACES                                CL**2
00136          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00137      MOVE SPACES TO RESP-SET-MAIL.                                   CL**2
00138      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00139 *                                                                    CL**2
00140 *     RESPONSIBILITY - DATE                                          CL**2
00141 *                                                                    CL**2
00142  RESP-EDIT-DATE.                                                     CL**2
00143      IF FIELD-ID NOT EQUAL TO 40 GO TO FLD-ERR.                      CL**2
00144      MOVE RESP-SET-DATE TO OLD-VALUE.                                CL**2
00145      IF VAL (1) EQUAL TO "$" GO TO RESP-DEL-DATE.                    CL**2
00146      MOVE VAL-AREA TO RESP-SET-DATE.                                 CL**2
00147      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00148  RESP-DEL-DATE.                                                      CL**2
00149      IF RESP-SET-DATE EQUAL TO SPACES                                CL**2
00150          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00151      MOVE SPACES TO RESP-SET-DATE.                                   CL**2
00152      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00153 *****************************************************                CL**2
00154 *                                                                    CL**2
00155 *     NAME CATEGORY                                                  CL**2
00156 *                                                                    CL**2
00157 *****************************************************                CL**2
00158  NAME-SET-EDIT.                                                      CL**2
00159      IF CAT-ID NOT EQUAL TO 200 GO TO ATTR-SET-EDIT.                 CL**2
00160 *                                                                    CL**2
00161 *     NAME - TOTAL DATASET NAME                                      CL**2
00162 *                                                                    CL**2
00163  NAME-SET-EDIT-TD.                                                   CL**2
00164      IF FIELD-ID NOT EQUAL TO 05 GO TO NAME-SET-EDIT-DS.             CL**2
00165      MOVE NAME-SET-TD TO OLD-VALUE.                                  CL**2
00166      IF VAL (1) EQUAL TO "$" GO TO NAME-DEL-TD.                      CL**2
00167      MOVE VAL-AREA TO NAME-SET-TD.                                   CL**2
00168      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00169  NAME-DEL-TD.                                                        CL**2
00170      IF NAME-SET-TD EQUAL TO SPACES                                  CL**2
00171          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00172      MOVE SPACES TO NAME-SET-TD.                                     CL**2
00173      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00174 *                                                                    CL**2
00175 *     NAME - DATA SET                                                CL**2
00176 *                                                                    CL**2
00177  NAME-SET-EDIT-DS.                                                   CL**2
00178      IF FIELD-ID NOT EQUAL TO 10 GO TO NAME-SET-EDIT-DD.             CL**2
00179      MOVE NAME-SET-DS TO OLD-VALUE.                                  CL**2
00180      IF VAL (1) EQUAL TO "$" GO TO NAME-DEL-DS.                      CL**2
00181      MOVE VAL-AREA TO NAME-SET-DS.                                   CL**2
00182      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00183  NAME-DEL-DS.                                                        CL**2
00184      IF NAME-SET-DS EQUAL TO SPACES                                  CL**2
00185          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00186      MOVE SPACES TO NAME-SET-DS.                                     CL**2
00187      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00188 *                                                                    CL**2
00189 *     NAME - DD                                                      CL**2
00190 *                                                                    CL**2
00191  NAME-SET-EDIT-DD.                                                   CL**2
00192      IF FIELD-ID NOT EQUAL TO 15 GO TO NAME-SET-EDIT-PRIME.          CL**2
00193      MOVE NAME-SET-DD TO OLD-VALUE.                                  CL**2
00194      IF VAL (1) EQUAL TO "$" GO TO NAME-DEL-DD.                      CL**2
00195      MOVE VAL-AREA TO NAME-SET-DD.                                   CL**2
00196      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00197  NAME-DEL-DD.                                                        CL**2
00198      IF NAME-SET-DD EQUAL TO SPACES                                  CL**2
00199          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00200      MOVE SPACES TO NAME-SET-DD.                                     CL**2
00201      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00202 *                                                                    CL**2
00203 *     NAME - PRIME                                                   CL**2
00204 *                                                                    CL**2
00205  NAME-SET-EDIT-PRIME.                                                CL**2
00206      IF FIELD-ID NOT EQUAL TO 20 GO TO NAME-SET-EDIT-MEMBER.         CL**2
00207      MOVE NAME-SET-PRIME TO OLD-VALUE.                               CL**2
00208      IF VAL (1) EQUAL TO "$" GO TO NAME-DEL-PRIME.                   CL**2
00209      MOVE VAL-AREA TO NAME-SET-PRIME.                                CL**2
00210      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00211  NAME-DEL-PRIME.                                                     CL**2
00212      IF NAME-SET-PRIME EQUAL TO SPACES                               CL**2
00213          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00214      MOVE SPACES TO NAME-SET-PRIME.                                  CL**2
00215      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00216 *                                                                    CL**2
00217 *    NAME - MEMBER                                                   CL**2
00218 *                                                                    CL**2
00219  NAME-SET-EDIT-MEMBER.                                               CL**2
00220      IF FIELD-ID NOT EQUAL TO 25 GO TO NAME-SET-EDIT-IO.             CL**2
00221      MOVE NAME-SET-MEMBER TO OLD-VALUE.                              CL**2
00222      IF VAL (1) EQUAL TO "$" GO TO NAME-DEL-MEMBER.                  CL**2
00223      MOVE VAL-AREA TO NAME-SET-MEMBER.                               CL**2
00224      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00225  NAME-DEL-MEMBER.                                                    CL**2
00226      IF NAME-SET-MEMBER EQUAL TO SPACES                              CL**2
00227          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00228      MOVE SPACES TO NAME-SET-MEMBER.                                 CL**2
00229      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00230 *                                                                    CL**2
00231 *    NAME-IO                                                         CL**2
00232 *                                                                    CL**2
00233  NAME-SET-EDIT-IO.                                                   CL**2
00234      IF FIELD-ID NOT EQUAL TO 30 GO TO FLD-ERR.                      CL**2
00235      MOVE NAME-SET-IO TO OLD-VALUE.                                  CL**2
00236      IF VAL (1) EQUAL TO "$" GO TO NAME-DEL-IO.                      CL**2
00237      MOVE VAL-AREA TO NAME-SET-IO.                                   CL**2
00238      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00239  NAME-DEL-IO.                                                        CL**2
00240      IF NAME-SET-IO EQUAL TO SPACES                                  CL**2
00241          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00242      MOVE SPACES TO NAME-SET-IO.                                     CL**2
00243      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00244 *****************************************************                CL**2
00245 *                                                                    CL**2
00246 *     ATTRIBUTE CATEGORY                                             CL**2
00247 *                                                                    CL**2
00248 ****************************************************                 CL**2
00249  ATTR-SET-EDIT.                                                      CL**2
00250      IF CAT-ID NOT EQUAL TO 210 GO TO UNIT-SET-EDIT.                 CL**2
00251 *                                                                    CL**2
00252 *     ATTRIBUTE - RECSIZE                                            CL**2
00253 *                                                                    CL**2
00254  ATTR-EDIT-REC.                                                      CL**2
00255      IF FIELD-ID NOT EQUAL TO 05 GO TO ATTR-SET-EDIT-BLK.            CL**2
00256      MOVE ATTR-SET-RECSIZE TO OLD-VALUE.                             CL**2
00257      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-REC.                     CL**2
00258      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO ATTR-SET-RECSIZE. 
00261      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00262  ATTR-DEL-REC.                                                       CL**2
00263      IF ATTR-SET-RECSIZE EQUAL TO SPACES                             CL**2
00264          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00265      MOVE SPACES TO ATTR-SET-RECSIZE.                                CL**2
00266      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00267 *                                                                    CL**2
00268 *     ATTRIBUTE - BLKSIZE                                            CL**2
00269 *                                                                    CL**2
00270  ATTR-SET-EDIT-BLK.                                                  CL**2
00271      IF FIELD-ID NOT EQUAL TO 10 GO TO ATTR-EDIT-RFM.                CL**2
00272      MOVE ATTR-SET-BLKSIZE TO OLD-VALUE.                             CL**2
00273      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-BLK.                     CL**2
00274      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO ATTR-SET-BLKSIZE. 
00277      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00278  ATTR-DEL-BLK.                                                       CL**2
00279      IF ATTR-SET-BLKSIZE EQUAL TO SPACES                             CL**2
00280          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00281      MOVE SPACES TO ATTR-SET-BLKSIZE.                                CL**2
00282      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00283 *                                                                    CL**2
00284 *     ATTRIBUTE - RECRFM                                             CL**2
00285 *                                                                    CL**2
00286  ATTR-EDIT-RFM.                                                      CL**2
00287      IF FIELD-ID NOT EQUAL TO 15 GO TO ATTR-EDIT-DSORG.              CL**2
00288      MOVE ATTR-SET-RECFM TO OLD-VALUE.                               CL**2
00289      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-FM.                      CL**2
00290      MOVE VAL-AREA TO ATTR-SET-RECFM.                                CL**2
00291      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00292  ATTR-DEL-FM.                                                        CL**2
00293      IF ATTR-SET-RECFM EQUAL TO SPACES                               CL**2
00294          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00295      MOVE SPACES TO ATTR-SET-RECFM.                                  CL**2
00296      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00297 *                                                                    CL**2
00298 *                                                                    CL**2
00299 *     ATTRIBUTE - DSORG                                              CL**2
00300 *                                                                    CL**2
00301  ATTR-EDIT-DSORG.                                                    CL**2
00302      IF FIELD-ID NOT EQUAL TO 20 GO TO ATTR-EDIT-LB.                 CL**2
00303      MOVE ATTR-SET-DSORG TO OLD-VALUE.                               CL**2
00304      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-DS.                      CL**2
00305      IF VAL-AREA EQUAL TO "DA " GO TO ATTR-EDIT-DS10.                CL**2
00306      IF VAL-AREA EQUAL TO "DAU" GO TO ATTR-EDIT-DS10.                CL**2
00307      IF VAL-AREA EQUAL TO "IS " GO TO ATTR-EDIT-DS10.                CL**2
00308      IF VAL-AREA EQUAL TO "ISU" GO TO ATTR-EDIT-DS10.                CL**2
00309      IF VAL-AREA EQUAL TO "PO " GO TO ATTR-EDIT-DS10.                CL**2
00310      IF VAL-AREA EQUAL TO "POU" GO TO ATTR-EDIT-DS10.                CL**2
00311      IF VAL-AREA EQUAL TO "PS " GO TO ATTR-EDIT-DS10.                CL**2
00312      IF VAL-AREA EQUAL TO "PSU" GO TO ATTR-EDIT-DS10.                CL**2
00313      MOVE CERR-235W TO MSG-POS5 (MSG).                               CL**2
00314      MOVE "235-W" TO MSG-POS2 (MSG).                                 CL**2
00315      GO TO CAT-MVC-MSG-ERR.                                          CL**2
00316  ATTR-EDIT-DS10.                                                     CL**2
00317      MOVE VAL-AREA TO ATTR-SET-DSORG.                                CL**2
00318      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00319   ATTR-DEL-DS.                                                       CL**2
00320      IF ATTR-SET-DSORG EQUAL TO SPACES                               CL**2
00321          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00322      MOVE SPACES TO ATTR-SET-DSORG.                                  CL**2
00323      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00324 *                                                                    CL**2
00325 *     ATTRIBUTE - LABEL                                              CL**2
00326 *                                                                    CL**2
00327  ATTR-EDIT-LB.                                                       CL**2
00328      IF FIELD-ID NOT EQUAL TO 25 GO TO ATTR-EDIT-DEN.                CL**2
00329      MOVE ATTR-SET-LABEL TO OLD-VALUE.                               CL**2
00330      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-LB.                      CL**2
00331      IF VAL-AREA EQUAL TO "SL " GO TO ATTR-EDIT-LB10.                CL**2
00332      IF VAL-AREA EQUAL TO "AL " GO TO ATTR-EDIT-LB10.                CL**2
00333      IF VAL-AREA EQUAL "AUL" GO TO ATTR-EDIT-LB10.                   CL**2
00334      IF VAL-AREA EQUAL TO "NL " GO TO ATTR-EDIT-LB10.                CL**2
00335      IF VAL-AREA EQUAL "SUL" GO TO ATTR-EDIT-LB10.                   CL**2
00336      IF VAL-AREA EQUAL TO "NSL" GO TO ATTR-EDIT-LB10.                CL**2
00337      IF VAL-AREA EQUAL TO "BLP" GO TO ATTR-EDIT-LB10.                CL**2
00338      MOVE CERR-235W TO MSG-POS5 (MSG).                               CL**2
00339      MOVE "235-W" TO MSG-POS2 (MSG).                                 CL**2
00340      GO TO CAT-MVC-MSG-ERR.                                          CL**2
00341  ATTR-EDIT-LB10.                                                     CL**2
00342      MOVE VAL-AREA TO ATTR-SET-LABEL.                                CL**2
00343      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00344  ATTR-DEL-LB.                                                        CL**2
00345      IF ATTR-SET-LABEL EQUAL TO SPACES                               CL**2
00346          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00347      MOVE SPACES TO ATTR-SET-LABEL.                                  CL**2
00348      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00349 *                                                                    CL**2
00350 *     ATTRIBUTE - DENSITY                                            CL**2
00351 *                                                                    CL**2
00352  ATTR-EDIT-DEN.                                                      CL**2
00353      IF FIELD-ID NOT EQUAL TO 30 GO TO ATTR-EDIT-BUF.                CL**2
00354      MOVE ATTR-SET-DEN TO OLD-VALUE.                                 CL**2
00355      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-DEN.                     CL**2
00356      MOVE DEN-CODES TO VALID-CODE-TABLE.                             CL**2
00357      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00358      MOVE VAL (1) TO ATTR-SET-DEN.                                   CL**2
00359      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00360  ATTR-DEL-DEN.                                                       CL**2
00361      IF ATTR-SET-DEN EQUAL TO SPACES                                 CL**2
00362          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00363      MOVE SPACES TO ATTR-SET-DEN.                                    CL**2
00364      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00365 *                                                                    CL**2
00366 *     ATTRIBUTE -BUFFER                                              CL**2
00367 *                                                                    CL**2
00368  ATTR-EDIT-BUF.                                                      CL**2
00369      IF FIELD-ID NOT EQUAL TO 35 GO TO ATTR-EDIT-ADR.                CL**2
00370      MOVE ATTR-SET-BUFF TO OLD-VALUE.                                CL**2
00371      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-BUF.                     CL**2
00372      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO ATTR-SET-BUFF.
00375      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00376  ATTR-DEL-BUF.                                                       CL**2
00377      IF ATTR-SET-BUFF EQUAL TO SPACES                                CL**2
00378          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00379      MOVE SPACES TO ATTR-SET-BUFF.                                   CL**2
00380      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00381 *                                                                    CL**2
00382 *     ATTRIBUTE - ADDRESSING                                         CL**2
00383 *                                                                    CL**2
00384  ATTR-EDIT-ADR.                                                      CL**2
00385      IF FIELD-ID NOT EQUAL TO 40 GO TO ATTR-EDIT-MOD.                CL**2
00386      MOVE ATTR-SET-ADDR TO OLD-VALUE.                                CL**2
00387      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-MOD.                     CL**2
00388      MOVE ADDR-CODES TO VALID-CODE-TABLE.                            CL**2
00389      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00390      MOVE VAL (1) TO ATTR-SET-ADDR.                                  CL**2
00391      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00392  ATTR-DEL-ADR.                                                       CL**2
00393      IF ATTR-SET-ADDR EQUAL TO SPACES                                CL**2
00394          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00395      MOVE SPACES TO ATTR-SET-ADDR.                                   CL**2
00396      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00397 *                                                                    CL**2
00398 *     ATTRIBUTE - RAND MODULE                                        CL**2
00399 *                                                                    CL**2
00400  ATTR-EDIT-MOD.                                                      CL**2
00401      IF FIELD-ID NOT EQUAL TO 45 GO TO ATTR-EDIT-KEY.                CL**2
00402      MOVE ATTR-SET-RMOD TO OLD-VALUE.                                CL**2
00403      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-MOD.                     CL**2
00404      PERFORM CK-CATNAME THRU CK-CATNAME-XIT.                         CL**2
00405      MOVE VAL-AREA TO ATTR-SET-RMOD.                                 CL**2
00406      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00407  ATTR-DEL-MOD.                                                       CL**2
00408      IF ATTR-SET-RMOD EQUAL TO SPACES                                CL**2
00409          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00410      MOVE SPACES TO ATTR-SET-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-SET-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-SET-KEYLEN.
00422      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00423  ATTR-DEL-KEY.                                                       CL**2
00424      IF ATTR-SET-KEYLEN EQUAL TO SPACES                              CL**2
00425          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00426      MOVE SPACES TO ATTR-SET-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
00432      IF FIELD-ID NOT EQUAL TO 55 GO TO ATTR-EDIT-CYL.                CL**2
00433      MOVE ATTR-SET-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-SET-RKP. 
00438      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00439  ATTR-DEL-RKP.                                                       CL**2
00440      IF ATTR-SET-RKP EQUAL TO SPACES                                 CL**2
00441          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00442      MOVE SPACES TO ATTR-SET-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-SET-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-SET-CYLOFL.
00454      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00455  ATTR-DEL-CYL.                                                       CL**2
00456      IF ATTR-SET-CYLOFL EQUAL TO SPACES                              CL**2
00457          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00458      MOVE SPACES TO ATTR-SET-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-SET-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-SET-OPT.                                  CL**2
00468      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00469  ATTR-DEL-OPT.                                                       CL**2
00470      IF ATTR-SET-OPT EQUAL TO SPACES                                 CL**2
00471          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00472      MOVE SPACES TO ATTR-SET-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-SET-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-SET-LIMCT. 
00484      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00485  ATTR-DEL-LIM.                                                       CL**2
00486      IF ATTR-SET-LIMCT EQUAL TO SPACES                               CL**2
00487          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00488      MOVE SPACES TO ATTR-SET-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-SET-EDIT.                                                      CL**2
00496      IF CAT-ID NOT EQUAL TO 220 GO TO ENVIR-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 *    ENVIRONMENT  CATEGORY                                           CL**2
00680 *                                                                    CL**2
00681 ******************************************************               CL**2
00682  ENVIR-EDIT.                                                         CL**2
00683      IF CAT-ID NOT EQUAL TO 245 GO TO STC-EDIT.                      CL**2
00684 *                                                                    CL**2
00685 *    DEVICE FIELD                                                    CL**2
00686 *                                                                    CL**2
00687  ENV-EDIT-DEVICE.                                                    CL**2
00688      IF FIELD-ID NOT EQUAL TO 05 GO TO ENV-EDIT-TREC.                CL**2
00689      MOVE ENV-DEVICE TO OLD-VALUE.                                   CL**2
00690      IF VAL (1) EQUAL TO "$" GO TO ENV-DEL-DEVICE.                   CL**2
00691      MOVE VAL-AREA TO ENV-DEVICE.                                    CL**2
00692      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00693  ENV-DEL-DEVICE.                                                     CL**2
00694      IF ENV-DEVICE EQUAL TO SPACES                                   CL**2
00695          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00696      MOVE SPACES TO ENV-DEVICE.                                      CL**2
00697      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00698 *                                                                    CL**2
00699 *    TOTAL LOGICAL RECORDS FIELD                                     CL**2
00700 *                                                                    CL**2
00701  ENV-EDIT-TREC.                                                      CL**2
00702      IF FIELD-ID NOT EQUAL TO 10 GO TO ENV-EDIT-TTRACK.              CL**2
00703      MOVE ENV-TRECS TO OLD-VALUE.                                    CL**2
00704      IF VAL (1) EQUAL TO "$" GO TO ENV-DEL-TREC.                     CL**2
00705      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO ENV-TRECS.
00708      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00709  ENV-DEL-TREC.                                                       CL**2
00710      IF ENV-TRECS EQUAL TO SPACES                                    CL**2
00711          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00712      MOVE SPACES TO ENV-TRECS.                                       CL**2
00713      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00714 *                                                                    CL**2
00715 *    TOTAL TRACKS FIELD                                              CL**2
00716 *                                                                    CL**2
00717  ENV-EDIT-TTRACK.                                                    CL**2
00718      IF FIELD-ID NOT EQUAL TO 15 GO TO ENV-EDIT-TLENGTH.             CL**2
00719      MOVE ENV-TRACK TO OLD-VALUE.                                    CL**2
00720      IF VAL (1) EQUAL TO "$" GO TO ENV-DEL-TRACK.                    CL**2
00721      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO ENV-TRACK.
00724      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00725  ENV-DEL-TRACK.                                                      CL**2
00726      IF ENV-TRACK EQUAL TO SPACES                                    CL**2
00727          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00728      MOVE SPACES TO ENV-TRACK.                                       CL**2
00729      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00730 *                                                                    CL**2
00731 *    TOTAL LOGICAL RECORD LENGTH                                     CL**2
00732 *                                                                    CL**2
00733  ENV-EDIT-TLENGTH.                                                   CL**2
00734      IF FIELD-ID NOT EQUAL TO 20 GO TO ENV-EDIT-BLOCKS.              CL**2
00735      MOVE ENV-LENGTH TO OLD-VALUE.                                   CL**2
00736      IF VAL (1) EQUAL TO "$" GO TO DEL-ENV-LENGTH.                   CL**2
00737      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO ENV-LENGTH. 
00740      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00741  DEL-ENV-LENGTH.                                                     CL**2
00742      IF ENV-LENGTH EQUAL TO SPACES                                   CL**2
00743          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00744      MOVE SPACES TO ENV-LENGTH.                                      CL**2
00745      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00746 *                                                                    CL**2
00747 *    TOTAL BLOCKS FIELD                                              CL**2
00748 *                                                                    CL**2
00749  ENV-EDIT-BLOCKS.                                                    CL**2
00750      IF FIELD-ID NOT EQUAL TO 25 GO TO ENV-EDIT-DISK.                CL**2
00751      MOVE ENV-BLOCK TO OLD-VALUE.                                    CL**2
00752      IF VAL (1) EQUAL TO "$" GO TO ENV-DEL-BLOCK.                    CL**2
00753      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO ENV-BLOCK.
00756      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00757  ENV-DEL-BLOCK.                                                      CL**2
00758      IF ENV-BLOCK EQUAL TO SPACES                                    CL**2
00759          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00760      MOVE SPACES TO ENV-BLOCK.                                       CL**2
00761      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00762 *                                                                    CL**2
00763 *    DISK EXTENTS FIELD                                              CL**2
00764 *                                                                    CL**2
00765  ENV-EDIT-DISK.                                                      CL**2
00766      IF FIELD-ID NOT EQUAL TO 30 GO TO ENV-EDIT-LOAD.                CL**2
00767      MOVE ENV-DISK TO OLD-VALUE.                                     CL**2
00768      IF VAL (1) EQUAL TO "$" GO TO ENV-DEL-DISK.                     CL**2
00769      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO ENV-DISK. 
00772      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00773  ENV-DEL-DISK.                                                       CL**2
00774      IF ENV-DISK EQUAL TO SPACES                                     CL**2
00775          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00776      MOVE SPACES TO ENV-DISK.                                        CL**2
00777      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00778 *                                                                    CL**2
00779 *    CYLINDER LOAD LIMIT FIELD                                       CL**2
00780 *                                                                    CL**2
00781  ENV-EDIT-LOAD.                                                      CL**2
00782      IF FIELD-ID NOT EQUAL TO 35 GO TO ENV-EDIT-FILE.                CL**2
00783      MOVE ENV-LOAD TO OLD-VALUE.                                     CL**2
00784      IF VAL (1) EQUAL TO "$" GO TO ENV-DEL-LOAD.                     CL**2
00785      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO ENV-LOAD. 
00788      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00789  ENV-DEL-LOAD.                                                       CL**2
00790      IF ENV-LOAD EQUAL TO SPACES                                     CL**2
00791          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00792      MOVE SPACES TO ENV-LOAD.                                        CL**2
00793      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00794 *                                                                    CL**2
00795 *    OLD FILE FIELD                                                  CL**2
00796 *                                                                    CL**2
00797  ENV-EDIT-FILE.                                                      CL**2
00798      IF FIELD-ID NOT EQUAL TO 40 GO TO ENV-EDIT-START.               CL**2
00799      MOVE ENV-FILE TO OLD-VALUE.                                     CL**2
00800      IF VAL (1) EQUAL TO "$" GO TO ENV-DEL-FILE.                     CL**2
00801      MOVE PUSE-CODES TO VALID-CODE-TABLE.                            CL**2
00802      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00803      MOVE VAL (1) TO ENV-FILE.                                       CL**2
00804      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00805  ENV-DEL-FILE.                                                       CL**2
00806      IF ENV-FILE EQUAL TO SPACES                                     CL**2
00807          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00808      MOVE SPACES TO ENV-FILE.                                        CL**2
00809      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00810 *                                                                    CL**2
00811 *    RELATIVE START FIELD                                            CL**2
00812 *                                                                    CL**2
00813  ENV-EDIT-START.                                                     CL**2
00814      IF FIELD-ID NOT EQUAL TO 45 GO TO ENV-EDIT-VTOC.                CL**2
00815      MOVE ENV-START TO OLD-VALUE.                                    CL**2
00816      IF VAL (1) EQUAL TO "$" GO TO ENV-DEL-START.                    CL**2
00817      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO ENV-START.
00820      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00821  ENV-DEL-START.                                                      CL**2
00822      IF ENV-START EQUAL TO SPACES                                    CL**2
00823          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00824      MOVE SPACES TO ENV-START.                                       CL**2
00825      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00826 *                                                                    CL**2
00827 *    VTOC FIELD                                                      CL**2
00828 *                                                                    CL**2
00829  ENV-EDIT-VTOC.                                                      CL**2
00830      IF FIELD-ID NOT EQUAL TO 50 GO TO FLD-ERR.                      CL**2
00831      MOVE ENV-VTOC TO OLD-VALUE.                                     CL**2
00832      IF VAL (1) EQUAL TO "$" GO TO ENV-DEL-VTOC.                     CL**2
00833      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO ENV-VTOC. 
00836      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00837  ENV-DEL-VTOC.                                                       CL**2
00838      IF ENV-VTOC EQUAL TO SPACES                                     CL**2
00839          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00840      MOVE SPACES TO ENV-VTOC.                                        CL**2
00841      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00842 ****************************************************                 CL**2
00843 *                                                                    CL**2
00844 *     STRUCTURE CATEGORY                                             CL**2
00845 *                                                                    CL**2
00846 ****************************************************                 CL**2
00847  STC-EDIT.                                                           CL**2
00848      IF CAT-ID NOT EQUAL TO 300 GO TO CAT-ERR.                       CL**2
00849 *                                                                    CL**2
00850 *     STRUCTURE - CAT NAME                                           CL**2
00851 *                                                                    CL**2
00852  STC-EDIT-CN.                                                        CL**2
00853      IF FIELD-ID NOT EQUAL TO 05 GO TO STC-EDIT-TYPE.                CL**2
00855      MOVE STC-SET-CNAME TO OLD-CATAL-NAME.                           CL**2
00856      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-CN.                       CL**2
00857      PERFORM CK-CATNAME THRU CK-CATNAME-XIT.                         CL**2
           IF STC-SET-CNAME NOT EQUAL TO SPACES 
               PERFORM CHANGE-DELETE THRU CHANGE-DELETE-EXIT
           END-IF 
00858      MOVE "S" TO TYPE-CATAL-NAME.                                    CL**2
00859      MOVE VAL-AREA TO NEW-CATAL-NAME.                                CL**2
00860      MOVE VAL-AREA TO STC-SET-CNAME.                                 CL**2
00861      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00862  STC-DEL-CN.                                                         CL**2
00863      IF STC-SET-CNAME EQUAL TO SPACES                                CL**2
00864          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
           PERFORM FIELD-DELETE THRU FIELD-DELETE-EXIT. 
00866      MOVE SPACES TO STC-SET-CNAME.                                   CL**2
00868      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00869 *                                                                    CL**2
00870 *     STRUCTURE - TYPE                                               CL**2
00871 *                                                                    CL**2
00872  STC-EDIT-TYPE.                                                      CL**2
           IF FIELD-ID NOT EQUAL TO 10 GO TO STC-EDIT-FREQ. 
00874      MOVE STC-SET-TYPE TO OLD-VALUE.                                 CL**2
00875      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-TYPE.                     CL**2
00876      MOVE VAL-AREA TO STC-SET-TYPE.                                  CL**2
00877      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00878  STC-DEL-TYPE.                                                       CL**2
00879      IF STC-SET-TYPE EQUAL TO SPACES                                 CL**2
00880          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00881      MOVE SPACES TO STC-SET-TYPE.                                    CL**2
00882      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00883 *                                                                    CL**2
00884 *     STRUCTURE - FREQUENCY                                          CL**2
00885 *                                                                    CL**2
00886  STC-EDIT-FREQ.                                                      CL**2
00887      IF FIELD-ID NOT EQUAL TO 15 GO TO STC-EDIT-SEG.                 CL**2
00888      MOVE STC-SET-FREQ TO OLD-VALUE.                                 CL**2
00889      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-FREQ.                     CL**2
           PERFORM MOVE-NUM THRU VALID-NUM-XIT. 
           MOVE NUM-HOLD-X TO STC-SET-FREQ. 
00892      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00893  STC-DEL-FREQ.                                                       CL**2
00894      IF STC-SET-FREQ EQUAL TO SPACES                                 CL**2
00895          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00896      MOVE SPACES TO STC-SET-FREQ.                                    CL**2
00897      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00898 *                                                                    CL**2
00899 *     STRUCTURE - SEG NO (MK4)                                       CL**2
00900 *                                                                    CL**2
00901  STC-EDIT-SEG.                                                       CL**2
00902      IF FIELD-ID NOT EQUAL TO 20 GO TO STC-EDIT-LEV.                 CL**2
00903      MOVE STC-SET-SEGNO TO OLD-VALUE.                                CL**2
00904      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-SEG.                      CL**2
00905      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO STC-SET-SEGNO.
00908      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00909  STC-DEL-SEG.                                                        CL**2
00910      IF STC-SET-SEGNO EQUAL TO SPACES                                CL**2
00911          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00912      MOVE SPACES TO STC-SET-SEGNO.                                   CL**2
00913      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00914 *                                                                    CL**2
00915 *     STRUCTURE - LEV NO (MK4)                                       CL**2
00916 *                                                                    CL**2
00917  STC-EDIT-LEV.                                                       CL**2
00918      IF FIELD-ID NOT EQUAL TO 25 GO TO FLD-ERR.                      CL**2
00919      MOVE STC-SET-LEVNO TO OLD-VALUE.                                CL**2
00920      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-LEV.                      CL**2
00921      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO STC-SET-LEVNO.
00924      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00925  STC-DEL-LEV.                                                        CL**2
00926      IF STC-SET-LEVNO EQUAL TO SPACES                                CL**2
00927          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00928      MOVE SPACES TO STC-SET-LEVNO.                                   CL**2
00929      GO TO CAT-MVC-MSG-DEL.                                          CL**2
