*COMDECK  GEN20PLC
00001  01  GEN20-ARG-LIST.                                              11/01/78
00002     03  GEN20-ALIAS-FILE        PICTURE X(32).                    GEN20PLC
00003      03  GEN20-SAVE-SEARCH.                                          LV002
00004          05  SAVE-DATA-ENTRY-TYPE          PICTURE XX.            GEN20PLC
00005          05  SAVE-DATA-ENTRY-CATEGORY      PICTURE XXX.           GEN20PLC
00006          05 SAVE-DATA-ENTRY-LINE PICTURE XXXX.                       CL**2
00007          05  SAVE-DATA-ENTRY-NAME          PICTURE X(32).         GEN20PLC
00008          05  SAVE-DATA-ENTRY-FUNCTION      PICTURE X.             GEN20PLC
00009      03  SAVE-CAT-WORK-AREAS.                                        CL**2
00010          10  SAVE-ATTR-FILE-RECSIZE    PICTURE X(5).                 CL**2
00011          10  SAVE-ATTR-FILE-BLKSIZE    PICTURE X(5).                 CL**2
00012          10  SAVE-ATTR-FILE-RECFM PICTURE X(4).                      CL**2
00013          10  SAVE-ATTR-FILE-DSORG PICTURE XXX.                       CL**2
00014          10  SAVE-ATTR-FILE-LABEL PICTURE XXX.                       CL**2
00015 ******************************************************************   CL**2
00016 *     SAVE AREA FOR TOTAL DATABASE RETURNING                         CL**2
00017 ******************************************************************   CL**2
00018      03  GEN32-SAVE-SEARCH.                                          CL**2
00019          05  GEN32-DATA-ENTRY-TYPE        PICTURE XX.                CL**2
00020          05  GEN32-DATA-ENTRY-CAT        PICTURE XXX.                CL**2
00021          05  GEN32-DATA-ENTRY-LINE       PICTURE XXXX.               CL**2
00022          05  GEN32-DATA-ENTRY-NAME       PICTURE X(32).              CL**2
00023          05  GEN32-DATA-ENTRY-FUNCTION   PICTURE X.                  CL**2
00024 *                                                                    CL**2
00025 *    HOLD AREA FOR COBOL CARD IMAGES                                 CL**2
00026 *                                                                    CL**2
00027  01  HOLD-CARD-IMAGE.                                                CL**2
00028      03  FILLER                  PICTURE X(40).                      CL**2
00029      03  LIKE-NAME.                                                  CL**2
00030          05  PICTURE-NAME        PICTURE X(4).                       CL**2
00031          05  QUOTE-VAL2          PICTURE X.                          CL**2
00032          05  PICTURE-VAL-HI      PICTURE X(26).                      CL**2
00033      03  FILLER                   PICTURE X.                         CL**2
00034      03  PLC-IDEN                 PICTURE X(8).                      CL**2
