*COMDECK  GEN15DAT
00001 ***************************************************               10/25/77
00002 *                                                                 GEN15DAT
00003 *     WORK AREAS ECT. FOR RECORD LEVEL GEN-LANG IND                  LV001
00004 *                                                                 GEN15DAT
00005 ****************************************************              GEN15DAT
       01  HOLD-CPALIAS                PIC X(4).
       01  ERROR-FLG                   PIC X. 
00006  01  GEN15-SAVE-SEARCH.                                              CL**2
00007      03  GEN15-DATA-ENTRY-TYPE   PICTURE XX.                         CL**2
00008      03  GEN15-DATA-ENTRY-CAT    PICTURE XXX.                        CL**2
00009      03  GEN15-DATA-ENTRY-LINE   PICTURE XXXX.                       CL**2
00010      03  GEN15-DATA-ENTRY-NAME   PICTURE X(32).                      CL**2
00011      03  GEN15-DATA-ENTRY-FUNCTION PICTURE X.                        CL**2
