*COMDECK  GENTBL
00001 ******************************************************************09/27/78
00002 *                                                                *GENTBL
00003 *                                                                *   LV002
00004 *                                                                *GENTBL
00005 ******************************************************************GENTBL
00006  01  GEN-TABLE.                                                   GENTBL
00007      05  GTBL-HDR-ENT.                                            GENTBL
00008          10  GTBL-HDR-REQTYPE    PICTURE XX.                      GENTBL
00009          10  GTBL-HDR-RECNO      PICTURE 99.                      GENTBL
00010      05  GTBL-OPTIONS-ENT.                                        GENTBL
00012          10  GTBL-OPT-STARTSEQNO PICTURE 9(6).                    GENTBL
00013          10  GTBL-OPT-INCSEQNO   PICTURE 999.                     GENTBL
00014          10  GTBL-OPT-IDEN       PICTURE X(8).                    GENTBL
00015          10  GTBL-OPT-PREFIX1    PICTURE X(9).                       CL**2
00016          10  GTBL-OPT-PREFIX2    PICTURE X(9).                       CL**2
00017          10  GTBL-OPT-SUFFIX1    PICTURE X(9).                       CL**2
00018          10  GTBL-OPT-SUFFIX2    PICTURE X(9).                       CL**2
00019          10  GTBL-OPT-SEQCOL     PICTURE XX.                         CL**2
00020          10  GTBL-OPT-FDNAME     PICTURE X(32).                      CL**2
00021          10  GTBL-OPT-PREFIX88   PICTURE X.                       GENTBL
00022          10  GTBL-OPT-LIST       PICTURE X.                       GENTBL
00023          10  GTBL-OPT-PUNCH      PICTURE X.                       GENTBL
00026          10  GTBL-OPT-NEWNAME      PICTURE X(8).                     CL**2
00030          10  GTBL-OPT-LEVEL      PICTURE 99.                      GENTBL
00031          10  GTBL-OPT-INCLEV     PICTURE 99.                      GENTBL
00033          10  GTBL-OPT-COMMENT    PICTURE X.                       GENTBL
00034          10  GTBL-OPT-88         PICTURE X.                          CL**2
00035          10  GTBL-OPT-QUOTE      PICTURE X.                          CL**2
00036          10  GTBL-OPT-NOTESFROM  PICTURE 9999.                       CL**2
00037          10  GTBL-OPT-NOTESTO    PICTURE 9999.                       CL**2
00038          10  GTBL-OPT-NOTESFOR   PICTURE 9999.                       CL**2
00039      05  GTBL-SELECT-ENT.                                            CL**2
00040          10  GTBL-SEL-REQTYPE    PICTURE XX.                      GENTBL
00042          10  GTBL-SEL-CNAME      PICTURE X(32).                   GENTBL
00044          10  GTBL-SEL-TYPE       PICTURE 99.                      GENTBL
               10  GTBL-SEL-ALL        PICTURE X. 
               10  GTBL-SEL-MD         PICTURE X. 
00045      05  GTBL-COUNT           PICTURE 99.                            CL**2
00046      05  GTBL-MOD-REQ         PICTURE X.                             CL**2
           05  GTBL-REQ                PICTURE 9. 
00047      05  GTBL-OUTPUT-TABLE        PICTURE X(5320).                   CL**2
00048      05  GTBL-OUTPUT REDEFINES GTBL-OUTPUT-TABLE.                    CL**2
00049          07  GTBL-OUTPUT-ENTRY  OCCURS 40 TIMES.                     CL**2
00050              09  FILLER       PICTURE X(26).                         CL**2
00051              09  GTBL-CARD-IMAGE     PICTURE X(80).                  CL**2
00052              09  FILLER        PICTURE X(26).                        CL**2
00053              09  GTBL-OUTPUT-IND     PICTURE X.                      CL**2
