*COMDECK  CBL20DAT
00001  01  CBL20-WORK-AREA.                                             09/07/78
00002      05  FDKW                    PICTURE XX VALUE "FD".           CBL20DAT
00003      05  RECKW1                  PICTURE X(16)                       LV002
00004          VALUE "RECORD CONTAINS ".                                CBL20DAT
00005      05  RECKW2                  PICTURE X(11)                    CBL20DAT
00006          VALUE " CHARACTERS".                                     CBL20DAT
00007      05  RECKW3                  PICTURE X(17)                    CBL20DAT
00008          VALUE "RECORDING MODE IS".                               CBL20DAT
00009      05  LABELKW1                PICTURE X(26)                    CBL20DAT
00010          VALUE "LABEL RECORDS ARE STANDARD".                      CBL20DAT
00011      05  LABELKW2                PICTURE X(25)                    CBL20DAT
00012          VALUE "LABEL RECORDS ARE OMITTED".                       CBL20DAT
00013      05  BLKKW1                  PICTURE X(15)                       CL**2
00014          VALUE "BLOCK CONTAINS ".                                    CL**2
00015      05  DATAKW                  PICTURE X(17)                    CBL20DAT
00016          VALUE "DATA RECORDS ARE ".                               CBL20DAT
00017          05  STDLBL              PICTURE XX VALUE "SL".              CL**2
00018      05  CBL-WORK-AREA           PICTURE X(80).                   CBL20DAT
00019      05  CBL-WORK-AREA1 REDEFINES CBL-WORK-AREA.                  CBL20DAT
00020      07  FILLER                  PICTURE X(7).                    CBL20DAT
00021      07  CBL-FD                  PICTURE XX.                      CBL20DAT
00022      07  FILLER                  PICTURE XX.                      CBL20DAT
00023      07  CBL-FDNAME              PICTURE X(32).                   CBL20DAT
00024      07  FILLER                  PICTURE X(37).                   CBL20DAT
00025      05  CBL-WORK-AREA2 REDEFINES CBL-WORK-AREA1.                 CBL20DAT
00026          07  FILLER             PICTURE X(11).                       CL**2
00027      07  CBL-REC                 PICTURE X(16).                   CBL20DAT
00028      07  CBL-RECSIZE             PICTURE ZZZZ9.                   CBL20DAT
00029      07  FILLER                  PICTURE X.                       CBL20DAT
00030      07  CBL-RECCHAR             PICTURE X(11).                   CBL20DAT
00031      07  FILLER                  PICTURE X(36).                   CBL20DAT
00032      05  CBL-WORK-AREA3 REDEFINES CBL-WORK-AREA2.                 CBL20DAT
00033          07  FILLER             PICTURE X(11).                       CL**2
00034      07  CBL-MODE                PICTURE X(17).                   CBL20DAT
00035      07  FILLER                  PICTURE X.                          CL**2
00036           07  CBL-RECMODE                 PICTURE X.                 CL**2
00037      07  FILLER                  PICTURE X(45).                      CL**2
00038      05  CBL-WORK-AREA4 REDEFINES CBL-WORK-AREA3.                 CBL20DAT
00039          07  FILLER             PICTURE X(11).                       CL**2
00040      07  CBL-LABEL               PICTURE X(26).                   CBL20DAT
00041      07  FILLER                  PICTURE X(43).                   CBL20DAT
00042      05  CBL-WORK-AREA5 REDEFINES CBL-WORK-AREA4.                 CBL20DAT
00043          07  FILLER             PICTURE X(11).                       CL**2
00044      07  CBL-BLK                 PICTURE X(15).                   CBL20DAT
00045      07  CBL-BLKSIZE             PICTURE ZZZZ9.                   CBL20DAT
00046      07  CBL-BLKCHAR             PICTURE X(11).                   CBL20DAT
00047      07  FILLER                  PICTURE X(32).                   CBL20DAT
00048      05  CBL-WORK-AREA6 REDEFINES CBL-WORK-AREA5.                 CBL20DAT
00049          07  FILLER             PICTURE X(11).                       CL**2
00050          07 CBL-DATAREC          PICTURE X(17).                      CL**2
00051          07 FILLER               PICTURE X(52).                      CL**2
00052      05 CBL-WORK-AREA7 REDEFINES CBL-WORK-AREA6.                     CL**2
00053          07 FILLER               PICTURE X(15).                      CL**2
00054          07 CBL-RECNAME          PICTURE X(32).                      CL**2
00055          07  FILLER              PICTURE X(33).                      CL**2
00056  01  CATEGORY-NUMBERS.                                               CL**2
00057      03  DES-CAT-NO              PICTURE XXX   VALUE "030".          CL**2
00058      03  NAME-CAT-NO             PICTURE XXX VALUE "200".            CL**2
00059      03  ATTR-CAT-NO             PICTURE XXX VALUE "210".            CL**2
00060      03  STC-CAT-NO              PICTURE XXX VALUE "300".            CL**2
00061      03  OTHER-CAT-NO            PICTURE XXX VALUE "900".            CL**2
00062      03  ALIAS-CAT-NO            PICTURE XXX VALUE "211".            CL**2
           03  LITERAL-1 PIC X VALUE QUOTE. 
