*COMDECK  EXTFD2
00001  FD  EXTRACT-FILE                                                 04/28/78
           RECORDING MODE IS BINARY 
           LABEL RECORDS ARE OMITTED
00005      DATA RECORDS ARE EXT-HDR-REC EXT-OPTIONS-REC                    CL**2
00006                  EXT-SELECT1-REC EXT-OUTPUT-REC                      CL**2
00007                  EXT-PARAM-REC EXT-CATRPT-REC.                       CL**2
00008 *                                                                    CL**2
00009 *    REQUEST HEADER DATA - TYPE 1 RECORD                             CL**2
00010 *                                                                    CL**2
00011  01  EXT-HDR-REC.                                                 EXTFD2
00012      03  EXT-HDR-REQTYPE               PICTURE XX.                EXTFD2
00013      03  EXT-HDR-REQNO                 PICTURE 99.                EXTFD2
00014      03  EXT-HDR-RECTYPE               PICTURE 9.                 EXTFD2
00015      03  EXT-HDR-REQSEQ                PICTURE 999.               EXTFD2
00016      03  EXT-HDR-RPTNAME               PICTURE X(32).             EXTFD2
00017      03  EXT-HDR-STARTCNAME            PICTURE X(32).             EXTFD2
00018      03  EXT-HDR-ENTTYPE               PICTURE XX.                EXTFD2
00019      03  EXT-HDR-ENTITY          PICTURE X(15).                      CL**2
00020      03  EXT-HDR-RETRIEVE              PICTURE X.                 EXTFD2
00021      03  EXT-HDR-IDXFNAME              PICTURE X(8).              EXTFD2
00022      03  EXT-HDR-PW                    PICTURE X(5).              EXTFD2
00023      03  EXT-MOD-REQ             PICTURE X.                          CL**2
00024      03  EXT-REQUEST-COUNT       PICTURE 9(7).                       CL**2
00025      03  FILLER                  PICTURE X.                          CL**2
00026 *                                                                    CL**2
00027 *    REQUEST OPTIONS DATA - RECORD TYPE 2                            CL**2
00028 *                                                                    CL**2
00029  01  EXT-OPTIONS-REC.                                             EXTFD2
00030      03  EXT-OPT-REQTYPE               PICTURE XX.                EXTFD2
00031      03  EXT-OPT-REQNO                 PICTURE 99.                EXTFD2
00032      03  EXT-OPT-RECTYPE               PICTURE 9.                 EXTFD2
00033      03  EXT-OPT-RECSEQ                PICTURE 999.               EXTFD2
00034      03  EXT-OPT-REPORT                PICTURE X.                 EXTFD2
00035      03  EXT-OPT-TITLE                 PICTURE X(50).             EXTFD2
00036      03  EXT-OPT-SEQ                   PICTURE X.                 EXTFD2
00037      03  EXT-OPT-INDEX                 PICTURE X.                 EXTFD2
00038      03  EXT-OPT-NEWPAGE               PICTURE X.                 EXTFD2
00039      03  EXT-OPT-FORMAT                PICTURE X.                 EXTFD2
00040      03  EXT-OPT-ALIAS                 PICTURE X.                 EXTFD2
00041      03  EXT-OPT-VERSION               PICTURE X.                 EXTFD2
00042      03  EXT-OPT-UNREF                 PICTURE X.                 EXTFD2
00043      03  EXT-OPT-DESC                  PICTURE X.                 EXTFD2
00044      03  EXT-OPT-LINES                 PICTURE 9999.              EXTFD2
00045      03  EXT-OPT-BRECHR                PICTURE X.                 EXTFD2
00046      03  EXT-OPT-PRTREQ                PICTURE X.                 EXTFD2
00047      03  EXT-OPT-STOPLNAME       PICTURE X(32).                      CL**2
00048      03  EXT-OPT-BOTMSG                PICTURE X.                 EXTFD2
00049      03  EXT-OPT-SUMMARY               PICTURE X.                 EXTFD2
00050      03  EXT-OPT-DIRECT                PICTURE X.                 EXTFD2
00051      03  EXT-OPT-INDIRECT              PICTURE X.                 EXTFD2
00052      03  EXT-OPT-DETAIL                PICTURE X.                 EXTFD2
00053      03  EXT-OPT-ORIGIN                PICTURE X.                 EXTFD2
00054      03  EXT-OPT-INDENT                PICTURE X.                 EXTFD2
00055 *                                                                    CL**2
00056 *    REQUEST SELECTION RECORD - TYPE 3                               CL**2
00057 *                                                                    CL**2
00058  01  EXT-SELECT1-REC.                                                CL**2
00059      03  EXT-SEL-REQTYPE              PICTURE XX.                 EXTFD2
00060      03  EXT-SEL-REQNO                PICTURE 99.                 EXTFD2
00061      03  EXT-SEL-RECTYPE              PICTURE 9.                  EXTFD2
00062      03  EXT-SEL-RECSEQ               PICTURE 999.                EXTFD2
00063      03  EXT-SEL1-QRYTYPE.                                           CL**2
00064          05  EXT-QRYTYPE-1       PICTURE X.                          CL**2
00065          05  EXT-QRYTYPE-23.                                         CL**2
00066              07  EXT-QRYTYPE-2   PICTURE X.                          CL**2
00067              07  EXT-QRYTYPE-3   PICTURE X.                          CL**2
00068      03  EXT-OPT-CNAME                PICTURE X(32).              EXTFD2
00069      03  EXT-OPT-ENTTYPE              PICTURE XX.                 EXTFD2
00070      03  EXT-OPT-CAT                  PICTURE XXX.                EXTFD2
00071      03  EXT-SELECT1-ENT.                                         EXTFD2
00072          05  EXT-SELECT1-ENTTYPE            PICTURE XX.           EXTFD2
00073          05  EXT-SEL1-SEARCH  OCCURS 3 TIMES.                     EXTFD2
00074              07  EXT-SEL1-FLDNO.                                  EXTFD2
00075                  09  EXT-SEL1-ENTNO        PICTURE XX.            EXTFD2
00076                  09  EXT-SEL1-CATNO        PICTURE XXX.           EXTFD2
00077                  09  EXT-SEL1-FNO          PICTURE XX.            EXTFD2
00078                  09  FILLER      PICTURE X.                          CL**2
00079              07  EXT-SEL1-LOGIND           PICTURE XX.            EXTFD2
00080              07  EXT-SEL1-FLDVALUE         PICTURE X(50).         EXTFD2
00081              07  EXT-SEL1-ANDOR            PICTURE X.             EXTFD2
00082          05  FILLER              PICTURE XXX.                        CL**2
00083      03  EXT-SELECT2-ENT.                                         EXTFD2
00084          05  EXT-SEL2-TOTYPE               PICTURE XX.            EXTFD2
00085          05  EXT-SEL2-TOCNAME              PICTURE X(32).         EXTFD2
00086      03  EXT-USEOUT-NUM                    PICTURE 9.             EXTFD2
00087      03  EXT-SELECT-COUNT                  PICTURE 9(5).          EXTFD2
00088 *                                                                    CL**2
00089 *    REQUEST OUTPUT RECORD - TYPE 4                                  CL**2
00090 *                                                                    CL**2
00091  01  EXT-OUTPUT-REC.                                              EXTFD2
00092      03  EXT-OUT-ENTRY.                                              CL**2
00093          05  EXT-OUT-REQTYPE     PICTURE XX.                         CL**2
00094          05  EXT-OUT-REQNO       PICTURE 99.                         CL**2
00095          05  EXT-OUT-RECTYPE     PICTURE 9.                          CL**2
00096          05  EXT-OUT-RECSEQ      PICTURE 999.                        CL**2
00097          05  EXT-OUTPUT-NUM      PICTURE 9.                          CL**2
00098          05  EXT-OUT-CAT         PICTURE XXX.                        CL**2
00099          05  EXT-OUT-FRLINE      PICTURE X(4).                       CL**2
00100          05  EXT-OUT-TOLINE      PICTURE X(4).                       CL**2
00101          05  EXT-OUT-FORLINES    PICTURE X(4).                       CL**2
00102          05  FILLER           PICTURE X(66).                         CL**2
00103 *                                                                    CL**2
00104 *    REQUEST PARAMETER STATEMENT - TYPE 6 RECORD                     CL**2
00105 *                                                                    CL**2
00106  01  EXT-PARAM-REC.                                                  CL**2
00107      03  EXT-PARAM-COMMON.                                           CL**2
00108          05  EXT-PARAM-REQTYPE   PICTURE XX.                         CL**2
00109          05  EXT-PARAM-REQNO     PICTURE 99.                         CL**2
00110          05  EXT-PARAM-RECTYPE   PICTURE X.                          CL**2
00111          05  EXT-PARAM-RECSEQ    PICTURE 9(3).                       CL**2
00112      03  EXT-PARAM-STATEMENT     PICTURE X(72).                      CL**2
00113      03  FILLER PICTURE X(10).                                       CL**2
00114 *                                                                    CL**2
00115 *    REPORT EXTRACTED DATA RECORD  - TYPE 8                          CL**2
00116 *                                                                    CL**2
00117  01  EXT-CATRPT-REC.                                                 CL**2
00118      03  EXT-CATALOGUE-COMMON.                                       CL**2
00119          05  EXT-CAT-REQTYPE     PICTURE XX.                         CL**2
00120          05  EXT-CAT-REQNO       PICTURE 99.                         CL**2
00121          05  EXT-CAT-RECTYPE     PICTURE X.                          CL**2
00122          05  EXT-CAT-RECSEQ      PICTURE 9(3).                       CL**2
00123      03  EXT-CATALOGUE-TYPE.                                         CL**2
00124          05  EXT-CAT1-ENTTYPE    PICTURE 99.                         CL**2
00125          05  EXT-CAT1-CATNAME    PICTURE X(32).                      CL**2
00126          05  EXT-CAT1-RETNO      PICTURE 9(6).                       CL**2
00127          05  EXT-CAT1-RETLEV     PICTURE 99.                         CL**2
00128          05  EXT-CAT1-SELNO      PICTURE 99.                         CL**2
00129          05  FILLER           PICTURE X(38).                         CL**2
00130      03  EXT-CATALOGUE-NAME  REDEFINES  EXT-CATALOGUE-TYPE.          CL**2
00131          05  EXT-CAT3-CATNAME    PICTURE X(32).                      CL**2
00132          05  EXT-CAT3-ENTTYPE    PICTURE 99.                         CL**2
00133          05  EXT-CAT3-RETNO      PICTURE 9(6).                       CL**2
00134          05  EXT-CAT3-RETLEV     PICTURE 99.                         CL**2
00135          05  EXT-CAT3-SELNO      PICTURE 99.                         CL**2
00136          05  FILLER           PICTURE X(38).                         CL**2
00137      03  EXT-CATALOGUE-RET  REDEFINES  EXT-CATALOGUE-NAME.           CL**2
00138          05  EXT-CAT4-RETNO      PICTURE 9(6).                       CL**2
00139          05  EXT-CAT4-CATNAME    PICTURE X(32).                      CL**2
00140          05  EXT-CAT4-ENTTYPE    PICTURE 99.                         CL**2
00141          05  EXT-CAT4-RETLEV     PICTURE 99.                         CL**2
00142          05  EXT-CAT4-SELNO      PICTURE 99.                         CL**2
00143          05  FILLER           PICTURE X(38).                         CL**2
00144 *                                                                    CL**2
00145 *    INDEX REPORT EXTRACTED DATA RECORD-TYPE 8                       CL**2
00146 *                                                                    CL**2
00147  01  EXT-INDEX-REC.                                                  CL**2
00148      03  EXT-INDEX-COMMON.                                           CL**2
00149          05  EXT-IDX-REQTYPE            PICTURE XX.                  CL**2
00150          05  EXT-IDX-REQNO              PICTURE 99.                  CL**2
00151          05  EXT-IDX-RECTYPE            PICTURE 9.                   CL**2
00152          05  EXT-IDX-RECSEQ             PICTURE 999.                 CL**2
00153      03  EXT-INDEX-TYPE.                                             CL**2
00154          05  EXT-IDX1-ENTTYPE           PICTURE 99.                  CL**2
00155          05  EXT-IDX1-VALUE             PICTURE X(32).               CL**2
00156          05  EXT-IDX1-CATNAME           PICTURE X(32).               CL**2
00157          05  EXT-IDX1-CAT               PICTURE 999.                 CL**2
00158          05  EXT-IDX1-LINE              PICTURE 9(4).                CL**2
00159          05  EXT-IDX1-SELNO             PICTURE 99.                  CL**2
00160          05  FILLER           PICTURE X(7).                          CL**2
00161      03  EXT-INDEX-NAME REDEFINES EXT-INDEX-TYPE.                    CL**2
00162          05  EXT-IDX3-VALUE             PICTURE X(32).               CL**2
00163          05  EXT-IDX3-CATNAME           PICTURE X(32).               CL**2
00164          05  EXT-IDX3-ENTTYPE           PICTURE 99.                  CL**2
00165          05  EXT-IDX3-CAT               PICTURE 999.                 CL**2
00166          05  EXT-IDX3-LINE              PICTURE 9(4).                CL**2
00167          05  EXT-IDX3-SELNO            PICTURE 99.                   CL**2
00168          05  FILLER           PICTURE X(7).                          CL**2
00169      03  EXT-INDEX-VALUE REDEFINES EXT-INDEX-NAME.                   CL**2
00170          05  EXT-IDX5-VALUE             PICTURE X(32).               CL**2
00171          05  EXT-IDX5-ENTTYPE           PICTURE 99.                  CL**2
00172          05  EXT-IDX5-CATNAME           PICTURE X(32).               CL**2
00173          05  EXT-IDX5-CAT               PICTURE 999.                 CL**2
00174          05  EXT-IDX5-LINE              PICTURE 9(4).                CL**2
00175          05  EXT-IDX5-SELNO            PICTURE 99.                   CL**2
00176          05  FILLER           PICTURE X(7).                          CL**2
00177  01  EXT-NAME-REC.                                                   CL**2
00178      03  EXT-NAME-COMMON.                                            CL**2
00179          05  EXT-NAM-REQTYPE            PICTURE XX.                  CL**2
00180          05  EXT-NAM-REQNO             PICTURE 99.                   CL**2
00181          05  EXT-NAM-RECTYPE            PICTURE 9.                   CL**2
00182          05  EXT-NAM-RECSEQ             PICTURE 999.                 CL**2
00183      03  EXT-NAME-TYPE.                                              CL**2
00184          05  EXT-NAM1-ENTTYPE           PICTURE 99.                  CL**2
00185          05  EXT-NAM1-NAMCOMP           PICTURE X(32).               CL**2
00186          05  EXT-NAM1-CATNAME           PICTURE X(32).               CL**2
00187          05  EXT-NAM1-CAT               PICTURE 999.                 CL**2
00188          05  EXT-NAM1-LINE              PICTURE 9(4).                CL**2
00189          05  EXT-NAM1-NAMFULL           PICTURE X(32).               CL**2
00190          05  EXT-NAM1-SELNO             PICTURE 99.                  CL**2
00191      03  EXT-NAME-NAME REDEFINES EXT-NAME-TYPE.                      CL**2
00192          05  EXT-NAM3-NAMCOMP           PICTURE X(32).               CL**2
00193          05  EXT-NAM3-CATNAME           PICTURE X(32).               CL**2
00194          05  EXT-NAM3-ENTTYPE           PICTURE 99.                  CL**2
00195          05  EXT-NAM3-CAT               PICTURE 999.                 CL**2
00196          05  EXT-NAM3-LINE              PICTURE 9(4).                CL**2
00197          05  EXT-NAM3-NAMFULL           PICTURE X(32).               CL**2
00198          05  EXT-NAM3-SELNO             PICTURE 99.                  CL**2
00199      03  EXT-NAME-COMP REDEFINES EXT-NAME-NAME.                      CL**2
00200          05  EXT-NAM5-NAMCOMP           PICTURE X(32).               CL**2
00201          05  EXT-NAM5-ENTTYPE           PICTURE 99.                  CL**2
00202          05  EXT-NAM5-CATNAME           PICTURE X(32).               CL**2
00203          05  EXT-NAM5-CAT               PICTURE 999.                 CL**2
00204          05  EXT-NAM5-LINE              PICTURE 9(4).                CL**2
00205          05  EXT-NAM5-NAMFULL           PICTURE X(32).               CL**2
00206          05  EXT-NAM5-SELNO             PICTURE 99.                  CL**2
00207  01  EXT-REL-DEF-REC.                                                CL**2
00208      03  EXT-RELD-COMMON.                                            CL**2
00209          05  EXT-RELD-REQTYPE           PICTURE XX.                  CL**2
00210          05  EXT-RELD-REQNO             PICTURE 99.                  CL**2
00211          05  EXT-RELD-RECTYPE           PICTURE 9.                   CL**2
00212          05  EXT-RELD-RECSEQ            PICTURE 999.                 CL**2
00213      03  EXT-RELD-TYPE.                                              CL**2
00214          05  EXT-RELD1-ENTTYPE          PICTURE 99.                  CL**2
00215          05  EXT-RELD1-NAME             PICTURE X(32).               CL**2
00216          05  EXT-RELD1-SORTID           PICTURE X(10).               CL**2
00217          05  EXT-RELD1-RECCODE   PICTURE X.                          CL**2
00218          05  EXT-RELD1-CAT              PICTURE 999.                 CL**2
00219          05  EXT-RELD1-LINE             PICTURE 9(4).                CL**2
00220          05  EXT-RELD1-CATNAME          PICTURE X(32).               CL**2
00221          05  EXT-RELD1-SELNO            PICTURE 99.                  CL**2
00222      03  EXT-RELD-NAME REDEFINES EXT-RELD-TYPE.                      CL**2
00223          05  EXT-RELD3-NAME             PICTURE X(32).               CL**2
00224          05  EXT-RELD3-ENTTYPE          PICTURE 99.                  CL**2
00225          05  EXT-RELD3-SORTID           PICTURE X(10).               CL**2
00226          05  EXT-RELD3-RECCODE     PICTURE X.                        CL**2
00227          05  EXT-RELD3-CAT              PICTURE 999.                 CL**2
00228          05  EXT-RELD3-LINE             PICTURE 9(4).                CL**2
00229          05  EXT-RELD3-CATNAME          PICTURE X(32).               CL**2
00230          05  EXT-RELD3-SELNO            PICTURE 99.                  CL**2
00231  01  EXT-REL-REF-REC.                                                CL**2
00232      03  EXT-RELR-COMMON.                                            CL**2
00233          05  EXT-RELR-REQTYPE           PICTURE XX.                  CL**2
00234          05  EXT-RELR-REQNO             PICTURE 99.                  CL**2
00235          05  EXT-RELR-RECTYPE           PICTURE 9.                   CL**2
00236          05  EXT-RELR-RECSEQ            PICTURE 999.                 CL**2
00237      03  EXT-RELR-TYPE.                                              CL**2
00238          05  EXT-RELR1-ENTTYPE          PICTURE 99.                  CL**2
00239          05  EXT-RELR1-NAME             PICTURE X(32).               CL**2
00240          05  EXT-RELR1-SORTID           PICTURE X(10).               CL**2
00241          05  EXT-RELR1-RECCODE     PICTURE X.                        CL**2
00242          05  EXT-RELR1-REFTYPE          PICTURE 99.                  CL**2
00243          05  EXT-RELR1-REFNAME          PICTURE X(32).               CL**2
00244          05  EXT-RELR1-USAGE            PICTURE X.                   CL**2
00245          05  EXT-RELR1-ALIAS            PICTURE X.                   CL**2
00246          05  EXT-RELR1-SELNO            PICTURE 99.                  CL**2
00247      03  EXT-RELR-NAME REDEFINES EXT-RELR-TYPE.                      CL**2
00248          05  EXT-RELR3-NAME             PICTURE X(32).               CL**2
00249          05  EXT-RELR3-ENTTYPE          PICTURE 99.                  CL**2
00250          05  EXT-RELR3-SORTID           PICTURE X(10).               CL**2
00251          05  EXT-RELR3-RECCODE     PICTURE X.                        CL**2
00252          05  EXT-RELR3-REFTYPE          PICTURE 99.                  CL**2
00253          05  EXT-RELR3-REFNAME          PICTURE X(32).               CL**2
00254          05  EXT-RELR3-USAGE            PICTURE X.                   CL**2
00255          05  EXT-RELR3-ALIAS            PICTURE X.                   CL**2
00256          05  EXT-RELR3-SELNO            PICTURE 99.                  CL**2
