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