*COMDECK  RPTREQFD
00001  FD  REPORT-REQUESTS                                              02/23/78
           RECORDING MODE IS BINARY 
             LABEL RECORDS ARE OMITTED
00005      DATA RECORDS ARE RPT-HDR-REC, RPT-OPTIONS-REC,                  CL**2
00006          RPT-SELECT1-REC, RPT-OUTPUT-REC, RPT-PARAM-REC.             CL**2
00007  01  RPT-HDR-REC.                                                 RPTREQFD
00008      03  RPT-HDR-REQTYPE               PICTURE XX.                RPTREQFD
00009      03  RPT-HDR-REQNO                 PICTURE 99.                RPTREQFD
00010      03  RPT-HDR-RECTYPE               PICTURE 9.                 RPTREQFD
00011      03  RPT-HDR-REQSEQ                PICTURE 999.               RPTREQFD
00012      03  RPT-HDR-RPTNAME               PICTURE X(32).             RPTREQFD
00013      03  RPT-HDR-STARTCNAME            PICTURE X(32).             RPTREQFD
00014      03  RPT-HDR-ENTTYPE               PICTURE XX.                RPTREQFD
00015      03  RPT-HDR-ENTITY          PICTURE X(15).                      CL**2
00016      03  RPT-HDR-RETRIEVE              PICTURE X.                 RPTREQFD
00017      03  RPT-HDR-IDXFNAME              PICTURE X(8).              RPTREQFD
00018      03  RPT-HDR-PW                    PICTURE X(5).              RPTREQFD
00019      03  RPT-MOD-REQ             PICTURE X.                          CL**2
00020      03  RPT-REQUEST-COUNT       PICTURE 9(7).                       CL**2
00021      03  FILLER                  PICTURE X.                          CL**2
00022  01  RPT-OPTIONS-REC.                                             RPTREQFD
00023      03  RPT-OPT-REQTYPE               PICTURE XX.                RPTREQFD
00024      03  RPT-OPT-REQNO                 PICTURE 99.                RPTREQFD
00025      03  RPT-OPT-RECTYPE               PICTURE 9.                 RPTREQFD
00026      03  RPT-OPT-RECSEQ                PICTURE 999.               RPTREQFD
00027      03  RPT-OPT-REPORT                PICTURE X.                 RPTREQFD
00028      03  RPT-OPT-TITLE                 PICTURE X(50).             RPTREQFD
00029      03  RPT-OPT-SEQ                   PICTURE X.                 RPTREQFD
00030      03  RPT-OPT-INDEX                 PICTURE X.                 RPTREQFD
00031      03  RPT-OPT-NEWPAGE               PICTURE X.                 RPTREQFD
00032      03  RPT-OPT-FORMAT                PICTURE X.                 RPTREQFD
00033      03  RPT-OPT-ALIAS                 PICTURE X.                 RPTREQFD
00034      03  RPT-OPT-VERSION               PICTURE X.                 RPTREQFD
00035      03  RPT-OPT-UNREF                 PICTURE X.                 RPTREQFD
00036      03  RPT-OPT-DESC                  PICTURE X.                 RPTREQFD
00037      03  RPT-OPT-LINES                 PICTURE 9999.              RPTREQFD
00038      03  RPT-OPT-BRECHR                PICTURE X.                 RPTREQFD
00039      03  RPT-OPT-PRTREQ                PICTURE X.                 RPTREQFD
00040      03  RPT-OPT-STOPLNAME       PICTURE X(32).                      CL**2
00041      03  RPT-OPT-BOTMSG                PICTURE X.                 RPTREQFD
00042      03  RPT-OPT-SUMMARY               PICTURE X.                 RPTREQFD
00043      03  RPT-OPT-DIRECT                PICTURE X.                 RPTREQFD
00044      03  RPT-OPT-INDIRECT              PICTURE X.                 RPTREQFD
00045      03  RPT-OPT-DETAIL                PICTURE X.                 RPTREQFD
00046      03  RPT-OPT-ORIGIN                PICTURE X.                 RPTREQFD
00047      03  RPT-OPT-INDENT                PICTURE X.                 RPTREQFD
00048  01  RPT-SELECT1-REC.                                                CL**2
00049      03  RPT-SEL-REQTYPE              PICTURE XX.                 RPTREQFD
00050      03  RPT-SEL-REQNO                PICTURE 99.                 RPTREQFD
00051      03  RPT-SEL-RECTYPE              PICTURE 9.                  RPTREQFD
00052      03  RPT-SEL-RECSEQ               PICTURE 999.                RPTREQFD
00053      03  RPT-SEL1-QRYTYPE.                                           CL**2
00054          05  RPT-QRYTYPE-1       PICTURE X.                          CL**2
00055          05  RPT-QRYTYPE-23.                                         CL**2
00056              07  RPT-QRYTYPE-2     PICTURE X.                        CL**2
00057              07  RPT-QRYTYPE-3   PICTURE X.                          CL**2
00058      03  RPT-OPT-CNAME                PICTURE X(32).              RPTREQFD
00059      03  RPT-OPT-ENTTYPE              PICTURE XX.                 RPTREQFD
00060      03  RPT-OPT-CAT                  PICTURE XXX.                RPTREQFD
00061      03  RPT-SELECT1-ENT.                                         RPTREQFD
00062          05  RPT-SELECT1-ENTTYPE            PICTURE XX.           RPTREQFD
00063          05  RPT-SEL1-SEARCH  OCCURS 3 TIMES.                     RPTREQFD
00064              07  RPT-SEL1-FLDNO.                                  RPTREQFD
00065                  09  RPT-SEL1-ENTNO        PICTURE XX.            RPTREQFD
00066                  09  RPT-SEL1-CATNO        PICTURE XXX.           RPTREQFD
00067                  09  RPT-SEL1-FNO          PICTURE XX.            RPTREQFD
00068                  09  FILLER                PICTURE X.                CL**2
00069              07  RPT-SEL1-LOGIND           PICTURE XX.            RPTREQFD
00070              07  RPT-SEL1-FLDVALUE         PICTURE X(50).         RPTREQFD
00071              07  RPT-SEL1-ANDOR            PICTURE X.             RPTREQFD
00072          05  FILLER              PICTURE XXX.                        CL**2
00073      03  RPT-SELECT2-ENT.                                         RPTREQFD
00074          05  RPT-SEL2-TOTYPE               PICTURE XX.            RPTREQFD
00075          05  RPT-SEL2-TOCNAME              PICTURE X(32).         RPTREQFD
00076      03  RPT-USEOUT-NUM                    PICTURE 9.             RPTREQFD
00077      03  RPT-SELECT-COUNT                  PICTURE 9(5).          RPTREQFD
00078  01  RPT-OUTPUT-REC.                                              RPTREQFD
00079      03  RPT-OUT-REQTYPE                   PICTURE XX.            RPTREQFD
00080      03  RPT-OUT-REQNO                     PICTURE 99.            RPTREQFD
00081      03  RPT-OUT-RECTYPE                   PICTURE 9.             RPTREQFD
00082      03  RPT-OUT-RECSEQ                    PICTURE 999.           RPTREQFD
00083      03  RPT-OUTPUT-NUM                    PICTURE 9.             RPTREQFD
00084      03  RPT-OUT-CAT                       PICTURE XXX.           RPTREQFD
00085      03  RPT-OUT-FRLINE                    PICTURE X(4).          RPTREQFD
00086      03  RPT-OUT-TOLINE                    PICTURE X(4).          RPTREQFD
00087      03  RPT-OUT-FORLINES                  PICTURE X(4).          RPTREQFD
00088      03  FILLER                  PICTURE X(26).                      CL**2
00089  01  RPT-PARAM-REC.                                                  CL**2
00090      03  RPT-PARAM-COMMON.                                           CL**2
00091          05  RPT-PARAM-REQTYPE   PICTURE XX.                         CL**2
00092          05  RPT-PARAM-REQNO     PICTURE 99.                         CL**2
00093          05  RPT-PARAM-RECTYPE   PICTURE X.                          CL**2
00094          05  RPT-PARAM-RECSEQ    PICTURE 9(3).                       CL**2
00095      03  RPT-PARAM-STATEMENT     PICTURE X(72).                      CL**2
