*COMDECK  BALDEF2 
00001  01  SCAN-AREA.                                                   08/08/78
00002      02 SCAN-FIELD               PICTURE X OCCURS 80 TIMES.       BALDEF2 
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  SUB-Z                   PICTURE 99 COMP SYNC.               CL**2
00021      03  GROUP-SUB               PICTURE 99 COMP SYNC.               CL**2
00022      03  GROUP-SUBB              PICTURE 99 COMP SYNC.               CL**2
00023      03  GROUP-SUBC              PICTURE 99 COMP SYNC.               CL**2
00024      03  GROUP-SUBD              PICTURE 99 COMP SYNC.               CL**2
00025      03  GROUP-OCCUR-SW          PICTURE X.                          CL**2
00026      03  MSG-SW                  PICTURE X.                          CL**2
00027      03  HOLD-SW                 PICTURE X.                          CL**2
00028      03  GROUP-SW                PICTURE X.                          CL**2
00029      03  INITIAL-SW              PICTURE X.                          CL**2
00030      03  REDEFINES-SW            PICTURE X.                          CL**2
00031      03  ZERO-SW                 PICTURE X.                          CL**2
00032      03  TYPE-SW                 PICTURE X.                          CL**2
00033      03  KEY-SWITCH              PICTURE X.                          CL**2
00034      03  COMP-SWITCH             PICTURE X.                          CL**2
00035      03  PREVIOUS-CODE           PICTURE XX.                         CL**2
           03  OCCUR-SAVEB             PICTURE X(4).
00037      03  OCCUR-SAVE REDEFINES OCCUR-SAVEB                            CL**2
                                       PICTURE 9(4).
           03  SAVE-LENGTH             PICTURE 9(10). 
           03  TOTAL-LENGTH            PICTURE 9(10). 
           03  NINE-LENGTH             PICTURE 9(10). 
           03  CALC-NUMB               PICTURE X(10). 
00043      03  CALC-NUM REDEFINES CALC-NUMB                                CL**2
                                       PICTURE 9(10). 
           03  OCCUR-COUNTB            PICTURE X(4).
00046      03  OCCUR-COUNT REDEFINES OCCUR-COUNTB                          CL**2
                                       PICTURE 9(4).
00048      03  LINK-PATH-HOLD.                                             CL**2
00049          05  HOLD-LINK-PATH      PICTURE XXXX.                       CL**2
00050          05  HOLD-LINK-PATH2     PICTURE XX.                         CL**2
00051 *                                                                    CL**2
00052 *    TABLE FOR STORAGE OF IOAREA NAMES                               CL**2
00053 *                                                                    CL**2
00054  01  IOAREA-TABLE.                                                   CL**2
00055      03  IOAREA-TAB              PICTURE XXXX OCCURS 16 TIMES.       CL**2
00056  01  VAL-QUOTE.                                                      CL**2
00057      03  FILLER                  PICTURE X  VALUE QUOTE.             CL**2
00058      03  VAL-HOLD.                                                   CL**2
00059          05  H-VAL               PICTURE X OCCURS 25 TIMES.          CL**2
00060  01  BEGINNING-MESSAGES.                                             CL**2
00061      03  COMMENT1.                                                   CL**2
00062          05  DSNAME-COMMENT      PICTURE X(32).                      CL**2
00063          05  FILLER              PICTURE X(29) VALUE                 CL**2
00064             "DEFINITION GENERATED FROM DC2".                         CL**2
00065      03  COMMENT2.                                                   CL**2
00066          05  FILLER                  PICTURE X(20) VALUE             CL**2
00067             "DATE OF GENERATION: ".                                  CL**2
00068          05  DATE-TODAY              PICTURE X(10).                  CL**2
00069      03  COMMENT3.                                                   CL**2
00070          05  FILLER              PICTURE X(29) VALUE                 CL**2
00071             "MASTER FILE REVISION NUMBER= ".                         CL**2
00072          05  REV-TODAY           PICTURE ZZZZ9.                      CL**2
00073      03  COMMENT4.                                                   CL**2
00074          05  FILLER              PICTURE X(23) VALUE                 CL**2
00075             "DATE OF LAST REVISION= ".                               CL**2
00076          05  REV-NO-LAST         PICTURE X(40).                      CL**2
00077      03  COMMENT5.                                                   CL**2
00078          05  FILLER              PICTURE X(27) VALUE                 CL**2
             "BEGIN-DATA-BASE-GENERATION ". 
00080      03  COMMENT6.                                                   CL**2
00081          05  FILLER              PICTURE X(15) VALUE                 CL**2
00082             "DATA-BASE-NAME=".                                       CL**2
00083          05  NAME1               PICTURE X(8).                       CL**2
00084      03  COMMENT7.                                                   CL**2
00085          05  FILLER              PICTURE X(7) VALUE                  CL**2
00086             "DEVICE=".                                               CL**2
00087          05  DEVICE-TYPE         PICTURE X(7).                       CL**2
00088      03  COMMENT8.                                                   CL**2
00089          05  FILLER              PICTURE X(7) VALUE                  CL**2
00090             "IOAREA=".                                               CL**2
00091          05  IO-NAME             PICTURE XXXX.                       CL**2
00092          05  SIGN-EQUAL          PICTURE X.                          CL**2
00093          05  IO-OCCUR            PICTURE XX.                         CL**2
00094      03  COMMENT9.                                                   CL**2
00095          05  FILLER              PICTURE X(22) VALUE                 CL**2
00096             "TOTAL-LOGICAL-RECORDS=".                                CL**2
00097          05  TOT-RECORDL         PICTURE X(7).                       CL**2
00098      03  COMMENT10.                                                  CL**2
00099          05  FILLER              PICTURE X(22) VALUE                 CL**2
             "BEGIN-MASTER-DATA-SET ".
00101      03  COMMENT11.                                                  CL**2
00102          05  FILLER              PICTURE X(14) VALUE                 CL**2
00103             "DATA-SET-NAME=".                                        CL**2
00104          05  NAME2               PICTURE XXXX.                       CL**2
00105      03  COMMENT12.                                                  CL**2
00106          05  FILLER              PICTURE X(30) VALUE                 CL**2
             "BEGIN-VARIABLE-ENTRY-DATA-SET ".
      *  COMMENT13 IS NO LONGER USED. 
      *  COMMENT14 NOW CONTAINS THE CDC 
      *  TOTAL OPTION FORMAT. 
           03  COMMENT14. 
               05  FILLER              PICTURE X(12) VALUE
                   "OPTIONS=LOG=".
               05  OPTION-LOG          PICTURE X(1).
               05  FILLER              PICTURE X(8) VALUE 
                   ",OUTPUT=".
               05  OPTION-OUT          PICTURE X(1).
00116      03  COMMENT15.                                                  CL**2
00117          05  FILLER              PICTURE X(7) VALUE                  CL**2
00118             "IOAREA=".                                               CL**2
00119          05  IO-NAME2            PICTURE XXXX.                       CL**2
00120      03  COMMENT16.                                                  CL**2
00121          05  IO-NAME3            PICTURE XXXX.                       CL**2
               05  FILLER              PICTURE X(7) VALUE 
                  "ROOT=10".
00124      03  COMMENT17.                                                  CL**2
00125          05  FILLER              PICTURE X VALUE ".".                CL**2
00126          05  LEVEL-REC           PICTURE 9.                          CL**2
00127          05  FILLER              PICTURE X VALUE ".".                CL**2
00128          05  COMM-CONTINUE.                                          CL**2
00129              07  REC-SUBNAME.                                        CL**2
00130                  09  SUBNAME1    PICTURE XXXX.                       CL**2
00131                  09  SUBNAME2    PICTURE XXXX.                       CL**2
00132              07  EQUAL-SIGN      PICTURE X.                          CL**2
                   07  SUBLENGTH       PICTURE X(10). 
00134      03  COMMENT18.                                                  CL**2
00135          05  FILLER              PICTURE X VALUE ".".                CL**2
00136          05  LEVEL-REC2          PICTURE 99.                         CL**2
00137          05  FILLER              PICTURE X VALUE ".".                CL**2
00138          05  COMM-CONTINUE2.                                         CL**2
00139              07  REC-SUBNAME2.                                       CL**2
00140                  09  SUBNAME3    PICTURE XXXX.                       CL**2
00141                  09  SUBNAME4    PICTURE XXXX.                       CL**2
00142              07  EQUAL-SIGN2     PICTURE X.                          CL**2
                   07  SUBLENGTH2      PICTURE X(10). 
00144      03  COMMENT19.                                                  CL**2
00145          05  NAME4               PICTURE XXXX.                       CL**2
00146          05  FILLER              PICTURE X(6) VALUE                  CL**2
00147             "CODE=2".                                                CL**2
00148      03  COMMENT20.                                                  CL**2
00149          05  M-NAME              PICTURE XXXX.                       CL**2
00150          05  FILLER              PICTURE XX VALUE "LK".              CL**2
00151          05  X-NAME              PICTURE XX.                         CL**2
               05  FILLER              PICTURE XXX VALUE "=10". 
               05  EQ2                 PIC X. 
               05  K-NAME              PIC X(8).
00153      03  COMMENT21.                                                  CL**2
00154          05  FILLER              PICTURE X(13) VALUE                 CL**2
00155             "TOTAL-TRACKS=".                                         CL**2
00156          05  TRACK-TOTAL         PICTURE X(5).                       CL**2
00157      03  COMMENT22.                                                  CL**2
           05 FILLER       PICTURE X(22) VALUE
              "LOGICAL-RECORD-LENGTH=". 
00160          05  LENGTH-RECORD       PICTURE X(5).                       CL**2
00161      03  COMMENT23.                                                  CL**2
               05 FILLER PICTURE X(26) VALUE
                  "LOGICAL-RECORDS-PER-BLOCK=". 
00164          05  TRACK-BLOCKS        PICTURE X(5).                       CL**2
00165      03  COMMENT24.                                                  CL**2
00166          05  FILLER              PICTURE X(13) VALUE                 CL**2
00167             "DISK-EXTENTS=".                                         CL**2
00168          05  EXTENT-DISK         PICTURE XX.                         CL**2
00169      03  COMMENT25.                                                  CL**2
00170          05  FILLER              PICTURE X(12) VALUE                 CL**2
00171             "RECORD-CODE=".                                          CL**2
00172          05  NAME10              PICTURE XX.                         CL**2
00173      03  COMMENT26.                                                  CL**2
               05  FILLER              PIC X(11) VALUE
                   "LOAD-LIMIT=". 
00176          05  LOAD-SET-ENV        PICTURE XX.                         CL**2
00177      03  COMMENT27               PICTURE X(28) VALUE                 CL**2
                  "END-VARIABLE-ENTRY-DATA-SET ". 
00179  01  ERROR-LINE.                                                     CL**2
00180      03  FILLER                  PICTURE X(10) VALUE SPACE.          CL**2
00181      03  ERROR-MSSG-AREA.                                            CL**2
00182          05  FILLER              PICTURE X(6) VALUE "DCGEN-".        CL**2
00183          05  ERROR-MSSG-NUM       PICTURE X(6).                      CL**2
00184      05  FILLER                  PICTURE X(9) VALUE " * ERROR ".     CL**2
00185          05  ERROR-MSSG-TYPE.                                        CL**2
00186              07  ERROR-CAT-NAME  PICTURE X(32).                      CL**2
00187              07  FILLER          PICTURE X.                          CL**2
00188              07  MSSG-TYPE       PICTURE X(42).                      CL**2
00189          05  DEFAULT-AREA REDEFINES ERROR-MSSG-TYPE.                 CL**2
00190              07  DEFAULT-MSSG    PICTURE X(75).                      CL**2
00191          05  INFORM-AREA REDEFINES ERROR-MSSG-TYPE.                  CL**2
00192              07  INFORM-MSSG     PICTURE X(43).                      CL**2
00193              07  ERROR-NAMED     PICTURE X(32).                      CL**2
00194      03  FILLER                  PICTURE X(26) VALUE SPACES.         CL**2
00195  01  ERROR-STATEMENTS.                                               CL**2
00196      03  NO-LENGTH-MSSG          PICTURE X(45) VALUE                 CL**2
           "GROUP-LENGTH CAN NOT BE CALCULATED".
00198      03  LINKAGE-MSSG            PICTURE X(41) VALUE                 CL**2
00199         "LINKAGE PATH NOT PRESENT IN RECORD ENTITY".                 CL**2
00200      03  ENVIRON-MSSG            PICTURE X(45) VALUE                 CL**2
00201         "ENVIRONMENT CATEGORY MISSING IN DATASET ENTRY".             CL**2
00202      03  KEY-CODE-MSSG           PICTURE X(41) VALUE                 CL**2
00203         "HAS UNRECOGNIZABLE KEY FIELD IN STRUCTURE".                 CL**2
00204      03  NO-STC-MSSG             PICTURE X(16)                       CL**2
00205          VALUE "HAS NO STRUCTURE".                                   CL**2
00206      03  BAD-ENTITY-MSSG         PICTURE X(32)                       CL**2
00207          VALUE "IS NOT A GROUP OR ELEMENT ENTITY".                   CL**2
00208      03  NO-DATA-MSSG            PICTURE X(14)                       CL**2
00209          VALUE "HAS NO DATA   ".                                     CL**2
00210      03  BAD-DATA-MSSG           PICTURE X(22)                       CL**2
00211          VALUE "IS NOT A RECORD ENTITY".                             CL**2
00212      03  PICTURE-DEFAULT-MSSG    PICTURE X(46)                       CL**2
00213          VALUE "DEFAULT VALUES USED TO CREATE DEFINITION BELOW".     CL**2
00214      03  GROUP-LIMIT-MSSG        PICTURE X(25)                       CL**2
00215          VALUE "GROUP LEVEL EXCEEDS LIMIT".                          CL**2
00216      03  INITIAL-DEFAULT-MSSG    PICTURE X(32)                       CL**2
00217          VALUE "INITIAL VALUE INVALID FOR FORMAT".                   CL**2
00218      03  LENGTH-MSSG2            PICTURE X(25)                       CL**2
00219          VALUE "LENGTH INVALID FOR FORMAT".                          CL**2
00220      03  FORMAT-MSSG2            PICTURE X(46)                       CL**2
00221          VALUE "DEFAULT FORMAT USED TO CREATE DEFINITION BELOW".     CL**2
00222      03  FORMAT-INFORM           PICTURE X(29)                       CL**2
00223          VALUE "DEFINITION NOT GENERATED FOR ".                      CL**2
00224      03  IO-MESSAGE              PICTURE X(42) VALUE                 CL**2
00225         "NO IOAREA FIELD DEFINED FOR DATABASE ENTRY".                CL**2
00226      03  PRI-MESSAGE             PICTURE X(37) VALUE                 CL**2
00227         "IOAREA NAME ILLEGALLY BEGINS WITH-PRI".                     CL**2
00228      03  COPY-MSSG               PICTURE X(34) VALUE                 CL**2
00229         "DUPLICATE IOAREA NAMES NOT ALLOWED".                        CL**2
00230      03  MISS-MSSG               PICTURE X(18) VALUE                 CL**2
00231         "IOAREA NOT DEFINED".                                        CL**2
00232      03  PRIVATE-MSSG            PICTURE X(24) VALUE                 CL**2
00233         "PRIVATE IOAREA GENERATED".                                  CL**2
00234      03  NAME-MASK               PICTURE X(28) VALUE                 CL**2
00235         "DC2 GENERATED THE NAME BELOW".                              CL**2
           03  BLANK-CATNAME-MSSG.
             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). 
           03  BLANK-LKFIELD-MSSG.
               05  FILLER              PIC X(32) VALUE
             "BLANK LKFIELD IN STRUCTURE LINE". 
               05  BLANK-LINE-NO       PIC X(4).
               05  FILLER              PIC X(4) VALUE 
               " OF ".
               05  BLANK-CATNAME       PIC X(32). 
00236      03  HOLD-LINE               PICTURE X(80).                      CL**2
00237      03  LINE-HOLD REDEFINES HOLD-LINE.                              CL**2
00238          05  HOLD-AREA           PICTURE X OCCURS 80 TIMES.          CL**2
