*COMDECK  USERFD
00001  FD  USER-FILE                                                    02/12/78
           RECORDING MODE IS BINARY 
           LABEL RECORDS ARE OMITTED
00005      DATA RECORDS ARE USER-FILE-REC USER-REQ-REC                     CL**2
00006                  USER-ENTRY-REC USER-LINE120-REC                     CL**2
00007                  USER-LINE200-REC.                                   CL**2
00008  01  USER-FILE-REC.                                                  CL**2
00009      03  USER-FILE-KEY.                                              CL**2
00010          05  USER-FILE-REQNO     PICTURE 99.                         CL**2
00011          05  USER-FILE-CNAME     PICTURE X(32).                      CL**2
00012          05  USER-FILE-ENTTYPE   PICTURE X(3).                       CL**2
00013          05  USER-FILE-RECTYPE   PICTURE X.                          CL**2
00014      03  USER-FILE-FIELDS.                                           CL**2
00015          05  USER-FILE-NAME      PICTURE X(27).                      CL**2
00016          05  USER-FILE-ADDRESS   PICTURE X(27).                      CL**2
00017          05  USER-FILE-REV-NUM   PICTURE S9(5) .                   USERFD 
00018          05  USER-FILE-DATE-UPD  PICTURE X(8).                       CL**2
00019          05  USER-FILE-DATE-RES  PICTURE X(8).                       CL**2
00020          05  USER-FILE-NUM-RES   PICTURE S9(5) .                   USERFD 
               05  USER-FILE-CURR-DATE PICTURE X(8).
00022  01  USER-REQ-REC.                                                   CL**2
00023      03  USER-REQ-KEY.                                               CL**2
00024          05  USER-REQ-REQNO     PICTURE 99.                          CL**2
00025          05  USER-REQ-CNAME      PICTURE X(32).                      CL**2
00026          05  USER-REQ-ENTTYPEK   PICTURE X(3).                       CL**2
00027          05  USER-REQ-RECTYPE    PICTURE X.                          CL**2
00028      03  USER-REQ-FIELDS.                                            CL**2
00029          05  USER-REQ-RPTNAME    PICTURE X(32).                      CL**2
00030          05  USER-REQ-STARTCNAME  PICTURE X(32).                     CL**2
00031          05  USER-REQ-ENTITY     PICTURE X(15).                      CL**2
00032          05  USER-REQ-ENTTYPE    PICTURE XXX.                        CL**2
00033          05  USER-REQ-TITLE     PICTURE X(50).                       CL**2
00034  01  USER-ENTRY-REC.                                                 CL**2
00035      03  USER-ENTRY-KEY.                                             CL**2
00036          05  USER-ENTRY-REQNO    PICTURE 99.                         CL**2
00037          05  USER-ENTRY-CNAME    PICTURE X(32).                      CL**2
00038          05  USER-ENTRY-ENTTYPE  PICTURE X(3).                       CL**2
00039          05  USER-ENTRY-RECTYPE  PICTURE X.                          CL**2
00040      03  USER-ENTRY-FIELDS.                                          CL**2
00041          05  USER-ENTRY-NAME-LST  PICTURE X(3).                      CL**2
00042          05  USER-ENTRY-PWD-LST  PICTURE X(5).                       CL**2
00043          05  USER-ENTRY-DATE-LST PICTURE X(6).                       CL**2
00044          05  USER-ENTRY-REV-ADD  PICTURE S9(5) .                   USERFD 
00045          05  USER-ENTRY-DATE-ADD PICTURE X(6).                       CL**2
00046          05  USER-ENTRY-USAGE    PICTURE S9(5) .                   USERFD 
00047          05  USER-ENTRY-RETNO    PICTURE 9(6).                       CL**2
00048          05  USER-ENTRY-RETLEV   PICTURE 99.                         CL**2
00049  01  USER-LINE120-REC.                                               CL**2
00050      03  USER-L120-KEY.                                              CL**2
00051          05  USER-L120-REQNO     PICTURE 99.                         CL**2
00052          05  USER-L120-CNAME     PICTURE X(32).                      CL**2
00053          05  USER-L120-ENTTYPE   PICTURE X(3).                       CL**2
00054          05  USER-L120-RECTYPE   PICTURE X.                          CL**2
00055      03  USER-L120-FIELDS.                                           CL**2
00056          05  USER-L120-CAT       PICTURE X(3).                       CL**2
00057          05  USER-L120-LENGTH    PICTURE S9(3) .                   USERFD 
00058          05  USER-L120-REV       PICTURE S9(5) .                   USERFD 
00059          05  USER-L120-LINE      PICTURE 9(4).                       CL**2
00060          05  USER-L120-DATA.                                         CL**2
00061              07  USER-L120-COMMENT   PICTURE X.                      CL**2
00062              07  FILLER              PICTURE X(66).                  CL**2
00063          05  FILLER              PICTURE X(3).                       CL**2
00064  01  USER-LINE200-REC.                                               CL**2
00065      03  USER-L200-KEY.                                              CL**2
00066          05  USER-L200-REQNO     PICTURE 99.                         CL**2
00067          05  USER-L200-CNAME     PICTURE X(32).                      CL**2
00068          05  USER-L200-ENTTYPE   PICTURE X(3).                       CL**2
00069          05  USER-L200-RECTYPE   PICTURE X.                          CL**2
00070      03  USER-L200-FIELDS.                                           CL**2
00071          05  USER-L200-CAT       PICTURE X(3).                       CL**2
00072          05  USER-L200-LENGTH    PICTURE S9(3) .                   USERFD 
00073          05  USER-L200-REV       PICTURE S9(5) .                   USERFD 
00074          05  USER-L200-LINE      PICTURE 9(4).                       CL**2
00075          05  USER-L200-DATA.                                         CL**2
00076              07  USER-L200-COMMENT   PICTURE X.                      CL**2
00077              07  FILLER              PICTURE X(146).                 CL**2
00078          05  FILLER              PICTURE X(3).                       CL**2
