55 lines
4.3 KiB
COBOL
55 lines
4.3 KiB
COBOL
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
|