00001 ***** 08/28/20 00002 * DTSXL713 00003 * DTSXL713 XEROX LASER REPORT LAYOUT AND LV005 00004 * DEFINITIONS DTSXL713 00005 * DTSXL713 00006 * 07-20-1999 ADDED FILLER BYTE TO BEGINNING OF XEROX LASER DEFIN- DTSXL713 00007 * ITION RECORDS TO ALLOW FOR COMPILER DIFFERENCES. DTSXL713 00008 * REFERENCE RFP #**** PROGRAMMER: DVS DTSXL713 00009 * DTSXL713 00010 * 12/13/1999 PICTURE CLAUSES AND VALUE CLAUSES MODIFIED - ALL DTSXL713 00011 * AMOUNT ITEMS ARE DISPLAYED IN WHOLE DOLLARS. DTSXL713 00012 * PRIOR VERSION OF DTSXL713 IS IN DOESTAX.DEVL. DTSXL713 00013 * PANLIB(DTSXL713O). DTSXL713 00014 * REFERENCE: VERBAL REQUEST FROM GIL PROGRAMMER: EHH DTSXL713 00015 * DTSXL713 00016 * 03-10-2000 ADDED FIELD 52(INDEP CONTR) FROM NEW ETA581 FORM DTSXL713 00017 * REFERENCE: NEW DOL ETA581 FORM PROGRAMMER: ZL1 DTSXL713 00018 ***** DTSXL713 00019 * DTSXL713 00020 * 03-22-2011 ADDED FIELD 60(MANDT TRANS) 61(PROHIBITED TRANS) DTSXL713 00021 * AND 62( ADDT CONTRIB DUE) DTSXL713 00022 * REMOVED FIELDS 12(OUTS QTRS) 13(TOT EST CONTRIB DUE) DTSXL713 00023 * REFERENCE: NEW DOL ETA581 FORM PROGRAMMER: ZL1 DTSXL713 00024 ***** DTSXL713 00025 ******************************************************************DTSXL713 00026 * ETA581 XEROX LASER DEFINITION *DTSXL713 00027 ******************************************************************DTSXL713 00028 01 XF-CA-CNTL-LINE. DTSXL713 00029 * 05 FILLER PIC X. DTSXL713 00030 05 X1-CA-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL713 00031 05 X1-CA-JDL PIC X(9) VALUE 'JDL=XMOM,'. DTSXL713 00032 05 X1-CA-JDE PIC X(11) VALUE 'JDE=ETA581,'. DTSXL713 00033 05 X1-CA-LINE-END PIC X(1) VALUE ';'. DTSXL713 00034 05 FILLER PIC X(48) VALUE SPACES. DTSXL713 00035 DTSXL713 00036 01 X3-CA-CNTL-LINE. DTSXL713 00037 * 05 FILLER PIC X. DTSXL713 00038 05 X3-CA-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL713 00039 05 X3-CA-FORMS PIC X(13) VALUE 'FORMS=ETA581,'. DTSXL713 00040 05 X3-CA-BFORM PIC X(11) VALUE 'BFORM=NONE,'. DTSXL713 00041 05 X3-CA-BFORM PIC X(12) VALUE 'FONT=L0112B,'. DTSXL713 00042 05 X3-CA-LINE-END PIC X(1) VALUE ';'. DTSXL713 00043 05 FILLER PIC X(32) VALUE SPACES. DTSXL713 00044 DTSXL713 00045 01 X4-CA-CNTL-LINE. DTSXL713 00046 * 05 FILLER PIC X. DTSXL713 00047 05 X4-CA-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL713 00048 05 X4-CA-DUPLEX PIC X(10) VALUE 'DUPLEX=NO,'. DTSXL713 00049 05 X4-CA-LINE-END PIC X(1) VALUE ';'. DTSXL713 00050 05 FILLER PIC X(58) VALUE SPACES. DTSXL713 00051 DTSXL713 00052 01 X5-CA-CNTL-LINE. DTSXL713 00053 * 05 FILLER PIC X. DTSXL713 00054 05 X5-CA-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL713 00055 05 X5-CA-DATA PIC X(13) VALUE 'DATA=(0,132),'. DTSXL713 00056 05 X5-CA-ASSIGN PIC X(13) VALUE 'ASSIGN=(1,1),'. DTSXL713 00057 05 X5-CA-TOF PIC X(06) VALUE 'TOF=1,'. DTSXL713 00058 05 X5-CA-BOF PIC X(07) VALUE 'BOF=66,'. DTSXL713 00059 05 X5-CA-BEGIN PIC X(18) VALUE DTSXL713 00060 'BEGIN=(0.50,0.41),'. DTSXL713 00061 05 X5-CA-LINE-END PIC X(4) VALUE 'END;'. DTSXL713 00062 05 FILLER PIC X(08) VALUE SPACES. DTSXL713 00063 DTSXL713 00064 01 X6-CA-END-LINE. DTSXL713 00065 * 05 FILLER PIC X. DTSXL713 00066 05 X6-CA-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL713 00067 05 X6-CA-LINE-END PIC X(4) VALUE 'END;'. DTSXL713 00068 05 FILLER PIC X(65) VALUE SPACES. DTSXL713 00069 DTSXL713 00070 EJECT DTSXL713 00071 01 BLANK-LINE PIC X(133) VALUE SPACES. DTSXL713 00072 SKIP3 DTSXL713 00073 ******************************************************************DTSXL713 00074 * ETA581 FORM LAYOUT DEFINITION *DTSXL713 00075 ******************************************************************DTSXL713 00076 01 LINE6. DTSXL713 00077 05 FILLER PIC X(4) VALUE SPACES. DTSXL713 00078 05 QT-DATE. DTSXL713 00079 10 QT-MM PIC XX. DTSXL713 00080 10 FILLER PIC X VALUE '/'. DTSXL713 00081 10 QT-DD PIC XX. DTSXL713 00082 10 FILLER PIC X VALUE '/'. DTSXL713 00083 10 QT-YY PIC XX. DTSXL713 00084 05 FILLER PIC X(12) VALUE SPACES. DTSXL713 00085 05 RG-CD PIC X VALUE '3'. DTSXL713 00086 05 FILLER PIC X(17) VALUE SPACES. DTSXL713 00087 05 ST-CD PIC XX VALUE '11'. DTSXL713 00088 05 FILLER PIC X(15) VALUE SPACES. DTSXL713 00089 05 STA PIC XX VALUE 'DC'. DTSXL713 00090 05 FILLER PIC X(68) VALUE SPACES. DTSXL713 00091 01 LINE10. DTSXL713 00092 05 FILLER PIC X(19) VALUE SPACES. DTSXL713 00093 05 ITEM1 PIC Z,ZZZ,999 VALUE ZEROS. DTSXL713 00094 05 FILLER PIC X(11) VALUE SPACES. DTSXL713 00095 05 ITEM2 PIC ZZ,ZZ9 VALUE ZEROS. DTSXL713 00096 05 FILLER PIC X(08) VALUE SPACES. DTSXL713 00097 05 ITEM3 PIC ZZ,ZZZ,ZZ9 VALUE ZEROS. DTSXL713 00098 05 FILLER PIC X(11) VALUE SPACES. DTSXL713 00099 05 ITEM4 PIC X(08) VALUE SPACES. DTSXL713 00100 05 FILLER PIC X(11) VALUE SPACES. DTSXL713 00101 05 FILLER PIC X(09) VALUE SPACES. DTSXL713 00102 05 ITEM5-X PIC X(09) VALUE SPACES. DTSXL713 00103 05 ITEM5 REDEFINES ITEM5-X DTSXL713 00104 PIC Z,ZZZ,ZZ9. DTSXL713 00105 01 LINE16. DTSXL713 00106 05 FILLER PIC X(18) VALUE SPACES. DTSXL713 00107 05 ITEM6 PIC ZZZ,Z99 VALUE '999,999'. DTSXL713 00108 05 FILLER PIC X(7) VALUE SPACES. DTSXL713 00109 05 ITEM7 PIC ZZ,ZZ9 VALUE '99,999'. DTSXL713 00110 05 FILLER PIC X(06) VALUE SPACES. DTSXL713 00111 05 ITEM8 PIC ZZ,ZZ9 VALUE '99,999'. DTSXL713 00112 05 FILLER PIC X(7) VALUE SPACES. DTSXL713 00113 05 ITEM9 PIC ZZ,ZZ9 VALUE '99,999'. DTSXL713 00114 05 FILLER PIC X(08) VALUE SPACES. DTSXL713 00115 05 ITEM10 PIC Z,ZZ9 VALUE '9,999'. DTSXL713 00116 05 FILLER PIC X(09) VALUE SPACES. DTSXL713 00117 05 ITEM11 PIC Z,ZZ9 VALUE '9,999'. DTSXL713 00118 05 FILLER PIC X(03) VALUE SPACES. DTSXL713 00119 05 FILLER PIC X(05) VALUE SPACES. DTSXL713 00120 * 05 ITEM12 PIC Z,ZZZ,ZZ9 VALUE ZEROS. DTSXL713 00121 ** 05 FILLER PIC X(13) VALUE SPACES. DTSXL713 00122 ** 05 ITEM13 PIC $$,$$$,$$9 VALUE ZEROS. DTSXL713 00123 01 LINE24. DTSXL713 00124 05 FILLER PIC X(19) VALUE SPACES. DTSXL713 00125 05 ITEM14 PIC ZZ,ZZ9 VALUE '00,000'. DTSXL713 00126 05 FILLER PIC X(6) VALUE SPACES. DTSXL713 00127 05 ITEM15 PIC ZZ,ZZ9 VALUE '99,999'. DTSXL713 00128 05 FILLER PIC X(08) VALUE SPACES. DTSXL713 00129 05 ITEM16 PIC ZZ,ZZ9 VALUE '99,999'. DTSXL713 00130 05 FILLER PIC X(07) VALUE SPACES. DTSXL713 00131 05 ITEM17 PIC ZZ,ZZ9 VALUE '99,999'. DTSXL713 00132 05 FILLER PIC X(07) VALUE SPACES. DTSXL713 00133 05 ITEM18 PIC ZZ,ZZ9 VALUE '99,999'. DTSXL713 00134 05 FILLER PIC X(09) VALUE SPACES. DTSXL713 00135 05 ITEM19 PIC ZZ,ZZ9 VALUE '99,999'. DTSXL713 00136 05 FILLER PIC X(13) VALUE SPACES. DTSXL713 00137 05 ITEM20 PIC ZZ,ZZ9 VALUE '99,999'. DTSXL713 00138 01 LINE29. DTSXL713 00139 05 FILLER PIC X(16) VALUE SPACES. DTSXL713 00140 05 ITEM21 PIC $$$$,$$$,$$9 VALUE ZEROS. DTSXL713 00141 05 FILLER PIC X(3) VALUE SPACES. DTSXL713 00142 05 ITEM22 PIC $$,$$$,$$$,$$9 VALUE ZEROS. DTSXL713 00143 05 FILLER PIC X(4) VALUE SPACES. DTSXL713 00144 05 ITEM23 PIC $$,$$$,$$$,$$9 VALUE ZEROS. DTSXL713 00145 05 FILLER PIC X(4) VALUE SPACES. DTSXL713 00146 05 ITEM24 PIC $$$$,$$$,$$9 VALUE ZEROS. DTSXL713 00147 05 FILLER PIC X(1) VALUE SPACES. DTSXL713 00148 05 FILLER PIC X(6) VALUE SPACES. DTSXL713 00149 05 ITEM25 PIC $$$$,$$$,$$9 VALUE ZEROS. DTSXL713 00150 05 FILLER PIC X(6) VALUE SPACES. DTSXL713 00151 05 FILLER PIC X(2) VALUE SPACES. DTSXL713 00152 05 ITEM26 PIC $$$$,$$$,$$9 VALUE ZEROS. DTSXL713 00153 05 FILLER PIC X(2) VALUE SPACES. DTSXL713 00154 05 ITEM27 PIC ZZ,ZZ9 VALUE '99,999'. DTSXL713 00155 01 LINE33. DTSXL713 00156 05 FILLER PIC X(16) VALUE SPACES. DTSXL713 00157 05 ITEM28 PIC $$$$,$$$,$$9 VALUE '0000,000,000'. DTSXL713 00158 05 FILLER PIC X(5) VALUE SPACES. DTSXL713 00159 05 ITEM29 PIC $$$$,$$$,$$9 VALUE '0000,000,000'. DTSXL713 00160 05 FILLER PIC X(6) VALUE SPACES. DTSXL713 00161 05 ITEM30 PIC $$$$,$$$,$$9 VALUE '0000,000,000'. DTSXL713 00162 05 FILLER PIC X(05) VALUE SPACES. DTSXL713 00163 05 ITEM31 PIC $$$$,$$$,$$9 VALUE '0000,000,000'. DTSXL713 00164 05 FILLER PIC X(06) VALUE SPACES. DTSXL713 00165 05 ITEM32 PIC $$$$,$$$,$$9 VALUE '0000,000,000'. DTSXL713 00166 05 FILLER PIC X(04) VALUE SPACES. DTSXL713 00167 01 LINE36. DTSXL713 00168 05 FILLER PIC X(16) VALUE SPACES. DTSXL713 00169 05 ITEM33 PIC $$$$,$$$,$$9 VALUE '0000,000,000'. DTSXL713 00170 05 FILLER PIC X(5) VALUE SPACES. DTSXL713 00171 05 ITEM34 PIC $$$$,$$$,$$9 VALUE '0000,000,000'. DTSXL713 00172 05 FILLER PIC X(06) VALUE SPACES. DTSXL713 00173 05 ITEM35 PIC $$$$,$$$,$$9 VALUE '0000,000,000'. DTSXL713 00174 05 FILLER PIC X(2) VALUE SPACES. DTSXL713 00175 05 ITEM36 PIC $$$$,$$$,$$9 VALUE '0000,000,000'. DTSXL713 00176 05 FILLER PIC X(4) VALUE SPACES. DTSXL713 00177 05 FILLER PIC X(5) VALUE SPACES. DTSXL713 00178 05 ITEM37 PIC $$$$,$$$,$$9 VALUE '0000,000,000'. DTSXL713 00179 05 FILLER PIC X(6) VALUE SPACES. DTSXL713 00180 05 ITEM38 PIC $$$$,$$$,$$9 VALUE '0000,000,000'. DTSXL713 00181 05 FILLER PIC X(04) VALUE SPACES. DTSXL713 00182 05 ITEM39 PIC ZZ,ZZ9 VALUE '99,999'. DTSXL713 00183 01 LINE39. DTSXL713 00184 05 FILLER PIC X(16) VALUE SPACES. DTSXL713 00185 05 ITEM40 PIC $$$$,$$$,$$9 VALUE '0000,000,000'. DTSXL713 00186 05 FILLER PIC X(5) VALUE SPACES. DTSXL713 00187 05 ITEM41 PIC $$$$,$$$,$$9 VALUE '0000,000,000'. DTSXL713 00188 05 FILLER PIC X(6) VALUE SPACES. DTSXL713 00189 05 ITEM42 PIC $$$$,$$$,$$9 VALUE '0000,000,000'. DTSXL713 00190 05 FILLER PIC X(05) VALUE SPACES. DTSXL713 00191 05 ITEM43 PIC $$$$,$$$,$$9 VALUE '0000,000,000'. DTSXL713 00192 05 FILLER PIC X(06) VALUE SPACES. DTSXL713 00193 05 ITEM44 PIC $$$$,$$$,$$9 VALUE '0000,000,000'. DTSXL713 00194 05 FILLER PIC X(04) VALUE SPACES. DTSXL713 00195 01 LINE45. DTSXL713 00196 05 FILLER PIC X(17) VALUE SPACES. DTSXL713 00197 05 ITEM45 PIC ZZ,ZZ9 VALUE '00,000'. DTSXL713 00198 05 FILLER PIC X(06) VALUE SPACES. DTSXL713 00199 05 ITEM46 PIC ZZ,ZZ9 VALUE '00,000'. DTSXL713 00200 05 FILLER PIC X(06) VALUE SPACES. DTSXL713 00201 05 ITEM47 PIC ZZ,ZZ9 VALUE '00,000'. DTSXL713 00202 05 FILLER PIC X(11) VALUE SPACES. DTSXL713 00203 05 ITEM48 PIC ZZ,ZZ9 VALUE '00,000'. DTSXL713 00204 05 FILLER PIC X(07) VALUE SPACES. DTSXL713 00205 05 ITEM49 PIC $,$$$,$$$,$$9 VALUE '0,000,000,000'. DTSXL713 00206 05 FILLER PIC X(03) VALUE SPACES. DTSXL713 00207 05 ITEM50 PIC $,$$$,$$$,$$9 VALUE '0,000,000,000'. DTSXL713 00208 05 FILLER PIC X(05) VALUE SPACES. DTSXL713 00209 05 ITEM51 PIC ZZ,ZZ9.9 VALUE '00,000.0'. DTSXL713 00210 05 FILLER PIC X(08) VALUE SPACES. DTSXL713 00211 05 ITEM52 PIC ZZ,ZZ9 VALUE '00,000'. DTSXL713 00212 01 LINE50. DTSXL713 00213 05 FILLER PIC X(16) VALUE SPACES. DTSXL713 00214 05 ITEM53 PIC $,$$$,$$$,$$9 VALUE '0,000,000,000'. DTSXL713 00215 05 FILLER PIC X(5) VALUE SPACES. DTSXL713 00216 05 ITEM54 PIC $,$$$,$$$,$$9 VALUE '0,000,000,000'. DTSXL713 00217 05 FILLER PIC X(6) VALUE SPACES. DTSXL713 00218 05 ITEM55 PIC $,$$$,$$$,$$9 VALUE '0,000,000,000'. DTSXL713 00219 05 FILLER PIC X(5) VALUE SPACES. DTSXL713 00220 05 ITEM56 PIC $,$$$,$$$,$$9 VALUE '0,000,000,000'. DTSXL713 00221 05 FILLER PIC X(05) VALUE SPACES. DTSXL713 00222 05 ITEM57 PIC $,$$$,$$$,$$9 VALUE '0,000,000,000'. DTSXL713 00223 05 FILLER PIC X(4) VALUE SPACES. DTSXL713 00224 05 FILLER PIC X(5) VALUE SPACES. DTSXL713 00225 05 ITEM58 PIC $,$$$,$$$,$$9 VALUE '0,000,000,000'. DTSXL713 00226 01 LINE51. DTSXL713 00227 05 FILLER PIC X(20) VALUE SPACES. DTSXL713 00228 05 ITEM60 PIC Z,ZZZ,ZZ9 VALUE ZEROS. CL**3 00229 05 FILLER PIC X(10) VALUE SPACES. DTSXL713 00230 05 ITEM61 PIC Z,ZZZ,ZZ9 VALUE ZEROS. DTSXL713 00231 05 FILLER PIC X(05) VALUE SPACES. DTSXL713 00232 05 ITEM62 PIC $,$$$,$$$,$$9 VALUE ZEROS. CL**3 00233 05 FILLER PIC X(5) VALUE SPACES. DTSXL713 00234 05 ITEM63 PIC Z,ZZZ,ZZ9 VALUE ZEROS. CL**4 00235 05 FILLER PIC X(10) VALUE SPACES. CL**4 00236 05 ITEM64 PIC Z,ZZZ,ZZ9 VALUE ZEROS. CL**4 00237 05 FILLER PIC X(05) VALUE SPACES. CL**4 00238 05 ITEM65 PIC $,$$$,$$$,$$9 VALUE ZEROS. CL**4 00239 05 FILLER PIC X(5) VALUE SPACES. CL**4 00240 CL**4