00001 ***** 01/19/99 00002 * DTSIR604 00003 * DTSIR604 FIELD ASSIGNMENT WAGE EXTRACT PARAMETER GENERATION LV015 00004 * REPORT RECORDS. DTSIR604 00005 * DTSIR604 00006 * REVISED FOR DC - 11/18/1998 GD DTSIR604 00007 ***** DTSIR604 00008 SKIP1 DTSIR604 00009 10 R604-LENGTH PIC S9(04) COMP. DTSIR604 00010 SKIP1 DTSIR604 00011 10 R604-SORT-AREA. DTSIR604 00012 15 R604-REC-TYPE PIC X(03). CL*11 00013 15 R604-EMP-NO PIC S9(07) COMP-3. DTSIR604 00014 SKIP1 DTSIR604 00015 10 R604-DATA-AREA. DTSIR604 00016 15 R604-PRIMARY-NAME PIC X(40). CL**5 00017 15 R604-START-YRQ PIC S9(05) COMP-3. DTSIR604 00018 15 R604-LAST-YRQ PIC S9(05) COMP-3. DTSIR604 00019 15 R604-ASSIGN-NO PIC S9(09) COMP-3. DTSIR604 00020 15 R604-FIELD-REP-ID PIC X(02). DTSIR604 00021 15 R604-FIELD-REP-OPID PIC X(08). DTSIR604 00022 15 R604-MAIL-ADDR. CL**5 00023 20 R604-MAIL-LINE OCCURS 5 TIMES CL**5 00024 INDEXED BY R604-MAIL-IDX CL**5 00025 PIC X(40). DTSIR604 00026 15 R604-MAIL-VOICE-1 PIC X(15). CL**5 00027 15 R604-PHYS-ADDR. CL**5 00028 20 R604-PHYS-LINE OCCURS 5 TIMES CL**5 00029 INDEXED BY R604-PHYS-IDX CL**5 00030 PIC X(40). DTSIR604 00031 15 R604-PHYS-VOICE-1 PIC X(15). CL**5 00032 15 R604-QTR-OCCURS OCCURS 04 TIMES CL*13 00033 INDEXED BY R604-QTR-IDX. CL**6 00034 20 R604-QTR-YRQ PIC S9(05) COMP-3. CL**6 00035 20 R604-QTR-CURR-RPT-TYPE CL**6 00036 PIC X(01). CL**6 00037 20 R604-QTR-UI-RATE PIC S9(01)V9(04) CL**6 00038 COMP-3. CL**6 00039 20 R604-QTR-WAGE-CHNG-DATE CL**6 00040 PIC S9(09) COMP-3. CL**6 00041 20 R604-QTR-TOT-WAGE PIC S9(11)V99 CL**6 00042 COMP-3. CL**6 00043 20 R604-QTR-EXCESS-WAGE CL**6 00044 PIC S9(11)V99 CL**6 00045 COMP-3. CL**6 00046 20 R604-QTR-TAX-WAGE PIC S9(11)V99 CL**6 00047 COMP-3. CL**9 00048 15 R604-OPO-CNT PIC S9(04) COMP. CL**8 00049 15 R604-OPO-DATA. CL*15 00050 20 R604-OPO-LINE OCCURS 5 TIMES CL*15 00051 INDEXED BY R604-OPO-IDX. CL*15 00052 25 R604-OPO-NAME PIC X(32). CL*15 00053 25 R604-OPO-TITLE PIC X(20). CL*15 00054 25 R604-OPO-SSN PIC S9(09) COMP-3. CL*15 00055 15 R604-TAXABLE-WAGE-BASE PIC S9(07)V99 COMP-3. CL*14