00001 *****                                                             04/01/99
00002 *                                                                 DTSIR718
00003 *    DTSIR718    RQC FIELD AUDIT UNIVERSE REPORT RECORD.             LV002
00004 *                                                                 DTSIR718
00005 *****                                                             DTSIR718
00006      SKIP1                                                        DTSIR718
00007          10  R718-LENGTH         PIC S9(04)  COMP.                   CL**2
00008      SKIP1                                                        DTSIR718
00009          10  R718-SORT-AREA.                                      DTSIR718
00010              15  R718-REC-TYPE           PIC  X(03)  VALUE '718'. DTSIR718
00011              15  R718-EMP-NO             PIC S9(07)      COMP-3.  DTSIR718
00012      SKIP1                                                        DTSIR718
00013          10  R718-DATA-AREA.                                      DTSIR718
00014              15  R718-TRANS-TYPE-IND     PIC  X(01).              DTSIR718
00015                  88  R718-TRANS-TYPE-RANDOM-88       VALUE '1'.   DTSIR718
00016                  88  R718-TRANS-TYPE-OTHER-88        VALUE '2'.   DTSIR718
00017              15  R718-PROCESSED-DATE     PIC S9(09)      COMP-3.  DTSIR718