*COMDECK  GEN10BAL
00001 *****************************************************             04/24/78
00002 *                                                                 GEN10BAL
00003 *      WORK AREA ECT FOR GROUP LEVEL GEN-LANG IND                    LV002
00004 *                                                                 GEN10BAL
00005 ****************************************************              GEN10BAL
00006 *****************************************************************    CL**2
00007 *     GROUP SAVE AREAS.                                              CL**2
00008 *          THE TABLE BELOW IS USED TO SAVE ATTRIBUTES                CL**2
00009 *          AND STRUCTURE LINE POSITION FOR ALL GROUPS                CL**2
00010 *          IN A HIERARCHY.                                           CL**2
00011 *****************************************************************    CL**2
00012  01  GROUP-SAVE-AREAS.                                               CL**2
00013      03  GROUP-SAVE-AREA         OCCURS 15 TIMES.                    CL**2
00014          05  GROUP-ENTRY-NAME    PICTURE X(32).                      CL**2
00015          05  GROUP-STC-LINE      PICTURE XXXX.                       CL**2
               05  GROUP-LENGTH        PICTURE X(10). 
               05  GROUP-FORMAT        PICTURE X(03). 
00018          05  GROUP-PICTURE       PICTURE X(25).                      CL**2
00019          05  GROUP-JUST          PICTURE X.                          CL**2
00020          05  GROUP-SYNC          PICTURE X.                          CL**2
00021          05  GROUP-REDEFINES         PICTURE X(32).                  CL**2
               05  GROUP-OCCUR         PICTURE 9(04). 
00023          05  GROUP-COUNT         PICTURE 999.                        CL**2
00024  01  TABLE-SAVE-GROUP.                                               CL**2
00025      03  TABLE-SAVE-AREA         OCCURS 15 TIMES.                    CL**2
00026          05  TABLE-ENTRY-NAME    PICTURE X(32).                      CL**2
00027          05  TABLE-STC-LINE      PICTURE X(4).                       CL**2
               05  TABLE-LENGTH        PICTURE X(10). 
               05  TABLE-FORMAT        PICTURE X(03). 
00030          05  TABLE-PICTURE       PICTURE X(25).                      CL**2
00031          05  TABLE-JUST          PICTURE X.                          CL**2
00032          05  TABLE-SYNC          PICTURE X.                          CL**2
00033          05  TABLE-REDEFINES     PICTURE X(32).                      CL**2
               05  TABLE-OCCUR         PICTURE 9(04). 
00035          05  TABLE-COUNT         PICTURE 999.                        CL**2
00036 *****************************************************************    CL**2
00037 *     SAVE AREA FOR GROUP STRUCTURE                                  CL**2
00038 *****************************************************************    CL**2
00039      03  SAVE-GRP-STC-CAT.                                           CL**2
               05  SAVE-GRP-STC-A.
                   07  SAVE-GRP-STC-CNAME        PICTURE X(32). 
                   07  SAVE-GRP-STC-ALY-NO       PICTURE X(4).
                   07  SAVE-GRP-STC-FILL-LEN     PICTURE X(4).
                   07  SAVE-GRP-STC-REDEFINES    PICTURE X(32). 
                   07  SAVE-GRP-STC-REDEF-ALIAS  PICTURE X(4).
           03  SAVE-GRP-STC-CAT-BLINE REDEFINES SAVE-GRP-STC-CAT. 
               05  SAVE-GRP-STC-TKEY-BLINE PIC X. 
               05  SAVE-GRP-STC-LINKPATH-BLINE PIC X(6).
               05  SAVE-GRP-STC-VARLEN-BLINE PIC X(5).
               05  SAVE-GRP-STC-LKFIELD-BLINE PIC X(32).
               05  SAVE-GRP-STC-LKALIAS-BLINE PIC X(4). 
               05  FILLER              PIC X(99). 
               05  SAVE-GRP-STC-O.
                   07  SAVE-GRP-STC-OCC-FROM     PICTURE X(4).
                   07  SAVE-GRP-STC-OCC-TO       PICTURE X(4).
                   07  FILLER                    PICTURE X(28). 
                   07  SAVE-GRP-STC-TO-ALIAS     PICTURE X(4).
                   07  SAVE-GRP-STC-DEPEND       PICTURE X(32). 
                   07  SAVE-GRP-STC-DEP-ALIAS    PICTURE X(4).
00052 *****************************************************************    CL**2
00053 *     SAVE AREA FOR GROUP ATTRIBUTES                                 CL**2
00054 ******************************************************************   CL**2
00055      03  SAVE-GRP-ATTR-CAT.                                          CL**2
               05  SAVE-GRP-ATTR-LENGTH        PICTURE X(10). 
               05  SAVE-GRP-ATTR-FORMAT        PICTURE X(3).
00058          05  SAVE-GRP-ATTR-PICTURE       PICTURE X(25).              CL**2
00059          05  SAVE-GRP-ATTR-JUST          PICTURE X.                  CL**2
00060          05  SAVE-GRP-ATTR-SYNC          PICTURE X.                  CL**2
00061          05  SAVE-GRP-ATTR-REDEFINES PICTURE X(32).                  CL**2
               05  SAVE-GRP-ATTR-OCCURB        PICTURE X(4).
00063          05  SAVE-GRP-ATTR-OCCUR REDEFINES SAVE-GRP-ATTR-OCCURB      CL**2
                                               PICTURE 9(4).
00065 *****************************************************************    CL**2
00066 *     HOLD AREA FOR STRUCTURE                                        CL**2
00067 *     UNTIL TYPE OF ENTRY CAN BE DETERMINED                          CL**2
00068 *****************************************************************    CL**2
00069      03  SAVE-STC                PICTURE X(147).                     CL**2
00070 *****************************************************************    CL**2
00071 *     SAVE AREA FOR GROUP NAMES CATEGORY                             CL**2
00072 *****************************************************************    CL**2
00073      03  SAVE-GRP-NAME-CAT.                                          CL**2
00074          05  SAVE-GRP-DATA-NAME  PICTURE X(32).                      CL**2
00075          05  SAVE-GRP-IDENTIFIER PICTURE X(31).                      CL**2
00076          05  SAVE-GRP-SYMBOL     PICTURE X(8).                       CL**2
00077          05  SAVE-GRP-DBMS       PICTURE X(8).                       CL**2
00078 *****************************************************************    CL**2
00079 *     INFORMATION NEEDED FOR RETURN KEY                              CL**2
00080 *****************************************************************    CL**2
00081      03  GEN10-SAVE-SEARCH.                                          CL**2
00082          05  GEN10-DATA-ENTRY-TYPE       PICTURE XX.                 CL**2
00083          05  GEN10-DATA-ENTRY-CAT        PICTURE XXX.                CL**2
00084          05  GEN10-DATA-ENTRY-LINE       PICTURE XXXX.               CL**2
00085          05  GEN10-DATA-ENTRY-NAME       PICTURE X(32).              CL**2
00086          05  GEN10-DATA-ENTRY-FUNCTION   PICTURE X.                  CL**2
00087 *****************************************************************    CL**2
00088 *     WORK AREAS                                                     CL**2
00089 *****************************************************************    CL**2
00090  01  GEN10-WORK-AREAS.                                               CL**2
00091      03  GEN-GROUP-NAME          PICTURE X(32).                      CL**2
00092      03  IN-GROUP-SW             PICTURE X.                          CL**2
00093      03  GROUP-DATA-NAME         PICTURE X(32).                      CL**2
