00001 *****                                                             03/03/99
00002 *                                                                 DTSIR719
00003 *    DTSIR719    RQC CONTRIBUTION REPORT UNIVERSE REPORT RECORD.     LV011
00004 *                                                                    CL*11
00005 *                                                                    CL*11
00006 *                03/03/1999  REVIEWED AND MODIFIED FOR DC.  EHH      CL*11
00007 *                                                                    CL*11
00008 *****                                                                CL*11
00009                                                                      CL*11
00010          10  R719-LENGTH         PIC S9(04)  COMP.                   CL*11
00011                                                                      CL*11
00012          10  R719-SORT-AREA.                                         CL*11
00013              15  R719-REC-TYPE           PIC  X(03)  VALUE '719'.    CL*11
00014              15  R719-EMP-NO             PIC S9(07)      COMP-3.     CL*11
00015                                                                      CL*11
00016          10  R719-DATA-AREA.                                         CL*11
00017              15  R719-RUN-DATE           PIC S9(09)      COMP-3.     CL*11