*COMDECK  RPTWORK 
00001  01  CATALOGUE-REPORT-WORK-AREAS.                                 02/28/78
00002      03  IDX-DET-REC.                                             RPTWORK 
00003          05  IDX-DET-REQTYPE    PICTURE XX.                          LV001
00004          05  IDX-DET-REQNO      PICTURE 99.                       RPTWORK 
00005          05  IDX-DET-RECTYPE    PICTURE 9.                        RPTWORK 
00006          05  IDX-DET-RECSEQ     PICTURE 9(3).                     RPTWORK 
00007          05  IDX-DET-RELATIVE.                                       CL**2
00008              07  IDX-REL-RETNO          PICTURE 9(6).                CL**2
00009              07  IDX-REL-CATNAME        PICTURE X(32).               CL**2
00010              07  IDX-REL-ENTTYPE        PICTURE 99.                  CL**2
00011              07  IDX-REL-RETLEV         PICTURE 99.                  CL**2
00012              07  IDX-REL-PAGENO         PICTURE 9(6).                CL**2
00013          05  IDX-DET-ENTTYPE REDEFINES IDX-DET-RELATIVE.             CL**2
00014              07  IDX-ENT-ENTTYPE        PICTURE 99.                  CL**2
00015              07  FILLER                 PICTURE X(40).               CL**2
00016              07  IDX-ENT-PAGENO         PICTURE 9(6).                CL**2
00017          05  IDX-DET-CATNAME REDEFINES IDX-DET-ENTTYPE.              CL**2
00018              07  IDX-CAT-CATNAME        PICTURE X(32).               CL**2
00019              07  IDX-CAT-ENTTYPE        PICTURE 99.                  CL**2
00020              07  FILLER                 PICTURE X(8).                CL**2
00021              07  IDX-CAT-PAGENO         PICTURE 9(6).                CL**2
00022      03  USER-ENTRY-REC.                                          RPTWORK 
00023          05  USER-ENTRY-KEY.                                      RPTWORK 
00024              07  USER-ENTRY-REQNO   PICTURE 99.                   RPTWORK 
00025              07  USER-ENTRY-CNAME   PICTURE X(32).                RPTWORK 
00026              07  USER-ENTRY-ENTTYPE  PICTURE X(3).                RPTWORK 
00027              07  USER-ENTRY-RECTYPE  PICTURE X.                   RPTWORK 
00028          05  USER-ENTRY-FIELDS.                                   RPTWORK 
00029              07  USER-ENTRY-NAME-LST PICTURE X(3).                RPTWORK 
00030              07  USER-ENTRY-PWD-LST PICTURE X(5).                 RPTWORK 
00031              07  USER-ENTRY-DATE-LST PICTURE X(6).                RPTWORK 
00032              07  USER-ENTRY-REV-ADD PICTURE S9(5) .                RPTWORK
00033              07  USER-ENTRY-DATE-ADD PICTURE X(6).                RPTWORK 
00034              07  USER-ENTRY-USAGE   PICTURE S9(5) .                RPTWORK
00035              07  USER-ENTRY-RETNO   PICTURE 9(6).                 RPTWORK 
00036              07  USER-ENTRY-RETLEV   PICTURE 99.                     CL**2
00037      03  USER-LINE200-REC.                                           CL**2
00038          05  USER-L200-KEY.                                       RPTWORK 
00039              07  USER-L200-REQNO    PICTURE 99.                   RPTWORK 
00040              07  USER-L200-CNAME   PICTURE X(32).                 RPTWORK 
00041              07  USER-L200-ENTTYPE   PICTURE X(3).                RPTWORK 
00042              07  USER-L200-RECTYPE   PICTURE X.                   RPTWORK 
00043          05  USER-L200-FIELDS.                                    RPTWORK 
00044              07  USER-L200-CAT       PICTURE X(3).                RPTWORK 
00045              07  USER-L200-LENGTH    PICTURE S9(3) .               RPTWORK
00046              07  USER-L200-REV      PICTURE S9(5) .                RPTWORK
00047              07  USER-L200-LINE     PICTURE 9(4).                 RPTWORK 
00048              07  USER-L200-DATA     PICTURE X(147).               RPTWORK 
00049              07  FILLER              PICTURE X(6).                RPTWORK 
00050      03  CATEGORY-811-SW         PICTURE X VALUE SPACES.             CL**2
00051      03  CATEGORY-NAME-WORK.                                         CL**2
00052          05  CATEGORY-HDG-CHR    PICTURE X OCCURS 30 TIMES.          CL**2
00053      03  CATEGORY-NAME-ABBRV.                                        CL**2
00054          05  CATEGORY-ABB-CHR1    PICTURE X.                         CL**2
00055          05  CATEGORY-ABB-CHR2   PICTURE X.                          CL**2
00056          05  CATEGORY-ABB-CHR3   PICTURE X.                          CL**2
00057      03  CAT-RPT-SUBS.                                               CL**2
00058          05  HDG-SUB             PICTURE 99.                         CL**2
00059      03  CATEGORY-HEADER-811.                                        CL**2
00060      05  FILLER                  PICTURE X(15) VALUE SPACES.         CL**2
00061          05  CAT-HEADER-811      PICTURE X(30).                      CL**2
00062          05  FILLER              PICTURE X(35) VALUE SPACES.         CL**2
00063      03  SUB-HEAD-811.                                               CL**2
00064          05  FILLER              PICTURE X(14)                       CL**2
00065              VALUE "CATALOGUE NAME".                                 CL**2
00066          05  FILLER              PICTURE X(22) VALUE SPACES.         CL**2
00067          05  FILLER              PICTURE X(4) VALUE "TYPE".          CL**2
00068          05  FILLER              PICTURE X(92) VALUE SPACES.         CL**2
00069      03  SUB-HEAD2-811.                                              CL**2
00070          05  FILLER              PICTURE X(4) VALUE "LINE".          CL**2
00071          05  FILLER              PICTURE X(128) VALUE SPACES.        CL**2
00072  01  PRINTER-LINE.                                                   CL**2
00073      03  PRINT-LINE.                                                 CL**2
00074          05  ACTUAL-PRT-CTL          PICTURE X.                      CL**2
00075          05  PRINT-DATA.                                             CL**2
00076              07  FILLER  PICTURE X(24).                              CL**2
00077              07  PRT-TITLE.                                          CL**2
00078              10  FILLER              PICTURE X(10).                  CL**2
00079              10  PRT-DC              PICTURE X(31).                  CL**2
00080              10  FILLER              PICTURE X(10).                  CL**2
00081              07  FILLER              PICTURE X(25).                  CL**2
00082              07  PRT-DATE1.                                          CL**2
00083              10  FILLER              PICTURE X(19).                  CL**2
00084              10  PRT-PAGE            PICTURE X(13).                  CL**2
00085      03  PRINT-LINE1 REDEFINES PRINT-LINE.                           CL**2
00086          05  FILLER                  PICTURE X(23).                  CL**2
00087          05  PRT-EOP-MSG.                                            CL**2
00088              07  FILLER              PICTURE X(17).                  CL**2
00089              07  PRT-USER-TITLE      PICTURE X(20).                  CL**2
00090              07  FILLER              PICTURE X(17).                  CL**2
00091          05  FILLER                  PICTURE X(56).                  CL**2
00092      03  PRINT-LINE-811 REDEFINES PRINT-LINE.                        CL**2
00093          05  FILLER                  PICTURE X.                      CL**2
00094          05  PRT-PROP.                                               CL**2
00095              07  PRT-TITLE-811.                                      CL**2
00096              10  PRT-DC-811          PICTURE X(26).                  CL**2
00097              10  FILLER              PICTURE X(12).                  CL**2
00098              10  FILLER           PICTURE X(10).                     CL**2
00099              07  PRT-DATE1-811.                                      CL**2
00100              10  FILLER              PICTURE X(21).                  CL**2
00101              10  PRT-PAGE-811        PICTURE X(10).                  CL**2
00102              07  FILLER              PICTURE X(53).                  CL**2
00103          05  PRT-CONUSER-811 REDEFINES PRT-PROP.                     CL**2
00104              07  CON-USER-811    PICTURE X(27).                      CL**2
00105              07  FILLER          PICTURE X(5).                       CL**2
00106              07  DATE1-811       PICTURE X(32).                      CL**2
00107              07  FILLER           PICTURE X(5).                      CL**2
00108              07  PAGE-811        PICTURE X(10).                      CL**2
00109              07  FILLER           PICTURE X(53).                     CL**2
