*COMDECK  DCUPDSWS
00007  WORKING-STORAGE SECTION.                                         DCUPDSWS
00008 *****************************************************             DCUPDSWS
00009 *                                                                 DCUPDSWS
00010 *     E D I T   W O R K I N G   S T O R A G E                        CL**2
00011 *                                                                 DCUPDSWS
00012 *****************************************************             DCUPDSWS
00013 *                                                                 DCUPDSWS
00014 *     ERROR MESSAGES                                              DCUPDSWS
00015 *                                                                 DCUPDSWS
00016  77  CERR-00                    PICTURE X(6) VALUE                DCUPDSWS
00017      "DCUPD-".                                                    DCUPDSWS
00018  77  CERR-650S         PICTURE X(20) VALUE                           CL**2
00019      "NOT A VALID KEYWORD".                                          CL**2
00020  77  CERR-655S         PICTURE X(31) VALUE                           CL**2
00021      "KEYWORD NOT VALID FOR CATEGORY".                               CL**2
00022  77  CERR-660S         PICTURE X(18) VALUE                           CL**2
00023      "VALUE IS TOO LONG".                                            CL**2
00024  77  CERR-670S         PICTURE X(26) VALUE                           CL**2
00025      "UNABLE TO PROCESS KEYWORD".                                    CL**2
00026  77  CERR-675S         PICTURE X(26) VALUE                           CL**2
00027      "UNABLE TO PROCESS CATEGORY".                                   CL**2
00028  77  CERR-680S         PICTURE X(27) VALUE                           CL**2
00029      "DELETE ILLEGAL FOR FUNC ADD".                                  CL**2
00030  77  CERR-685S         PICTURE X(34) VALUE                           CL**2
00031      "KEYWORD SEARCH EXTENDS PAST COL 72".                           CL**2
00032  77  CERR-690S         PICTURE X(32) VALUE                           CL**2
00033      "VALUE SEARCH EXTENDS PAST COL 72".                             CL**2
00034  77  CERR-200W         PICTURE X(24) VALUE                           CL**2
00035      "CATALOGUE NAME NOT FOUND".                                     CL**2
00036  77  CERR-205W         PICTURE X(31) VALUE                           CL**2
00037      "CATALOGUE NAME HIERARCHY ERROR".                               CL**2
00038  77  CERR-210W         PICTURE X(34) VALUE                           CL**2
00039      "SAME NAME AS ENTRY CATALOGUE NAME".                            CL**2
00040  77  CERR-220W         PICTURE X(16) VALUE                           CL**2
00041      "NO VALUE ON FILE".                                             CL**2
00042  77  CERR-225W         PICTURE X(17) VALUE                           CL**2
00043      "VALUE NOT NUMERIC".                                            CL**2
00044  77  CERR-230W         PICTURE X(24) VALUE                           CL**2
00045      "SENSITIVE FIELD DELETED".                                      CL**2
00046  77  CERR-235W         PICTURE X(25) VALUE                           CL**2
00047      "VALUE IS AN INVALID CODE".                                     CL**2
00048  77  STATUS-CODES   PIC X(14) VALUE                               DCUPDSWS
00049      "PEO0123456789/".                                               CL**2
00050  01  STAT-CODES     PICTURE X(13) VALUE                              CL**2
00051      "CP0123456789/".                                                CL**2
00052  01  FUNC-CODES     PICTURE X(14) VALUE                              CL**2
00053      "DCT0123456789/".                                               CL**2
00054  01  PUSE-CODES     PICTURE X(13) VALUE                              CL**2
00055      "YN0123456789/".                                                CL**2
00056  01  TIME-CODES     PICTURE X(17) VALUE                              CL**2
00057      "DWMQSA0123456789".                                             CL**2
00058 *                                                                 DCUPDSWS
00059 *     WORK / HOLD / SWITCH AREAS                                  DCUPDSWS
00060 *                                                                 DCUPDSWS
00061  01  CONTINUE-SW                PICTURE X VALUE SPACE.               CL**2
00062  01  CODE-ERR-SW                PICTURE X VALUE "N".                 CL**2
00063  01  QUOTE-SW                   PICTURE X VALUE "N".              DCUPDSWS
       01  SUB-PRESENT                PICTURE X VALUE "N".
       01  FINIS                      PICTURE X VALUE "F".
       01  MAX-LENGTH                 PICTURE 99. 
       01  START-SPOT                  PICTURE 99.
       01  NUM-SPOT                    PICTURE 99.
       01 SUB-LENGTH                  PICTURE S99 COMP SYNC.
       01 SUB-HOLD. 
           03  HOLD-SUB OCCURS 3 TIMES. 
               05  SUBSCRIPT             PICTURE X(4).
00064  01  KEY-WORD                   PICTURE X(8) VALUE SPACE.            CL**2
00065  01  OLD-VALUE                  PICTURE X(15).                    DCUPDSWS
00066  01  VC                         PICTURE S99 COMP SYNC.            DCUPDSWS
00067  01  VAL-AREA.                                                    DCUPDSWS
00068      03  VAL  OCCURS 67 TIMES PICTURE X.                             CL**2
00069  01  VALID-CODE-TABLE.                                            DCUPDSWS
00070      03  V-CODE                 PICTURE X OCCURS 20 TIMES.        DCUPDSWS
       01  BIG-CODES. 
           03  LITTLE-CODE  PICTURE XXX OCCURS 30 TIMES.
00071  01  KW-3-POS                      PICTURE X(3).                     CL**2
00072  01  STD-LINE-TYPE           PICTURE X VALUE "A".                    CL**2
00073  01  STD-BLINE-TYPE          PICTURE X VALUE "B".                    CL**2
00074  01  MK4-LINE-TYPE           PICTURE X VALUE "X".                    CL**2
       01  HOLD-VA-MAX                PIC S99 COMP SYNC.
00075 ** DCUPDSWS END **                                                   CL**2
