*COMDECK  RELWKFD 
00001 *                                                                 04/20/78
00002 *    FD FOR RELATIONAL REPORT WORK FILE                           RELWKFD 
00003 *                                                                    LV002
00004  FD  RELATIONAL-WORK-FILE                                         RELWKFD 
           LABEL RECORDS ARE OMITTED
           BLOCK CONTAINS 640 CHARACTERS
00007      DATA RECORDS ARE REL-WORK-REC.                               RELWKFD 
00008  01  REL-WORK-REC.                                                RELWKFD 
00009      03  REL-WORK-COMMON.                                         RELWKFD 
00010          05  REL-WORK-REQTYPE            PICTURE XX.              RELWKFD 
00011          05  REL-WORK-REQNO              PICTURE 99.              RELWKFD 
00012          05  REL-WORK-RECTYPE            PICTURE 9.               RELWKFD 
00013          05  REL-WORK-RECSEQ             PICTURE 999.             RELWKFD 
00014      03  REL-WORK-TYPE.                                           RELWKFD 
00015          05  REL-WORK1-ENTTYPE           PICTURE 99.              RELWKFD 
00016          05  REL-WORK1-NAME              PICTURE X(32).           RELWKFD 
00017          05  REL-WORK1-SORTID            PICTURE X(10).           RELWKFD 
00018          05  REL-WORK1-RECCODE            PICTURE X.                 CL**2
00019          05  REL-WORK1-CAT               PICTURE 999.             RELWKFD 
00020          05  REL-WORK1-LINE              PICTURE 9(4).            RELWKFD 
00021          05  REL-WORK1-CATNAME           PICTURE X(32).           RELWKFD 
00022          05  REL-WORK1-SELNO             PICTURE 99.              RELWKFD 
00023      03  REL-WORK-FLDNO.                                             CL**2
00024          05  REL-WORK1-HEADER.                                       CL**2
00025              07  REL-WORK1-ENTNO     PICTURE XX.                     CL**2
00026              07  REL-WORK1-CATNO     PICTURE XXX.                    CL**2
00027          05  REL-WORK1-ID            PICTURE XX.                     CL**2
