*COMDECK  CBLDEF
       01  TEMP-SAVE-SEARCH.
           03  FILLER                  PICTURE X(05). 
           03  TEMP-DATA-ENTRY-LINE    PICTURE X(04). 
           03  FILLER                  PICTURE X(33). 
       01  MISCELLANEOUS. 
           03  ITEM-CATNAME            PICTURE X(32). 
           03  ITEM-ALIAS              PICTURE X(4).
           03  FIRST-INDEX             PICTURE X. 
           03  FOUND-STC               PICTURE X. 
           03  LEVEL-IDX               PICTURE 99.
00001  01  SCAN-AREA.                                                   10/05/78
00002      02 SCAN-FIELD               PICTURE X OCCURS 80 TIMES.       CBLDEF
00003  01  SCAN-AREA2.                                                     LV002
00004      02  SCAN-FIELD2             PICTURE X OCCURS 80 TIMES.          CL**2
00005  01  LEN-P                       PICTURE 99.                         CL**2
00006  01  WS-DATA-NAME.                                                   CL**2
00007      03 WORK-DN                  PICTURE X OCCURS 32 TIMES.          CL**2
00008  01  WORK-DATA-NAME.                                                 CL**2
00009      03  WS-DN                   PICTURE X OCCURS 32 TIMES.          CL**2
00010  01  CONDITION-NAME.                                                 CL**2
00011      03  COND-NAME               PICTURE X OCCURS 32 TIMES.          CL**2
00012  01  88-VALUE.                                                       CL**2
00013      03  88-VAL                  PICTURE X OCCURS 62 TIMES.          CL**2
00014  01  88-IDENTIFIER.                                                  CL**2
00015      03  88-IDEN                 PICTURE X OCCURS 3 TIMES.           CL**2
00016  01  HOLD-88-LINE.                                                   CL**2
00017      03  HOLD-88                 PICTURE X OCCURS 67 TIMES.          CL**2
00018  01  CBL-SUBSCRIPTS.                                                 CL**2
00019      03  SUB1                    PIC 99.                             CL**2
00020      03  SUB2                    PICTURE 99.                         CL**2
00021      03  SUB3                    PICTURE 99.                         CL**2
00022      03  SUB-4                   PICTURE 99.                         CL**2
00023      03  SUB-5                   PICTURE 99.                         CL**2
00024      03  88-SUB                  PICTURE 99.                         CL**2
           03  END-88                  PICTURE 99.
00025      03  QUOTE-FOUND             PICTURE X.                          CL**2
00026      03  SUB-A                   PICTURE 99.                         CL**2
00027      03  SUB-B                   PICTURE 99.                         CL**2
00028      03  SUB-M                   PICTURE 99.                         CL**2
           03  SUB-X                   PICTURE 99.
           03  SUB-Y                   PICTURE 99.
00031      03  SUB-Z                   PICTURE 99.                         CL**2
00032      03  GROUP-SUB               PICTURE 99.                         CL**2
00033      03  MSG-SWITCH              PICTURE X.                          CL**2
00034      03  DES-NOTES-SWITCH        PICTURE X.                          CL**2
00035      03  CAT-LINE-COUNTER        PICTURE 9999.                       CL**2
00036      03  NOTES-FOR-HOLD          PICTURE 9999.                       CL**2
00037      03  NOTES-TO-HOLD           PICTURE 9999.                       CL**2
00038      03  NOTES-FROM-HOLD         PICTURE 9999.                       CL**2
00039  01  VAL-QUOTE.                                                      CL**2
00040      03  QUOTE-VAL         PICTURE X.                                CL**2
00041      03  VAL-HOLD.                                                   CL**2
00042      05  H-VAL                   PICTURE X OCCURS 26 TIMES.          CL**2
00043  01  FILLER-LENGTH.                                                  CL**2
00044      03 FILLER                   PICTURE XX VALUE "X(".              CL**2
00045      03  FILL-LEN                PICTURE ZZZ9.                       CL**2
00046      03  FILLER                  PICTURE XX VALUE ").".              CL**2
00047  01  HOLD-LEVELS.                                                    CL**2
00048      03  LEVEL-01                PICTURE 99.                         CL**2
00049      03  LEVEL-03                PICTURE 99.                         CL**2
00050      03  LEVEL-05                PICTURE 99.                         CL**2
00051      03  LEVEL-07                PICTURE 99.                         CL**2
00052      03  LEVEL-09                PICTURE 99.                         CL**2
00053      03  LEVEL-11                PICTURE 99.                         CL**2
00054      03  LEVEL-13                PICTURE 99.                         CL**2
00055      03  LEVEL-15                PICTURE 99.                         CL**2
00056      03  LEVEL-17                PICTURE 99.                         CL**2
00057      03  LEVEL-19                PICTURE 99.                         CL**2
00058      03  LEVEL-21                PICTURE 99.                         CL**2
00059      03  LEVEL-23                PICTURE 99.                         CL**2
00060      03  LEVEL-88                PICTURE XX VALUE "88".              CL**2
00061  01  INITIAL-VALUE-IMAGE.                                            CL**2
00062      03  WORD-1                  PICTURE X(5).                       CL**2
00063      03  WORD-2                  PICTURE 9.                          CL**2
00064      03  FILLER                  PICTURE X.                          CL**2
00065      03  WORD-3                  PICTURE X(12).                      CL**2
00066  01  CBL-CARD-IMAGE.                                                 CL**2
00067      03  FILLER                  PICTURE X(7).                       CL**2
00068      03  C-01.                                                       CL**2
00069          05  CBL-01              PICTURE XX.                         CL**2
00070          05  FILLER              PICTURE XX.                         CL**2
00071          05  CBL-NAME-01         PICTURE X(32).                      CL**2
00072          05  FILLER              PICTURE X(16).                      CL**2
00073      03  C-03 REDEFINES C-01.                                        CL**2
00074          05  FILLER              PICTURE XXXX.                       CL**2
00075          05  CBL-03              PICTURE XX.                         CL**2
00076          05  FILLER              PICTURE XX.                         CL**2
00077          05  CBL-NAME-03         PICTURE X(32).                      CL**2
00078          05  FILLER              PICTURE X(12).                      CL**2
00079      03  C-05 REDEFINES C-03.                                        CL**2
00080          05  FILLER              PICTURE X(8).                       CL**2
00081          05  CBL-05              PICTURE XX.                         CL**2
00082          05  FILLER              PICTURE XX.                         CL**2
00083          05  CBL-NAME-05         PICTURE X(32).                      CL**2
00084          05  FILLER              PICTURE X(8).                       CL**2
00085      03  C-07 REDEFINES C-05.                                        CL**2
00086          05  FILLER              PICTURE X(12).                      CL**2
00087          05  CBL-07              PICTURE XX.                         CL**2
00088          05  FILLER              PICTURE XX.                         CL**2
00089          05  CBL-NAME-07         PICTURE X(32).                      CL**2
00090          05  FILLER              PICTURE X(4).                       CL**2
00091      03  C-09 REDEFINES C-07.                                        CL**2
00092          05  FILLER              PICTURE X(16).                      CL**2
               05  CBL-09 PIC XX. 
00094          05  FILLER              PICTURE XX.                         CL**2
00095          05  CBL-NAME-09         PICTURE X(32).                      CL**2
00096      03  FILLER                  PICTURE X(21).                      CL**2
00097  01  CARD-IMAGE-RED.                                                 CL**2
00098      03  FILLER                  PICTURE X(27).                      CL**2
00099      03  C-RED.                                                      CL**2
00100          05  C-RED-DEF           PICTURE X(10).                      CL**2
00101          05  C-RED-VAL           PICTURE X(32).                      CL**2
00102      03  FILLER                  PICTURE X(11).                      CL**2
00103  01  CARD-IMAGE-OCC.                                                 CL**2
00104      03  FILLER                  PICTURE X(27).                      CL**2
00105      03  C-OCCUR.                                                    CL**2
00106          05  C-OCCUR-DEF         PICTURE X(7).                       CL**2
00107          05  C-OCCUR-ONLY.                                           CL**2
                   07  C-OCCUR-VAL     PICTURE ZZZ9.
00109              07  C-TIMES         PICTURE X(7).                       CL**2
00110              07  FILLER          PICTURE X(12).                      CL**2
00111          05  C-OCCURS-F-T REDEFINES C-OCCUR-ONLY.                    CL**2
00112              07  C-FROM          PICTURE X(5).                       CL**2
                   07  C-FROM-VAL      PICTURE ZZZ9.
00114              07  C-TO            PICTURE X(4).                       CL**2
                   07  C-TO-VAL        PICTURE ZZZ9.
00116              07  C-TO-TIMES      PICTURE X(7).                       CL**2
00117      03  FILLER                  PICTURE X(24).                      CL**2
00118  01  CARD-INIT-VALUE.                                                CL**2
00119      03  FILLER                  PICTURE X(6).                       CL**2
00120      03  FILLER-DASH             PICTURE X.                          CL**2
00121      03  FILLER          PICTURE X(23).                              CL**2
00122      03  QUOTE-VALKW             PICTURE X(6).                       CL**2
00123      03  QUOTE-VALUE             PICTURE X.                          CL**2
00124      03  VALUE-INITIAL           PICTURE X(25).                      CL**2
00125      03  FILLER          PICTURE X(18).                              CL**2
00126  01  CARD-INIT-VALUE2.                                               CL**2
00127      03  FILLER                  PICTURE X(6).                       CL**2
00128      03  FILLER-DASH2            PICTURE X.                          CL**2
00129      03  FILLER                  PICTURE X(31).                      CL**2
00130      03  QUOTE-VALKW2            PICTURE X(6).                       CL**2
00131      03  QUOTE-VALUE2            PICTURE X.                          CL**2
00132      03  VALUE-INITIAL2          PICTURE X(25).                      CL**2
00133      03  FILLER                  PICTURE X(10).                      CL**2
00134  01  CARD-IMAGE-DEP.                                                 CL**2
00135      03  FILLER                  PICTURE X(27).                      CL**2
00136      03  C-DEP-DEF               PICTURE X(13).                      CL**2
00137      03  C-DEP-NAME              PICTURE X(32).                      CL**2
00138      03  FILLER                  PICTURE X(8).                       CL**2
00139  01  CARD-IMAGE-VAL.                                                 CL**2
00140      03  FILLER                  PICTURE X(27).                      CL**2
00141      03  C-VAL-DEF               PICTURE X(6).                       CL**2
00142      03  C-VAL-VAL               PICTURE X(27).                      CL**2
00143      03  FILLER                  PICTURE X(18).                      CL**2
00144  01  CARD-IMAGE-IND.                                                 CL**2
00145      03  FILLER                  PICTURE X(27).                      CL**2
00146      03  C-IND-DEF               PICTURE X(11).                      CL**2
00147      03  C-IND-VAL               PICTURE X(32).                      CL**2
00148      03  FILLER                  PICTURE X(10).                      CL**2
       01  CARD-IMAGE-KEY.
           03  FILLER                  PICTURE X(27). 
           03  C-KEY-ORDER             PICTURE X(11). 
           03  C-KEY-IS                PICTURE X(07). 
           03  C-KEY-NAME              PICTURE X(32). 
           03  FILLER                  PICTURE X(03). 
00149  01  CARD-IMAGE-SYC-JUST.                                            CL**2
00150      03 FILLER                   PICTURE X(27).                      CL**2
00151      03  C-SYNC                  PICTURE X(15).                      CL**2
00152      03  FILLER                  PICTURE X(38).                      CL**2
00153  01  CARD-IMAGE-PICTURE.                                             CL**2
00154      02  CARD-IMAGE-PIC.                                             CL**2
00155          03  FILLER              PICTURE X(27).                      CL**2
00156          03  C-PIC-DEF           PICTURE X(8).                       CL**2
00157          03  C-PIC-VAL           PICTURE X(25).                      CL**2
00158      03  FILLER                  PICTURE X.                          CL**2
00159      03  C-PIC-USAGE             PICTURE X(19).                      CL**2
00160          03  FILLER              PICTURE X(20).                      CL**2
00161      02  CARD-IMAGE-BLANK-PIC REDEFINES CARD-IMAGE-PIC.              CL**2
00162      03  FILLER                  PICTURE X(27).                      CL**2
00163      03  C-BLANK-PIC-DEF         PICTURE X(8).                       CL**2
00164      03  C-BLANK-PIC-MODE        PICTURE X.                          CL**2
00165      03  C-BLANK-PIC-L-PAREN     PICTURE X.                          CL**2
           03  C-BLANK-PIC-LENGTH      PICTURE X(10). 
           03  C-BLANK-FILL-LENGTH     REDEFINES C-BLANK-PIC-LENGTH.
               05  FILLER              PICTURE X(6).
               05  C-BLANK-FILL        PICTURE X(4).
00167      03  C-BLANK-PIC-R-PAREN     PICTURE X.                          CL**2
00168      03  FILLER                  PICTURE X.                          CL**2
00169      03  C-BLANK-PIC-USAGE       PICTURE X(6).                       CL**2
           03  FILLER                  PICTURE X(17). 
00171  01  CARD-IMAGE-88.                                                  CL**2
00172      03  FILLER                  PICTURE X(23).                      CL**2
00173      03  CBL-88                  PICTURE XX.                         CL**2
00174      03  FILLER                  PICTURE XX.                         CL**2
00175      03  CBL-NAME-88             PICTURE X(32).                      CL**2
00176      03  FILLER                  PICTURE X(21).                      CL**2
00177  01  CARD-IMAGE-88-1 REDEFINES CARD-IMAGE-88.                        CL**2
00178      03  FILLER                  PICTURE X(47).                      CL**2
00179      03  88-VAL-DEF              PICTURE X(6).                       CL**2
00180      03  88-VAL-VAL              PICTURE X(27).                      CL**2
00181  01  CARD-IMAGE-88-2 REDEFINES CARD-IMAGE-88.                        CL**2
00182      03  FILLER                  PICTURE X(27).                      CL**2
00183      03  88-VAL-DEF2             PICTURE X(6).                       CL**2
00184      03  FILLER                  PICTURE X(47).                      CL**2
00185  01  88-CONTINUATION REDEFINES CARD-IMAGE-88.                        CL**2
00186      03  88-CONT                 PICTURE X OCCURS 80 TIMES.          CL**2
00187  01  FILLER-PICTURE-AREA.                                            CL**2
00188      03  FILLER                  PICTURE X(43).                      CL**2
00189      03  FILL-PIC-DEF            PICTURE X(8).                       CL**2
00190      03  FILL-PIC-VAL            PICTURE X(8).                       CL**2
00191      03  FILLER                  PICTURE X(21).                      CL**2
00192  01  ERROR-LINE.                                                     CL**2
00193      03  FILLER                  PICTURE X(10) VALUE SPACE.          CL**2
00194      03  ERROR-MSSG-AREA.                                            CL**2
00195          05  FILLER              PICTURE X(6) VALUE "DCGEN-".        CL**2
00196          05  ERROR-MSSG-NUM       PICTURE X(6).                      CL**2
00197      05  FILLER                  PICTURE X(9) VALUE " * ERROR ".     CL**2
00198          05  ERROR-MSSG-TYPE.                                        CL**2
00199              07  ERROR-CAT-NAME  PICTURE X(32).                      CL**2
00200              07  FILLER          PICTURE X.                          CL**2
00201              07  MSSG-TYPE       PICTURE X(42).                      CL**2
00202          05  DEFAULT-AREA REDEFINES ERROR-MSSG-TYPE.                 CL**2
00203              07  DEFAULT-MSSG    PICTURE X(75).                      CL**2
00204      03  FILLER                  PICTURE X(26) VALUE SPACES.         CL**2
00205  01  ERROR-STATEMENTS.                                               CL**2
00206      03  NO-STC-MSSG             PICTURE X(16)                       CL**2
00207          VALUE "HAS NO STRUCTURE".                                   CL**2
00208      03  BAD-ENTITY-MSSG         PICTURE X(32)                       CL**2
00209          VALUE "IS NOT A GROUP OR ELEMENT ENTITY".                   CL**2
00210      03  NO-DATA-MSSG            PICTURE X(14)                       CL**2
00211          VALUE "HAS NO DATA   ".                                     CL**2
00212      03  BAD-DATA-MSSG           PICTURE X(22)                       CL**2
00213          VALUE "IS NOT A RECORD ENTITY".                             CL**2
00214      03  PICTURE-DEFAULT-MSSG    PICTURE X(43)                       CL**2
00215          VALUE "DEFAULT VALUES USED TO CREATE PICTURE BELOW".        CL**2
00216      03  GROUP-LIMIT-MSSG        PICTURE X(25)                       CL**2
00217          VALUE "GROUP LEVEL EXCEEDS LIMIT".                          CL**2
00218      03  BAD-88-MSSG                       PICTURE X(45) VALUE       CL**2
00219         "UNABLE TO GENERATE 88 DUE TO SYNTAX ERROR".                 CL**2
00220      03  REDEFINE-MSSG           PICTURE X(56)     VALUE             CL**2
00221         "UNABLE TO GENERATE REDEFINED ELEMENT IN ALIAS CATEGORY".    CL**2
           03  BLANK-STC. 
             05  FILLER               PICTURE X(32) VALUE 
               "BLANK CATNAME IN STRUCTURE LINE". 
             05  BLANK-LINE            PICTURE X(4).
             05  FILLER                PICTURE X(4) VALUE 
                 " OF ".
             05  BLANK-CAT             PICTURE X(32). 
00222      03  HOLD-LINE               PICTURE X(80).                      CL**2
00223      03  LINE-HOLD REDEFINES HOLD-LINE.                              CL**2
00224          05  HOLD-AREA           PICTURE X OCCURS 80 TIMES.          CL**2
00225      03  HOLD-PICTURE            PICTURE X(80).                      CL**2
00226      03  PICTURE-HOLD REDEFINES HOLD-PICTURE.                        CL**2
00227          05  PICTURE-AREA        PICTURE X OCCURS 80 TIMES.          CL**2
           03  HOLD-PICTURE-VALUE      PICTURE X(10). 
00229      03  PICTURE-VALUE-HOLD REDEFINES HOLD-PICTURE-VALUE.            CL**2
               05  PICTURE-VALUE       PICTURE X OCCURS 10 TIMES. 
           03  HOLD-SQUEEZE-PICTURE    PICTURE X(10). 
00232      03  SQUEEZE-PICTURE-HOLD REDEFINES HOLD-SQUEEZE-PICTURE.        CL**2
               05  SQUEEZE-VALUE       PICTURE X OCCURS 10 TIMES. 
