DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
180
Copybook/DTSIZ30B.cpy
Normal file
180
Copybook/DTSIZ30B.cpy
Normal file
@ -0,0 +1,180 @@
|
||||
00001 **** 009/17/99
|
||||
00002 * DDTSIZ30B
|
||||
00003 * DTSIZ30B: DTSIZ309 WAS SPLIT INTO TWO: DTSIZ30A AND LV017
|
||||
00004 * DTSIZ30B BECAUSE COULDN'T GET "REPLACING" CL**9
|
||||
00005 * TO WORK WITH ++INCLUDE. CL**9
|
||||
00006 **** CL**9
|
||||
00007 CL**9
|
||||
00008 RD BUREAU-STATEMENT-OF-ACCOUNT CL**9
|
||||
00009 CONTROLS ARE FINAL CL**9
|
||||
00010 LINE LIMIT 80 CL**9
|
||||
00011 PAGE LIMIT 60 LINES CL**9
|
||||
00012 FIRST DETAIL 1 CL**9
|
||||
00013 LAST DETAIL 60. CL**9
|
||||
00014 SKIP2 CL**9
|
||||
00015 01 BUREAU-STATEMENT-HEADING TYPE IS DETAIL CL**9
|
||||
00016 * NEXT GROUP IS PLUS 1. CL*15
|
||||
00017 * 05 LINE 1. CL*15
|
||||
00018 * 10 COLUMN 31 PIC X(20) CL*15
|
||||
00019 * VALUE 'DISTRICT OF COLUMBIA'. CL*15
|
||||
00020 * 05 LINE 2. CL*15
|
||||
00021 * 10 COLUMN 23 PIC X(34) CL*15
|
||||
00022 * VALUE 'DEPARTMENT OF EMPLOYMENT SERVICES '. CL*15
|
||||
00023 * 05 LINE 3. CL*15
|
||||
00024 * 10 COLUMN 33 PIC X(40) CL*15
|
||||
00025 * VALUE 'TAX DIVISION'. CL*15
|
||||
00026 * 05 LINE 4. CL*15
|
||||
00027 * 10 COLUMN 27 PIC X(40) CL*15
|
||||
00028 * SOURCE WS-MAIL1-PHYS1-STRING. CL*15
|
||||
00029 * 05 LINE 5. CL*15
|
||||
00030 * 10 COLUMN 29 PIC X(40) CL*15
|
||||
00031 * SOURCE WS-AGY-MAIL2-CAPS. CL*15
|
||||
00032 * 05 LINE PLUS 1. CL*15
|
||||
00033 * 10 COLUMN 17 PIC X(16) CL*15
|
||||
00034 * VALUE 'TELEPHONE (202) '. CL*15
|
||||
00035 * 10 COLUMN 33 PIC X(03) CL*15
|
||||
00036 * SOURCE WS-PROGRAM-VOICE (4:3). CL*15
|
||||
00037 * 10 COLUMN 36 PIC X(01) CL*15
|
||||
00038 * VALUE '-'. CL*15
|
||||
00039 * 10 COLUMN 37 PIC X(04) CL*15
|
||||
00040 * SOURCE WS-PROGRAM-VOICE (7:4). CL*15
|
||||
00041 * 10 COLUMN 44 PIC X(11) CL*15
|
||||
00042 * VALUE 'FAX: (202) '. CL*15
|
||||
00043 * 10 COLUMN 55 PIC X(03) CL*15
|
||||
00044 * SOURCE WS-PROGRAM-FAX (4:3). CL*15
|
||||
00045 * 10 COLUMN 58 PIC X(01) CL*15
|
||||
00046 * VALUE '-'. CL*15
|
||||
00047 * 10 COLUMN 59 PIC X(04) CL*15
|
||||
00048 * SOURCE WS-PROGRAM-FAX (7:4). CL*15
|
||||
00049 05 LINE 13. CL*16
|
||||
00050 10 COLUMN 30 PIC X(20) CL**9
|
||||
00051 VALUE 'STATEMENT OF ACCOUNT'. CL**9
|
||||
00052 05 LINE PLUS 2. CL*16
|
||||
00053 10 COLUMN 7 PIC X(40) CL**9
|
||||
00054 SOURCE R309-FMT-LINE (1). CL**9
|
||||
00055 10 COLUMN 55 PIC X(14) CL**9
|
||||
00056 VALUE 'UI ACCOUNT NO:'. CL**9
|
||||
00057 10 COLUMN 70 PIC 999B999 CL**9
|
||||
00058 SOURCE R309-EMP-NO. CL**9
|
||||
00059 05 LINE PLUS 1. CL*16
|
||||
00060 10 COLUMN 7 PIC X(40) CL**9
|
||||
00061 SOURCE R309-FMT-LINE (2). CL**9
|
||||
00062 05 LINE PLUS 1. CL*16
|
||||
00063 10 COLUMN 7 PIC X(40) CL**9
|
||||
00064 SOURCE R309-FMT-LINE (3). CL**9
|
||||
00065 10 COLUMN 54 PIC X(15) CL**9
|
||||
00066 VALUE 'STATEMENT DATE:'. CL**9
|
||||
00067 10 COLUMN 70 PIC X(10) CL*16
|
||||
00068 SOURCE WS-STMT-DATE. CL**9
|
||||
00069 05 LINE PLUS 1. CL*16
|
||||
00070 10 COLUMN 8 PIC X(40) CL*17
|
||||
00071 SOURCE R309-FMT-LINE (4). CL**9
|
||||
00072 05 LINE PLUS 1. CL*16
|
||||
00073 10 COLUMN 8 PIC X(40) CL*17
|
||||
00074 SOURCE R309-FMT-LINE (5). CL**9
|
||||
00075 SKIP2 CL**9
|
||||
00076 01 BUREAU-STATEMENT-TEXT-LINE TYPE IS DETAIL. CL**9
|
||||
00077 05 LINE PLUS 1. CL**9
|
||||
00078 10 COLUMN 4 PIC X(72) CL**9
|
||||
00079 SOURCE R309-STMT-TEXT (R309-STMT-TEXT-IDX). CL**9
|
||||
00080 SKIP2 CL**9
|
||||
00081 01 BUREAU-STATEMENT-FOOTING TYPE IS DETAIL CL**9
|
||||
00082 NEXT GROUP IS NEXT PAGE. CL**9
|
||||
00083 05 LINE 26. CL**9
|
||||
00084 10 COLUMN 2 PIC X(77) CL*17
|
||||
00085 SOURCE L090-PARAGRAPH-LINE (1). CL**9
|
||||
00086 05 LINE 27. CL**9
|
||||
00087 10 COLUMN 2 PIC X(77) CL*17
|
||||
00088 SOURCE L090-PARAGRAPH-LINE (2). CL**9
|
||||
00089 05 LINE 28. CL**9
|
||||
00090 10 COLUMN 2 PIC X(20) CL*17
|
||||
00091 SOURCE L090-PARAGRAPH-LINE (3). CL**9
|
||||
00092 10 COLUMN 23 PIC X(40) CL*17
|
||||
00093 VALUE 'TO REQUEST A REFUND, SIGN BELOW AND RETU'. CL**9
|
||||
00094 10 COLUMN 63 PIC X(19) CL*17
|
||||
00095 VALUE 'RN THIS FORM TO THE'. CL**9
|
||||
00096 05 LINE 29. CL**9
|
||||
00097 10 COLUMN 2 PIC X(8) CL*17
|
||||
00098 VALUE 'DISTRICT'. CL**9
|
||||
00099 10 COLUMN 10 PIC X CL*17
|
||||
00100 VALUE QUOTE. CL**9
|
||||
00101 10 COLUMN 11 PIC X(25) CL*17
|
||||
00102 VALUE 'S UNEMPLOYMENT INSURANCE '. CL*17
|
||||
00103 10 COLUMN 37 PIC X(9) CL*17
|
||||
00104 VALUE 'DIVISION.'. CL**9
|
||||
00105 05 LINE 31. CL**9
|
||||
00106 10 COLUMN 2 PIC X(40) CL*17
|
||||
00107 VALUE 'NOTE: ALL CREDITS ARE SUBJECT TO REVIEW'. CL**9
|
||||
00108 10 COLUMN 42 PIC X(33) CL*17
|
||||
00109 VALUE '. IF OTHER LIABILITIES ACCRUE TO'. CL**9
|
||||
00110 05 LINE 32. CL**9
|
||||
00111 10 COLUMN 2 PIC X(40) CL*17
|
||||
00112 VALUE 'YOUR UNEMPLOYMENT INSURANCE ACCOUNT, THI'. CL**9
|
||||
00113 10 COLUMN 42 PIC X(33) CL*17
|
||||
00114 VALUE 'S CREDIT WILL BE APPLIED TOWARD '. CL**9
|
||||
00115 05 LINE 33. CL**9
|
||||
00116 10 COLUMN 2 PIC X(40) CL*17
|
||||
00117 VALUE 'AMOUNTS DUE. IF THERE ARE CONTRIBUTION R'. CL**9
|
||||
00118 10 COLUMN 42 PIC X(40) CL*17
|
||||
00119 VALUE 'EPORTS THAT HAVE NOT BEEN FILED, YOUR '. CL**9
|
||||
00120 05 LINE 34. CL**9
|
||||
00121 10 COLUMN 2 PIC X(30) CL*17
|
||||
00122 VALUE 'REQUEST WILL BE DENIED.'. CL**9
|
||||
00123 05 LINE 36. CL**9
|
||||
00124 10 COLUMN 2 PIC X(40) CL*17
|
||||
00125 VALUE 'THE INFORMATION SHOWN ABOVE REFLECTS TRA'. CL**9
|
||||
00126 10 COLUMN 42 PIC X(28) CL*17
|
||||
00127 VALUE 'NSACTIONS PROCESSED THROUGH '. CL**9
|
||||
00128 10 COLUMN 70 PIC X(08) CL*17
|
||||
00129 SOURCE WS-LAST-ACCT-UPDATE-DATE. CL**9
|
||||
00130 05 LINE 38. CL**9
|
||||
00131 10 COLUMN 2 PIC X(40) CL*17
|
||||
00132 VALUE 'REFUND AUTHORIZATION: (COMPLETE ONLY IF'. CL**9
|
||||
00133 10 COLUMN 42 PIC X(33) CL*17
|
||||
00134 VALUE ' YOU ARE REQUESTING A REFUND) '. CL**9
|
||||
00135 05 LINE 40. CL**9
|
||||
00136 10 COLUMN 2 PIC X(40) CL*17
|
||||
00137 VALUE 'I REQUEST A REFUND OF MY CREDIT. I UNDE'. CL**9
|
||||
00138 10 COLUMN 42 PIC X(33) CL*17
|
||||
00139 VALUE 'RSTAND THE CREDIT IS SUBJECT TO '. CL**9
|
||||
00140 05 LINE 41. CL**9
|
||||
00141 10 COLUMN 2 PIC X(40) CL*17
|
||||
00142 VALUE 'REVIEW PRIOR TO REFUNDING. ANY ADDRESS '. CL**9
|
||||
00143 10 COLUMN 42 PIC X(33) CL*17
|
||||
00144 VALUE 'CHANGE IS INDICATED BELOW. '. CL**9
|
||||
00145 05 LINE 44. CL*13
|
||||
00146 10 COLUMN 2 PIC X(36) CL*17
|
||||
00147 VALUE ALL '_'. CL**9
|
||||
00148 10 COLUMN 50 PIC X(16) CL**9
|
||||
00149 VALUE ALL '_'. CL**9
|
||||
00150 05 LINE 45. CL*13
|
||||
00151 10 COLUMN 2 PIC X(20) CL*17
|
||||
00152 VALUE 'AUTHORIZED SIGNATURE'. CL**9
|
||||
00153 10 COLUMN 50 PIC X(04) CL**9
|
||||
00154 VALUE 'DATE'. CL**9
|
||||
00155 05 LINE 47. CL*13
|
||||
00156 10 COLUMN 2 PIC X(20) CL*17
|
||||
00157 VALUE 'ADDRESS CHANGE: '. CL**9
|
||||
00158 05 LINE 49. CL*13
|
||||
00159 10 COLUMN 2 PIC X(45) CL*17
|
||||
00160 VALUE ALL '_'. CL**9
|
||||
00161 05 LINE 51. CL*13
|
||||
00162 10 COLUMN 2 PIC X(45) CL*17
|
||||
00163 VALUE ALL '_'. CL**9
|
||||
00164 05 LINE PLUS 1. CL*15
|
||||
00165 10 COLUMN 17 PIC X(16) CL*15
|
||||
00166 VALUE 'TELEPHONE (202) '. CL*15
|
||||
00167 10 COLUMN 33 PIC X(03) CL*15
|
||||
00168 SOURCE WS-PROGRAM-VOICE (4:3). CL*15
|
||||
00169 10 COLUMN 36 PIC X(01) CL*15
|
||||
00170 VALUE '-'. CL*15
|
||||
00171 10 COLUMN 37 PIC X(04) CL*15
|
||||
00172 SOURCE WS-PROGRAM-VOICE (7:4). CL*15
|
||||
00173 10 COLUMN 44 PIC X(11) CL*15
|
||||
00174 VALUE 'FAX: (202) '. CL*15
|
||||
00175 10 COLUMN 55 PIC X(03) CL*15
|
||||
00176 SOURCE WS-PROGRAM-FAX (4:3). CL*15
|
||||
00177 10 COLUMN 58 PIC X(01) CL*15
|
||||
00178 VALUE '-'. CL*15
|
||||
00179 10 COLUMN 59 PIC X(04) CL*15
|
||||
00180 SOURCE WS-PROGRAM-FAX (7:4). CL*15
|
||||
Reference in New Issue
Block a user