56 lines
4.4 KiB
COBOL
56 lines
4.4 KiB
COBOL
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
|