121 lines
9.5 KiB
COBOL
121 lines
9.5 KiB
COBOL
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
|