DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
135
Copybook/DTSIZ434.cpy
Normal file
135
Copybook/DTSIZ434.cpy
Normal file
@ -0,0 +1,135 @@
|
||||
00001 * 01/24/01
|
||||
00002 01 LETTER-DETAIL-START. DTSIZ434
|
||||
00003 05 LTS-LINE-2. LV049
|
||||
00004 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
||||
00005 10 LTS-PARAGRAPH-LINE-1 PIC X(70). DTSIZ434
|
||||
00006 DTSIZ434
|
||||
00007 01 LETTER-DETAIL-LINE. DTSIZ434
|
||||
00008 05 LDL-LINE-1. DTSIZ434
|
||||
00009 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
||||
00010 10 LDL-PARAGRAPH-LINE-IDX PIC X(70). DTSIZ434
|
||||
00011 DTSIZ434
|
||||
00012 01 LETTER-YRQTR. DTSIZ434
|
||||
00013 05 LYQ-LINE-1. DTSIZ434
|
||||
00014 10 FILLER PIC X(18) VALUE SPACES. DTSIZ434
|
||||
00015 10 WS-COVERED-QTR-1 PIC X(06). DTSIZ434
|
||||
00016 10 FILLER PIC X(03) VALUE SPACES. DTSIZ434
|
||||
00017 10 WS-COVERED-QTR-2 PIC X(06). DTSIZ434
|
||||
00018 10 FILLER PIC X(03) VALUE SPACES. DTSIZ434
|
||||
00019 10 WS-COVERED-QTR-3 PIC X(06). DTSIZ434
|
||||
00020 10 FILLER PIC X(03) VALUE SPACES. DTSIZ434
|
||||
00021 10 WS-COVERED-QTR-4 PIC X(06). DTSIZ434
|
||||
00022 10 FILLER PIC X(03) VALUE SPACES. DTSIZ434
|
||||
00023 10 WS-COVERED-QTR-5 PIC X(06). DTSIZ434
|
||||
00024 DTSIZ434
|
||||
00025 01 LETTER-PARA2. DTSIZ434
|
||||
00026 05 LP2-LINE-1. DTSIZ434
|
||||
00027 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
||||
00028 10 FILLER PIC X(40) DTSIZ434
|
||||
00029 VALUE ' Interest will be computed on all un'. DTSIZ434
|
||||
00030 10 FILLER PIC X(40) DTSIZ434
|
||||
00031 VALUE 'paid contributions from the '. DTSIZ434
|
||||
00032 05 LP2-LINE-2. DTSIZ434
|
||||
00033 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
||||
00034 10 FILLER PIC X(40) DTSIZ434
|
||||
00035 VALUE 'due date until paid, at 1.5% per month. '. DTSIZ434
|
||||
00036 DTSIZ434
|
||||
00037 01 LETTER-TEXT. DTSIZ434
|
||||
00038 05 LTX-LINE-2. DTSIZ434
|
||||
00039 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
||||
00040 10 FILLER PIC X(40) DTSIZ434
|
||||
00041 VALUE ' For any default on this agreement, '. DTSIZ434
|
||||
00042 10 FILLER PIC X(40) DTSIZ434
|
||||
00043 VALUE 'a notice of lien against '. DTSIZ434
|
||||
00044 05 LTX-LINE-3. DTSIZ434
|
||||
00045 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
||||
00046 10 FILLER PIC X(40) DTSIZ434
|
||||
00047 VALUE 'the business property and/or assets will'. DTSIZ434
|
||||
00048 10 FILLER PIC X(01) VALUE SPACE. DTSIZ434
|
||||
00049 10 FILLER PIC X(40) DTSIZ434
|
||||
00050 VALUE 'be filed with the Office '. DTSIZ434
|
||||
00051 05 LTX-LINE-4. DTSIZ434
|
||||
00052 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
||||
00053 10 FILLER PIC X(40) DTSIZ434
|
||||
00054 VALUE 'of the Recorder of Deeds for the Distric'. DTSIZ434
|
||||
00055 10 FILLER PIC X(40) DTSIZ434
|
||||
00056 VALUE 't of Columbia. '. DTSIZ434
|
||||
00057 05 LTX-LINE-5 PIC X(133) VALUE SPACES. DTSIZ434
|
||||
00058 05 LTX-LINE-6. DTSIZ434
|
||||
00059 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
||||
00060 10 FILLER PIC X(40) DTSIZ434
|
||||
00061 VALUE ' Should timely payments not be made '. DTSIZ434
|
||||
00062 10 FILLER PIC X(40) DTSIZ434
|
||||
00063 VALUE 'and/or future quarterly '. DTSIZ434
|
||||
00064 05 LTX-LINE-7. DTSIZ434
|
||||
00065 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
||||
00066 10 FILLER PIC X(40) DTSIZ434
|
||||
00067 VALUE 'reports are not filed in accordance with'. DTSIZ434
|
||||
00068 10 FILLER PIC X(40) DTSIZ434
|
||||
00069 VALUE ' the terms of this '. DTSIZ434
|
||||
00070 05 LTX-LINE-8. DTSIZ434
|
||||
00071 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
||||
00072 10 FILLER PIC X(40) DTSIZ434
|
||||
00073 VALUE 'agreement, the payment arrangement herei'. DTSIZ434
|
||||
00074 10 FILLER PIC X(40) DTSIZ434
|
||||
00075 VALUE 'n will be considered null '. DTSIZ434
|
||||
00076 05 LTX-LINE-9. DTSIZ434
|
||||
00077 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
||||
00078 10 FILLER PIC X(40) DTSIZ434
|
||||
00079 VALUE 'and void, at which time, all indebtness '. DTSIZ434
|
||||
00080 10 FILLER PIC X(40) DTSIZ434
|
||||
00081 VALUE 'will become due and '. DTSIZ434
|
||||
00082 05 LTX-LINE-10. DTSIZ434
|
||||
00083 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
||||
00084 10 FILLER PIC X(40) DTSIZ434
|
||||
00085 VALUE 'payable forthwith. '. DTSIZ434
|
||||
00086 10 FILLER PIC X(40) DTSIZ434
|
||||
00087 VALUE ' '. DTSIZ434
|
||||
00088 01 LETTER-FOOTING. DTSIZ434
|
||||
00089 05 LFT-LINE-1. DTSIZ434
|
||||
00090 10 FILLER PIC X(60) VALUE SPACES. DTSIZ434
|
||||
00091 10 FILLER PIC X(20) DTSIZ434
|
||||
00092 VALUE '____________________'. DTSIZ434
|
||||
00093 05 LFT-LINE-2. DTSIZ434
|
||||
00094 10 FILLER PIC X(71) VALUE SPACES. DTSIZ434
|
||||
00095 10 FILLER PIC X(10) DTSIZ434
|
||||
00096 VALUE 'Signature'. DTSIZ434
|
||||
00097 05 LFT-LINE-3. DTSIZ434
|
||||
00098 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
||||
00099 10 FILLER PIC X(20) DTSIZ434
|
||||
00100 VALUE '____________________'. DTSIZ434
|
||||
00101 10 FILLER PIC X(32) VALUE SPACES. DTSIZ434
|
||||
00102 10 LFT-SIGNEE-TITLE PIC X(20). DTSIZ434
|
||||
00103 05 LFT-LINE-4. DTSIZ434
|
||||
00104 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
||||
00105 10 FILLER PIC X(08) DTSIZ434
|
||||
00106 VALUE 'Witness'. DTSIZ434
|
||||
00107 10 FILLER PIC X(59) VALUE SPACES. DTSIZ434
|
||||
00108 10 FILLER PIC X(05) DTSIZ434
|
||||
00109 value 'Title'. DTSIZ434
|
||||
00110 05 LFT-LINE-5. DTSIZ434
|
||||
00111 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
||||
00112 10 FILLER PIC X(24) DTSIZ434
|
||||
00113 VALUE all '-'. DTSIZ434
|
||||
00114 10 FILLER PIC X(25) DTSIZ434
|
||||
00115 value '-- FOR AGENCY USE ONLY --'. DTSIZ434
|
||||
00116 10 FILLER PIC X(23) DTSIZ434
|
||||
00117 VALUE all '-'. DTSIZ434
|
||||
00118 05 LFT-LINE-6. DTSIZ434
|
||||
00119 10 FILLER PIC X(27) VALUE SPACES. DTSIZ434
|
||||
00120 10 FILLER PIC X(33) DTSIZ434
|
||||
00121 VALUE 'APPROVED_______DISAPPROVED_______'. DTSIZ434
|
||||
00122 05 LFT-LINE-7. DTSIZ434
|
||||
00123 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
||||
00124 10 FILLER PIC X(20) DTSIZ434
|
||||
00125 VALUE '____________________'. DTSIZ434
|
||||
00126 10 FILLER PIC X(42) VALUE SPACES. DTSIZ434
|
||||
00127 10 FILLER PIC X(20) DTSIZ434
|
||||
00128 VALUE '____________________'. DTSIZ434
|
||||
00129 05 LFT-LINE-8. DTSIZ434
|
||||
00130 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
||||
00131 10 FILLER PIC X(05) DTSIZ434
|
||||
00132 VALUE 'Title'. DTSIZ434
|
||||
00133 10 FILLER PIC X(58) VALUE SPACES. DTSIZ434
|
||||
00134 10 FILLER PIC X(10) DTSIZ434
|
||||
00135 VALUE 'Signature '. DTSIZ434
|
||||
Reference in New Issue
Block a user