*COMDECK  BALDEF
00001  01  SCAN-AREA.                                                   07/05/78
00002      02 SCAN-FIELD               PICTURE X OCCURS 80 TIMES.       BALDEF
00003  01  LEN-P                       PICTURE 99.                         LV002
00004  01  WS-DATA-NAME.                                                   CL**2
00005      03  WORK-DN                 PICTURE X OCCURS 8 TIMES.           CL**2
00006  01  WORK-DATA-NAME.                                                 CL**2
00007      03  WS-DN                   PICTURE X OCCURS 8 TIMES.           CL**2
00008  01  PLC-SUBSCRIPTS.                                                 CL**2
00009      03  SUB1                    PICTURE 99 COMP SYNC.               CL**2
00010      03  SUB2                    PICTURE 99 COMP SYNC.               CL**2
00011      03  SUB3                    PICTURE 99 COMP SYNC.               CL**2
00012      03  SUB-4                   PICTURE 99 COMP SYNC.               CL**2
00013      03  SUB-5                   PICTURE 99 COMP SYNC.               CL**2
00014      03  SUB5-H                  PICTURE 99 COMP SYNC.               CL**2
00015      03  SUB-A                   PICTURE 99 COMP SYNC.               CL**2
00016      03  SUB-B                   PICTURE 99 COMP SYNC.               CL**2
00017      03  SUB-C                   PICTURE 99 COMP SYNC.               CL**2
00018      03  SUB-X                   PICTURE 9 COMP SYNC.                CL**2
00019      03  SUB-Y                   PICTURE 9 COMP SYNC.                CL**2
00020      03  GROUP-SUB               PICTURE 99 COMP SYNC.               CL**2
00021      03  GROUP-SUBB              PICTURE 99 COMP SYNC.               CL**2
00022      03  GROUP-SUBC              PICTURE 99 COMP SYNC.               CL**2
00023      03  GROUP-SUBD              PICTURE 99 COMP SYNC.               CL**2
00024      03  GROUP-OCCUR-SW          PICTURE X.                          CL**2
00025      03  MSG-SW                  PICTURE X.                          CL**2
00026      03  HOLD-SW                 PICTURE X.                          CL**2
00027      03  GROUP-SW                PICTURE X.                          CL**2
00028      03  INITIAL-SW              PICTURE X.                          CL**2
00029      03  REDEFINES-SW            PICTURE X.                          CL**2
00030      03  ZERO-SW                 PICTURE X.                          CL**2
00031      03  OCCUR-SAVEB             PICTURE XXX.                        CL**2
00032      03  OCCUR-SAVE REDEFINES OCCUR-SAVEB                            CL**2
00033                                  PICTURE 999.                        CL**2
00034      03  SAVE-LENGTH             PICTURE 9(6) COMP-3.                CL**2
00035      03  TOTAL-LENGTH            PICTURE 9(6) COMP-3.                CL**2
00036      03  NINE-LENGTH             PICTURE 9(6).                       CL**2
00037      03  CALC-NUMB               PICTURE XXXX.                       CL**2
00038      03  CALC-NUM REDEFINES CALC-NUMB                                CL**2
00039                                  PICTURE 9999.                       CL**2
00040      03  OCCUR-COUNTB            PICTURE XXX.                        CL**2
00041      03  OCCUR-COUNT REDEFINES OCCUR-COUNTB                          CL**2
00042                                  PICTURE 999.                        CL**2
00043  01  VAL-QUOTE.                                                      CL**2
00044      03  FILLER                  PICTURE X  VALUE QUOTE.             CL**2
00045      03  VAL-HOLD.                                                   CL**2
00046          05  H-VAL               PICTURE X OCCURS 25 TIMES.          CL**2
00047  01  BEGINNING-MESSAGES.                                             CL**2
00048      03  COMMENT1.                                                   CL**2
00049          05  DSNAME-COMMENT      PICTURE X(32).                      CL**2
00050          05  FILLER              PICTURE X(29) VALUE                 CL**2
00051             "DEFINITION GENERATED FROM DC2".                         CL**2
00052      03  COMMENT2.                                                   CL**2
00053          05  FILLER                  PICTURE X(20) VALUE             CL**2
00054             "DATE OF GENERATION: ".                                  CL**2
00055          05  DATE-TODAY              PICTURE X(10).                  CL**2
00056      03  COMMENT3.                                                   CL**2
00057          05  FILLER              PICTURE X(29) VALUE                 CL**2
00058             "MASTER FILE REVISION NUMBER= ".                         CL**2
00059          05  REV-TODAY           PICTURE ZZZZ9.                      CL**2
00060      03  COMMENT4.                                                   CL**2
00061          05  FILLER              PICTURE X(23) VALUE                 CL**2
00062             "DATE OF LAST REVISION= ".                               CL**2
00063          05  REV-NO-LAST         PICTURE X(40).                      CL**2
00064  01  ERROR-LINE.                                                     CL**2
00065      03  FILLER                  PICTURE X(10) VALUE SPACE.          CL**2
00066      03  ERROR-MSSG-AREA.                                            CL**2
00067          05  FILLER              PICTURE X(6) VALUE "DCGEN-".        CL**2
00068          05  ERROR-MSSG-NUM       PICTURE X(6).                      CL**2
00069      05  FILLER                  PICTURE X(9) VALUE " * ERROR ".     CL**2
00070          05  ERROR-MSSG-TYPE.                                        CL**2
00071              07  ERROR-CAT-NAME  PICTURE X(32).                      CL**2
00072              07  FILLER          PICTURE X.                          CL**2
00073              07  MSSG-TYPE       PICTURE X(42).                      CL**2
00074          05  DEFAULT-AREA REDEFINES ERROR-MSSG-TYPE.                 CL**2
00075              07  DEFAULT-MSSG    PICTURE X(75).                      CL**2
00076          05  INFORM-AREA REDEFINES ERROR-MSSG-TYPE.                  CL**2
00077              07  INFORM-MSSG     PICTURE X(43).                      CL**2
00078              07  ERROR-NAMED     PICTURE X(32).                      CL**2
00079      03  FILLER                  PICTURE X(26) VALUE SPACES.         CL**2
00080  01  ERROR-STATEMENTS.                                               CL**2
00081      03  NO-LENGTH-MSSG              PICTURE X(33) VALUE             CL**2
00082         "GROUP LENGTH CANNOT BE CALCULATED".                         CL**2
00083      03  NO-STC-MSSG             PICTURE X(16)                       CL**2
00084          VALUE "HAS NO STRUCTURE".                                   CL**2
00085      03  BAD-ENTITY-MSSG         PICTURE X(32)                       CL**2
00086          VALUE "IS NOT A GROUP OR ELEMENT ENTITY".                   CL**2
00087      03  NO-DATA-MSSG            PICTURE X(14)                       CL**2
00088          VALUE "HAS NO DATA   ".                                     CL**2
00089      03  BAD-DATA-MSSG           PICTURE X(22)                       CL**2
00090          VALUE "IS NOT A RECORD ENTITY".                             CL**2
00091      03  PICTURE-DEFAULT-MSSG    PICTURE X(46)                       CL**2
00092          VALUE "DEFAULT VALUES USED TO CREATE DEFINITION BELOW".     CL**2
00093      03  GROUP-LIMIT-MSSG        PICTURE X(25)                       CL**2
00094          VALUE "GROUP LEVEL EXCEEDS LIMIT".                          CL**2
00095      03  INITIAL-DEFAULT-MSSG    PICTURE X(32)                       CL**2
00096          VALUE "INITIAL VALUE INVALID FOR FORMAT".                   CL**2
00097      03  LENGTH-MSSG2            PICTURE X(25)                       CL**2
00098          VALUE "LENGTH INVALID FOR FORMAT".                          CL**2
00099      03  FORMAT-MSSG2            PICTURE X(46)                       CL**2
00100          VALUE "DEFAULT FORMAT USED TO CREATE DEFINITION BELOW".     CL**2
00101      03  FORMAT-INFORM           PICTURE X(29)                       CL**2
00102          VALUE "DEFINITION NOT GENERATED FOR ".                      CL**2
00103      03  HOLD-LINE               PICTURE X(80).                      CL**2
00104      03  LINE-HOLD REDEFINES HOLD-LINE.                              CL**2
00105          05  HOLD-AREA           PICTURE X OCCURS 80 TIMES.          CL**2
00106      03  HOLD-PICTURE            PICTURE X(80).                      CL**2
00107      03  PICTURE-HOLD REDEFINES HOLD-PICTURE.                        CL**2
00108          05  PICTURE-AREA        PICTURE X OCCURS 80 TIMES.          CL**2
00109      03  HOLD-PICTURE-VALUE      PICTURE X(4).                       CL**2
00110      03  PICTURE-VALUE-HOLD REDEFINES HOLD-PICTURE-VALUE.            CL**2
00111          05  PICTURE-VALUE       PICTURE X OCCURS 4 TIMES.           CL**2
00112      03  HOLD-SQUEEZE-PICTURE    PICTURE X(4).                       CL**2
00113      03  SQUEEZE-PICTURE-HOLD REDEFINES HOLD-SQUEEZE-PICTURE.        CL**2
00114          05  SQUEEZE-VALUE       PICTURE X OCCURS 4 TIMES.           CL**2
