241 lines
19 KiB
COBOL
241 lines
19 KiB
COBOL
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
|