*COMDECK  ENTSAVE 
00001                                                                    ENTSAVE
00002 *****  SAVE AREA FOR ENTRY TYPE MATCH, FILE RETURN - ENTSAVE ***  ENTSAVE 
00003 ******************************************************************   LV001
00004 *    MATCH ENTRY TYPE WORK AREAS                                 *ENTSAVE 
00005 ******************************************************************ENTSAVE 
00006      02  SAVE-ENTRY-TYPE.                                            CL**2
00007      03  ENTRY-MATCH.                                             ENTSAVE 
00008          05  ENTRY-TYPE-1        PICTURE XX.                      ENTSAVE 
00009          05  ENTRY-TYPE-2        PICTURE XX.                      ENTSAVE 
00010          05  ENTRY-TYPE-MATCH    PICTURE X.                          CL**2
00011 *    WORK AREAS FOR STRUCTURE EXPLOSION                          *ENTSAVE 
00012      03  HOLD-KEY-AREA.                                           ENTSAVE 
00013          05  KEY-AREA        OCCURS  30 TIMES.                    ENTSAVE 
00014              07  KEY-NAME        PICTURE X(32).                   ENTSAVE 
00015              07  KEY-CATEGORY  PICTURE XXX.                          CL**2
00016              07  KEY-LINE        PICTURE XXXX.                    ENTSAVE 
00017          05  KEY-CNT             PICTURE 999.                     ENTSAVE 
00018 ******************************************************************ENTSAVE 
00019 *    SAVE AREAS FOR FILE RETURNING                               *ENTSAVE 
00020 ******************************************************************ENTSAVE 
00021      03  SAVE-NAME               PICTURE X(32).                   ENTSAVE 
00022      03  SAVE-CAT                PICTURE XXX.                     ENTSAVE 
00023      03  SAVE-LINE-NO            PICTURE 9999.                    ENTSAVE 
00024      03  HOLD-PUSE               PICTURE X.                          CL**2
