*COMDECK  RELSAVE 
00001 ***** RELSAVE- SAVE AREAS FOR RELATIONAL FILE EXPLOSION           08/17/77
00002 *                                                                 RELSAVE 
00003 ***************************************************************      LV001
00004 *                                                                 RELSAVE 
00005 *    MATCH ENTRY TYPE WORK AREAS                                  RELSAVE 
00006 *                                                                 RELSAVE 
00007      03  ENTRY-MATCH.                                             RELSAVE 
00008          05  ENTRY-TYPE-1        PICTURE XX.                      RELSAVE 
00009          05  ENTRY-TYPE-2        PICTURE XX.                      RELSAVE 
00010          05  ENTRY-TYPE-MATCH    PICTURE X.                       RELSAVE 
00011 *                                                                 RELSAVE 
00012 *    WORK AREAS FOR USAGE EXPLOSION                               RELSAVE 
00013 *                                                                 RELSAVE 
00014      03  HOLD-KEY-AREA.                                           RELSAVE 
00015          05  KEY-AREA OCCURS 30 TIMES.                            RELSAVE 
00016              07  KEY-ENTRY-NAME PICTURE X(32).                    RELSAVE 
00017              07  KEY-POINTER-NAME PICTURE X(32).                  RELSAVE 
00018              07  KEY-NEXT-REC    PICTURE 9999.                    RELSAVE 
00019          05  KEY-CNT             PICTURE 999.                     RELSAVE 
00020 *                                                                 RELSAVE 
00021 *    SAVE AREAS FOR REL FILE RETURNING                            RELSAVE 
00022 *                                                                 RELSAVE 
00023      03  ENTRY-NAME-SAVE         PICTURE X(32).                   RELSAVE 
00024      03  POINTER-NAME-SAVE       PICTURE X(32).                   RELSAVE 
00025      03  NEXT-REC-SAVE           PICTURE 9999.                    RELSAVE 
