00001 ***** 12/22/98 00002 * DTSIR603 00003 * DTSIR603 FIELD ASSIGNMENT EXPORT REPORT RECORD. LV012 00004 * DTSIR603 00005 * NOTE: MQTR-OCCURS IS IN DESCENDING ORDER BY YRQ, WHICH IS DTSIR603 00006 * ALWAYS FILLED IN - IF THERE IS NO DATA FOR A PARTICULAR DTSIR603 00007 * YRQ THEN R603-CURR-RPT-TYPE CONTAINS A SPACE. DTSIR603 00008 * DTSIR603 00009 * R603-OPO-CNT IS ALWAYS LESS THAN 6 REGARDLESS OF HOW DTSIR603 00010 * MANY OPO RECORDS THERE REALLY ARE. DTSIR603 00011 * DTSIR603 00012 * "CHARGED" AMOUNTS ARE ADJUSTED FOR WAIVERS AND TOLERANCE CL*10 00013 * R603-QTR-*-IND INDICATES WHETHER THE CHARGED AMOUNT HAS CL*10 00014 * BEEN ADJUSTED AND FOR WHAT REASON. CL*10 00015 ***** DTSIR603 00016 SKIP1 DTSIR603 00017 10 R603-LENGTH PIC S9(04) COMP. CL**2 00018 SKIP1 DTSIR603 00019 10 R603-SORT-AREA. DTSIR603 00020 15 R603-REC-TYPE PIC X(03) VALUE '603'. DTSIR603 00021 15 R603-FIELD-REP-ID PIC X(02). DTSIR603 00022 15 R603-ASSIGN-NO PIC S9(09) COMP-3. DTSIR603 00023 SKIP1 DTSIR603 00024 10 R603-DATA-AREA. DTSIR603 00025 15 R603-EMP-NO PIC S9(07) COMP-3. DTSIR603 00026 15 R603-PRIMARY-NAME PIC X(40). CL**2 00027 15 R603-FEIN PIC S9(09) COMP-3. DTSIR603 00028 15 R603-ORG-TYPE PIC X(03). DTSIR603 00029 15 R603-SIC-CD PIC X(04). CL**2 00030 15 R603-NAICS-CD PIC X(06). CL**2 00031 15 R603-MAIL-ADDR. CL**4 00032 20 R603-MAIL-LINE OCCURS 5 TIMES CL**4 00033 INDEXED BY R603-MAIL-IDX CL**4 00034 PIC X(40). DTSIR603 00035 15 R603-MAIL-VOICE-1 PIC X(15). CL**5 00036 15 R603-PHYS-ADDR. CL**4 00037 20 R603-PHYS-LINE OCCURS 5 TIMES CL**4 00038 INDEXED BY R603-PHYS-IDX CL**4 00039 PIC X(40). DTSIR603 00040 15 R603-PHYS-VOICE-1 PIC X(15). CL**5 00041 15 R603-CREDIT-IND PIC X(01). DTSIR603 00042 15 R603-DEBIT-IND PIC X(01). DTSIR603 00043 15 R603-START-DATE PIC S9(09) COMP-3. DTSIR603 00044 15 R603-AUDIT-START-YRQ PIC S9(05) COMP-3. DTSIR603 00045 15 R603-AUDIT-END-YRQ PIC S9(05) COMP-3. DTSIR603 00046 15 R603-AUDIT-IND PIC X(01). DTSIR603 00047 15 R603-FIELD-REP-OPID PIC X(08). DTSIR603 00048 SKIP1 DTSIR603 00049 15 R603-QTR-CNT PIC S9(04) COMP. CL**8 00050 15 R603-QTR-OCCURS OCCURS 12 TIMES CL**7 00051 INDEXED BY R603-QTR-IDX. DTSIR603 00052 20 R603-QTR-YRQ PIC S9(05) COMP-3. DTSIR603 00053 20 R603-QTR-CURR-RPT-TYPE DTSIR603 00054 PIC X(01). DTSIR603 00055 20 R603-QTR-UI-RATE PIC S9(01)V9(04) DTSIR603 00056 COMP-3. DTSIR603 00057 20 R603-QTR-WAGE-CHNG-DATE DTSIR603 00058 PIC S9(09) COMP-3. DTSIR603 00059 20 R603-QTR-TOT-WAGE PIC S9(11)V99 DTSIR603 00060 COMP-3. DTSIR603 00061 20 R603-QTR-EXCESS-WAGE DTSIR603 00062 PIC S9(11)V99 DTSIR603 00063 COMP-3. DTSIR603 00064 20 R603-QTR-TAX-WAGE PIC S9(11)V99 DTSIR603 00065 COMP-3. DTSIR603 00066 20 R603-QTR-TAX-CHARGED-AMT CL**3 00067 PIC S9(09)V99 DTSIR603 00068 COMP-3. DTSIR603 00069 20 R603-QTR-TAX-TOLERATED-IND CL*11 00070 PIC X(01). CL*11 00071 88 R603-QTR-TAX-TOLERATED-YES-88 CL*11 00072 VALUE 'T'. CL*12 00073 88 R603-QTR-TAX-TOLERATED-NO-88 CL*11 00074 VALUE SPACE. CL*12 00075 20 R603-QTR-TAX-PAID-AMT CL**3 00076 PIC S9(09)V99 CL**3 00077 COMP-3. CL**3 00078 20 R603-QTR-PEN-CHARGED-AMT CL**3 00079 PIC S9(09)V99 CL**3 00080 COMP-3. CL**3 00081 20 R603-QTR-PEN-TOLERATED-IND CL*11 00082 PIC X(01). CL*11 00083 88 R603-QTR-PEN-TOLERATED-YES-88 CL*11 00084 VALUE 'T'. CL*12 00085 88 R603-QTR-PEN-TOLERATED-NO-88 CL*11 00086 VALUE SPACE. CL*12 00087 20 R603-QTR-PEN-WAIVED-IND CL*11 00088 PIC X(01). CL*11 00089 88 R603-QTR-PEN-WAIVED-YES-88 CL*11 00090 VALUE 'W'. CL*12 00091 88 R603-QTR-PEN-WAIVED-NO-88 CL*11 00092 VALUE SPACE. CL*12 00093 20 R603-QTR-PEN-PAID-AMT CL**3 00094 PIC S9(09)V99 CL**3 00095 COMP-3. CL**3 00096 20 R603-QTR-INT-CHARGED-AMT CL**3 00097 PIC S9(09)V99 CL**3 00098 COMP-3. CL**3 00099 20 R603-QTR-INT-TOLERATED-IND CL*11 00100 PIC X(01). CL*11 00101 88 R603-QTR-INT-TOLERATED-YES-88 CL*11 00102 VALUE 'T'. CL*12 00103 88 R603-QTR-INT-TOLERATED-NO-88 CL*11 00104 VALUE SPACE. CL*12 00105 20 R603-QTR-INT-WAIVED-IND CL*11 00106 PIC X(01). CL*11 00107 88 R603-QTR-INT-WAIVED-YES-88 CL*11 00108 VALUE 'W'. CL*12 00109 88 R603-QTR-INT-WAIVED-NO-88 CL*11 00110 VALUE SPACE. CL*12 00111 20 R603-QTR-INT-PAID-AMT CL**3 00112 PIC S9(09)V99 CL**3 00113 COMP-3. CL**3 00114 SKIP1 DTSIR603 00115 15 R603-OPO-CNT PIC S9(04) COMP. DTSIR603 00116 15 R603-OPO-OCCURS OCCURS 5 TIMES DTSIR603 00117 INDEXED BY R603-OPO-IDX. DTSIR603 00118 20 R603-OPO-NAME PIC X(32). DTSIR603 00119 20 R603-OPO-TITLE PIC X(20). DTSIR603 00120 20 R603-OPO-SSN PIC S9(09) COMP-3. DTSIR603