*COMDECK  GEN05BAL
00001 ****************************************************              04/24/78
00002 *                                                                 GEN05BAL
00003 *       WORK AREAS ECT. FOR ELEMENT LEVEL GEN-LAN IND                LV002
00004 *                                                                 GEN05BAL
00005 ****************************************************              GEN05BAL
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. 
00025          05  ELE-LENGTHA  REDEFINES  ELE-LENGTH                      CL**2
                                       PICTURE 9 OCCURS 10 TIMES. 
00027          05  ELE-LENGTHC REDEFINES ELE-LENGTH                        CL**2
                                       PICTURE X(10). 
00029          05  ELE-LENGTHB  REDEFINES  ELE-LENGTH                      CL**2
                                       PICTURE 9(10). 
               05  ELE-FORMAT          PICTURE X(3).
00032          05  ELE-JUST            PICTURE X.                          CL**2
00033          05  ELE-SYNC            PICTURE X.                          CL**2
00034          05  ELE-VOLATILE        PICTURE X.                          CL**2
00035          05  ELE-NATURE          PICTURE X(8).                       CL**2
00036          05  ELE-MEASURE         PICTURE X(8).                       CL**2
00037          05  ELE-PIC             PICTURE X(25).                      CL**2
00038          05  ELE-INT-VALUE       PICTURE X(25).                      CL**2
00039 *****************************************************************    CL**2
00040 *     ELEMENT SAVE AREA FOR STRUCTURE                                CL**2
00041 ******************************************************************   CL**2
00042      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).
           03  SAVE-ELE-STC-CAT-BLINE REDEFINES SAVE-ELE-STC-CAT. 
               05  SAVE-ELE-STC-TKEY-BLINE PIC X. 
               05  SAVE-ELE-STC-LINKPATH-BLINE PIC X(6).
               05  SAVE-ELE-STC-VARLEN-BLINE PIC X(5).
               05  SAVE-ELE-STC-LKFIELD-BLINE PIC X(32).
               05  SAVE-ELE-STC-LKALIAS-BLINE PIC X(4). 
               05  FILLER              PIC X(99). 
           03  SAVE-ELE-STC-CLINE REDEFINES SAVE-ELE-STC-CAT. 
               05  SAVE-ELE-STC-COMPNAME-CLINE PIC X(32). 
               05  SAVE-ELE-STC-RCCODE-CLINE PIC X(2).
               05  SAVE-ELE-STC-CPA-CLINE PIC X(4). 
               05  FILLER              PIC X(109).
               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).
00055 *****************************************************************    CL**2
00056 *     SAVE INFORMATION FOR RETURN KEY                                CL**2
00057 ******************************************************************   CL**2
00058      03  GEN05-SAVE-SEARCH.                                          CL**2
00059          05  GEN05-DATA-ENTRY-TYPE   PICTURE XX.                     CL**2
00060      05  GEN05-DATA-ENTRY-CAT        PICTURE XXX.                    CL**2
00061      05  GEN05-DATA-ENTRY-LINE       PICTURE XXXX.                   CL**2
00062          05  GEN05-DATA-ENTRY-NAME   PICTURE X(32).                  CL**2
00063          05  GEN05-DATA-ENTRY-FUNCTION   PICTURE X.                  CL**2
00064 *****************************************************************    CL**2
00065 *     GEN05 WORK AREAS                                               CL**2
00066 *****************************************************************    CL**2
00067      03  GEN05-ALIAS-ELEMENT     PICTURE X(32).                      CL**2
00068      03  GEN-ELEMENT-NAME        PICTURE X(32).                      CL**2
00069      03  GEN-LINE-HOLD           PICTURE X(4).                       CL**2
