DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
203
Copybook/DTSXL30B.cpy
Normal file
203
Copybook/DTSXL30B.cpy
Normal file
@ -0,0 +1,203 @@
|
||||
00001 **** 003/20/01
|
||||
00002 * DDTSXL30B
|
||||
00003 * DTSXL30B: DTSXL309 WAS SPLIT INTO TWO: DTSIZ30A AND LV086
|
||||
00004 * DTSIZ30B BECAUSE TWO REPORTS ARE GENERATED. DTSXL30B
|
||||
00005 * ONE REPORT GOES TO XEROX LASER AS A REPORT DTSXL30B
|
||||
00006 * AND THE OTHER AS SELF-MAILER RESPECTIVELY. DTSXL30B
|
||||
00007 **** DTSXL30B
|
||||
00008 DTSXL30B
|
||||
00009 01 BUREAU-STATEMENT-HEADING. DTSXL30B
|
||||
00010 05 BSH-LINE-8. DTSXL30B
|
||||
00011 10 FILLER PIC X(37) VALUE SPACES. DTSXL30B
|
||||
00012 10 FILLER PIC X(20) DTSXL30B
|
||||
00013 VALUE 'DISTRICT OF COLUMBIA'. DTSXL30B
|
||||
00014 05 BSH-LINE-9. DTSXL30B
|
||||
00015 10 FILLER PIC X(30) VALUE SPACES. DTSXL30B
|
||||
00016 10 FILLER PIC X(34) DTSXL30B
|
||||
00017 VALUE 'DEPARTMENT OF EMPLOYMENT SERVICES '. DTSXL30B
|
||||
00018 05 BSH-LINE-10. DTSXL30B
|
||||
00019 10 FILLER PIC X(40) VALUE SPACES. DTSXL30B
|
||||
00020 10 FILLER PIC X(40) DTSXL30B
|
||||
00021 VALUE 'TAX DIVISION'. DTSXL30B
|
||||
00022 05 BSH-LINE-11. DTSXL30B
|
||||
00023 10 FILLER PIC X(34) VALUE SPACES. DTSXL30B
|
||||
00024 10 WS-MAIL1-PHYS1-STRING PIC X(40). DTSXL30B
|
||||
00025 05 BSH-LINE-12. DTSXL30B
|
||||
00026 10 FILLER PIC X(36) VALUE SPACES. DTSXL30B
|
||||
00027 10 WS-AGY-MAIL2-CAPS PIC X(40). DTSXL30B
|
||||
00028 05 BSH-LINE-13. DTSXL30B
|
||||
00029 10 FILLER PIC X(26) VALUE SPACES. DTSXL30B
|
||||
00030 10 FILLER PIC X(16) DTSXL30B
|
||||
00031 VALUE 'TELEPHONE (202) '. DTSXL30B
|
||||
00032 10 BSH-OPR-VOICE-1 PIC X(03). DTSXL30B
|
||||
00033 10 FILLER PIC X(01) DTSXL30B
|
||||
00034 VALUE '-'. DTSXL30B
|
||||
00035 10 BSH-OPR-VOICE-2 PIC X(04). DTSXL30B
|
||||
00036 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B
|
||||
00037 10 FILLER PIC X(11) DTSXL30B
|
||||
00038 VALUE 'FAX: (202) '. DTSXL30B
|
||||
00039 10 BSH-OPR-FAX-1 PIC X(03). DTSXL30B
|
||||
00040 10 FILLER PIC X(01) DTSXL30B
|
||||
00041 VALUE '-'. DTSXL30B
|
||||
00042 10 BSH-OPR-FAX-2 PIC X(04). DTSXL30B
|
||||
00043 05 BSH-LINE-14 PIC X(133) VALUE SPACES. DTSXL30B
|
||||
00044 05 BSH-LINE-15. DTSXL30B
|
||||
00045 10 FILLER PIC X(37) VALUE SPACES. DTSXL30B
|
||||
00046 10 FILLER PIC X(20) DTSXL30B
|
||||
00047 VALUE 'STATEMENT OF ACCOUNT'. DTSXL30B
|
||||
00048 05 BSH-LINE-16 PIC X(133) VALUE SPACES. DTSXL30B
|
||||
00049 05 BSH-LINE-17 PIC X(133) VALUE SPACES. DTSXL30B
|
||||
00050 05 BSH-LINE-18. DTSXL30B
|
||||
00051 10 FILLER PIC X(06) VALUE SPACES. DTSXL30B
|
||||
00052 10 BSH-FMT-LINE-1 PIC X(40). DTSXL30B
|
||||
00053 10 FILLER PIC X(10) VALUE SPACES. DTSXL30B
|
||||
00054 10 FILLER PIC X(14) DTSXL30B
|
||||
00055 VALUE 'UI ACCOUNT NO:'. DTSXL30B
|
||||
00056 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B
|
||||
00057 10 BSH-EMP-NO PIC 999B999. DTSXL30B
|
||||
00058 05 BSH-LINE-19. DTSXL30B
|
||||
00059 10 FILLER PIC X(06) VALUE SPACES. DTSXL30B
|
||||
00060 10 BSH-FMT-LINE-2 PIC X(40). DTSXL30B
|
||||
00061 05 BSH-LINE-20. DTSXL30B
|
||||
00062 10 FILLER PIC X(06) VALUE SPACES. DTSXL30B
|
||||
00063 10 BSH-FMT-LINE-3 PIC X(40). DTSXL30B
|
||||
00064 10 FILLER PIC X(09) VALUE SPACES. DTSXL30B
|
||||
00065 10 FILLER PIC X(15) DTSXL30B
|
||||
00066 VALUE ' FEIN:'. DTSXL30B
|
||||
00067 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B
|
||||
00068 10 BSH-EMP-FEIN PIC ZZBZZZZZZZ. DTSXL30B
|
||||
00069 05 BSH-LINE-21. DTSXL30B
|
||||
00070 10 FILLER PIC X(06) VALUE SPACES. DTSXL30B
|
||||
00071 10 BSH-FMT-LINE-4 PIC X(40). DTSXL30B
|
||||
00072 05 BSH-LINE-22. DTSXL30B
|
||||
00073 10 FILLER PIC X(06) VALUE SPACES. DTSXL30B
|
||||
00074 10 BSH-FMT-LINE-5 PIC X(40). DTSXL30B
|
||||
00075 10 FILLER PIC X(09) VALUE SPACES. DTSXL30B
|
||||
00076 10 FILLER PIC X(15) DTSXL30B
|
||||
00077 VALUE 'STATEMENT DATE:'. DTSXL30B
|
||||
00078 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B
|
||||
00079 10 BSH-STMT-DATE PIC X(10). DTSXL30B
|
||||
00080 DTSXL30B
|
||||
00081 01 BUREAU-STATEMENT-TEXT-LINE. DTSXL30B
|
||||
00082 05 BST-LINE-23. DTSXL30B
|
||||
00083 10 FILLER PIC X(03) VALUE SPACES. DTSXL30B
|
||||
00084 10 BST-STMT-TEXT PIC X(72). DTSXL30B
|
||||
00085 SKIP2 DTSXL30B
|
||||
00086 01 BUREAU-STATEMENT-FOOTING. DTSXL30B
|
||||
00087 05 BSF-LINE-24 PIC X(133) VALUE SPACES. DTSXL30B
|
||||
00088 05 BSF-LINE-25 PIC X(133) VALUE SPACES. DTSXL30B
|
||||
00089 05 BSF-LINE-26. DTSXL30B
|
||||
00090 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B
|
||||
00091 10 BSF-PARA-LINE-1 PIC X(80). DTSXL30B
|
||||
00092 05 BSF-LINE-27. DTSXL30B
|
||||
00093 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B
|
||||
00094 10 BSF-PARA-LINE-2 PIC X(80). DTSXL30B
|
||||
00095 05 BSF-LINE-28. DTSXL30B
|
||||
00096 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B
|
||||
00097 10 BSF-PARA-LINE-3 PIC X(80). DTSXL30B
|
||||
00098 05 BSF-LINE-29. DTSXL30B
|
||||
00099 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B
|
||||
00100 10 BSF-PARA-LINE-4 PIC X(80). DTSXL30B
|
||||
00101 05 BSF-LINE-30 PIC X(133) VALUE SPACES. DTSXL30B
|
||||
00102 05 BSF-LINE-31. DTSXL30B
|
||||
00103 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B
|
||||
00104 10 FILLER PIC X(40) DTSXL30B
|
||||
00105 VALUE 'NOTE: ALL CREDITS ARE SUBJECT TO REVIEW'. DTSXL30B
|
||||
00106 10 FILLER PIC X(33) DTSXL30B
|
||||
00107 VALUE '. IF OTHER LIABILITIES ACCRUE TO'. DTSXL30B
|
||||
00108 05 BSF-LINE-32. DTSXL30B
|
||||
00109 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B
|
||||
00110 10 FILLER PIC X(40) DTSXL30B
|
||||
00111 VALUE 'YOUR UNEMPLOYMENT INSURANCE ACCOUNT, THI'. DTSXL30B
|
||||
00112 10 FILLER PIC X(33) DTSXL30B
|
||||
00113 VALUE 'S CREDIT WILL BE APPLIED TOWARD '. DTSXL30B
|
||||
00114 05 BSF-LINE-33. DTSXL30B
|
||||
00115 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B
|
||||
00116 10 FILLER PIC X(40) DTSXL30B
|
||||
00117 VALUE 'AMOUNTS DUE. IF THERE ARE CONTRIBUTION R'. DTSXL30B
|
||||
00118 10 FILLER PIC X(40) DTSXL30B
|
||||
00119 VALUE 'EPORTS THAT HAVE NOT BEEN FILED, YOUR '. DTSXL30B
|
||||
00120 05 BSF-LINE-34. DTSXL30B
|
||||
00121 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B
|
||||
00122 10 FILLER PIC X(30) DTSXL30B
|
||||
00123 VALUE 'REQUEST WILL BE DENIED.'. DTSXL30B
|
||||
00124 05 BSF-LINE-35 PIC X(133) VALUE SPACES. DTSXL30B
|
||||
00125 05 BSF-LINE-36. DTSXL30B
|
||||
00126 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B
|
||||
00127 10 FILLER PIC X(40) DTSXL30B
|
||||
00128 VALUE 'THE INFORMATION SHOWN ABOVE REFLECTS TRA'. DTSXL30B
|
||||
00129 10 FILLER PIC X(28) DTSXL30B
|
||||
00130 VALUE 'NSACTIONS PROCESSED THROUGH '. DTSXL30B
|
||||
00131 10 BSF-LAST-ACCT-UPD-DATE PIC X(10). DTSXL30B
|
||||
00132 10 FILLER PIC X(01) DTSXL30B
|
||||
00133 VALUE '.'. DTSXL30B
|
||||
00134 05 BSF-LINE-37 PIC X(133) VALUE SPACES. DTSXL30B
|
||||
00135 05 BSF-LINE-38. DTSXL30B
|
||||
00136 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B
|
||||
00137 10 FILLER PIC X(40) DTSXL30B
|
||||
00138 VALUE 'REFUND AUTHORIZATION: (COMPLETE ONLY IF'. DTSXL30B
|
||||
00139 10 FILLER PIC X(33) DTSXL30B
|
||||
00140 VALUE ' YOU ARE REQUESTING A REFUND) '. DTSXL30B
|
||||
00141 05 BSF-LINE-39 PIC X(133) VALUE SPACES. DTSXL30B
|
||||
00142 05 BSF-LINE-40. DTSXL30B
|
||||
00143 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B
|
||||
00144 10 FILLER PIC X(40) DTSXL30B
|
||||
00145 VALUE 'I REQUEST A REFUND OF MY CREDIT. I UNDE'. DTSXL30B
|
||||
00146 10 FILLER PIC X(33) DTSXL30B
|
||||
00147 VALUE 'RSTAND THE CREDIT IS SUBJECT TO '. DTSXL30B
|
||||
00148 05 BSF-LINE-41. DTSXL30B
|
||||
00149 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B
|
||||
00150 10 FILLER PIC X(40) DTSXL30B
|
||||
00151 VALUE 'REVIEW PRIOR TO REFUNDING. ANY ADDRESS '. DTSXL30B
|
||||
00152 10 FILLER PIC X(33) DTSXL30B
|
||||
00153 VALUE 'CHANGE IS INDICATED BELOW. '. DTSXL30B
|
||||
00154 05 BSF-LINE-42 PIC X(133) VALUE SPACES. DTSXL30B
|
||||
00155 05 BSF-LINE-43 PIC X(133) VALUE SPACES. DTSXL30B
|
||||
00156 05 BSF-LINE-44 PIC X(133) VALUE SPACES. DTSXL30B
|
||||
00157 05 BSF-LINE-45 PIC X(133) VALUE SPACES. DTSXL30B
|
||||
00158 05 BSF-LINE-46. DTSXL30B
|
||||
00159 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B
|
||||
00160 10 FILLER PIC X(45) DTSXL30B
|
||||
00161 VALUE ALL '_'. DTSXL30B
|
||||
00162 05 BSF-LINE-47. DTSXL30B
|
||||
00163 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B
|
||||
00164 10 FILLER PIC X(49) DTSXL30B
|
||||
00165 VALUE 'AUTHORIZED SIGNATURE'. DTSXL30B
|
||||
00166 10 FILLER PIC X(10) VALUE SPACES. DTSXL30B
|
||||
00167 10 FILLER PIC X(16) DTSXL30B
|
||||
00168 VALUE 'DATE'. DTSXL30B
|
||||
00169 05 BSF-LINE-48 PIC X(133) VALUE SPACES. DTSXL30B
|
||||
00170 05 BSF-LINE-49 PIC X(133) VALUE SPACES. DTSXL30B
|
||||
00171 05 BSF-LINE-50. DTSXL30B
|
||||
00172 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B
|
||||
00173 10 FILLER PIC X(20) DTSXL30B
|
||||
00174 VALUE 'ADDRESS CHANGE: '. DTSXL30B
|
||||
00175 05 BSF-LINE-51 PIC X(133) VALUE SPACES. DTSXL30B
|
||||
00176 05 BSF-LINE-52. DTSXL30B
|
||||
00177 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B
|
||||
00178 10 FILLER PIC X(45) DTSXL30B
|
||||
00179 VALUE ALL '_'. DTSXL30B
|
||||
00180 05 BSF-LINE-53 PIC X(133) VALUE SPACES. DTSXL30B
|
||||
00181 05 BSF-LINE-54. DTSXL30B
|
||||
00182 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B
|
||||
00183 10 FILLER PIC X(45) DTSXL30B
|
||||
00184 VALUE ALL '_'. DTSXL30B
|
||||
00185 05 BSF-LINE-55 PIC X(133) VALUE SPACES. DTSXL30B
|
||||
00186 05 BSF-LINE-56 PIC X(133) VALUE SPACES. DTSXL30B
|
||||
00187 05 BSF-LINE-57 PIC X(133) VALUE SPACES. DTSXL30B
|
||||
00188 05 BSF-LINE-58 PIC X(133) VALUE SPACES. DTSXL30B
|
||||
00189 05 BSF-LINE-59. DTSXL30B
|
||||
00190 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B
|
||||
00191 10 FILLER PIC X(16) DTSXL30B
|
||||
00192 VALUE 'TELEPHONE (202) '. DTSXL30B
|
||||
00193 10 BSF-OPR-VOICE-1 PIC X(03). DTSXL30B
|
||||
00194 10 FILLER PIC X(01) DTSXL30B
|
||||
00195 VALUE '-'. DTSXL30B
|
||||
00196 10 BSF-OPR-VOICE-2 PIC X(04). DTSXL30B
|
||||
00197 10 FILLER PIC X(04) VALUE SPACES. DTSXL30B
|
||||
00198 10 FILLER PIC X(11) DTSXL30B
|
||||
00199 VALUE 'FAX: (202) '. DTSXL30B
|
||||
00200 10 BSF-OPR-FAX-1 PIC X(03). DTSXL30B
|
||||
00201 10 FILLER PIC X(01) DTSXL30B
|
||||
00202 VALUE '-'. DTSXL30B
|
||||
00203 10 BSF-OPR-FAX-2 PIC X(04). DTSXL30B
|
||||
Reference in New Issue
Block a user