*COMDECK  RTBL
00001                                                                    RTBL  2
00002 ********************************************************          RTBL
00003 *                                                                    LV001
00004 *    REPORT CONTROL TABLE - RTBL                                  RTBL
00005 *       THIS TABLE DEFINES THE TYPE OF REPORT THAT HAS BEEN       RTBL
00006 *       REQUESTED, THE OPTIONS THAT APPLY TO IT, SELECTION        RTBL
00007 *       CRITERIA TO BE USED IN EXTRACTING DATA AND THE            RTBL
00008 *       CATEGORIES TO BE OUTPUT FOR CATALOGUE, HIERARCHY AND      RTBL
00009 *********************************************************         RTBL
00010  01  RTBL.                                                        RTBL
00011 *                                                                    CL**2
00012 *    REQUEST HEADER INFORMATION RECTYPE = 1                          CL**2
00013 *                                                                    CL**2
00014      03  RTBL-HDR-ENT.                                            RTBL
00015          05  RTBL-HDR-REQTYPE                   PICTURE XX.       RTBL
00016          05  RTBL-HDR-REQNO                     PICTURE 99.       RTBL
00017          05  RTBL-HDR-RECTYPE                   PICTURE 9.        RTBL
00018          05  RTBL-HDR-REQSEQ                    PICTURE 999.      RTBL
00019          05  RTBL-HDR-RPTNAME                   PICTURE X(32).    RTBL
00020          05  RTBL-HDR-STARTCNAME                PICTURE X(32).    RTBL
00021          05  RTBL-HDR-ENTTYPE                    PICTURE XX.         CL**2
00022          05  RTBL-HDR-ENTITY                     PICTURE X(15).      CL**2
00023          05  RTBL-HDR-RETRIEVE                   PICTURE X.          CL**2
00024          05  RTBL-HDR-IDXFNAME                  PICTURE X(8).     RTBL
00025          05  RTBL-HDR-PW                        PICTURE X(5).     RTBL
00026          05  RTBL-MOD-REQ        PICTURE X.                          CL**2
00027          05  RTBL-REQUEST-COUNT  PICTURE 9(7).                       CL**2
00028          05  FILLER              PICTURE X.                          CL**2
00029 *                                                                    CL**2
00030 *    REQUEST OPTIONS INFORMATION -RECTYPE=2                          CL**2
00031 *                                                                    CL**2
00032      03  RTBL-OPTIONS-ENT.                                        RTBL
00033          05  RTBL-OPT-REQTYPE                   PICTURE XX.       RTBL
00034          05  RTBL-OPT-REQNO                     PICTURE 99.       RTBL
00035          05  RTBL-OPT-RECTYPE                   PICTURE 9.        RTBL
00036          05  RTBL-OPT-RECSEQ                    PICTURE 999.      RTBL
00037          05  RTBL-OPT-REPORT                     PICTURE X.          CL**2
00038          05  RTBL-OPT-TITLE                     PICTURE X(50).    RTBL
00039          05  RTBL-OPT-SEQ                       PICTURE X.        RTBL
00040          05  RTBL-OPT-INDEX                     PICTURE X.        RTBL
00041          05  RTBL-OPT-NEWPAGE                   PICTURE X.        RTBL
00042          05  RTBL-OPT-FORMAT                    PICTURE X.        RTBL
00043          05  RTBL-OPT-ALIAS                     PICTURE X.        RTBL
00044          05  RTBL-OPT-VERSION                   PICTURE X.        RTBL
00045          05  RTBL-OPT-UNREF                     PICTURE X.        RTBL
00046          05  RTBL-OPT-DESC                      PICTURE X.        RTBL
00047          05  RTBL-OPT-LINES                      PICTURE 9999.       CL**2
00048          05  RTBL-OPT-BRECHR                    PICTURE X.        RTBL
00049          05  RTBL-OPT-PRTREQ                     PICTURE X.          CL**2
00050          05  RTBL-OPT-STOPNAME                   PICTURE X(32).      CL**2
00051          05  RTBL-OPT-BOTMSG                    PICTURE X.        RTBL
00052          05  RTBL-OPT-SUMMARY                   PICTURE X.        RTBL
00053          05  RTBL-OPT-DIRECT                     PICTURE X.          CL**2
00054          05  RTBL-OPT-INDIRECT                   PICTURE X.          CL**2
00055          05  RTBL-OPT-DETAIL                     PICTURE X.          CL**2
00056          05  RTBL-OPT-ORIGIN                    PICTURE X.        RTBL
00057          05  RTBL-OPT-INDENT                    PICTURE X.        RTBL
00058 *                                                                    CL**2
00059 *    REQUEST SELECTION STATEMENTS -RECTYPE=3                         CL**2
00060 *                                                                    CL**2
00061      03  RTBL-SELECTION-ENTRY OCCURS 10 TIMES.                    RTBL
00062          05  RTBL-SEL-REQTYPE                   PICTURE XX.       RTBL
00063          05  RTBL-SEL-REQNO                     PICTURE 99.       RTBL
00064          05  RTBL-SEL-RECTYPE                   PICTURE 9.        RTBL
00065          05  RTBL-SEL-RECSEQ                    PICTURE 999.      RTBL
00066          05  RTBL-SEL1-QRYTYPE.                                      CL**2
00067              07  RTBL-QRYTYPE-1             PICTURE X.               CL**2
00068              07  RTBL-QRYTYPE-23.                                    CL**2
00069                  09  RTBL-QRYTYPE-2          PICTURE X.              CL**2
00070                  09  RTBL-QRYTYPE-3          PICTURE X.              CL**2
00071          05  RTBL-OPT-CNAME                     PICTURE X(32).    RTBL
00072          05  RTBL-OPT-ENTTYPE                   PICTURE XX.       RTBL
00073          05  RTBL-OPT-CAT                       PICTURE XXX.      RTBL
00074          05  RTBL-SELECT1-ENT.                                    RTBL
00075              07  RTBL-SEL1-ENTTYPE    PICTURE XX.                    CL**2
00076              07  RTBL-SEL1-SEARCH  OCCURS 3 TIMES.                RTBL
00077                  09  RTBL-SEL1-FLDNO.                             RTBL
00078                      11  RTBL-SEL1-ENTNO        PICTURE XX.       RTBL
00079                      11  RTBL-SEL1-CATNO        PICTURE XXX.      RTBL
00080                      11  RTBL-SEL1-FNO          PICTURE XX.       RTBL
00081                      11  FILLER                 PICTURE X.        RTBL
00082                  09  RTBL-SEL1-LOGIND           PICTURE XX.       RTBL
00083                  09  RTBL-SEL1-FLDVALUE         PICTURE X(50).    RTBL
00084                  09  RTBL-SEL1-ANDOR            PICTURE X.        RTBL
00085              07  FILLER          PICTURE XXX.                        CL**2
00086          05  RTBL-SELECT2-ENT.                                    RTBL
00087              07  RTBL-SEL2-TOTYPE               PICTURE XX.       RTBL
00088              07  RTBL-SEL2-TOCNAME              PICTURE X(32).    RTBL
00089          05  RTBL-USEOUT-NUM                    PICTURE 9.        RTBL
00090          05  RTBL-SELECT-COUNT                  PICTURE 9(5).     RTBL
00091 *                                                                    CL**2
00092 *    REQUEST OUTPUT STATEMENTS- RECTYPE =4                           CL**2
00093 *                                                                    CL**2
00094      03  RTBL-OUTPUT-ENTRIES  OCCURS 9 TIMES.                     RTBL
00095          05  RTBL-OUT-REQTYPE                   PICTURE XX.       RTBL
00096          05  RTBL-OUT-REQNO                     PICTURE 99.       RTBL
00097          05  RTBL-OUT-RECTYPE                   PICTURE 9.        RTBL
00098          05  RTBL-OUT-RECSEQ                    PICTURE 999.      RTBL
00099          05  RTBL-OUTPUT-NUM                    PICTURE 9.        RTBL
00100          05  RTBL-OUT-CAT                       PICTURE XXX.      RTBL
00101          05  RTBL-OUT-FRLINE                    PICTURE X(4).     RTBL
00102          05  RTBL-OUT-TOLINE                    PICTURE X(4).     RTBL
00103          05  RTBL-OUT-FORLINES                  PICTURE X(4).     RTBL
