*COMDECK  GEN05DAT
00001 ****************************************************              07/20/78
00002 *                                                                 GEN05DAT
00003 *       WORK AREAS ECT. FOR ELEMENT LEVEL GEN-LAN IND                LV001
00004 *                                                                 GEN05DAT
00005 ****************************************************              GEN05DAT
00006 *     WORK AREA FOR ELEMENT ATTRIBUTES                               CL**2
00007 *****************************************************************    CL**2
00008  01  ELEMENT-SAVE-AREAS.                                             CL**2
00009      03  SAVE-CAT-WORK-AREAS.                                        CL**2
               05  SAVE-ATTR-LENGTH    PICTURE X(10). 
               05  SAVE-ATTR-FORMAT    PICTURE X(3).
00012          05  SAVE-ATTR-JUST      PICTURE X.                          CL**2
00013          05  SAVE-ATTR-SYNC      PICTURE X.                          CL**2
00014          05  SAVE-ATTR-VOLATILE  PICTURE X.                          CL**2
00015          05  SAVE-ATTR-NATURE    PICTURE X(8).                       CL**2
00016          05  SAVE-ATTR-MEASURE   PICTURE X(8).                       CL**2
00017          05  SAVE-ATTR-PIC       PICTURE X(25).                      CL**2
00018          05  SAVE-ATTR-INT-VALUE PICTURE X(25).                      CL**2
00019 ******************************************************************   CL**2
00020 *     FINAL HOLD AREA FOR ELEMENT ATTRIBUTES                         CL**2
00021 *****************************************************************    CL**2
00022      03  ELE-DATA-NAME           PICTURE X(32).                      CL**2
00023      03  ELEMENT-ATTRIBUTES.                                         CL**2
               05  ELE-LENGTH          PICTURE Z(9)9. 
               05  ELE-FORMAT          PICTURE X(3).
00026          05  ELE-JUST            PICTURE X.                          CL**2
00027          05  ELE-SYNC            PICTURE X.                          CL**2
00028          05  ELE-VOLATILE        PICTURE X.                          CL**2
00029          05  ELE-NATURE          PICTURE X(8).                       CL**2
00030          05  ELE-MEASURE         PICTURE X(8).                       CL**2
00031          05  ELE-PIC             PICTURE X(25).                      CL**2
00032          05  ELE-INT-VALUE       PICTURE X(25).                      CL**2
00033          05  ELE-ATTR-LAST       PICTURE 9999.                       CL**2
00034          05  ELE-ALIAS-CODE      PICTURE X.                          CL**2
00035 *****************************************************************    CL**2
00036 *     ELEMENT SAVE AREA FOR STRUCTURE                                CL**2
00037 ******************************************************************   CL**2
00038      03  SAVE-ELE-STC-CAT.                                           CL**2
               05  SAVE-ELE-STC-A.
                   07  SAVE-ELE-STC-CNAME        PICTURE X(32). 
                   07  SAVE-ELE-STC-ALY-NO       PICTURE X(4).
                   07  SAVE-ELE-STC-FILL-LEN     PICTURE X(4).
                   07  SAVE-ELE-STC-REDEFINES    PICTURE X(32). 
                   07  SAVE-ELE-STC-REDEF-ALIAS  PICTURE X(4).
               05  SAVE-ELE-STC-O.
                   07  SAVE-ELE-STC-OCC-FROM     PICTURE X(4).
                   07  SAVE-ELE-STC-OCC-TO       PICTURE X(4).
                   07  FILLER                    PICTURE X(28). 
                   07  SAVE-ELE-STC-TO-ALIAS     PICTURE X(4).
                   07  SAVE-ELE-STC-DEPEND       PICTURE X(32). 
                   07  SAVE-ELE-STC-DEP-ALIAS    PICTURE X(4).
               05  SAVE-ELE-STC-INDEX            PICTURE X(32). 
               05  SAVE-ELE-STC-K.
                   07  SAVE-ELE-STC-OCC-KEY      PICTURE X(32). 
                   07  SAVE-ELE-STC-OCC-KALIAS   PICTURE X(4).
                   07  SAVE-ELE-STC-OCC-KORDER   PICTURE X. 
00051 *****************************************************************    CL**2
00052 *     SAVE INFORMATION FOR RETURN KEY                                CL**2
00053 ******************************************************************   CL**2
00054      03  GEN05-SAVE-SEARCH.                                          CL**2
00055          05  GEN05-DATA-ENTRY-TYPE   PICTURE XX.                     CL**2
00056      05  GEN05-DATA-ENTRY-CAT        PICTURE XXX.                    CL**2
00057      05  GEN05-DATA-ENTRY-LINE       PICTURE XXXX.                   CL**2
00058          05  GEN05-DATA-ENTRY-NAME   PICTURE X(32).                  CL**2
00059          05  GEN05-DATA-ENTRY-FUNCTION   PICTURE X.                  CL**2
00060 *****************************************************************    CL**2
00061 *     GEN05 WORK AREAS                                               CL**2
00062 *****************************************************************    CL**2
00063      03  GEN05-ALIAS-ELEMENT     PICTURE X(32).                      CL**2
00064      03  GEN-ELEMENT-NAME        PICTURE X(32).                      CL**2
00065      03  GEN-LINE-HOLD           PICTURE X(4).                       CL**2
