*DECK     DCUPD13 
00001  IDENTIFICATION DIVISION.                                         08/12/78
       PROGRAM-ID. UPD13. 
00003 *****************************************************                LV002
00004 *                                                                    CL**2
00005 *     R E C O R D  E N T R Y                                         CL**2
00006 *                                                                    CL**2
00007 *****************************************************                CL**2
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION. 
       SOURCE-COMPUTER. CYBER.
       OBJECT-COMPUTER. CYBER.
       DATA DIVISION. 
*CALL UPDCS 
*CALL DCDWA13 
       01  AQUAL-DETAIL.
           03  LINE-TYPE-AQUAL         PICTURE X. 
           03  QUAL-FIRST-146          PICTURE X(146).
      *    RECORD ENTRY - STRUCTURE CAT - RENAME QUALIFIERS 
       01  STC-SR-R-QUALS  REDEFINES AQUAL-DETAIL.
           03  STC-QUAL-LINE-TYPE    PICTURE X. 
           03  STC-SR-R-QUAL4           PICTURE X(32).
           03  STC-SR-R-QUAL5           PICTURE X(32).
      *    RECORD ENTRY - STRUCTURE CAT - THRU QUALIFIERS 
       01  STC-SR-THRU-QUAL  REDEFINES AQUAL-DETAIL.
           03  STC-SR-T-QUAL-LINE-TYPE  PICTURE X.
           03  STC-SR-T-QUAL4           PICTURE X(32).
           03  STC-SR-T-QUAL5           PICTURE X(32).
      *    RECORD ENTRY - STRUCTURE CAT - DEPEND QUALIFIERS 
       01  STC-SR-DEP-QUALS REDEFINES AQUAL-DETAIL. 
           03  STC-SR-DEP-QUAL-LINE-TYPE PICTURE X. 
           03  STC-SR-DEP-QUAL3          PICTURE X(32). 
           03  STC-SR-DEP-QUAL4          PICTURE X(32). 
           03  STC-SR-DEP-QUAL5          PICTURE X(32). 
       01  AQUAL4-DETAIL               PICTURE X(147).
       01  BQUAL-DETAIL                PICTURE X(147).
       01  BQUAL4-DETAIL               PICTURE X(147).
*CALL     DCUPDSWS                                                         CL**2
00009  01  STORAGE-CODES     PICTURE X(15) VALUE                           CL**2
00010      "BCSA0123456789/".                                              CL**2
00011  01  INC-CODES         PICTURE X(13) VALUE                           CL**2
00012      "YN0123456789/".                                                CL**2
00013  01  KEY-CODES           PICTURE X(15) VALUE                         CL**2
00014      "DUMN0123456789/".                                              CL**2
*CALL CODES 
00019  PROCEDURE DIVISION.                                                 CL**2
*CALL     DCUPDKW                                                          CL**2
00022 *****************************************************                CL**2
00023 *                                                                    CL**2
00024 *     R E C O R D   E N T R Y                                        CL**2
00025 *                                                                    CL**2
00026 *****************************************************                CL**2
00027 *                                                                    CL**2
00028 *                                                                    CL**2
00029 ******************************************************               CL**2
00030 *                                                                    CL**2
00031 *     NAME CATEGORY                                                  CL**2
00032 *                                                                    CL**2
00033 ******************************************************               CL**2
00034  NAME-TOT-EDIT.                                                      CL**2
           MOVE 13 TO SAVE-ENT-TYPE.
           MOVE SPACE TO NUM-EDIT.
00035      IF CAT-ID NOT EQUAL TO 200 GO TO ATTR-EDIT.                     CL**2
00036 *                                                                    CL**2
00037 *     NAME - DATA NAME                                               CL**2
00038 *                                                                    CL**2
00039  NAME-EDIT-DN.                                                       CL**2
00040      IF FIELD-ID NOT EQUAL TO 05 GO TO NAME-EDIT-ID.                 CL**2
00041      MOVE NAME-TOT-DATA-NAME TO OLD-VALUE.                           CL**2
00042      IF VAL (1) EQUAL TO "$" GO TO NAME-DEL-DN.                      CL**2
00043      MOVE VAL-AREA TO NAME-TOT-DATA-NAME.                            CL**2
00044      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00045  NAME-DEL-DN.                                                        CL**2
00046      IF NAME-TOT-DATA-NAME EQUAL TO SPACES                           CL**2
00047          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00048      MOVE SPACES TO NAME-TOT-DATA-NAME.                              CL**2
00049      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00050 *                                                                    CL**2
00051 *     NAME - IDENTIFIER                                              CL**2
00052 *                                                                    CL**2
00053  NAME-EDIT-ID.                                                       CL**2
00054      IF FIELD-ID NOT EQUAL TO 10 GO TO NAME-EDIT-SYM.                CL**2
00055      MOVE NAME-TOT-IDENTIFIER TO OLD-VALUE.                          CL**2
00056      IF VAL (1) EQUAL TO "$" GO TO NAME-DEL-ID.                      CL**2
00057      MOVE VAL-AREA TO NAME-TOT-IDENTIFIER.                           CL**2
00058      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00059  NAME-DEL-ID.                                                        CL**2
00060      IF NAME-TOT-IDENTIFIER EQUAL TO SPACES                          CL**2
00061          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00062      MOVE SPACES TO NAME-TOT-IDENTIFIER.                             CL**2
00063      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00064 *                                                                    CL**2
00065 *     NAME - SYMBOL                                                  CL**2
00066 *                                                                    CL**2
00067  NAME-EDIT-SYM.                                                      CL**2
00068      IF FIELD-ID NOT EQUAL TO 15 GO TO NAME-EDIT-DB.                 CL**2
00069      MOVE NAME-TOT-SYMBOL TO OLD-VALUE.                              CL**2
00070      IF VAL (1) EQUAL TO "$" GO TO NAME-DEL-SYM.                     CL**2
00071      MOVE VAL-AREA TO NAME-TOT-SYMBOL.                               CL**2
00072      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00073  NAME-DEL-SYM.                                                       CL**2
00074      IF NAME-TOT-SYMBOL EQUAL TO SPACE                               CL**2
00075          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00076      MOVE SPACES TO NAME-TOT-SYMBOL.                                 CL**2
00077      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00078 *                                                                    CL**2
00079 *     NAME - DBMS NAME                                               CL**2
00080 *                                                                    CL**2
00081  NAME-EDIT-DB.                                                       CL**2
           IF FIELD-ID NOT EQUAL 20 GO TO NAME-EDIT-DMS.
00083      MOVE NAME-TOT-DBMS TO OLD-VALUE.                                CL**2
00084      IF VAL (1) EQUAL TO "$" GO TO NAME-DEL-DB.                      CL**2
00085      MOVE VAL-AREA TO NAME-TOT-DBMS.                                 CL**2
00086      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00087  NAME-DEL-DB.                                                        CL**2
00088      IF NAME-TOT-DBMS EQUAL TO SPACES                                CL**2
00089          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00090      MOVE SPACES TO NAME-TOT-DBMS.                                   CL**2
00091      GO TO CAT-MVC-MSG-DEL.                                          CL**2
      * 
      *    NAME - DMS NAME
      * 
       NAME-EDIT-DMS. 
           IF FIELD-ID NOT EQUAL TO 25 GO TO FLD-ERR. 
           MOVE NAME-TOT-DMS TO OLD-VALUE.
           IF VAL (1) EQUAL "$" GO TO NAME-DEL-DMS. 
           MOVE VAL-AREA TO NAME-TOT-DMS. 
           GO TO CAT-MVC-MSG-CHG. 
       NAME-DEL-DMS.
           IF NAME-TOT-DMS EQUAL SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO NAME-TOT-DMS. 
           GO TO CAT-MVC-MSG-DEL. 
00092 ******************************************************               CL**2
00093 *                                                                    CL**2
00094 *     ATTRIBUTE CATEGORY                                             CL**2
00095 *                                                                    CL**2
00096 ******************************************************               CL**2
00097  ATTR-EDIT.                                                          CL**2
00098      IF CAT-ID NOT EQUAL TO 210 GO TO STC-EDIT.                      CL**2
00099 *                                                                    CL**2
00100 *     ATTRIBUTE - MAX LENGTH                                         CL**2
00101 *                                                                    CL**2
00102  ATTR-EDIT-LEN.                                                      CL**2
00103      IF FIELD-ID NOT EQUAL TO 05 GO TO ATTR-EDIT-MLEN.               CL**2
00104      MOVE ATTR-TOT-MAXLEN TO OLD-VALUE.                              CL**2
00105      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-LEN.                     CL**2
00106      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO ATTR-TOT-MAXLEN.
00109      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00110  ATTR-DEL-LEN.                                                       CL**2
00111      IF ATTR-TOT-MAXLEN EQUAL TO SPACES                              CL**2
00112          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00113      MOVE SPACES TO ATTR-TOT-MAXLEN.                                 CL**2
00114      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00115 *                                                                    CL**2
00116 *     ATTRIBUTE - MIN LENGTH                                         CL**2
00117 *                                                                    CL**2
00118  ATTR-EDIT-MLEN.                                                     CL**2
00119      IF FIELD-ID NOT EQUAL TO 10 GO TO ATTR-EDIT-STORAGE.            CL**2
00120      MOVE ATTR-TOT-MINLEN TO OLD-VALUE.                              CL**2
00121      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-MLEN.                    CL**2
00122      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO ATTR-TOT-MINLEN.
00125      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00126  ATTR-DEL-MLEN.                                                      CL**2
00127      IF ATTR-TOT-MINLEN EQUAL TO SPACES                              CL**2
00128          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00129      MOVE SPACES TO ATTR-TOT-MINLEN.                                 CL**2
00130      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00131 *                                                                    CL**2
00132 *     ATTRIBUTE - STORAGE                                            CL**2
00133 *                                                                    CL**2
00134  ATTR-EDIT-STORAGE.                                                  CL**2
00135      IF FIELD-ID NOT EQUAL TO 15 GO TO FLD-ERR.                      CL**2
00136      MOVE ATTR-TOT-STORAGE TO OLD-VALUE.                             CL**2
00137      IF VAL (1) EQUAL TO "$" GO TO ATTR-DEL-STORAGE.                 CL**2
00138      MOVE STORAGE-CODES TO VALID-CODE-TABLE.                         CL**2
00139      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00140      MOVE VAL-AREA TO ATTR-TOT-STORAGE.                              CL**2
00141      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00142  ATTR-DEL-STORAGE.                                                   CL**2
00143      IF ATTR-TOT-STORAGE EQUAL TO SPACES                             CL**2
00144          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00145      MOVE SPACES TO ATTR-TOT-STORAGE.                                CL**2
00146      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00147 ******************************************************               CL**2
00148 *                                                                    CL**2
00149 *     STRUCTURE CATEGORY                                             CL**2
00150 *                                                                    CL**2
00151 *****************************************************                CL**2
00152  STC-EDIT.                                                           CL**2
           IF CAT-ID NOT EQUAL 300
               GO TO PROCESS-EDIT.
00154      IF STC-TOT-LINTYPE EQUAL "A" OR SPACE                           CL**2
00155           GO TO STC-EDIT-CN.                                         CL**2
00156      IF STC-TOT-LINTYPE EQUAL "B" GO TO STC-EDIT-TKEY.               CL**2
00157      IF STC-TOT-LINTYPE EQUAL "C" GO TO STC-EDIT-RCCODE.             CL**2
00158      IF STC-TOT-LINTYPE EQUAL "X" GO TO STC-EDIT-SECOND.             CL**2
00160 *                                                                    CL**2
00161 *     STRUCTURE - CAT NAME                                           CL**2
00162 *                                                                    CL**2
00163  STC-EDIT-CN.                                                        CL**2
00164      IF FIELD-ID NOT EQUAL TO 05 GO TO STC-EDIT-ALY.                 CL**2
00166      MOVE STC-TOT-CNAME TO OLD-VALUE.                                CL**2
00167      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-CN.                       CL**2
00168      IF VAL-AREA NOT EQUAL TO "FILLER "                              CL**2
00169          PERFORM CK-CATNAME THRU CK-CATNAME-XIT                      CL**2
               PERFORM CHANGE-DELETE THRU CHANGE-DELETE-EXIT
00170          MOVE "S" TO TYPE-CATAL-NAME                                 CL**2
00171          MOVE VAL-AREA TO NEW-CATAL-NAME.                            CL**2
00172      MOVE VAL-AREA TO STC-TOT-CNAME.                                 CL**2
00173      MOVE "A" TO STC-TOT-LINTYPE.                                    CL**2
00174      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00175  STC-DEL-CN.                                                         CL**2
00176      IF STC-TOT-CNAME EQUAL TO SPACES                                CL**2
00177          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00178      IF STC-TOT-CNAME NOT EQUAL TO "FILLER "                         CL**2
               PERFORM FIELD-DELETE THRU FIELD-DELETE-EXIT. 
00181      MOVE SPACES TO STC-TOT-CNAME.                                   CL**2
00182      GO TO DEL-FIELDA-LINETYPE.                                      CL**2
00183 *                                                                    CL**2
00184 *     STRUCTURE - ALIAS NO                                           CL**2
00185 *                                                                    CL**2
00186  STC-EDIT-ALY.                                                       CL**2
00187      IF FIELD-ID NOT EQUAL TO 10 GO TO STC-EDIT-FL.                  CL**2
00188      MOVE STC-TOT-ALY-NO TO OLD-VALUE.                               CL**2
00189      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-ALY.                      CL**2
00190      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO STC-TOT-ALY-NO. 
00193      MOVE "A" TO STC-TOT-LINTYPE.                                    CL**2
00194      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00195  STC-DEL-ALY.                                                        CL**2
00196      IF STC-TOT-ALY-NO EQUAL TO SPACES                               CL**2
00197          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00198      MOVE SPACES TO STC-TOT-ALY-NO.                                  CL**2
00199      GO TO DEL-FIELDA-LINETYPE.                                      CL**2
00200 *                                                                    CL**2
00201 *     STRUCTURE - FILLER LENGTH                                      CL**2
00202 *                                                                    CL**2
00203  STC-EDIT-FL.                                                        CL**2
00204      IF FIELD-ID NOT EQUAL TO 15 GO TO STC-EDIT-RED.                 CL**2
00205      MOVE STC-TOT-FILL-LEN TO OLD-VALUE                              CL**2
00206      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-FL.                       CL**2
00207      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO STC-TOT-FILL-LEN. 
00210      MOVE "A" TO STC-TOT-LINTYPE.                                    CL**2
00211      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00212  STC-DEL-FL.                                                         CL**2
00213      IF STC-TOT-FILL-LEN EQUAL TO SPACES                             CL**2
00214          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00215      MOVE SPACES TO STC-TOT-FILL-LEN.                                CL**2
00216      GO TO DEL-FIELDA-LINETYPE.                                      CL**2
00217 *                                                                    CL**2
00218 *     STRUCTURE - REDEFINES                                          CL**2
00219 *                                                                    CL**2
00220  STC-EDIT-RED.                                                       CL**2
           IF FIELD-ID NOT EQUAL TO 20
               GO TO STC-EDIT-USAGE.
00222      MOVE STC-TOT-REDEFINES TO OLD-VALUE.                            CL**2
00223      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-RED.                      CL**2
00224      PERFORM CK-CATNAME THRU CK-CATNAME-XIT.                         CL**2
00225      MOVE VAL-AREA TO STC-TOT-REDEFINES.                             CL**2
00226      MOVE "A" TO STC-TOT-LINTYPE.                                    CL**2
00227      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00228  STC-DEL-RED.                                                        CL**2
00229      IF STC-TOT-REDEFINES EQUAL TO SPACE                             CL**2
00230          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00231      MOVE SPACE TO STC-TOT-REDEFINES.                                CL**2
00232      GO TO DEL-FIELDA-LINETYPE.                                      CL**2
      * 
      *      STRUCTURE - USAGE
      * 
       STC-EDIT-USAGE.
           IF FIELD-ID NOT EQUAL TO 22  GO TO STC-EDIT-RALIAS.
           MOVE STC-TOT-USAGE TO OLD-VALUE. 
           IF VAL (1) EQUAL "$" GO TO STC-DEL-USAGE.
           MOVE "A" TO STC-TOT-LINTYPE. 
           IF VAL-AREA (1 : 5) NOT EQUAL TO "COMP" AND "COMP1"
             AND "COMP2"
               MOVE USAGE-CODES TO BIG-CODES
               MOVE VAL-AREA (1 : 3) TO HOLD-FORMAT 
               PERFORM FORMAT-VALIDATION THRU FORMAT-VALIDATION-EXIT
           END-IF 
           MOVE VAL-AREA (1 : VA) TO STC-TOT-USAGE. 
           GO TO CAT-MVC-MSG-CHG. 
       STC-DEL-USAGE. 
           IF STC-TOT-USAGE EQUAL SPACES
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO STC-TOT-USAGE.
           GO TO DEL-FIELDA-LINETYPE. 
      * 
      *    STRUCTURE - REDEFINE ALIAS 
      * 
       STC-EDIT-RALIAS. 
           IF FIELD-ID NOT EQUAL TO 24 GO TO STC-EDIT-FROM. 
           MOVE STC-TOT-REDEF-ALIAS TO OLD-VALUE. 
           IF VAL (1) EQUAL TO "$" GO TO STC-DEL-RALIAS.
           MOVE "A" TO CAT-LINE-TYPE
           MOVE SPACE TO NUM-EDIT.
           PERFORM MOVE-NUM THRU VALID-NUM-XIT. 
           MOVE NUM-HOLD-X TO STC-TOT-REDEF-ALIAS.
           GO TO CAT-MVC-MSG-CHG. 
       STC-DEL-RALIAS.
           IF STC-TOT-REDEF-ALIAS EQUAL TO SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO STC-TOT-REDEF-ALIAS.
           GO TO DEL-FIELDA-LINETYPE. 
00233 *                                                                    CL**2
00234 *     STRUCTURE - OCCURS FROM                                        CL**2
00235 *                                                                    CL**2
00236  STC-EDIT-FROM.                                                      CL**2
00237      IF FIELD-ID NOT EQUAL TO 25 GO TO STC-EDIT-TO.                  CL**2
           MOVE STC-SR-FROM TO OLD-VALUE. 
00239      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-FROM.                     CL**2
00240      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO STC-SR-FROM.
           MOVE "O" TO STC-OCCUR-LINETYPE.
00244      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00245  STC-DEL-FROM.                                                       CL**2
           IF STC-SR-FROM EQUAL TO SPACES 
00247          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
           MOVE SPACES TO STC-SR-FROM.
           GO TO DEL-FIELDA-LINETYPE. 
00250 *                                                                    CL**2
00251 *     STRUCTURE - OCCURS TO                                          CL**2
00252 *                                                                    CL**2
00253  STC-EDIT-TO.                                                        CL**2
           IF FIELD-ID NOT EQUAL TO 30
               GO TO STC-EDIT-TO-ALIAS. 
           MOVE STC-SR-TO TO OLD-VALUE. 
00256      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-TO.                       CL**2
      * 
      *      THIS FIELD MAY CONTAIN A NUMBER OR A CATNAME 
      *      OR A DATANAME.  NO VALIDATION OF NAME IS DONE. 
      * 
           IF VAL (1) IS NUMERIC
               MOVE SPACE TO NUM-EDIT 
               MOVE 4 TO FLD-LEN (FLD)
               PERFORM MOVE-NUM THRU VALID-NUM-XIT
               MOVE NUM-HOLD-X TO STC-SR-TO-NUM 
               MOVE 32 TO FLD-LEN (FLD) 
           ELSE 
               PERFORM CHANGE-DELETE THRU CHANGE-DELETE-EXIT
               MOVE VAL-AREA TO STC-SR-TO SAVE-NAME 
               PERFORM SET-REL-TABLE THRU SET-REL-TABLE-EXIT
           END-IF 
           MOVE "O" TO STC-OCCUR-LINETYPE.
00261      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00262  STC-DEL-TO.                                                         CL**2
           IF STC-SR-TO EQUAL TO SPACES 
00264          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
           IF STC-SR-TO IS NOT NUMERIC
               MOVE STC-SR-TO TO SAVE-NAME
               MOVE "D" TO SAVE-FUNCTION
               PERFORM SET-REL-TABLE THRU SET-REL-TABLE-EXIT
               MOVE "A" TO SAVE-FUNCTION
           END-IF 
           MOVE SPACES TO STC-SR-TO.
           GO TO DEL-FIELDA-LINETYPE. 
      * 
      *    STRUCTURE - TO ALIAS 
      * 
       STC-EDIT-TO-ALIAS. 
           IF FIELD-ID NOT EQUAL TO 32 GO TO STC-EDIT-IBY.
           MOVE STC-SR-TO-ALIAS TO OLD-VALUE. 
           IF VAL (1) EQUAL TO "$" GO TO STC-DEL-TO-ALIAS.
           MOVE "O" TO STC-OCCUR-LINETYPE.
           MOVE SPACE TO NUM-EDIT.
           PERFORM MOVE-NUM THRU VALID-NUM-XIT. 
           MOVE NUM-HOLD-X TO STC-SR-TO-ALIAS.
           GO TO CAT-MVC-MSG-CHG. 
       STC-DEL-TO-ALIAS.
           IF STC-SR-TO-ALIAS EQUAL TO SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO STC-SR-TO-ALIAS.
           GO TO DEL-FIELDA-LINETYPE. 
00267 *                                                                    CL**2
00268 *     STRUCTURE - INDEXED BY                                         CL**2
00269 *                                                                    CL**2
00270  STC-EDIT-IBY.                                                       CL**2
00271      IF FIELD-ID NOT EQUAL TO 35 GO TO STC-EDIT-DON.                 CL**2
           MOVE STC-SR-INDEX-NAME TO OLD-VALUE. 
00273      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-IBY.                      CL**2
           MOVE VAL-AREA TO STC-SR-INDEX-NAME.
           MOVE "I" TO STC-SR-INDX-LINETYPE.
00276      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00277  STC-DEL-IBY.                                                        CL**2
           IF STC-SR-INDEX-NAME EQUAL SPACES
00279          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
           MOVE SPACES TO STC-SR-INDEX-NAME.
           MOVE SPACES TO STC-SR-INDX-LINETYPE. 
00282 *                                                                    CL**2
00283 *     STRUCTURE - DEPENDING ON                                       CL**2
00284 *                                                                    CL**2
00285  STC-EDIT-DON.                                                       CL**2
           IF FIELD-ID NOT EQUAL TO 38
               GO TO STC-EDIT-DEPEND-ALIAS. 
           MOVE STC-SR-DEPEND TO OLD-VALUE. 
00288      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-DON.                      CL**2
           PERFORM CHANGE-DELETE THRU CHANGE-DELETE-EXIT. 
           IF STC-SR-DEP-QUAL-COUNT EQUAL SPACES
               MOVE ZERO TO STC-SR-DEP-QUAL-COUNT 
           END-IF 
           MOVE VAL-AREA TO STC-SR-DEPEND SAVE-NAME.
           PERFORM SET-REL-TABLE THRU SET-REL-TABLE-EXIT. 
           MOVE "O" TO STC-OCCUR-LINETYPE.
00291      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00292  STC-DEL-DON.                                                        CL**2
           IF STC-SR-DEPEND EQUAL SPACES
00294          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
           MOVE STC-SR-DEPEND TO SAVE-NAME
           MOVE "D" TO SAVE-FUNCTION
           PERFORM SET-REL-TABLE THRU SET-REL-TABLE-EXIT
           MOVE "A" TO SAVE-FUNCTION
           MOVE SPACES TO STC-SR-DEPEND.
      * 
      *    IF THIS BLOCK IS EMPTY BUT THERE 
      *    WERE QUALIFIERS REQUIRING MULTIPLE 
      *    BLOCKS, WRITE OUT THE EMPTY BLOCK
      *    ELSE DELETE ENTIRE BLOCK 
      * 
           IF STC-SR-DEP-QUAL-COUNT GREATER THAN 2
               GO TO CAT-MVC-MSG-DEL
           ELSE 
               GO TO DEL-FIELDA-LINETYPE
           END-IF 
      * 
      *    STRUCTURE - DEPEND ALIAS 
      * 
       STC-EDIT-DEPEND-ALIAS. 
           IF FIELD-ID NOT EQUAL TO 39 GO TO STC-EDIT-DQUAL1. 
           MOVE STC-SR-DEP-ALIAS TO OLD-VALUE.
           IF VAL (1) EQUAL TO "$" GO TO STC-DEL-DEP-ALIAS. 
           MOVE "O" TO CAT-LINE-TYPE
           MOVE SPACE TO NUM-EDIT.
           PERFORM MOVE-NUM THRU VALID-NUM-XIT. 
           MOVE NUM-HOLD-X TO STC-SR-DEP-ALIAS. 
           GO TO CAT-MVC-MSG-CHG. 
       STC-DEL-DEP-ALIAS. 
           IF STC-SR-DEP-ALIAS EQUAL TO SPACES
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO STC-SR-DEP-ALIAS. 
      * 
      *    IF THIS BLOCK IS EMPTY BUT THERE 
      *    WERE QUALIFIERS REQUIRING MULTIPLE 
      *    BLOCKS, WRITE OUT THE EMPTY BLOCK
      *    ELSE DELETE ENTIRE BLOCK 
      * 
           IF STC-SR-DEP-QUAL-COUNT GREATER THAN 2
               GO TO CAT-MVC-MSG-DEL
           ELSE 
               GO TO DEL-FIELDA-LINETYPE
           END-IF 
      * 
      *    STRUCTURE - DEPEND QUALIFIER 1 
      * 
       STC-EDIT-DQUAL1. 
           IF FIELD-ID NOT EQUAL TO 40
               GO TO STC-EDIT-DQUAL2. 
           MOVE STC-SR-DEP-QUAL1 TO OLD-VALUE.
           IF VAL (1) EQUAL "$" 
               GO TO STC-DEL-DQUAL1.
           MOVE "O" TO CAT-LINE-TYPE. 
           IF STC-SR-DEP-QUAL1 EQUAL SPACES 
               ADD 1 TO STC-SR-DEP-QUAL-COUNT 
           END-IF 
           PERFORM CHANGE-DELETE THRU CHANGE-DELETE-EXIT. 
           MOVE VAL-AREA TO STC-SR-DEP-QUAL1 SAVE-NAME
           PERFORM SET-REL-TABLE THRU SET-REL-TABLE-EXIT. 
           GO TO CAT-MVC-MSG-CHG. 
       STC-DEL-DQUAL1.
           IF STC-SR-DEP-QUAL1 EQUAL SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           PERFORM FIELD-DELETE THRU FIELD-DELETE-EXIT. 
           MOVE SPACES TO STC-SR-DEP-QUAL1. 
      * 
      *    IF THIS BLOCK IS EMPTY BUT THERE 
      *    WERE QUALIFIERS REQUIRING MULTIPLE 
      *    BLOCKS, WRITE OUT THE EMPTY BLOCK
      *    ELSE DELETE ENTIRE BLOCK 
      * 
           IF STC-SR-DEP-QUAL-COUNT GREATER THAN 2
               GO TO CAT-MVC-MSG-DEL
           ELSE 
               GO TO DEL-FIELDA-LINETYPE
           END-IF 
      * 
      *    STRUCTURE - DEPEND QUALIFIER 2 
      * 
       STC-EDIT-DQUAL2. 
           IF FIELD-ID NOT EQUAL TO 41
               GO TO STC-EDIT-DQUAL3. 
           MOVE STC-SR-DEP-QUAL2 TO OLD-VALUE.
           IF VAL (1) EQUAL "$" 
               GO TO STC-DEL-DQUAL2.
           MOVE "O" TO CAT-LINE-TYPE. 
           IF STC-SR-DEP-QUAL2 EQUAL SPACES 
               ADD 1 TO STC-SR-DEP-QUAL-COUNT 
           END-IF 
           PERFORM CHANGE-DELETE THRU CHANGE-DELETE-EXIT. 
           MOVE VAL-AREA TO STC-SR-DEP-QUAL2 SAVE-NAME
           PERFORM SET-REL-TABLE THRU SET-REL-TABLE-EXIT. 
           GO TO CAT-MVC-MSG-CHG. 
       STC-DEL-DQUAL2.
           IF STC-SR-DEP-QUAL2 EQUAL SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           PERFORM FIELD-DELETE THRU FIELD-DELETE-EXIT. 
           MOVE SPACES TO STC-SR-DEP-QUAL2. 
      * 
      *    IF THIS BLOCK IS EMPTY BUT THERE 
      *    WERE QUALIFIERS REQUIRING MULTIPLE 
      *    BLOCKS, WRITE OUT THE EMPTY BLOCK
      *    ELSE DELETE ENTIRE BLOCK 
      * 
           IF STC-SR-DEP-QUAL-COUNT GREATER THAN 2
               GO TO CAT-MVC-MSG-DEL
           ELSE 
               GO TO DEL-FIELDA-LINETYPE
           END-IF 
      * 
      *    STRUCTURE - DEPEND QUALIFIER 3 
      * 
       STC-EDIT-DQUAL3. 
           IF FIELD-ID NOT EQUAL TO 42
               GO TO STC-EDIT-DQUAL4. 
           IF ADD-CHG EQUAL TO "C"
             AND LINE-TYPE-AQUAL NOT EQUAL "D"
             AND STC-SR-DEP-QUAL-COUNT GREATER THAN 2 
               MOVE "B" TO FUNC 
               PERFORM GET-NEXT-BLOCK THRU GET-NEXT-BLOCK-EXIT
               IF LINE-TYPE-AQUAL NOT EQUAL TO "D"
                   GO TO CAT-MVC-MSG-ERR-DEL
               END-IF 
           END-IF 
           MOVE STC-SR-DEP-QUAL3 TO OLD-VALUE.
           IF VAL (1) EQUAL "$" 
               GO TO STC-DEL-DQUAL3.
           IF STC-SR-DEP-QUAL3 EQUAL TO SPACES
               ADD 1 TO STC-SR-DEP-QUAL-COUNT 
           ELSE 
               PERFORM CHANGE-DELETE THRU CHANGE-DELETE-EXIT
           END-IF 
           MOVE VAL-AREA TO STC-SR-DEP-QUAL3 SAVE-NAME
           PERFORM SET-REL-TABLE THRU SET-REL-TABLE-EXIT. 
           MOVE "D" TO LINE-TYPE-AQUAL. 
           MOVE 1 TO NUM-LINES. 
           GO TO CAT-MVC-MSG-CHG. 
       STC-DEL-DQUAL3.
           IF STC-SR-DEP-QUAL3 EQUAL SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           PERFORM FIELD-DELETE THRU FIELD-DELETE-EXIT. 
           MOVE 1 TO NUM-LINES. 
           MOVE SPACES TO STC-SR-DEP-QUAL3. 
           GO TO CAT-MVC-MSG-DEL. 
      * 
      *    STRUCTURE - DEPEND QUALIFIER 4 
      * 
       STC-EDIT-DQUAL4. 
           IF FIELD-ID NOT EQUAL TO 43
               GO TO STC-EDIT-DQUAL5. 
           IF ADD-CHG EQUAL TO "C"
             AND LINE-TYPE-AQUAL NOT EQUAL "D"
             AND STC-SR-DEP-QUAL-COUNT GREATER THAN 2 
               MOVE "B" TO FUNC 
               PERFORM GET-NEXT-BLOCK THRU GET-NEXT-BLOCK-EXIT
               IF LINE-TYPE-AQUAL NOT EQUAL TO "D"
                   GO TO CAT-MVC-MSG-ERR-DEL
               END-IF 
           END-IF 
           MOVE STC-SR-DEP-QUAL4 TO OLD-VALUE.
           IF VAL (1) EQUAL "$" 
               GO TO STC-DEL-DQUAL4.
           IF STC-SR-DEP-QUAL4 EQUAL TO SPACES
               ADD 1 TO STC-SR-DEP-QUAL-COUNT 
           ELSE 
               PERFORM CHANGE-DELETE THRU CHANGE-DELETE-EXIT
           END-IF 
           MOVE VAL-AREA TO STC-SR-DEP-QUAL4 SAVE-NAME
           PERFORM SET-REL-TABLE THRU SET-REL-TABLE-EXIT. 
           MOVE "D" TO LINE-TYPE-AQUAL. 
           MOVE 1 TO NUM-LINES. 
           GO TO CAT-MVC-MSG-CHG. 
       STC-DEL-DQUAL4.
           IF STC-SR-DEP-QUAL4 EQUAL SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           PERFORM FIELD-DELETE THRU FIELD-DELETE-EXIT. 
           MOVE 1 TO NUM-LINES. 
           MOVE SPACES TO STC-SR-DEP-QUAL4. 
           GO TO CAT-MVC-MSG-DEL. 
      * 
      *    STRUCTURE - DEPEND QUALIFIER 5 
      * 
       STC-EDIT-DQUAL5. 
           IF FIELD-ID NOT EQUAL TO 44
               GO TO STC-EDIT-KEY.
           IF ADD-CHG EQUAL TO "C"
             AND LINE-TYPE-AQUAL NOT EQUAL "D"
             AND STC-SR-DEP-QUAL-COUNT GREATER THAN 2 
               MOVE "B" TO FUNC 
               PERFORM GET-NEXT-BLOCK THRU GET-NEXT-BLOCK-EXIT
               IF LINE-TYPE-AQUAL NOT EQUAL TO "D"
                   GO TO CAT-MVC-MSG-ERR-DEL
               END-IF 
           END-IF 
           MOVE STC-SR-DEP-QUAL5 TO OLD-VALUE.
           IF VAL (1) EQUAL "$" 
               GO TO STC-DEL-DQUAL5.
           IF STC-SR-DEP-QUAL5 EQUAL TO SPACES
               ADD 1 TO STC-SR-DEP-QUAL-COUNT 
           ELSE 
               PERFORM CHANGE-DELETE THRU CHANGE-DELETE-EXIT
           END-IF 
           MOVE VAL-AREA TO STC-SR-DEP-QUAL5 SAVE-NAME
           PERFORM SET-REL-TABLE THRU SET-REL-TABLE-EXIT. 
           MOVE "D" TO LINE-TYPE-AQUAL. 
           MOVE 1 TO NUM-LINES. 
           GO TO CAT-MVC-MSG-CHG. 
       STC-DEL-DQUAL5.
           IF STC-SR-DEP-QUAL5 EQUAL SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           PERFORM FIELD-DELETE THRU FIELD-DELETE-EXIT. 
           MOVE 1 TO NUM-LINES. 
           MOVE SPACES TO STC-SR-DEP-QUAL5. 
           GO TO CAT-MVC-MSG-DEL. 
00297 *                                                                    CL**2
00298 *     STRUCTURE - KEY FIELD                                          CL**2
00299 *                                                                    CL**2
00300  STC-EDIT-KEY.                                                       CL**2
00301      IF FIELD-ID NOT EQUAL TO 45 GO TO STC-EDIT-INC.                 CL**2
00302      MOVE STC-TOT-KEY TO OLD-VALUE.                                  CL**2
00303      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-KEY.                      CL**2
00304      MOVE KEY-CODES TO VALID-CODE-TABLE.                             CL**2
00305      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00306      MOVE VAL (1) TO STC-TOT-KEY.                                    CL**2
00307      MOVE "A" TO STC-TOT-LINTYPE.                                    CL**2
00308      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00309  STC-DEL-KEY.                                                        CL**2
00310      IF STC-TOT-KEY EQUAL TO SPACES                                  CL**2
00311          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00312      MOVE SPACE TO STC-TOT-KEY.                                      CL**2
00313      GO TO DEL-FIELDA-LINETYPE.                                      CL**2
00314 *                                                                    CL**2
00315 *     STRUCTURE - DBD INCLUDE                                        CL**2
00316 *                                                                    CL**2
00317  STC-EDIT-INC.                                                       CL**2
00318      IF FIELD-ID NOT EQUAL TO 50 GO TO STC-EDIT-GSEQ.                CL**2
00319      MOVE STC-TOT-DBD-INC TO OLD-VALUE.                              CL**2
00320      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-INC.                      CL**2
00321      MOVE INC-CODES TO VALID-CODE-TABLE.                             CL**2
00322      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00323      MOVE VAL (1) TO STC-TOT-DBD-INC.                                CL**2
00324      MOVE "A" TO STC-TOT-LINTYPE.                                    CL**2
00325      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00326  STC-DEL-INC.                                                        CL**2
00327      IF STC-TOT-DBD-INC EQUAL TO SPACES                              CL**2
00328          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00329      MOVE SPACE TO STC-TOT-DBD-INC.                                  CL**2
00330      GO TO DEL-FIELDA-LINETYPE.                                      CL**2
00331 *                                                                    CL**2
00332 *     STRUCTURE - PRO TEST GEN SEQ                                   CL**2
00333 *                                                                    CL**2
00334  STC-EDIT-GSEQ.                                                      CL**2
           IF FIELD-ID NOT EQUAL TO 55 GO TO STC-EDIT-KNAME.
00336      MOVE STC-TOT-PT-GENSEQ TO OLD-VALUE.                            CL**2
00337      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-GSEQ.                     CL**2
00338      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO STC-TOT-PT-GENSEQ.
00341      MOVE "A" TO STC-TOT-LINTYPE.                                    CL**2
00342      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00343  STC-DEL-GSEQ.                                                       CL**2
00344      IF STC-TOT-PT-GENSEQ EQUAL TO SPACES                            CL**2
00345          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00346      MOVE SPACES TO STC-TOT-PT-GENSEQ.                               CL**2
      * 
      *      STRUCTURE - OCCURS CLAUSE KEYNAME
      * 
       STC-EDIT-KNAME.
           IF FIELD-ID NOT EQUAL TO 60
               GO TO STC-EDIT-OCC-KEY-ALIAS.
           MOVE STC-SR-OCC-KEY TO OLD-VALUE.
           IF VAL (1) EQUAL TO "$" GO TO STC-DEL-KNAME. 
           PERFORM CK-CATNAME THRU CK-CATNAME-XIT.
           PERFORM CHANGE-DELETE THRU CHANGE-DELETE-EXIT. 
           MOVE "K" TO STC-SR-KEY-LINETYPE. 
           MOVE VAL-AREA TO STC-SR-OCC-KEY SAVE-NAME. 
           PERFORM SET-REL-TABLE THRU SET-REL-TABLE-EXIT. 
           GO TO CAT-MVC-MSG-CHG. 
       STC-DEL-KNAME. 
           IF STC-SR-OCC-KEY EQUAL SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           PERFORM FIELD-DELETE THRU FIELD-DELETE-EXIT. 
           MOVE SPACES TO STC-SR-OCC-KEY. 
           GO TO DEL-FIELDA-LINETYPE. 
      * 
      *    STRUCTURE - KEYNAME ALIAS
      * 
       STC-EDIT-OCC-KEY-ALIAS.
           IF FIELD-ID NOT EQUAL TO 65 GO TO STC-EDIT-KORDER. 
           MOVE STC-SR-OCC-KALIAS TO OLD-VALUE. 
           IF VAL (1) EQUAL TO "$" GO TO STC-DEL-OCC-KEY-ALIAS. 
           MOVE "K" TO CAT-LINE-TYPE
           MOVE SPACE TO NUM-EDIT.
           PERFORM MOVE-NUM THRU VALID-NUM-XIT. 
           MOVE NUM-HOLD-X TO STC-SR-OCC-KALIAS.
           GO TO CAT-MVC-MSG-CHG. 
       STC-DEL-OCC-KEY-ALIAS. 
           IF STC-SR-OCC-KALIAS EQUAL TO SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO STC-SR-OCC-KALIAS.
           GO TO DEL-FIELDA-LINETYPE. 
      * 
      *    STRUCTURE - OCCURS KEY ORDER 
      * 
       STC-EDIT-KORDER. 
           IF FIELD-ID NOT EQUAL TO 70
               GO TO STC-EDIT-RENAME. 
           MOVE STC-SR-OCC-KORDER TO OLD-VALUE. 
           IF VAL (1) EQUAL TO SPACES 
               GO TO STC-DEL-KORDER.
           IF VAL (1) NOT EQUAL "A" AND "D" 
               MOVE "A  D  /  " TO BIG-CODES
               MOVE "B" TO CODE-ERR-SW
               GO TO VALIDATION-ERROR.
           MOVE VAL (1) TO STC-SR-OCC-KORDER. 
           MOVE "K" TO CAT-LINE-TYPE. 
           GO TO CAT-MVC-MSG-CHG. 
       STC-DEL-KORDER.
           IF STC-SR-OCC-KORDER EQUAL SPACES
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO STC-SR-OCC-KORDER.
           GO TO DEL-FIELDA-LINETYPE. 
      * 
      *      STRUCTURE - RENAME 
      * 
       STC-EDIT-RENAME. 
           IF FIELD-ID NOT EQUAL TO 75  GO TO STC-EDIT-RENAME-ALIAS.
           MOVE STC-SR-R-NAME TO OLD-VALUE. 
           IF VAL (1) EQUAL "$" GO TO STC-DEL-RENAME. 
           MOVE "R" TO CAT-LINE-TYPE. 
           IF STC-SR-RN-QUAL-COUNT EQUAL SPACES 
               MOVE ZERO TO STC-SR-RN-QUAL-COUNT
           END-IF 
           PERFORM CK-CATNAME THRU CK-CATNAME-XIT.
           PERFORM CHANGE-DELETE THRU CHANGE-DELETE-EXIT. 
           MOVE VAL-AREA TO STC-SR-R-NAME SAVE-NAME.
           PERFORM SET-REL-TABLE THRU SET-REL-TABLE-EXIT. 
           GO TO CAT-MVC-MSG-CHG. 
       STC-DEL-RENAME.
           IF STC-SR-R-NAME EQUAL SPACES
               GO TO CAT-MVC-MSG-ERR-DEL. 
           PERFORM FIELD-DELETE THRU FIELD-DELETE-EXIT. 
           MOVE SPACES TO STC-SR-R-NAME.
      * 
      *    IF THIS BLOCK IS EMPTY BUT THERE 
      *    WERE QUALIFIERS REQUIRING MULTIPLE 
      *    BLOCKS, WRITE OUT THE EMPTY BLOCK
      *    ELSE DELETE ENTIRE BLOCK 
      * 
           IF STC-SR-RN-QUAL-COUNT GREATER THAN 3 
               GO TO CAT-MVC-MSG-DEL
           ELSE 
               GO TO DEL-FIELDA-LINETYPE
           END-IF 
      * 
      *    STRUCTURE - RENAME ALIAS 
      * 
       STC-EDIT-RENAME-ALIAS. 
           IF FIELD-ID NOT EQUAL TO 76 GO TO STC-EDIT-RQUAL1. 
           MOVE STC-SR-RN-ALIAS TO OLD-VALUE. 
           IF VAL (1) EQUAL TO "$" GO TO STC-DEL-RENAME-ALIAS.
           MOVE "R" TO CAT-LINE-TYPE
           MOVE SPACE TO NUM-EDIT.
           PERFORM MOVE-NUM THRU VALID-NUM-XIT. 
           MOVE NUM-HOLD-X TO STC-SR-RN-ALIAS.
           GO TO CAT-MVC-MSG-CHG. 
       STC-DEL-RENAME-ALIAS.
           IF STC-SR-RN-ALIAS EQUAL TO SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO STC-SR-RN-ALIAS.
      * 
      *    IF THIS BLOCK IS EMPTY BUT THERE 
      *    WERE QUALIFIERS REQUIRING MULTIPLE 
      *    BLOCKS, WRITE OUT THE EMPTY BLOCK
      *    ELSE DELETE ENTIRE BLOCK 
      * 
           IF STC-SR-RN-QUAL-COUNT GREATER THAN 3 
               GO TO CAT-MVC-MSG-DEL
           ELSE 
               GO TO DEL-FIELDA-LINETYPE
           END-IF 
      * 
      *    STRUCTURE - RENAME QUALIFIER 1 
      * 
       STC-EDIT-RQUAL1. 
           IF FIELD-ID NOT EQUAL TO 77
               GO TO STC-EDIT-RQUAL2. 
           MOVE STC-SR-R-QUAL1 TO OLD-VALUE.
           IF VAL (1) EQUAL "$" 
               GO TO STC-DEL-RQUAL1.
           MOVE "R" TO CAT-LINE-TYPE. 
           IF STC-SR-R-QUAL1 EQUAL SPACES 
               ADD 1 TO STC-SR-RN-QUAL-COUNT
           END-IF 
           PERFORM CHANGE-DELETE THRU CHANGE-DELETE-EXIT. 
           MOVE VAL-AREA TO STC-SR-R-QUAL1 SAVE-NAME. 
           PERFORM SET-REL-TABLE THRU SET-REL-TABLE-EXIT. 
           GO TO CAT-MVC-MSG-CHG. 
       STC-DEL-RQUAL1.
           IF STC-SR-R-QUAL1 EQUAL SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           PERFORM FIELD-DELETE THRU FIELD-DELETE-EXIT. 
           MOVE SPACES TO STC-SR-R-QUAL1. 
      * 
      *    IF THIS BLOCK IS EMPTY BUT THERE 
      *    WERE QUALIFIERS REQUIRING MULTIPLE 
      *    BLOCKS, WRITE OUT THE EMPTY BLOCK
      *    ELSE DELETE ENTIRE BLOCK 
      * 
           IF STC-SR-RN-QUAL-COUNT GREATER THAN 3 
               GO TO CAT-MVC-MSG-DEL
           ELSE 
               GO TO DEL-FIELDA-LINETYPE
           END-IF 
      * 
      *    STRUCTURE - RENAME QUALIFIER 2 
      * 
       STC-EDIT-RQUAL2. 
           IF FIELD-ID NOT EQUAL TO 79
               GO TO STC-EDIT-RQUAL3. 
           MOVE STC-SR-R-QUAL2 TO OLD-VALUE.
           IF VAL (1) EQUAL "$" 
               GO TO STC-DEL-RQUAL2.
           MOVE "R" TO CAT-LINE-TYPE. 
           IF STC-SR-R-QUAL2 EQUAL SPACES 
               ADD 1 TO STC-SR-RN-QUAL-COUNT
           END-IF 
           PERFORM CHANGE-DELETE THRU CHANGE-DELETE-EXIT. 
           MOVE VAL-AREA TO STC-SR-R-QUAL2 SAVE-NAME. 
           PERFORM SET-REL-TABLE THRU SET-REL-TABLE-EXIT. 
           GO TO CAT-MVC-MSG-CHG. 
       STC-DEL-RQUAL2.
           IF STC-SR-R-QUAL2 EQUAL SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           PERFORM FIELD-DELETE THRU FIELD-DELETE-EXIT. 
           MOVE SPACES TO STC-SR-R-QUAL2. 
      * 
      *    IF THIS BLOCK IS EMPTY BUT THERE 
      *    WERE QUALIFIERS REQUIRING MULTIPLE 
      *    BLOCKS, WRITE OUT THE EMPTY BLOCK
      *    ELSE DELETE ENTIRE BLOCK 
      * 
           IF STC-SR-RN-QUAL-COUNT GREATER THAN 3 
               GO TO CAT-MVC-MSG-DEL
           ELSE 
               GO TO DEL-FIELDA-LINETYPE
           END-IF 
      * 
      *    STRUCTURE - RENAME QUALIFIER 3 
      * 
       STC-EDIT-RQUAL3. 
           IF FIELD-ID NOT EQUAL TO 81
               GO TO STC-EDIT-RQUAL4. 
           MOVE STC-SR-R-QUAL3 TO OLD-VALUE.
           IF VAL (1) EQUAL "$" 
               GO TO STC-DEL-RQUAL3.
           MOVE "R" TO CAT-LINE-TYPE. 
           IF STC-SR-R-QUAL3 EQUAL SPACES 
               ADD 1 TO STC-SR-RN-QUAL-COUNT
           END-IF 
           PERFORM CHANGE-DELETE THRU CHANGE-DELETE-EXIT. 
           MOVE VAL-AREA TO STC-SR-R-QUAL3 SAVE-NAME. 
           PERFORM SET-REL-TABLE THRU SET-REL-TABLE-EXIT. 
           GO TO CAT-MVC-MSG-CHG. 
       STC-DEL-RQUAL3.
           IF STC-SR-R-QUAL3 EQUAL SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           PERFORM FIELD-DELETE THRU FIELD-DELETE-EXIT. 
           MOVE SPACES TO STC-SR-R-QUAL3. 
      * 
      *    IF THIS BLOCK IS EMPTY BUT THERE 
      *    WERE QUALIFIERS REQUIRING MULTIPLE 
      *    BLOCKS, WRITE OUT THE EMPTY BLOCK
      *    ELSE DELETE ENTIRE BLOCK 
      * 
           IF STC-SR-RN-QUAL-COUNT GREATER THAN 3 
               GO TO CAT-MVC-MSG-DEL
           ELSE 
               GO TO DEL-FIELDA-LINETYPE
           END-IF 
      * 
      *    STRUCTURE - RENAME QUALIFIER 4 
      * 
       STC-EDIT-RQUAL4. 
           IF FIELD-ID NOT EQUAL TO 83
               GO TO STC-EDIT-RQUAL5. 
           IF ADD-CHG EQUAL TO "C"
             AND LINE-TYPE-AQUAL NOT EQUAL "Q"
             AND STC-SR-RN-QUAL-COUNT GREATER THAN 3
               MOVE "B" TO FUNC 
               PERFORM GET-NEXT-BLOCK THRU GET-NEXT-BLOCK-EXIT
               IF LINE-TYPE-AQUAL NOT EQUAL TO "Q"
                   GO TO CAT-MVC-MSG-ERR-DEL
               END-IF 
           END-IF 
           MOVE STC-SR-R-QUAL4 TO OLD-VALUE.
           IF VAL (1) EQUAL "$" 
               GO TO STC-DEL-RQUAL4.
           IF STC-SR-R-QUAL4 EQUAL TO SPACES
               ADD 1 TO STC-SR-RN-QUAL-COUNT
           ELSE 
               PERFORM CHANGE-DELETE THRU CHANGE-DELETE-EXIT
           END-IF 
           MOVE VAL-AREA TO STC-SR-R-QUAL4 SAVE-NAME. 
           PERFORM SET-REL-TABLE THRU SET-REL-TABLE-EXIT. 
           MOVE "Q" TO LINE-TYPE-AQUAL. 
           MOVE 1 TO NUM-LINES. 
           GO TO CAT-MVC-MSG-CHG. 
       STC-DEL-RQUAL4.
           IF STC-SR-R-QUAL4 EQUAL SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           PERFORM FIELD-DELETE THRU FIELD-DELETE-EXIT. 
           MOVE 1 TO NUM-LINES. 
           MOVE SPACES TO STC-SR-R-QUAL4. 
           GO TO CAT-MVC-MSG-DEL. 
      * 
      *    STRUCTURE - RENAME QUALIFIER 5 
      * 
       STC-EDIT-RQUAL5. 
           IF FIELD-ID NOT EQUAL TO 85
               GO TO STC-EDIT-THRU. 
           IF ADD-CHG EQUAL TO "C"
             AND LINE-TYPE-AQUAL NOT EQUAL "Q"
             AND STC-SR-RN-QUAL-COUNT GREATER THAN 3
               MOVE "B" TO FUNC 
               PERFORM GET-NEXT-BLOCK THRU GET-NEXT-BLOCK-EXIT
               IF LINE-TYPE-AQUAL NOT EQUAL TO "Q"
                   GO TO CAT-MVC-MSG-ERR-DEL
               END-IF 
           END-IF 
           MOVE STC-SR-R-QUAL5 TO OLD-VALUE.
           IF VAL (1) EQUAL "$" 
               GO TO STC-DEL-RQUAL5.
           IF STC-SR-R-QUAL5 EQUAL TO SPACES
               ADD 1 TO STC-SR-RN-QUAL-COUNT
           ELSE 
               PERFORM CHANGE-DELETE THRU CHANGE-DELETE-EXIT
           END-IF 
           MOVE VAL-AREA TO STC-SR-R-QUAL5 SAVE-NAME. 
           PERFORM SET-REL-TABLE THRU SET-REL-TABLE-EXIT. 
           MOVE "Q" TO LINE-TYPE-AQUAL. 
           MOVE 1 TO NUM-LINES. 
           GO TO CAT-MVC-MSG-CHG. 
       STC-DEL-RQUAL5.
           IF STC-SR-R-QUAL5 EQUAL SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           PERFORM FIELD-DELETE THRU FIELD-DELETE-EXIT. 
           MOVE 1 TO NUM-LINES. 
           MOVE SPACES TO STC-SR-R-QUAL5. 
           GO TO CAT-MVC-MSG-DEL. 
      * 
      *        STRUCTURE - THRU 
      * 
       STC-EDIT-THRU. 
           IF FIELD-ID NOT EQUAL TO 87
               GO TO STC-EDIT-THRU-ALIAS. 
           MOVE STC-SR-THRU-NAME TO OLD-VALUE.
           IF VAL (1) EQUAL TO "$" GO TO STC-DEL-THRU.
           PERFORM CK-CATNAME THRU CK-CATNAME-XIT.
           PERFORM CHANGE-DELETE THRU CHANGE-DELETE-EXIT. 
           MOVE "T" TO CAT-LINE-TYPE. 
           MOVE VAL-AREA TO STC-SR-THRU-NAME SAVE-NAME. 
           PERFORM SET-REL-TABLE THRU SET-REL-TABLE-EXIT. 
           IF STC-SR-T-QUAL-COUNT EQUAL SPACES
               MOVE ZERO TO STC-SR-T-QUAL-COUNT.
           GO TO CAT-MVC-MSG-CHG. 
       STC-DEL-THRU.
           IF STC-SR-THRU-NAME EQUAL SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           PERFORM FIELD-DELETE THRU FIELD-DELETE-EXIT. 
           MOVE SPACES TO STC-SR-THRU-NAME. 
      * 
      *    IF THIS BLOCK IS EMPTY BUT THERE 
      *    WERE QUALIFIERS REQUIRING MULTIPLE 
      *    BLOCKS, WRITE OUT THE EMPTY BLOCK
      *    ELSE DELETE ENTIRE BLOCK 
      * 
           IF STC-SR-T-QUAL-COUNT GREATER THAN 3
               GO TO CAT-MVC-MSG-DEL
           ELSE 
               GO TO DEL-FIELDA-LINETYPE
           END-IF 
      * 
      *    STRUCTURE - THRU ALIAS 
      * 
       STC-EDIT-THRU-ALIAS. 
           IF FIELD-ID NOT EQUAL TO 88 GO TO STC-EDIT-TQUAL1. 
           MOVE STC-SR-T-ALIAS TO OLD-VALUE.
           IF VAL (1) EQUAL TO "$" GO TO STC-DEL-THRU-ALIAS.
           MOVE "T" TO CAT-LINE-TYPE
           MOVE SPACE TO NUM-EDIT.
           PERFORM MOVE-NUM THRU VALID-NUM-XIT. 
           MOVE NUM-HOLD-X TO STC-SR-T-ALIAS. 
           GO TO CAT-MVC-MSG-CHG. 
       STC-DEL-THRU-ALIAS.
           IF STC-SR-T-ALIAS EQUAL TO SPACES
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO STC-SR-T-ALIAS. 
      * 
      *    IF THIS BLOCK IS EMPTY BUT THERE 
      *    WERE QUALIFIERS REQUIRING MULTIPLE 
      *    BLOCKS, WRITE OUT THE EMPTY BLOCK
      *    ELSE DELETE ENTIRE BLOCK 
      * 
           IF STC-SR-T-QUAL-COUNT GREATER THAN 3
               GO TO CAT-MVC-MSG-DEL
           ELSE 
               GO TO DEL-FIELDA-LINETYPE
           END-IF 
      * 
      *    STRUCTURE - THRU QUALIFIER 1 
      * 
       STC-EDIT-TQUAL1. 
           IF FIELD-ID NOT EQUAL TO 89
               GO TO STC-EDIT-TQUAL2. 
           MOVE STC-SR-T-QUAL1 TO OLD-VALUE.
           IF VAL (1) EQUAL "$" 
               GO TO STC-DEL-TQUAL1.
           MOVE "T" TO CAT-LINE-TYPE. 
           IF STC-SR-T-QUAL1 EQUAL SPACES 
               ADD 1 TO STC-SR-T-QUAL-COUNT 
           ELSE 
               PERFORM CHANGE-DELETE THRU CHANGE-DELETE-EXIT
           END-IF 
           MOVE VAL-AREA TO STC-SR-T-QUAL1 SAVE-NAME. 
           PERFORM SET-REL-TABLE THRU SET-REL-TABLE-EXIT. 
           GO TO CAT-MVC-MSG-CHG. 
       STC-DEL-TQUAL1.
           IF STC-SR-T-QUAL1 EQUAL SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           PERFORM FIELD-DELETE THRU FIELD-DELETE-EXIT. 
           MOVE SPACES TO STC-SR-T-QUAL1. 
      * 
      *    IF THIS BLOCK IS EMPTY BUT THERE 
      *    WERE QUALIFIERS REQUIRING MULTIPLE 
      *    BLOCKS, WRITE OUT THE EMPTY BLOCK
      *    ELSE DELETE ENTIRE BLOCK 
      * 
           IF STC-SR-T-QUAL-COUNT GREATER THAN 3
               GO TO CAT-MVC-MSG-DEL
           ELSE 
               GO TO DEL-FIELDA-LINETYPE
           END-IF 
      * 
      *    STRUCTURE - THRU QUALIFIER 2 
      * 
       STC-EDIT-TQUAL2. 
           IF FIELD-ID NOT EQUAL TO 91
               GO TO STC-EDIT-TQUAL3. 
           MOVE STC-SR-T-QUAL2 TO OLD-VALUE.
           IF VAL (1) EQUAL "$" 
               GO TO STC-DEL-TQUAL2.
           MOVE "T" TO CAT-LINE-TYPE. 
           IF STC-SR-T-QUAL2 EQUAL SPACES 
               ADD 1 TO STC-SR-T-QUAL-COUNT 
           ELSE 
               PERFORM CHANGE-DELETE THRU CHANGE-DELETE-EXIT
           END-IF 
           MOVE VAL-AREA TO STC-SR-T-QUAL2 SAVE-NAME. 
           PERFORM SET-REL-TABLE THRU SET-REL-TABLE-EXIT. 
           GO TO CAT-MVC-MSG-CHG. 
       STC-DEL-TQUAL2.
           IF STC-SR-T-QUAL2 EQUAL SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           PERFORM FIELD-DELETE THRU FIELD-DELETE-EXIT. 
           MOVE SPACES TO STC-SR-T-QUAL2. 
      * 
      *    IF THIS BLOCK IS EMPTY BUT THERE 
      *    WERE QUALIFIERS REQUIRING MULTIPLE 
      *    BLOCKS, WRITE OUT THE EMPTY BLOCK
      *    ELSE DELETE ENTIRE BLOCK 
      * 
           IF STC-SR-T-QUAL-COUNT GREATER THAN 3
               GO TO CAT-MVC-MSG-DEL
           ELSE 
               GO TO DEL-FIELDA-LINETYPE
           END-IF 
      * 
      *    STRUCTURE - THRU QUALIFIER 3 
      * 
       STC-EDIT-TQUAL3. 
           IF FIELD-ID NOT EQUAL TO 93
               GO TO STC-EDIT-TQUAL4. 
           MOVE STC-SR-T-QUAL3 TO OLD-VALUE.
           IF VAL (1) EQUAL "$" 
               GO TO STC-DEL-TQUAL3.
           MOVE "T" TO CAT-LINE-TYPE. 
           IF STC-SR-T-QUAL3 EQUAL SPACES 
               ADD 1 TO STC-SR-T-QUAL-COUNT 
           ELSE 
               PERFORM CHANGE-DELETE THRU CHANGE-DELETE-EXIT
           END-IF 
           MOVE VAL-AREA TO STC-SR-T-QUAL3 SAVE-NAME. 
           PERFORM SET-REL-TABLE THRU SET-REL-TABLE-EXIT. 
           GO TO CAT-MVC-MSG-CHG. 
       STC-DEL-TQUAL3.
           IF STC-SR-T-QUAL3 EQUAL SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           PERFORM FIELD-DELETE THRU FIELD-DELETE-EXIT. 
           MOVE SPACES TO STC-SR-T-QUAL3. 
      * 
      *    IF THIS BLOCK IS EMPTY BUT THERE 
      *    WERE QUALIFIERS REQUIRING MULTIPLE 
      *    BLOCKS, WRITE OUT THE EMPTY BLOCK
      *    ELSE DELETE ENTIRE BLOCK 
      * 
           IF STC-SR-T-QUAL-COUNT GREATER THAN 3
               GO TO CAT-MVC-MSG-DEL
           ELSE 
               GO TO DEL-FIELDA-LINETYPE
           END-IF 
      * 
      *    STRUCTURE - THRU QUALIFIER 4 
      * 
       STC-EDIT-TQUAL4. 
           IF FIELD-ID NOT EQUAL TO 95
               GO TO STC-EDIT-TQUAL5. 
           IF ADD-CHG EQUAL TO "C"
             AND LINE-TYPE-AQUAL NOT EQUAL "2"
             AND STC-SR-T-QUAL-COUNT GREATER THAN 3 
               MOVE "B" TO FUNC 
               PERFORM GET-NEXT-BLOCK THRU GET-NEXT-BLOCK-EXIT
               IF LINE-TYPE-AQUAL NOT EQUAL TO "2"
                   GO TO CAT-MVC-MSG-ERR-DEL
               END-IF 
           END-IF 
           MOVE STC-SR-T-QUAL4 TO OLD-VALUE.
           IF VAL (1) EQUAL "$" 
               GO TO STC-DEL-TQUAL4.
           IF STC-SR-T-QUAL4 EQUAL TO SPACES
               ADD 1 TO STC-SR-T-QUAL-COUNT 
           ELSE 
               PERFORM CHANGE-DELETE THRU CHANGE-DELETE-EXIT
           END-IF 
           MOVE VAL-AREA TO STC-SR-T-QUAL4 SAVE-NAME. 
           PERFORM SET-REL-TABLE THRU SET-REL-TABLE-EXIT. 
           MOVE 1 TO NUM-LINES. 
           MOVE "2" TO LINE-TYPE-AQUAL. 
           GO TO CAT-MVC-MSG-CHG. 
       STC-DEL-TQUAL4.
           IF STC-SR-T-QUAL4 EQUAL SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           PERFORM FIELD-DELETE THRU FIELD-DELETE-EXIT. 
           MOVE 1 TO NUM-LINES. 
           MOVE SPACES TO STC-SR-T-QUAL4. 
           GO TO CAT-MVC-MSG-DEL. 
      * 
      *    STRUCTURE - THRU QUALIFIER 5 
      * 
       STC-EDIT-TQUAL5. 
           IF FIELD-ID NOT EQUAL TO 97
               GO TO STC-EDIT-TKEY. 
           IF ADD-CHG EQUAL TO "C"
             AND LINE-TYPE-AQUAL NOT EQUAL "2"
             AND STC-SR-T-QUAL-COUNT GREATER THAN 3 
               MOVE "B" TO FUNC 
               PERFORM GET-NEXT-BLOCK THRU GET-NEXT-BLOCK-EXIT
               IF LINE-TYPE-AQUAL NOT EQUAL TO "2"
                   GO TO CAT-MVC-MSG-ERR-DEL
               END-IF 
           END-IF 
           MOVE STC-SR-T-QUAL5 TO OLD-VALUE.
           IF VAL (1) EQUAL "$" 
               GO TO STC-DEL-TQUAL5.
           IF STC-SR-T-QUAL5 EQUAL TO SPACES
               ADD 1 TO STC-SR-T-QUAL-COUNT 
           ELSE 
               PERFORM CHANGE-DELETE THRU CHANGE-DELETE-EXIT
           END-IF 
           MOVE VAL-AREA TO STC-SR-T-QUAL5 SAVE-NAME. 
           PERFORM SET-REL-TABLE THRU SET-REL-TABLE-EXIT. 
           MOVE "2" TO LINE-TYPE-AQUAL. 
           MOVE 1 TO NUM-LINES. 
           GO TO CAT-MVC-MSG-CHG. 
       STC-DEL-TQUAL5.
           IF STC-SR-T-QUAL5 EQUAL SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           PERFORM FIELD-DELETE THRU FIELD-DELETE-EXIT. 
           MOVE 1 TO NUM-LINES. 
           MOVE SPACES TO STC-SR-T-QUAL5. 
           GO TO CAT-MVC-MSG-DEL. 
00347  DEL-FIELDA-LINETYPE.                                                CL**2
           IF CAT-FIRST-146 EQUAL SPACES
               MOVE SPACES TO CAT-LINE-TYPE.
           GO TO CAT-MVC-MSG-DEL. 
       DEL-FIELDQ-LINETYPE. 
           IF QUAL-FIRST-146 EQUAL SPACES 
               MOVE SPACES TO LINE-TYPE-AQUAL.
           GO TO CAT-MVC-MSG-DEL. 
00373 **************************************************************       CL**2
00374 *                                                                    CL**2
00375 *    SECOND STRUCTURE LINE PROCESSING                                CL**2
00376 *                                                                    CL**2
00377 ***************************************************************      CL**2
00378 *                                                                    CL**2
00379 *    STRUCTURE TKEY FIELD                                            CL**2
00380 *                                                                    CL**2
00381  STC-EDIT-TKEY.                                                      CL**2
00382      IF STC-TOT-LINTYPE EQUAL "B" OR SPACE                           CL**2
00383            GO TO STC-EDIT-TKEY-10.                                   CL**2
00384      GO TO STC-EDIT-RCCODE.                                          CL**2
00385  STC-EDIT-TKEY-10.                                                   CL**2
00386      IF FIELD-ID NOT EQUAL TO 02 GO TO STC-EDIT-LINKPATH.            CL**2
00387      MOVE STC-TOT-TKEY TO OLD-VALUE.                                 CL**2
00388      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-TKEY.                     CL**2
00389      MOVE INC-CODES TO VALID-CODE-TABLE.                             CL**2
00390      PERFORM VALID-CODE THRU VALID-CODE-XIT.                         CL**2
00391      MOVE VAL (1) TO STC-TOT-TKEY.                                   CL**2
00392      MOVE "B" TO STC-TOT-LINETYPEB.                                  CL**2
00393      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00394  STC-DEL-TKEY.                                                       CL**2
00395      IF STC-TOT-TKEY EQUAL TO SPACES                                 CL**2
00396          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00397      MOVE SPACES TO STC-TOT-TKEY.                                    CL**2
00398      GO TO DEL-FLD-LINETYPEB.                                        CL**2
00399 *                                                                    CL**2
00400 *    STRUCTURE LINKPATH FIELD                                        CL**2
00401 *                                                                    CL**2
00402  STC-EDIT-LINKPATH.                                                  CL**2
00403      IF FIELD-ID NOT EQUAL TO 07 GO TO STC-EDIT-VARLEN.              CL**2
00404      MOVE STC-TOT-LINKPATH TO OLD-VALUE.                             CL**2
00405      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-LINK.                     CL**2
00406      MOVE VAL-AREA TO STC-TOT-LINKPATH.                              CL**2
00407      MOVE "B" TO STC-TOT-LINETYPEB.                                  CL**2
00408      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00409  STC-DEL-LINK.                                                       CL**2
00410      IF STC-TOT-LINKPATH EQUAL TO SPACES                             CL**2
00411          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00412      MOVE SPACES TO STC-TOT-LINKPATH.                                CL**2
00413      GO TO DEL-FLD-LINETYPEB.                                        CL**2
00414 *                                                                    CL**2
00415 *    STRUCTURE LENGTH OF VARIABLE PORTION                            CL**2
00416 *                                                                    CL**2
00417  STC-EDIT-VARLEN.                                                    CL**2
           IF FIELD-ID NOT EQUAL TO 12
               GO TO STC-EDIT-LKFIELD.
00419      MOVE STC-TOT-VARLEN TO OLD-VALUE.                               CL**2
00420      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-VARLEN.                   CL**2
00421      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X  TO STC-TOT-VARLEN.
00424      MOVE "B" TO STC-TOT-LINETYPEB.                                  CL**2
00425      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00426  STC-DEL-VARLEN.                                                     CL**2
00427      IF STC-TOT-VARLEN EQUAL TO SPACES                               CL**2
00428          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00429      MOVE SPACES TO STC-TOT-VARLEN.                                  CL**2
           GO TO DEL-FLD-LINETYPEB. 
      * 
      *    STRUCTURE LINK FIELD 
      * 
       STC-EDIT-LKFIELD.
           IF FIELD-ID NOT EQUAL 13 
               GO TO STC-EDIT-LKALIAS.
           MOVE STC-TOT-LKFIELD TO OLD-VALUE. 
           IF VAL (1) EQUAL TO "$"
               GO TO STC-DEL-LKFIELD. 
           PERFORM CK-CATNAME THRU CK-CATNAME-XIT.
           MOVE VAL-AREA TO STC-TOT-LKFIELD.
           MOVE "B" TO STC-TOT-LINETYPEB. 
           GO TO CAT-MVC-MSG-CHG. 
       STC-DEL-LKFIELD. 
           IF STC-TOT-LKFIELD EQUAL TO SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO STC-TOT-LKFIELD.
           GO TO DEL-FLD-LINETYPEB. 
      * 
      *    STRUCTURE LINK ALIAS NUMBER
      * 
       STC-EDIT-LKALIAS.
           IF FIELD-ID NOT EQUAL TO 16
               GO TO STC-EDIT-RCCODE. 
           MOVE STC-TOT-LKALIAS TO OLD-VALUE. 
           IF VAL (1) EQUAL TO "$"
               GO TO STC-DEL-LKALIAS. 
           PERFORM MOVE-NUM THRU VALID-NUM-XIT. 
           MOVE NUM-HOLD-X TO STC-TOT-LKALIAS.
           MOVE "B" TO STC-TOT-LINETYPEB. 
           GO TO CAT-MVC-MSG-CHG. 
       STC-DEL-LKALIAS. 
           IF STC-TOT-LKALIAS EQUAL SPACES
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO STC-TOT-LKALIAS.
00430 *                                                                    CL**2
00431 *    CLEAR ENTIRE LINE IF FIELDS EMPTY                               CL**2
00432 *                                                                    CL**2
00433  DEL-FLD-LINETYPEB.                                                  CL**2
00434      IF STC-TOT-TKEY NOT EQUAL TO SPACES                             CL**2
00435          GO TO CAT-MVC-MSG-DEL.                                      CL**2
00436      IF STC-TOT-LINKPATH NOT EQUAL TO SPACES                         CL**2
00437          GO TO CAT-MVC-MSG-DEL.                                      CL**2
00438      IF STC-TOT-VARLEN NOT EQUAL TO SPACES                           CL**2
00439          GO TO CAT-MVC-MSG-DEL.                                      CL**2
           IF STC-TOT-LKFIELD NOT EQUAL TO SPACES 
               GO TO CAT-MVC-MSG-DEL. 
           IF STC-TOT-LKALIAS NOT EQUAL TO SPACES 
               GO TO CAT-MVC-MSG-DEL. 
00440      MOVE SPACES TO STC-TOT-LINETYPEB.                               CL**2
00441      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00442 ******************************************************               CL**2
00443 *                                                                    CL**2
00444 *    STRUCTURE THIRD LINE PROCESSING                                 CL**2
00445 *                                                                    CL**2
00446 ******************************************************               CL**2
00447 *                                                                    CL**2
00448 *    STRUCTURE RECORD CODE FIELD                                     CL**2
00449 *                                                                    CL**2
00450  STC-EDIT-RCCODE.                                                    CL**2
00451      IF STC-TOT-LINTYPE EQUAL "C" OR SPACE                           CL**2
00452          GO TO STC-EDIT-RCCODE-10.                                   CL**2
00453      GO TO FLD-ERR.                                                  CL**2
00454  STC-EDIT-RCCODE-10.                                                 CL**2
00455      IF FIELD-ID NOT EQUAL TO 08 GO TO STC-EDIT-COMPNAME.            CL**2
00456      MOVE STC-TOT-RCCODE TO OLD-VALUE.                               CL**2
00457      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-RCCODE.                   CL**2
00458      MOVE VAL-AREA TO STC-TOT-RCCODE.                                CL**2
           MOVE "C" TO STC-TOT-LINETYPEC. 
00460      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00461  STC-DEL-RCCODE.                                                     CL**2
00462      IF STC-TOT-RCCODE EQUAL TO SPACES                               CL**2
00463          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00464      MOVE SPACES TO STC-TOT-RCCODE.                                  CL**2
00465      GO TO DEL-FLD-LINTYPEC.                                         CL**2
00466 *                                                                    CL**2
00467 *    STRUCTURE COMPONENT NAME FIELD                                  CL**2
00468 *                                                                    CL**2
00469  STC-EDIT-COMPNAME.                                                  CL**2
           IF FIELD-ID NOT EQUAL 03 
               GO TO STC-EDIT-CPALIAS.
00471      MOVE STC-TOT-COMPNAME TO OLD-VALUE.                             CL**2
00472      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-COMPNAME.                 CL**2
00473      PERFORM CK-CATNAME THRU CK-CATNAME-XIT.                         CL**2
00474      MOVE VAL-AREA TO STC-TOT-COMPNAME.                              CL**2
           MOVE "C" TO STC-TOT-LINETYPEC. 
00476      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00477  STC-DEL-COMPNAME.                                                   CL**2
00478      IF STC-TOT-COMPNAME EQUAL TO SPACES                             CL**2
00479          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00480      MOVE SPACES TO STC-TOT-COMPNAME.                                CL**2
           GO TO DEL-FLD-LINTYPEC.
      * 
      *    STRUCTURE COMPONENT ALIAS
      * 
       STC-EDIT-CPALIAS.
           IF FIELD-ID NOT EQUAL TO 11
               GO TO STC-EDIT-SECOND. 
           MOVE STC-TOT-CPALIAS TO OLD-VALUE. 
           IF VAL (1) EQUAL "$" 
               GO TO STC-DEL-CPALIAS. 
           PERFORM MOVE-NUM THRU VALID-NUM-XIT. 
           MOVE NUM-HOLD-X TO STC-TOT-CPALIAS.
           MOVE "C" TO STC-TOT-LINETYPEC. 
           GO TO CAT-MVC-MSG-CHG. 
       STC-DEL-CPALIAS. 
           IF STC-TOT-CPALIAS EQUAL TO SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO STC-TOT-CPALIAS.
00481 *                                                                    CL**2
00482 *    CLEAR ENTIRE LINE IF ALL FIELDS BLANK                           CL**2
00483 *                                                                    CL**2
00484  DEL-FLD-LINTYPEC.                                                   CL**2
00485      IF STC-TOT-RCCODE NOT EQUAL TO SPACES                           CL**2
00486          GO TO CAT-MVC-MSG-DEL.                                      CL**2
00487      IF STC-TOT-COMPNAME NOT EQUAL TO SPACES                         CL**2
00488          GO TO CAT-MVC-MSG-DEL.                                      CL**2
           IF STC-TOT-CPALIAS NOT EQUAL TO SPACES 
               GO TO CAT-MVC-MSG-DEL. 
           MOVE SPACES TO STC-TOT-LINETYPEC.
00490      GO TO CAT-MVC-MSG-DEL.                                          CL**2
00491 ******************************************************************   CL**2
00492 *    SEGMENT STRUCTURE CATEGORY - MK4 LINETYPE                       CL**2
00493 ****************************************************************     CL**2
00494 *                                                                    CL**2
00495 *****************************************************                CL**2
00496  STC-EDIT-SECOND.                                                    CL**2
00497      IF STC-MK4-LINETYPE EQUAL TO SPACE OR MK4-LINE-TYPE             CL**2
00498          GO TO STC-EDIT-FLMK4.                                       CL**2
00499      GO TO FLD-ERR.                                                  CL**2
00500 *                                                                    CL**2
00501 *     STRUCTURE - FLOATMK4                                           CL**2
00502 *                                                                    CL**2
00503  STC-EDIT-FLMK4.                                                     CL**2
00504      IF FIELD-ID NOT EQUAL TO 04 GO TO STC-EDIT-FILLMK4.             CL**2
00505      MOVE STC-TOT-FLOATMK4 TO OLD-VALUE.                             CL**2
00506      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-FLOATMK4.                 CL**2
00507      MOVE MK4-LINE-TYPE TO STC-MK4-LINETYPE.                         CL**2
00508      MOVE VAL-AREA TO STC-TOT-FLOATMK4.                              CL**2
00509      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00510  STC-DEL-FLOATMK4.                                                   CL**2
00511      IF STC-TOT-FLOATMK4 EQUAL TO SPACES                             CL**2
00512          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00513      MOVE SPACES TO STC-TOT-FLOATMK4.                                CL**2
00514      GO TO CHECK-B-LINETYPE.                                         CL**2
00515 *                                                                    CL**2
00516 *     STRUCTURE - FILLMK4                                            CL**2
00517 *                                                                    CL**2
00518  STC-EDIT-FILLMK4.                                                   CL**2
00519      IF FIELD-ID NOT EQUAL TO 09 GO TO STC-EDIT-TRAILMK4.            CL**2
00520      MOVE STC-TOT-FILLMK4 TO OLD-VALUE.                              CL**2
00521      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-FILLMK4.                  CL**2
00522      MOVE MK4-LINE-TYPE TO STC-MK4-LINETYPE.                         CL**2
00523      MOVE VAL-AREA TO STC-TOT-FILLMK4.                               CL**2
00524      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00525  STC-DEL-FILLMK4.                                                    CL**2
00526      IF STC-TOT-FILLMK4 EQUAL TO SPACES                              CL**2
00527          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00528      MOVE SPACES TO STC-TOT-FILLMK4.                                 CL**2
00529      GO TO CHECK-B-LINETYPE.                                         CL**2
00530 *                                                                    CL**2
00531 *     STRUCTURE - TRAILMK4                                           CL**2
00532 *                                                                    CL**2
00533  STC-EDIT-TRAILMK4.                                                  CL**2
00534      IF FIELD-ID NOT EQUAL TO 14 GO TO STC-EDIT-EDLENMK4.            CL**2
00535      MOVE STC-TOT-TRAILMK4 TO OLD-VALUE.                             CL**2
00536      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-TRAILMK4.                 CL**2
00537      MOVE MK4-LINE-TYPE TO STC-MK4-LINETYPE.                         CL**2
00538      MOVE VAL-AREA TO STC-TOT-TRAILMK4.                              CL**2
00539      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00540  STC-DEL-TRAILMK4.                                                   CL**2
00541      IF STC-TOT-TRAILMK4 EQUAL TO SPACES                             CL**2
00542          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00543      MOVE SPACES TO STC-TOT-TRAILMK4.                                CL**2
00544      GO TO CHECK-B-LINETYPE.                                         CL**2
00545 *                                                                    CL**2
00546 *     STRUCTURE - EDLENMK4                                           CL**2
00547 *                                                                    CL**2
00548  STC-EDIT-EDLENMK4.                                                  CL**2
00549      IF FIELD-ID NOT EQUAL TO 19 GO TO STC-EDIT-PLACEMK4.            CL**2
00550      MOVE STC-TOT-EDLENMK4 TO OLD-VALUE.                             CL**2
00551      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-EDLENMK4.                 CL**2
00552      MOVE MK4-LINE-TYPE TO STC-MK4-LINETYPE.                         CL**2
00553      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X  TO STC-TOT-EDLENMK4.
00556      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00557  STC-DEL-EDLENMK4.                                                   CL**2
00558      IF STC-TOT-EDLENMK4 EQUAL TO SPACE                              CL**2
00559          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00560      MOVE SPACE TO STC-TOT-EDLENMK4.                                 CL**2
00561      GO TO CHECK-B-LINETYPE.                                         CL**2
00562 *                                                                    CL**2
00563 *     STRUCTURE - PLACEMK4                                           CL**2
00564 *                                                                    CL**2
00565  STC-EDIT-PLACEMK4.                                                  CL**2
00566      IF FIELD-ID NOT EQUAL TO 24 GO TO STC-EDIT-COUNTMK4.            CL**2
00567      MOVE STC-TOT-PLACEMK4 TO OLD-VALUE.                             CL**2
00568      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-PLACEMK4.                 CL**2
00569      MOVE MK4-LINE-TYPE TO STC-MK4-LINETYPE.                         CL**2
00570      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X  TO STC-TOT-PLACEMK4.
00573      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00574  STC-DEL-PLACEMK4.                                                   CL**2
00575      IF STC-TOT-PLACEMK4 EQUAL TO SPACES                             CL**2
00576          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00577      MOVE SPACES TO STC-TOT-PLACEMK4.                                CL**2
00578      GO TO CHECK-B-LINETYPE.                                         CL**2
00579 *                                                                    CL**2
00580 *     STRUCTURE - COUNTMK4                                           CL**2
00581 *                                                                    CL**2
00582  STC-EDIT-COUNTMK4.                                                  CL**2
00583      IF FIELD-ID NOT EQUAL TO 29 GO TO STC-EDIT-LINECOL.             CL**2
00584      MOVE STC-TOT-COUNTMK4 TO OLD-VALUE.                             CL**2
00585      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-COUNTMK4.                 CL**2
00586      MOVE MK4-LINE-TYPE TO STC-MK4-LINETYPE.                         CL**2
00587      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X  TO STC-TOT-COUNTMK4.
00590      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00591  STC-DEL-COUNTMK4.                                                   CL**2
00592      IF STC-TOT-COUNTMK4 EQUAL TO SPACES                             CL**2
00593          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00594      MOVE SPACES TO STC-TOT-COUNTMK4.                                CL**2
00595      GO TO CHECK-B-LINETYPE.                                         CL**2
00596 *                                                                    CL**2
00597 *     STRUCTURE - LINECOL                                            CL**2
00598 *                                                                    CL**2
00599  STC-EDIT-LINECOL.                                                   CL**2
00600      IF FIELD-ID NOT EQUAL TO 34 GO TO STC-EDIT-TEXTCOL.             CL**2
00601      MOVE STC-TOT-LINECOL TO OLD-VALUE.                              CL**2
00602      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-LINECOL.                  CL**2
00603      MOVE MK4-LINE-TYPE TO STC-MK4-LINETYPE.                         CL**2
00604      PERFORM MOVE-NUM THRU VALID-NUM-XIT.                            CL**2
           MOVE NUM-HOLD-X TO  STC-TOT-LINECOL. 
00607      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00608  STC-DEL-LINECOL.                                                    CL**2
00609      IF STC-TOT-LINECOL EQUAL TO SPACES                              CL**2
00610          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00611      MOVE SPACES TO STC-TOT-LINECOL.                                 CL**2
00612      GO TO CHECK-B-LINETYPE.                                         CL**2
00613 *                                                                    CL**2
00614 *     STRUCTURE - TEXTCOLING ON                                      CL**2
00615 *                                                                    CL**2
00616  STC-EDIT-TEXTCOL.                                                   CL**2
00617      IF FIELD-ID NOT EQUAL TO 39 GO TO FLD-ERR.                      CL**2
00618      MOVE STC-TOT-TEXTCOL TO OLD-VALUE.                              CL**2
00619      IF VAL (1) EQUAL TO "$" GO TO STC-DEL-TEXTCOL.                  CL**2
00620      MOVE MK4-LINE-TYPE TO STC-MK4-LINETYPE.                         CL**2
00621      MOVE VAL-AREA TO STC-TOT-TEXTCOL.                               CL**2
00622      GO TO CAT-MVC-MSG-CHG.                                          CL**2
00623  STC-DEL-TEXTCOL.                                                    CL**2
00624      IF STC-TOT-TEXTCOL EQUAL TO SPACES                              CL**2
00625          GO TO CAT-MVC-MSG-ERR-DEL.                                  CL**2
00626      MOVE SPACES TO STC-TOT-TEXTCOL.                                 CL**2
00627 ******************************************************************   CL**2
00628 *    CHECK FOR A DELETION OF A B LINETYPE                            CL**2
00629 ******************************************************************   CL**2
00630  CHECK-B-LINETYPE.                                                   CL**2
00631      IF STC-TOT-FLOATMK4 NOT EQUAL TO SPACES                         CL**2
00632          GO TO CAT-MVC-MSG-DEL.                                      CL**2
00633      IF STC-TOT-FILLMK4 NOT EQUAL TO SPACES                          CL**2
00634          GO TO CAT-MVC-MSG-DEL.                                      CL**2
00635      IF STC-TOT-TRAILMK4 NOT EQUAL TO SPACES                         CL**2
00636          GO TO CAT-MVC-MSG-DEL.                                      CL**2
00637      IF STC-TOT-EDLENMK4 NOT EQUAL TO SPACES                         CL**2
00638          GO TO CAT-MVC-MSG-DEL.                                      CL**2
00639      IF STC-TOT-PLACEMK4 NOT EQUAL TO SPACES                         CL**2
00640          GO TO CAT-MVC-MSG-DEL.                                      CL**2
00641      IF STC-TOT-COUNTMK4 NOT EQUAL TO SPACES                         CL**2
00642          GO TO CAT-MVC-MSG-DEL.                                      CL**2
00643      IF STC-TOT-LINECOL NOT EQUAL TO SPACES                          CL**2
00644          GO TO CAT-MVC-MSG-DEL.                                      CL**2
00645      IF STC-TOT-TEXTCOL NOT EQUAL TO SPACES                          CL**2
00646          GO TO CAT-MVC-MSG-DEL.                                      CL**2
00647      MOVE SPACES TO STC-MK4-LINETYPE.                                CL**2
00648      GO TO CAT-MVC-MSG-DEL.                                          CL**2
      ******************************************************************
      * 
      *        PROCESS CATEGORY 
      * 
      ******************************************************************
       PROCESS-EDIT.
           IF CAT-ID NOT EQUAL TO 400 GO TO CAT-ERR.
      * 
      *    PROCESS - DBP NAME 
      * 
       PROCESS-EDIT-NAME. 
           IF FIELD-ID NOT EQUAL TO 05
               GO TO PROCESS-EDIT-USE.
           MOVE PROCESS-SR-DBPROC TO OLD-VALUE. 
           IF VAL (1) EQUAL TO "$"
               GO TO PROCESS-DEL-NAME.
           MOVE "P" TO PROCESS-SR-LINETYPE. 
           PERFORM CK-CATNAME THRU CK-CATNAME-XIT.
           PERFORM CHANGE-DELETE THRU CHANGE-DELETE-EXIT. 
           MOVE VAL-AREA TO PROCESS-SR-DBPROC.
           MOVE "S" TO TYPE-CATAL-NAME. 
           MOVE VAL-AREA TO NEW-CATAL-NAME. 
           GO TO CAT-MVC-MSG-CHG. 
       PROCESS-DEL-NAME.
           IF PROCESS-SR-DBPROC EQUAL SPACES
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO PROCESS-SR-DBPROC.
           PERFORM FIELD-DELETE THRU FIELD-DELETE-EXIT. 
           GO TO CAT-MVC-MSG-DEL. 
      * 
      *    PROCESS - DBPROC USAGE (TYPE)
      * 
       PROCESS-EDIT-USE.
           IF FIELD-ID NOT EQUAL TO 10
               GO TO PROCESS-EDIT-TIME. 
           IF VAL (1) EQUAL "$" 
               GO TO PROCESS-DEL-USE. 
           IF VAL-AREA (1 : 2) NOT EQUAL TO "CA"
               MOVE "CA /  " TO BIG-CODES 
               MOVE "B" TO CODE-ERR-SW
               GO TO VALIDATION-ERROR.
           MOVE VAL-AREA TO PROCESS-SR-TYPE.
           MOVE "P" TO PROCESS-SR-LINETYPE. 
           GO TO CAT-MVC-MSG-CHG. 
       PROCESS-DEL-USE. 
           IF PROCESS-SR-TYPE EQUAL TO SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO PROCESS-SR-TYPE.
           GO TO CAT-MVC-MSG-DEL. 
      * 
      *    PROCESS - DBPROC TIME
      * 
       PROCESS-EDIT-TIME. 
           IF FIELD-ID NOT EQUAL TO 15
               GO TO PROCESS-EDIT-OPT.
           IF VAL (1) EQUAL "$" 
               GO TO PROCESS-DEL-TIME.
           MOVE 5 TO MAX-LENGTH.
           MOVE "A  B  E  /  " TO BIG-CODES.
           PERFORM CHECK-SLASHES THRU CHECK-SLASHES-EXIT. 
           MOVE VAL-AREA TO PROCESS-SR-TIME.
           MOVE "P" TO PROCESS-SR-LINETYPE. 
           GO TO CAT-MVC-MSG-CHG. 
       PROCESS-DEL-TIME.
           IF PROCESS-SR-TIME EQUAL TO SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO PROCESS-SR-TIME.
           GO TO CAT-MVC-MSG-DEL. 
      * 
      *    PROCESS - OPTION 
      * 
       PROCESS-EDIT-OPT.
           IF FIELD-ID NOT EQUAL TO 20
               GO TO FLD-ERR. 
           IF VAL (1) EQUAL "$" 
               GO TO PROCESS-DEL-OPT. 
           MOVE 9 TO MAX-LENGTH.
           MOVE "S  M  G  D  F  /  " TO BIG-CODES.
           PERFORM CHECK-SLASHES THRU CHECK-SLASHES-EXIT. 
           MOVE VAL-AREA TO PROCESS-SR-OPTION.
           MOVE "P" TO PROCESS-SR-LINETYPE. 
           GO TO CAT-MVC-MSG-CHG. 
       PROCESS-DEL-OPT. 
           IF PROCESS-SR-OPTION EQUAL TO SPACES 
               GO TO CAT-MVC-MSG-ERR-DEL. 
           MOVE SPACES TO PROCESS-SR-OPTION.
           GO TO CAT-MVC-MSG-DEL. 
*CALL CPROCS
