DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
120
Copybook/DTSIR603.cpy
Normal file
120
Copybook/DTSIR603.cpy
Normal file
@ -0,0 +1,120 @@
|
||||
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
|
||||
Reference in New Issue
Block a user