00001 *****                                                             06/05/00
00002 *                                                                 DTSIR733
00003 *   DTSIR733   REQUEST TO COMBINE ARCHIVE RECORDS                    LV001
00004 *              REPORT RECORDS.                                    DTSIR733
00005 *                                                                 DTSIR733
00006 *              IN DTSBR733, PROCESS ONLY THE FIRST REPORT RECORD  DTSIR733
00007 *              YOU RECEIVE FOR ANY GIVEN EMPLOYER - BYPASS THE    DTSIR733
00008 *              DUPLICATES.                                        DTSIR733
00009 *                                                                 DTSIR733
00010 *                                                                 DTSIR733
00011 *              09/02/1999  REVIEWED AND MODIFIED FOR DC.  EHH     DTSIR733
00012 *                                                                 DTSIR733
00013 *****                                                             DTSIR733
00014                                                                   DTSIR733
00015          10  R733-LENGTH         PIC S9(04)  COMP.                DTSIR733
00016                                                                   DTSIR733
00017          10  R733-SORT-AREA.                                      DTSIR733
00018              15  R733-REC-TYPE           PIC  X(03)  VALUE '733'. DTSIR733
00019              15  R733-EMP-NO             PIC S9(07)  COMP-3.      DTSIR733
00020                                                                   DTSIR733
00021          10  R733-DATA-AREA.                                      DTSIR733
00022              15  R733-OP-ID              PIC  X(08).              DTSIR733