39 lines
3.0 KiB
COBOL
39 lines
3.0 KiB
COBOL
00001 *************************************************************** 01/07/99
|
|
00002 * USED IN DTSV1500 DTSIQHST
|
|
00003 *************************************************************** LV004
|
|
00004 02 SORT-KEY. CL**2
|
|
00005 03 QHST-EMPL-ACCT-NO PIC 9(6) COMP-3. CL**2
|
|
00006 03 QHST-RECORD-TYPE PIC 9. DTSIQHST
|
|
00007 88 QHST-RECORD VALUE 4. CL**2
|
|
00008 03 QHST-YRQ PIC 9(3) COMP-3. CL**2
|
|
00009 03 QHST-DATE PIC 9(5) COMP-3. CL**2
|
|
00010 03 QHST-BATCH PIC 9(4) COMP-3. CL**2
|
|
00011 03 QHST-POSITION PIC 9(3) COMP-3. CL**2
|
|
00012 03 QHST-CDE PIC 9. DTSIQHST
|
|
00013 02 QTR-YR-Q PIC 9(3) COMP-3. CL**4
|
|
00014 02 RATE PIC V999 COMP-3. CL**2
|
|
00015 02 QTR-RCV-DTE PIC 9(3) COMP-3. CL**4
|
|
00016 02 TOT-WAGE PIC S9(8)V99 COMP-3. CL**2
|
|
00017 02 TAX-WAGE PIC S9(8)V99 COMP-3. CL**2
|
|
00018 02 RPTD-WAGE PIC S9(8)V99 COMP-3. CL**2
|
|
00019 02 COMP-TAX PIC S9(8)V99 COMP-3. CL**2
|
|
00020 02 RPTD-PAID PIC S9(6)V99 COMP-3. CL**2
|
|
00021 02 PD-CON PIC S9(6)V99 COMP-3. CL**2
|
|
00022 02 SOLVENCY-TAX-PD PIC S9(6)V99 COMP-3. CL**2
|
|
00023 02 PD-INT PIC S9(6)V99 COMP-3. CL**2
|
|
00024 02 PD-PEN PIC S9(6)V99 COMP-3. CL**2
|
|
00025 02 CONTRIB-DUE PIC S9(6)V99 COMP-3. CL**2
|
|
00026 02 PEN-DUE PIC S9(5)V99 COMP-3. CL**2
|
|
00027 02 INT-DUE PIC S9(6)V99 COMP-3. CL**2
|
|
00028 02 YRR PIC 9. CL**2
|
|
00029 02 INSTAL-CDE PIC X. CL**2
|
|
00030 02 LEGAL-CDE PIC X. CL**2
|
|
00031 02 WAGE-RPT PIC X. CL**2
|
|
00032 02 NO-R-NSF-CD PIC X. CL**2
|
|
00033 02 1ST-MO PIC S9(5) COMP-3. CL**2
|
|
00034 02 2ND-MO PIC S9(5) COMP-3. CL**2
|
|
00035 02 3RD-MO PIC S9(5) COMP-3. CL**2
|
|
00036 02 ESTIMATION-CDE PIC 9. CL**2
|
|
00037 02 EDIT-CDE PIC 9. CL**2
|
|
00038 02 SURCHARGE-PD PIC S9(6)V99 COMP-3. CL**2
|