00001 ***** 03/02/99 00002 * REVIEWED BY D.SHEPPERSON 03/02/99 DTSIR737 00003 * LV003 00004 * DTSIR737 WAGE FILE / TAX FILE COMPARISON REPORT RECORD. CL**2 00005 * DTSIR737 00006 * CL**2 00007 * 02/13/1999 REVIEWED AND MODIFIED FOR DC. EHH CL**2 00008 * CL**2 00009 ***** DTSIR737 00010 DTSIR737 00011 10 R737-LENGTH PIC S9(04) COMP. CL**2 00012 DTSIR737 00013 10 R737-SORT-AREA. DTSIR737 00014 15 R737-REC-TYPE PIC X(03) VALUE '737'. DTSIR737 00015 15 R737-TOL-GROUP-IND DTSIR737 00016 PIC X(01). DTSIR737 00017 15 R737-TOL-GROUP-IND-NUM DTSIR737 00018 REDEFINES R737-TOL-GROUP-IND DTSIR737 00019 PIC 9(01). DTSIR737 00020 15 R737-EMP-NO PIC S9(07) COMP-3. DTSIR737 00021 DTSIR737 00022 10 R737-DATA-AREA. DTSIR737 00023 15 R737-TOL-MIN-AMT PIC S9(11)V9(02) COMP-3.DTSIR737 00024 15 R737-TOL-MAX-AMT PIC S9(11)V9(02) COMP-3.DTSIR737 00025 88 R737-TOL-MAX-BLANK-88 DTSIR737 00026 VALUE +99999999999.99. DTSIR737 00027 DTSIR737 00028 15 R737-PRIMARY-NAME PIC X(40). CL**2 00029 DTSIR737 00030 15 R737-ADDRESS. DTSIR737 00031 20 R737-ATTN-LINE PIC X(40). DTSIR737 00032 20 R737-DELIV-LINE-1 PIC X(40). CL**2 00033 20 R737-DELIV-LINE-2 PIC X(40). CL**2 00034 20 R737-CITY PIC X(25). DTSIR737 00035 20 R737-ST PIC X(02). DTSIR737 00036 20 R737-ZIP PIC X(10). DTSIR737 00037 20 R737-ADVANCED-BARCODE CL**2 00038 PIC X(14). CL**2 00039 CL**2 00040 15 R737-YRQ-CNT PIC S9(04) COMP. DTSIR737 00041 DTSIR737 00042 15 R737-YRQ-AREA OCCURS 4 TIMES DTSIR737 00043 INDEXED BY R737-YRQ-IDX. DTSIR737 00044 20 R737-YRQ PIC S9(05) COMP-3.DTSIR737 00045 20 R737-TOT-FROM-DTS PIC S9(11)V9(02) COMP-3. CL**2 00046 20 R737-TOT-FROM-WAGE PIC S9(11)V9(02) COMP-3.DTSIR737 00047 20 R737-TOT-DIFFERENCE-IND DTSIR737 00048 PIC X(02). DTSIR737 00049 20 R737-TAX-FROM-DTS PIC S9(11)V9(02) COMP-3. CL**2 00050 20 R737-TAX-FROM-WAGE PIC S9(11)V9(02) COMP-3.DTSIR737 00051 20 R737-TAX-DIFFERENCE-IND DTSIR737 00052 PIC X(02). DTSIR737 00053 20 R737-BATCH-NO PIC S9(05) COMP-3.DTSIR737 00054 20 R737-UI-RATE PIC S9(01)V9(04) COMP-3.DTSIR737