*COMDECK  QTBL2A
00001 *****   QUERY TABLE MODULE - QTBL   *****                         07/21/78
00002  01  QTBL-HDR-ENT.                                                QTBL2A
00003 *    HEADER ENTRY                                                    LV002
00004      03  QTBL-HDR-REQTYPE        PICTURE XX.                      QTBL2A
00005      03  QTBL-ENVIRONMENT            PICTURE X.                      CL**2
00006 *    OPTIONS                                                         CL**2
00007      03  QTBL-OPT-TITLE  PICTURE X(50).                              CL**2
00008      03  QTBL-OPT-QRYTYPE.                                        QTBL2A
00009          05  QRYTYPE-1           PICTURE X.                       QTBL2A
00010          05  QRYTYPE-23.                                             CL**2
00011              07  QRYTYPE-2       PICTURE X.                          CL**2
00012              07  QRYTYPE-3 PICTURE X.                                CL**2
00013      03  QTBL-OPT-CNAME          PICTURE X(32).                   QTBL2A
00014      03  QTBL-OPT-ENTTYPE        PICTURE XX.                      QTBL2A
00015      03  QTBL-OPT-CAT            PICTURE XXX.                     QTBL2A
00016 *    SELECT 1                                                        CL**2
00017      03  QTBL-SELECT1-ENT.                                        QTBL2A
00018          05  QTBL-SEL1-ENTTYPE   PICTURE XX.                      QTBL2A
00019          05  QTBL-SEL1-SEARCH   OCCURS 3 TIMES.                   QTBL2A
00020              07  QTBL-SEL1-FLDNO.                                    CL**2
00021                  09  QTBL-SEL1-ENTNO  PICTURE XX.                    CL**2
00022                  09  QTBL-SEL1-CATNO  PICTURE XXX.                   CL**2
00023                  09  QTBL-SEL1-FNO    PICTURE XX.                    CL**2
00024              09  FILLER  PICTURE X.                                  CL**2
00025              07  QTBL-SEL1-LOGIND    PICTURE XX.                  QTBL2A
00026              07  QTBL-SEL1-FLDVALUE  PICTURE X(50).               QTBL2A
00027              07  QTBL-SEL1-ANDOR     PICTURE X.                      CL**2
00028          05  QTBL-SEL1-QRYTYPE   PICTURE XXX.                     QTBL2A
00029 *    SELECT 2                                                        CL**2
00030      03  QTBL-SELECT2-ENT.                                        QTBL2A
00031          05  QTBL-SEL2-TOTYPE    PICTURE XX.                      QTBL2A
00032          05  QTBL-SEL2-TOCNAME   PICTURE X(32).                   QTBL2A
00033      03  QTBL-OUTPUT-ENT.                                            CL**2
00034          05  QTBL-OUT-CAT        PICTURE XXX.                        CL**2
00035          05  QTBL-OUT-FRLINE     PICTURE XXXX.                       CL**2
00036          05  QTBL-OUT-TOLINE     PICTURE XXXX.                       CL**2
00037          05  QTBL-OUT-FORLINES   PICTURE XXXX.                       CL**2
00038      03  QTBL-SHOW-FIELDS.                                           CL**2
00039          05  QTBL-SHOW-FIELD OCCURS 6 TIMES.                         CL**2
00040              07  QTBL-SHOW-ENTNO   PICTURE XX.                       CL**2
00041              07  QTBL-SHOW-CATNO   PICTURE XXX.                      CL**2
00042              07  QTBL-SHOW-FNO     PICTURE XX.                       CL**2
00043              07  FILLER            PICTURE X.                        CL**2
00044          05  QTBL-SHOW-FORMAT      PICTURE X.                        CL**2
