DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
134
Copybook/DTSIZ405.cpy
Normal file
134
Copybook/DTSIZ405.cpy
Normal file
@ -0,0 +1,134 @@
|
||||
00001 01 DETAIL-LINE2. 04/11/16
|
||||
00002 05 DTL-LINE-2. DTSIZ405
|
||||
00003 10 FILLER PIC X(01) VALUE SPACE. LV004
|
||||
00004 10 FILLER PIC X(41) CL**4
|
||||
00005 VALUE 'I, Robert Thompson, Associate Director, U'. CL**4
|
||||
00006 10 FILLER PIC X(40) DTSIZ405
|
||||
00007 VALUE 'nemployment Insurance Compliance, Depart'. DTSIZ405
|
||||
00008 10 FILLER PIC X(40) DTSIZ405
|
||||
00009 VALUE ' '. DTSIZ405
|
||||
00010 05 DTL-LINE-2B. DTSIZ405
|
||||
00011 10 FILLER PIC X(01) VALUE SPACE. DTSIZ405
|
||||
00012 10 FILLER PIC X(40) DTSIZ405
|
||||
00013 VALUE 'ment Employment Services, in pursuant of'. DTSIZ405
|
||||
00014 10 FILLER PIC X(33) DTSIZ405
|
||||
00015 VALUE ' section 4(e) of an Act entitled '. DTSIZ405
|
||||
00016 10 FILLER PIC X(10) DTSIZ405
|
||||
00017 VALUE 'An Act '. DTSIZ405
|
||||
00018 05 DTL-LINE-3. DTSIZ405
|
||||
00019 10 FILLER PIC X(01) VALUE SPACE. DTSIZ405
|
||||
00020 10 FILLER PIC X(40) DTSIZ405
|
||||
00021 VALUE 'to amend the District of Columbia Unempl'. DTSIZ405
|
||||
00022 10 FILLER PIC X(41) DTSIZ405
|
||||
00023 VALUE 'oyment Compensation Act to provide for'. DTSIZ405
|
||||
00024 05 DTL-LINE-4. DTSIZ405
|
||||
00025 10 FILLER PIC X(01) VALUE SPACE. DTSIZ405
|
||||
00026 10 FILLER PIC X(41) DTSIZ405
|
||||
00027 VALUE 'unemployment compensation in the District'.DTSIZ405
|
||||
00028 10 FILLER PIC X(36) DTSIZ405
|
||||
00029 VALUE ' of Columbia, and for other purposes'. DTSIZ405
|
||||
00030 05 DTL-LINE-5. DTSIZ405
|
||||
00031 10 FILLER PIC X(01) VALUE SPACE. DTSIZ405
|
||||
00032 10 FILLER PIC X(38) DTSIZ405
|
||||
00033 VALUE 'approved June 4, 1943, as amended July'. DTSIZ405
|
||||
00034 10 FILLER PIC X(41) DTSIZ405
|
||||
00035 VALUE ' 5, 1966, do hereby certify that the'. DTSIZ405
|
||||
00036 05 DTL-LINE-6. DTSIZ405
|
||||
00037 10 FILLER PIC X(01) VALUE SPACE. DTSIZ405
|
||||
00038 10 FILLER PIC X(40) DTSIZ405
|
||||
00039 VALUE 'liability for the amount of the contribu'. DTSIZ405
|
||||
00040 10 FILLER PIC X(40) DTSIZ405
|
||||
00041 VALUE 'tion on tax imposed by the Certificate'. DTSIZ405
|
||||
00042 05 DTL-LINE-7. DTSIZ405
|
||||
00043 10 FILLER PIC X(01) VALUE SPACE. DTSIZ405
|
||||
00044 10 FILLER PIC X(39) DTSIZ405
|
||||
00045 VALUE 'of Delinquent Taxes and Notice of Lien'. DTSIZ405
|
||||
00046 10 FILLER PIC X(29) DTSIZ405
|
||||
00047 VALUE 'thereof, OUC Certificate No. '. DTSIZ405
|
||||
00048 10 WS-CERT-NO-R PIC X(10). DTSIZ405
|
||||
00049 05 DTL-LINE-9. DTSIZ405
|
||||
00050 10 FILLER PIC X(01) VALUE SPACE. DTSIZ405
|
||||
00051 10 FILLER PIC X(16) DTSIZ405
|
||||
00052 VALUE 'filed herein on '. DTSIZ405
|
||||
00053 10 WS-SLASH-DATE PIC X(10). DTSIZ405
|
||||
00054 10 FILLER PIC X(14) DTSIZ405
|
||||
00055 VALUE ', together wit'. DTSIZ405
|
||||
00056 10 FILLER PIC X(40) DTSIZ405
|
||||
00057 VALUE 'h all interest and penalties in respect '. DTSIZ405
|
||||
00058 05 DTL-LINE-10. DTSIZ405
|
||||
00059 10 FILLER PIC X(01) VALUE SPACE. DTSIZ405
|
||||
00060 10 FILLER PIC X(40) DTSIZ405
|
||||
00061 VALUE 'thereof, has been satisfied and said Cer'. DTSIZ405
|
||||
00062 10 FILLER PIC X(40) DTSIZ405
|
||||
00063 VALUE 'tificate and Lien are hereby released. '. DTSIZ405
|
||||
00064 05 DTL-LINE-11. DTSIZ405
|
||||
00065 ** 05 LINE PLUS 1 PRESENT WHEN WRK-TODAY-DAY < 10. DTSIZ405
|
||||
00066 10 FILLER PIC X(06) VALUE SPACES. DTSIZ405
|
||||
00067 10 FILLER PIC X(33) DTSIZ405
|
||||
00068 VALUE 'Subscribed and certified to this '. DTSIZ405
|
||||
00069 10 WRK-TODAY-DAY-LINE-11 PIC ZZ. DTSIZ405
|
||||
00070 10 WRK-DAY-SFX-LINE-11 PIC X(02). DTSIZ405
|
||||
00071 10 FILLER PIC X(08) DTSIZ405
|
||||
00072 VALUE ' day of '. DTSIZ405
|
||||
00073 10 WRK-MONTH-YEAR-LINE-11 PIC X(16). DTSIZ405
|
||||
00074 05 DTL-LINE-12. DTSIZ405
|
||||
00075 ** 05 LINE PLUS 1 PRESENT WHEN WRK-TODAY-DAY > 9. DTSIZ405
|
||||
00076 10 FILLER PIC X(06) VALUE SPACES. DTSIZ405
|
||||
00077 10 FILLER PIC X(33) DTSIZ405
|
||||
00078 VALUE 'Subscribed and certified to this '. DTSIZ405
|
||||
00079 10 WRK-TODAY-DAY-LINE-12 PIC ZZ. DTSIZ405
|
||||
00080 10 WRK-DAY-SFX-LINE-12 PIC X(02). DTSIZ405
|
||||
00081 10 FILLER PIC X(08) DTSIZ405
|
||||
00082 VALUE ' day of '. DTSIZ405
|
||||
00083 10 WRK-MONTH-YEAR-LINE-12 PIC X(16). DTSIZ405
|
||||
00084 05 DTL-LINE-13 PIC X(133) VALUE SPACES. DTSIZ405
|
||||
00085 05 DTL-LINE-14 PIC X(133) VALUE SPACES. DTSIZ405
|
||||
00086 05 DTL-LINE-15 PIC X(133) VALUE SPACES. DTSIZ405
|
||||
00087 05 DTL-LINE-16. DTSIZ405
|
||||
00088 10 FILLER PIC X(40) VALUE SPACES. DTSIZ405
|
||||
00089 10 FILLER PIC X(40) DTSIZ405
|
||||
00090 VALUE '_________________________________ '. DTSIZ405
|
||||
00091 05 DTL-LINE-16-1. DTSIZ405
|
||||
00092 10 FILLER PIC X(40) VALUE SPACES. DTSIZ405
|
||||
00093 10 FILLER PIC X(24) DTSIZ405
|
||||
00094 VALUE 'Associate Director'. DTSIZ405
|
||||
00095 05 DTL-LINE-17. CL**3
|
||||
00096 10 FILLER PIC X(40) VALUE SPACES. CL**3
|
||||
00097 10 FILLER PIC X(35) CL**3
|
||||
00098 VALUE 'Unemployment Insurance Compliance'. CL**3
|
||||
00099 05 DTL-LINE-18. DTSIZ405
|
||||
00100 10 FILLER PIC X(40) VALUE SPACES. DTSIZ405
|
||||
00101 10 FILLER PIC X(38) DTSIZ405
|
||||
00102 VALUE 'Department of Employment Services'. DTSIZ405
|
||||
00103 05 DTL-LINE-19 PIC X(133) VALUE SPACES. DTSIZ405
|
||||
00104 05 DTL-LINE-20 PIC X(133) VALUE SPACES. DTSIZ405
|
||||
00105 05 DTL-LINE-21. DTSIZ405
|
||||
00106 10 FILLER PIC X(01) VALUE SPACE. DTSIZ405
|
||||
00107 10 FILLER PIC X(33) DTSIZ405
|
||||
00108 VALUE 'Department of Employment Services'. DTSIZ405
|
||||
00109 05 DTL-LINE-22. DTSIZ405
|
||||
00110 10 FILLER PIC X(01) VALUE SPACE. DTSIZ405
|
||||
00111 10 FILLER PIC X(35) DTSIZ405
|
||||
00112 VALUE 'Office of Unemployment Compensation'. DTSIZ405
|
||||
00113 * 05 DTL-LINE-23. DTSIZ405
|
||||
00114 * 10 FILLER PIC X(01) VALUE SPACE. DTSIZ405
|
||||
00115 * 10 FILLER PIC X(28) DTSIZ405
|
||||
00116 * VALUE 'Employment Security Building'. DTSIZ405
|
||||
00117 05 DTL-LINE-24. DTSIZ405
|
||||
00118 10 FILLER PIC X(01) VALUE SPACE. DTSIZ405
|
||||
00119 10 WS-MAIL1-PHYS1-STRING PIC X(40). DTSIZ405
|
||||
00120 05 DTL-LINE-25. DTSIZ405
|
||||
00121 10 FILLER PIC X(01) VALUE SPACE. DTSIZ405
|
||||
00122 10 WS-AGY-MAIL2-NO-CAPS PIC X(40). DTSIZ405
|
||||
00123 05 DTL-LINE-26. DTSIZ405
|
||||
00124 10 FILLER PIC X(01) VALUE SPACE. DTSIZ405
|
||||
00125 10 FILLER PIC X(12) DTSIZ405
|
||||
00126 VALUE 'Telephone: ('. DTSIZ405
|
||||
00127 10 ws-FLD-voice-area PIC X(03) value spaces. DTSIZ405
|
||||
00128 10 filler PIC X(02) value ') '. DTSIZ405
|
||||
00129 10 ws-FLD-voice-1 PIC X(03) value spaces. DTSIZ405
|
||||
00130 10 filler PIC X(01) value '-'. DTSIZ405
|
||||
00131 10 ws-FLD-voice-2 PIC X(04) value spaces. DTSIZ405
|
||||
00132 10 filler PIC X(04) value ' - '. DTSIZ405
|
||||
00133 10 ws-fld-rep-name PIC X(32). DTSIZ405
|
||||
00134 SKIP2 DTSIZ405
|
||||
Reference in New Issue
Block a user