*COMDECK  BAL15DAT
00001  01  FILE-SAVE-AREAS.                                             07/11/78
00002      05  NAME-CAT-NO             PICTURE XXX VALUE "200".         BAL15DAT
00003      05  ATTR-CAT-NO             PICTURE XXX VALUE "210".            LV002
00004      05  ALIAS-CAT-NO            PICTURE XXX VALUE "211".            CL**2
00005      05  IO-CAT-NO               PICTURE XXX VALUE "215".            CL**2
00006      05  ENV-CAT-NO              PICTURE XXX VALUE "245".            CL**2
00007      05  STC-CAT-NO              PICTURE XXX VALUE "300".            CL**2
00008      05  OTHER-CAT-NO            PICTURE XXX VALUE "900".            CL**2
00009      05  FILE-TYPE               PICTURE 99.                      BAL15DAT
00010      05  RECORD-TYPE             PICTURE 99.                      BAL15DAT
00011 *                                                                    CL**2
00012 *    WORK AREA FOR BAL OPERAND                                       CL**2
00013 *                                                                    CL**2
00014      05  FILLER-AREA.                                                CL**2
00015          07  NUM-A               PICTURE X.                          CL**2
00016          07  FILLER-A            PICTURE X.                          CL**2
00017          07  FILLER-L            PICTURE X.                          CL**2
00018          07  FILLER-NUM          PICTURE X(6).                       CL**2
00019      05  FILLER-AREA-B REDEFINES FILLER-AREA.                        CL**2
00020          07  LETTER-C                PICTURE X.                      CL**2
00021          07  LETTER-L            PICTURE X.                          CL**2
00022          07  FILLER-NUM-B.                                           CL**2
00023              09  NUMBER-A            PICTURE X.                      CL**2
00024              09  NUMBER-LEN          PICTURE X(6).                   CL**2
00025          07  FILLER-NUM-C  REDEFINES  FILLER-NUM-B.                  CL**2
00026              09  FILLER-OP       PICTURE X OCCURS 7 TIMES.           CL**2
00027 *                                                                    CL**2
00028 *    CONSTANT VALUES IN GENERATION                                   CL**2
00029 *                                                                    CL**2
00030      05  EQUKW                   PICTURE XXX VALUE "EQU".            CL**2
00031      05  DSECTKW                 PICTURE X(5) VALUE "DSECT".         CL**2
00032      05  FILLERKW                PICTURE X(7) VALUE "FILLER ".    BAL15DAT
00033      05  REDEFKW                 PICTURE X(10) VALUE "REDEFINES ".   CL**2
00034      05  OCCURKW1                PICTURE X(7) VALUE "OCCURS ".       CL**2
00035      05  OCCURKW2                PICTURE X(5) VALUE "FROM ".         CL**2
00036      05  OCCURKW3                PICTURE X(4) VALUE " TO ".          CL**2
00037      05  ORGKW                   PICTURE XXX VALUE "ORG".            CL**2
00038      05  SAVE-GROUP-NAMEA            PICTURE X(32).                  CL**2
00039      05  FLOATFORMAT             PICTURE X    VALUE "F".          BAL15DAT
00040      05  CHARFORMAT              PICTURE X    VALUE "C".          BAL15DAT
00041      05  BINARYFORMAT            PICTURE X    VALUE "B".          BAL15DAT
00042      05  LEVEL-SUB               PICTURE 99  COMP SYNC.           BAL15DAT
00043      05  LEVEL-SUB-MAX           PICTURE 99  COMP SYNC VALUE 16.  BAL15DAT
00044      05  DESC-INDICATOR          PICTURE X   VALUE "*".           BAL15DAT
00045      05  ONCOND                  PICTURE X   VALUE "Y".           BAL15DAT
00046      05  OFFCOND                 PICTURE X   VALUE "N".           BAL15DAT
