*COMDECK  GEN10DAT
00001 *****************************************************             04/05/78
00002 *                                                                 GEN10DAT
00003 *      WORK AREA ECT FOR GROUP LEVEL GEN-LANG IND                    LV001
00004 *                                                                 GEN10DAT
00005 ****************************************************              GEN10DAT
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(3).
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 *****************************************************************    CL**2
00022 *     SAVE AREA FOR GROUP STRUCTURE                                  CL**2
00023 *****************************************************************    CL**2
00024      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).
               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).
               05  SAVE-GRP-STC-INDEX            PICTURE X(32). 
               05  SAVE-GRP-STC-K.
                   07  SAVE-GRP-STC-OCC-KEY      PICTURE X(32). 
                   07  SAVE-GRP-STC-OCC-KALIAS   PICTURE X(4).
                   07  SAVE-GRP-STC-OCC-KORDER   PICTURE X. 
00037 *****************************************************************    CL**2
00038 *     SAVE AREA FOR GROUP ATTRIBUTES                                 CL**2
00039 ******************************************************************   CL**2
00040      03  SAVE-GRP-ATTR-CAT.                                          CL**2
               05  SAVE-GRP-ATTR-LENGTH        PICTURE X(10). 
               05  SAVE-GRP-ATTR-FORMAT        PICTURE X(3).
00043          05  SAVE-GRP-ATTR-PICTURE       PICTURE X(25).              CL**2
00044          05  SAVE-GRP-ATTR-JUST          PICTURE X.                  CL**2
00045          05  SAVE-GRP-ATTR-SYNC          PICTURE X.                  CL**2
00046 *****************************************************************    CL**2
00047 *     HOLD AREA FOR STRUCTURE                                        CL**2
00048 *     UNTIL TYPE OF ENTRY CAN BE DETERMINED                          CL**2
00049 *****************************************************************    CL**2
00050      03  SAVE-STC                PICTURE X(147).                     CL**2
00051 *****************************************************************    CL**2
00052 *     SAVE AREA FOR GROUP NAMES CATEGORY                             CL**2
00053 *****************************************************************    CL**2
00054      03  SAVE-GRP-NAME-CAT.                                          CL**2
00055          05  SAVE-GRP-DATA-NAME  PICTURE X(32).                      CL**2
00056          05  SAVE-GRP-IDENTIFIER PICTURE X(31).                      CL**2
00057          05  SAVE-GRP-SYMBOL     PICTURE X(8).                       CL**2
00058          05  SAVE-GRP-DBMS       PICTURE X(8).                       CL**2
00059 *****************************************************************    CL**2
00060 *     INFORMATION NEEDED FOR RETURN KEY                              CL**2
00061 *****************************************************************    CL**2
00062      03  GEN10-SAVE-SEARCH.                                          CL**2
00063          05  GEN10-DATA-ENTRY-TYPE       PICTURE XX.                 CL**2
00064          05  GEN10-DATA-ENTRY-CAT        PICTURE XXX.                CL**2
00065          05  GEN10-DATA-ENTRY-LINE       PICTURE XXXX.               CL**2
00066          05  GEN10-DATA-ENTRY-NAME       PICTURE X(32).              CL**2
00067          05  GEN10-DATA-ENTRY-FUNCTION   PICTURE X.                  CL**2
00068 *****************************************************************    CL**2
00069 *     WORK AREAS                                                     CL**2
00070 *****************************************************************    CL**2
00071  01  GEN10-WORK-AREAS.                                               CL**2
00072      03  GEN-GROUP-NAME          PICTURE X(32).                      CL**2
00073      03  IN-GROUP-SW             PICTURE X.                          CL**2
00074      03  GROUP-DATA-NAME         PICTURE X(32).                      CL**2
