*COMDECK  INDEXFD 
00001  FD  INDEX-FILE                                                   02/06/78
           RECORDING MODE IS BINARY 
           LABEL RECORDS ARE OMITTED
00005      DATA RECORDS ARE IDX-FILE-REC IDX-REQ-REC IDX-OPT-REC        INDEXFD 
00006                       IDX-DET-REC.                                INDEXFD 
00007  01  IDX-FILE-REC.                                                   CL**2
00008      03  IDX-FILE-KEY.                                               CL**2
00009          05  IDX-FILE-REQTYPE    PICTURE XX.                         CL**2
00010          05  IDX-FILE-REQNO      PICTURE 99.                         CL**2
00011          05  IDX-FILE-RECTYPE    PICTURE 9.                          CL**2
00012          05  IDX-FILE-RECSEQ     PICTURE 999.                        CL**2
00013      03  IDX-FILE-FIELDS.                                            CL**2
00014          05  IDX-FILE-REV-NUM    PICTURE S9(5)  .                  INDEXFD
00015          05  IDX-FILE-DATE-UPD   PICTURE X(8).                       CL**2
00016          05  IDX-FILE-DATE-RES   PICTURE X(8).                       CL**2
00017          05  IDX-FILE-NUM-RES    PICTURE S9(5) .                   INDEXFD
               05  IDX-FILE-CURR-DATE  PICTURE X(8).
00019          05  IDX-FILE-EOP-MSG    PICTURE X(54).                      CL**2
00020          05  IDX-FILE-LINES      PICTURE S99.                        CL**2
00021          05  IDX-FILE-NAME       PICTURE X(27).                      CL**2
00022  01  IDX-REQ-REC.                                                    CL**2
00023      03  IDX-REQ-KEY.                                                CL**2
00024          05  IDX-REQ-REQTYPE     PICTURE XX.                         CL**2
00025          05  IDX-REQ-REQNO       PICTURE 99.                         CL**2
00026          05  IDX-REQ-RECTYPE     PICTURE 9.                          CL**2
00027          05  IDX-REQ-RECSEQ      PICTURE 999.                        CL**2
00028      03  IDX-REQ-FIELDS.                                             CL**2
00029          05  IDX-REQ-RPTNAME     PICTURE X(32).                      CL**2
00030          05  IDX-REQ-STARTCNAME  PICTURE X(32).                      CL**2
00031          05  IDX-REQ-ENTTYPE     PICTURE XX.                         CL**2
00032          05  IDX-REQ-ENTITY      PICTURE X(15).                      CL**2
00033          05  IDX-REQ-RETRIEVE    PICTURE X.                          CL**2
00034          05  IDX-REQ-IDXFNAME    PICTURE X(8).                       CL**2
00035          05  IDX-REQ-PW          PICTURE X(5).                       CL**2
00036          05  IDX-MOD-REQ         PICTURE X.                          CL**2
00037          05  IDX-REQUEST-COUNT   PICTURE 9(7).                       CL**2
00038          05  FILLER              PICTURE X.                          CL**2
00039  01  IDX-OPT-REC.                                                    CL**2
00040      03  IDX-OPT-KEY.                                                CL**2
00041          05  IDX-OPT-REQTYPE     PICTURE XX.                         CL**2
00042          05  IDX-OPT-REQNO       PICTURE 99.                         CL**2
00043          05  IDX-OPT-RECTYPE     PICTURE 9.                          CL**2
00044          05  IDX-OPT-RECSEQ      PICTURE 999.                        CL**2
00045      03  IDX-OPT-FIELDS.                                             CL**2
00046          05  IDX-OPT-REPORT      PICTURE X.                          CL**2
00047          05  IDX-OPT-TITLE       PICTURE X(50).                      CL**2
00048          05  IDX-OPT-SEQ         PICTURE X.                          CL**2
00049          05  IDX-OPT-INDEX       PICTURE X.                          CL**2
00050          05  IDX-OPT-NEWPAGE     PICTURE X.                          CL**2
00051          05  IDX-OPT-FORMAT      PICTURE X.                          CL**2
00052          05  IDX-OPT-ALIAS       PICTURE X.                          CL**2
00053          05  IDX-OPT-VERSION     PICTURE X.                          CL**2
00054          05  IDX-OPT-UNREF       PICTURE X.                          CL**2
00055          05  IDX-OPT-DESC        PICTURE X.                          CL**2
00056          05  IDX-OPT-LINES       PICTURE 9(4).                       CL**2
00057          05  IDX-OPT-BRECHR      PICTURE X.                          CL**2
00058          05  IDX-OPT-PRTREQ      PICTURE X.                          CL**2
00059          05  IDX-OPT-STOPLNAME   PICTURE X(32).                      CL**2
00060          05  IDX-OPT-BOTMSG      PICTURE X.                          CL**2
00061          05  IDX-OPT-SUMMARY     PICTURE X.                          CL**2
00062          05  IDX-OPT-DIRECT      PICTURE X.                          CL**2
00063          05  IDX-OPT-INDIRECT    PICTURE X.                          CL**2
00064          05  IDX-OPT-DETAIL      PICTURE X.                          CL**2
00065          05  IDX-OPT-ORIGIN      PICTURE X.                          CL**2
00066          05  IDX-OPT-INDENT      PICTURE X.                          CL**2
00067  01  IDX-DET-REC.                                                    CL**2
00068      03  IDX-DET-KEY.                                                CL**2
00069          05  IDX-DET-REQTYPE     PICTURE XX.                         CL**2
00070          05  IDX-DET-REQNO       PICTURE 99.                         CL**2
00071          05  IDX-DET-RECTYPE     PICTURE 9.                          CL**2
00072          05  IDX-DET-RECSEQ      PICTURE 9(3).                       CL**2
00073      03  IDX-DET-RELATIVE.                                           CL**2
00074          05  IDX-REL-RETNO      PICTURE 9(6).                        CL**2
00075          05  IDX-REL-CATNAME     PICTURE X(32).                      CL**2
00076          05  IDX-REL-ENTTYPE     PICTURE 99.                         CL**2
00077          05  IDX-REL-RETLEV      PICTURE 99.                         CL**2
00078          05  IDX-REL-PAGENO      PICTURE 9(6).                       CL**2
00079      03  IDX-DET-ENTTYPE REDEFINES IDX-DET-RELATIVE.                 CL**2
00080          05  IDX-ENT-ENTTYPE     PICTURE 99.                         CL**2
00081          05  FILLER              PICTURE X(40).                      CL**2
00082          05  IDX-ENT-PAGENO      PICTURE 9(6).                       CL**2
00083      03  IDX-DET-CATNAME REDEFINES IDX-DET-ENTTYPE.                  CL**2
00084          05  IDX-CAT-CATNAME     PICTURE X(32).                      CL**2
00085          05  IDX-CAT-ENTTYPE     PICTURE 99.                         CL**2
00086          05  FILLER              PICTURE X(8).                       CL**2
00087          05  IDX-CAT-PAGENO      PICTURE 9(6).                       CL**2
