*COMDECK  CBL15DAT
00001  01  FILE-SAVE-AREAS.                                             10/05/78
00002      05  DES-CAT-NO              PICTURE XXX VALUE "030".         CBL15DAT
00003      05  NAME-CAT-NO             PICTURE XXX VALUE "200".            LV002
00004      05  ATTR-CAT-NO             PICTURE XXX VALUE "210".            CL**2
00005      05  STC-CAT-NO              PICTURE XXX VALUE "300".            CL**2
00006      05  ALIAS-CAT-NO            PICTURE XXX VALUE "211".            CL**2
00007      05  OTHER-CAT-NO            PICTURE XXX VALUE "900".            CL**2
00008      05  FILE-TYPE               PICTURE 99.                      CBL15DAT
00009      05  RECORD-TYPE             PICTURE 99.                      CBL15DAT
00010      05  FILLERKW                PICTURE X(7) VALUE "FILLER ".    CBL15DAT
00011      05  REDEFKW                 PICTURE X(10) VALUE "REDEFINES ".   CL**2
00012      05  OCCURKW1                PICTURE X(7) VALUE "OCCURS ".       CL**2
00013      05  OCCURKW2                PICTURE X(5) VALUE "FROM ".         CL**2
00014      05  OCCURKW3                PICTURE X(4) VALUE " TO ".          CL**2
00015      05  TIMESKW                 PICTURE X(7)                        CL**2
00016          VALUE " TIMES ".                                            CL**2
00017      05  INDEXKW                 PICTURE X(11)                       CL**2
00018                                  VALUE "INDEXED BY ".                CL**2
00019      05  DEPENDKW                PICTURE X(13)                       CL**2
00020                                  VALUE "DEPENDING ON ".              CL**2
           05  KWASCEND                PICTURE X(10) VALUE "ASCENDING ".
           05  KWDESCEND               PICTURE X(11)
                                       VALUE "DESCENDING ". 
           05  KWKEYIS                 PICTURE X(7)  VALUE "KEY IS ". 
00021      05  PICTUREKW               PICTURE X(8) VALUE "PICTURE ".      CL**2
00022      05  RIGHTPAREN              PICTURE X    VALUE ")".          CBL15DAT
00023      05  LEFTPAREN               PICTURE X    VALUE "(".          CBL15DAT
00024      05  XKW                     PICTURE X    VALUE "X".          CBL15DAT
00025      05  9KW                     PICTURE X    VALUE "9".          CBL15DAT
00026      05  COMP3KW                 PICTURE X(6) VALUE "COMP-3".     CBL15DAT
00027      05  COMPKW                  PICTURE X(4) VALUE "COMP".       CBL15DAT
00028      05  COMP1KW                 PICTURE X(6) VALUE "COMP-1".        CL**2
00029      05  VALUEKW                 PICTURE X(6) VALUE "VALUE ".        CL**2
00030      05  JUSTIFIEDRKW            PICTURE X(15)                       CL**2
00031                                  VALUE "JUSTIFIED RIGHT".            CL**2
00032      05  SYNCHRONIZEDKW          PICTURE X(12)                    CBL15DAT
00033                                  VALUE "SYNCHRONIZED".            CBL15DAT
00034      05  FLOATFORMAT             PICTURE X    VALUE "F".          CBL15DAT
00035      05  CHARFORMAT              PICTURE X    VALUE "C".          CBL15DAT
00036      05  BINARYFORMAT            PICTURE X    VALUE "B".          CBL15DAT
00037      05  LEVEL-SUB               PICTURE 99  COMP SYNC.           CBL15DAT
00038      05  LEVEL-SUB-MAX           PICTURE 99  COMP SYNC VALUE 16.  CBL15DAT
00039      05  DESC-INDICATOR          PICTURE X   VALUE "*".           CBL15DAT
00040      05  ONCOND                  PICTURE X   VALUE "Y".           CBL15DAT
00041      05  OFFCOND                 PICTURE X   VALUE "N".           CBL15DAT
           03  LITERAL-1 PIC X VALUE QUOTE. 
00043      03  LITERAL-2               PICTURE X(9)     VALUE              CL**2
00044         "REDEFINED".                                                 CL**2
00045      03  LITERAL-3               PICTURE X(3)     VALUE              CL**2
00046         "END".                                                       CL**2
00047      03  LITERAL-SW              PICTURE X        VALUE "N".         CL**2
