301 lines
16 KiB
COBOL
301 lines
16 KiB
COBOL
05 FILLER PIC X(20) VALUE '001DEPT001 '.
|
|
05 FILLER PIC X(20) VALUE '002DEPT002 '.
|
|
05 FILLER PIC X(20) VALUE '003DEPT003 '.
|
|
05 FILLER PIC X(20) VALUE '004DEPT004 '.
|
|
05 FILLER PIC X(20) VALUE '005DEPT005 '.
|
|
05 FILLER PIC X(20) VALUE '006DEPT006 '.
|
|
05 FILLER PIC X(20) VALUE '007DEPT007 '.
|
|
05 FILLER PIC X(20) VALUE '008DEPT008 '.
|
|
05 FILLER PIC X(20) VALUE '009DEPT009 '.
|
|
05 FILLER PIC X(20) VALUE '010DEPT010 '.
|
|
05 FILLER PIC X(20) VALUE '011DEPT011 '.
|
|
05 FILLER PIC X(20) VALUE '012DEPT012 '.
|
|
05 FILLER PIC X(20) VALUE '013DEPT013 '.
|
|
05 FILLER PIC X(20) VALUE '014DEPT014 '.
|
|
05 FILLER PIC X(20) VALUE '015DEPT015 '.
|
|
05 FILLER PIC X(20) VALUE '016DEPT016 '.
|
|
05 FILLER PIC X(20) VALUE '017DEPT017 '.
|
|
05 FILLER PIC X(20) VALUE '018DEPT018 '.
|
|
05 FILLER PIC X(20) VALUE '019DEPT019 '.
|
|
05 FILLER PIC X(20) VALUE '020DEPT020 '.
|
|
05 FILLER PIC X(20) VALUE '021DEPT021 '.
|
|
05 FILLER PIC X(20) VALUE '022DEPT022 '.
|
|
05 FILLER PIC X(20) VALUE '023DEPT023 '.
|
|
05 FILLER PIC X(20) VALUE '024DEPT024 '.
|
|
05 FILLER PIC X(20) VALUE '025DEPT025 '.
|
|
05 FILLER PIC X(20) VALUE '026DEPT026 '.
|
|
05 FILLER PIC X(20) VALUE '027DEPT027 '.
|
|
05 FILLER PIC X(20) VALUE '028DEPT028 '.
|
|
05 FILLER PIC X(20) VALUE '029DEPT029 '.
|
|
05 FILLER PIC X(20) VALUE '030DEPT030 '.
|
|
05 FILLER PIC X(20) VALUE '031DEPT031 '.
|
|
05 FILLER PIC X(20) VALUE '032DEPT032 '.
|
|
05 FILLER PIC X(20) VALUE '033DEPT033 '.
|
|
05 FILLER PIC X(20) VALUE '034DEPT034 '.
|
|
05 FILLER PIC X(20) VALUE '035DEPT035 '.
|
|
05 FILLER PIC X(20) VALUE '036DEPT036 '.
|
|
05 FILLER PIC X(20) VALUE '037DEPT037 '.
|
|
05 FILLER PIC X(20) VALUE '038DEPT038 '.
|
|
05 FILLER PIC X(20) VALUE '039DEPT039 '.
|
|
05 FILLER PIC X(20) VALUE '040DEPT040 '.
|
|
05 FILLER PIC X(20) VALUE '041DEPT041 '.
|
|
05 FILLER PIC X(20) VALUE '042DEPT042 '.
|
|
05 FILLER PIC X(20) VALUE '043DEPT043 '.
|
|
05 FILLER PIC X(20) VALUE '044DEPT044 '.
|
|
05 FILLER PIC X(20) VALUE '045DEPT045 '.
|
|
05 FILLER PIC X(20) VALUE '046DEPT046 '.
|
|
05 FILLER PIC X(20) VALUE '047DEPT047 '.
|
|
05 FILLER PIC X(20) VALUE '048DEPT048 '.
|
|
05 FILLER PIC X(20) VALUE '049DEPT049 '.
|
|
05 FILLER PIC X(20) VALUE '050DEPT050 '.
|
|
05 FILLER PIC X(20) VALUE '051DEPT051 '.
|
|
05 FILLER PIC X(20) VALUE '052DEPT052 '.
|
|
05 FILLER PIC X(20) VALUE '053DEPT053 '.
|
|
05 FILLER PIC X(20) VALUE '054DEPT054 '.
|
|
05 FILLER PIC X(20) VALUE '055DEPT055 '.
|
|
05 FILLER PIC X(20) VALUE '056DEPT056 '.
|
|
05 FILLER PIC X(20) VALUE '057DEPT057 '.
|
|
05 FILLER PIC X(20) VALUE '058DEPT058 '.
|
|
05 FILLER PIC X(20) VALUE '059DEPT059 '.
|
|
05 FILLER PIC X(20) VALUE '060DEPT060 '.
|
|
05 FILLER PIC X(20) VALUE '061DEPT061 '.
|
|
05 FILLER PIC X(20) VALUE '062DEPT062 '.
|
|
05 FILLER PIC X(20) VALUE '063DEPT063 '.
|
|
05 FILLER PIC X(20) VALUE '064DEPT064 '.
|
|
05 FILLER PIC X(20) VALUE '065DEPT065 '.
|
|
05 FILLER PIC X(20) VALUE '066DEPT066 '.
|
|
05 FILLER PIC X(20) VALUE '067DEPT067 '.
|
|
05 FILLER PIC X(20) VALUE '068DEPT068 '.
|
|
05 FILLER PIC X(20) VALUE '069DEPT069 '.
|
|
05 FILLER PIC X(20) VALUE '070DEPT070 '.
|
|
05 FILLER PIC X(20) VALUE '071DEPT071 '.
|
|
05 FILLER PIC X(20) VALUE '072DEPT072 '.
|
|
05 FILLER PIC X(20) VALUE '073DEPT073 '.
|
|
05 FILLER PIC X(20) VALUE '074DEPT074 '.
|
|
05 FILLER PIC X(20) VALUE '075DEPT075 '.
|
|
05 FILLER PIC X(20) VALUE '076DEPT076 '.
|
|
05 FILLER PIC X(20) VALUE '077DEPT077 '.
|
|
05 FILLER PIC X(20) VALUE '078DEPT078 '.
|
|
05 FILLER PIC X(20) VALUE '079DEPT079 '.
|
|
05 FILLER PIC X(20) VALUE '080DEPT080 '.
|
|
05 FILLER PIC X(20) VALUE '081DEPT081 '.
|
|
05 FILLER PIC X(20) VALUE '082DEPT082 '.
|
|
05 FILLER PIC X(20) VALUE '083DEPT083 '.
|
|
05 FILLER PIC X(20) VALUE '084DEPT084 '.
|
|
05 FILLER PIC X(20) VALUE '085DEPT085 '.
|
|
05 FILLER PIC X(20) VALUE '086DEPT086 '.
|
|
05 FILLER PIC X(20) VALUE '087DEPT087 '.
|
|
05 FILLER PIC X(20) VALUE '088DEPT088 '.
|
|
05 FILLER PIC X(20) VALUE '089DEPT089 '.
|
|
05 FILLER PIC X(20) VALUE '090DEPT090 '.
|
|
05 FILLER PIC X(20) VALUE '091DEPT091 '.
|
|
05 FILLER PIC X(20) VALUE '092DEPT092 '.
|
|
05 FILLER PIC X(20) VALUE '093DEPT093 '.
|
|
05 FILLER PIC X(20) VALUE '094DEPT094 '.
|
|
05 FILLER PIC X(20) VALUE '095DEPT095 '.
|
|
05 FILLER PIC X(20) VALUE '096DEPT096 '.
|
|
05 FILLER PIC X(20) VALUE '097DEPT097 '.
|
|
05 FILLER PIC X(20) VALUE '098DEPT098 '.
|
|
05 FILLER PIC X(20) VALUE '099DEPT099 '.
|
|
05 FILLER PIC X(20) VALUE '100DEPT100 '.
|
|
05 FILLER PIC X(20) VALUE '101DEPT101 '.
|
|
05 FILLER PIC X(20) VALUE '102DEPT102 '.
|
|
05 FILLER PIC X(20) VALUE '103DEPT103 '.
|
|
05 FILLER PIC X(20) VALUE '104DEPT104 '.
|
|
05 FILLER PIC X(20) VALUE '105DEPT105 '.
|
|
05 FILLER PIC X(20) VALUE '106DEPT106 '.
|
|
05 FILLER PIC X(20) VALUE '107DEPT107 '.
|
|
05 FILLER PIC X(20) VALUE '108DEPT108 '.
|
|
05 FILLER PIC X(20) VALUE '109DEPT109 '.
|
|
05 FILLER PIC X(20) VALUE '110DEPT110 '.
|
|
05 FILLER PIC X(20) VALUE '111DEPT111 '.
|
|
05 FILLER PIC X(20) VALUE '112DEPT112 '.
|
|
05 FILLER PIC X(20) VALUE '113DEPT113 '.
|
|
05 FILLER PIC X(20) VALUE '114DEPT114 '.
|
|
05 FILLER PIC X(20) VALUE '115DEPT115 '.
|
|
05 FILLER PIC X(20) VALUE '116DEPT116 '.
|
|
05 FILLER PIC X(20) VALUE '117DEPT117 '.
|
|
05 FILLER PIC X(20) VALUE '118DEPT118 '.
|
|
05 FILLER PIC X(20) VALUE '119DEPT119 '.
|
|
05 FILLER PIC X(20) VALUE '120DEPT120 '.
|
|
05 FILLER PIC X(20) VALUE '121DEPT121 '.
|
|
05 FILLER PIC X(20) VALUE '122DEPT122 '.
|
|
05 FILLER PIC X(20) VALUE '123DEPT123 '.
|
|
05 FILLER PIC X(20) VALUE '124DEPT124 '.
|
|
05 FILLER PIC X(20) VALUE '125DEPT125 '.
|
|
05 FILLER PIC X(20) VALUE '126DEPT126 '.
|
|
05 FILLER PIC X(20) VALUE '127DEPT127 '.
|
|
05 FILLER PIC X(20) VALUE '128DEPT128 '.
|
|
05 FILLER PIC X(20) VALUE '129DEPT129 '.
|
|
05 FILLER PIC X(20) VALUE '130DEPT130 '.
|
|
05 FILLER PIC X(20) VALUE '131DEPT131 '.
|
|
05 FILLER PIC X(20) VALUE '132DEPT132 '.
|
|
05 FILLER PIC X(20) VALUE '133DEPT133 '.
|
|
05 FILLER PIC X(20) VALUE '134DEPT134 '.
|
|
05 FILLER PIC X(20) VALUE '135DEPT135 '.
|
|
05 FILLER PIC X(20) VALUE '136DEPT136 '.
|
|
05 FILLER PIC X(20) VALUE '137DEPT137 '.
|
|
05 FILLER PIC X(20) VALUE '138DEPT138 '.
|
|
05 FILLER PIC X(20) VALUE '139DEPT139 '.
|
|
05 FILLER PIC X(20) VALUE '140DEPT140 '.
|
|
05 FILLER PIC X(20) VALUE '141DEPT141 '.
|
|
05 FILLER PIC X(20) VALUE '142DEPT142 '.
|
|
05 FILLER PIC X(20) VALUE '143DEPT143 '.
|
|
05 FILLER PIC X(20) VALUE '144DEPT144 '.
|
|
05 FILLER PIC X(20) VALUE '145DEPT145 '.
|
|
05 FILLER PIC X(20) VALUE '146DEPT146 '.
|
|
05 FILLER PIC X(20) VALUE '147DEPT147 '.
|
|
05 FILLER PIC X(20) VALUE '148DEPT148 '.
|
|
05 FILLER PIC X(20) VALUE '149DEPT149 '.
|
|
05 FILLER PIC X(20) VALUE '150DEPT150 '.
|
|
05 FILLER PIC X(20) VALUE '151DEPT151 '.
|
|
05 FILLER PIC X(20) VALUE '152DEPT152 '.
|
|
05 FILLER PIC X(20) VALUE '153DEPT153 '.
|
|
05 FILLER PIC X(20) VALUE '154DEPT154 '.
|
|
05 FILLER PIC X(20) VALUE '155DEPT155 '.
|
|
05 FILLER PIC X(20) VALUE '156DEPT156 '.
|
|
05 FILLER PIC X(20) VALUE '157DEPT157 '.
|
|
05 FILLER PIC X(20) VALUE '158DEPT158 '.
|
|
05 FILLER PIC X(20) VALUE '159DEPT159 '.
|
|
05 FILLER PIC X(20) VALUE '160DEPT160 '.
|
|
05 FILLER PIC X(20) VALUE '161DEPT161 '.
|
|
05 FILLER PIC X(20) VALUE '162DEPT162 '.
|
|
05 FILLER PIC X(20) VALUE '163DEPT163 '.
|
|
05 FILLER PIC X(20) VALUE '164DEPT164 '.
|
|
05 FILLER PIC X(20) VALUE '165DEPT165 '.
|
|
05 FILLER PIC X(20) VALUE '166DEPT166 '.
|
|
05 FILLER PIC X(20) VALUE '167DEPT167 '.
|
|
05 FILLER PIC X(20) VALUE '168DEPT168 '.
|
|
05 FILLER PIC X(20) VALUE '169DEPT169 '.
|
|
05 FILLER PIC X(20) VALUE '170DEPT170 '.
|
|
05 FILLER PIC X(20) VALUE '171DEPT171 '.
|
|
05 FILLER PIC X(20) VALUE '172DEPT172 '.
|
|
05 FILLER PIC X(20) VALUE '173DEPT173 '.
|
|
05 FILLER PIC X(20) VALUE '174DEPT174 '.
|
|
05 FILLER PIC X(20) VALUE '175DEPT175 '.
|
|
05 FILLER PIC X(20) VALUE '176DEPT176 '.
|
|
05 FILLER PIC X(20) VALUE '177DEPT177 '.
|
|
05 FILLER PIC X(20) VALUE '178DEPT178 '.
|
|
05 FILLER PIC X(20) VALUE '179DEPT179 '.
|
|
05 FILLER PIC X(20) VALUE '180DEPT180 '.
|
|
05 FILLER PIC X(20) VALUE '181DEPT181 '.
|
|
05 FILLER PIC X(20) VALUE '182DEPT182 '.
|
|
05 FILLER PIC X(20) VALUE '183DEPT183 '.
|
|
05 FILLER PIC X(20) VALUE '184DEPT184 '.
|
|
05 FILLER PIC X(20) VALUE '185DEPT185 '.
|
|
05 FILLER PIC X(20) VALUE '186DEPT186 '.
|
|
05 FILLER PIC X(20) VALUE '187DEPT187 '.
|
|
05 FILLER PIC X(20) VALUE '188DEPT188 '.
|
|
05 FILLER PIC X(20) VALUE '189DEPT189 '.
|
|
05 FILLER PIC X(20) VALUE '190DEPT190 '.
|
|
05 FILLER PIC X(20) VALUE '191DEPT191 '.
|
|
05 FILLER PIC X(20) VALUE '192DEPT192 '.
|
|
05 FILLER PIC X(20) VALUE '193DEPT193 '.
|
|
05 FILLER PIC X(20) VALUE '194DEPT194 '.
|
|
05 FILLER PIC X(20) VALUE '195DEPT195 '.
|
|
05 FILLER PIC X(20) VALUE '196DEPT196 '.
|
|
05 FILLER PIC X(20) VALUE '197DEPT197 '.
|
|
05 FILLER PIC X(20) VALUE '198DEPT198 '.
|
|
05 FILLER PIC X(20) VALUE '199DEPT199 '.
|
|
05 FILLER PIC X(20) VALUE '200DEPT200 '.
|
|
05 FILLER PIC X(20) VALUE '201DEPT201 '.
|
|
05 FILLER PIC X(20) VALUE '202DEPT202 '.
|
|
05 FILLER PIC X(20) VALUE '203DEPT203 '.
|
|
05 FILLER PIC X(20) VALUE '204DEPT204 '.
|
|
05 FILLER PIC X(20) VALUE '205DEPT205 '.
|
|
05 FILLER PIC X(20) VALUE '206DEPT206 '.
|
|
05 FILLER PIC X(20) VALUE '207DEPT207 '.
|
|
05 FILLER PIC X(20) VALUE '208DEPT208 '.
|
|
05 FILLER PIC X(20) VALUE '209DEPT209 '.
|
|
05 FILLER PIC X(20) VALUE '210DEPT210 '.
|
|
05 FILLER PIC X(20) VALUE '211DEPT211 '.
|
|
05 FILLER PIC X(20) VALUE '212DEPT212 '.
|
|
05 FILLER PIC X(20) VALUE '213DEPT213 '.
|
|
05 FILLER PIC X(20) VALUE '214DEPT214 '.
|
|
05 FILLER PIC X(20) VALUE '215DEPT215 '.
|
|
05 FILLER PIC X(20) VALUE '216DEPT216 '.
|
|
05 FILLER PIC X(20) VALUE '217DEPT217 '.
|
|
05 FILLER PIC X(20) VALUE '218DEPT218 '.
|
|
05 FILLER PIC X(20) VALUE '219DEPT219 '.
|
|
05 FILLER PIC X(20) VALUE '220DEPT220 '.
|
|
05 FILLER PIC X(20) VALUE '221DEPT221 '.
|
|
05 FILLER PIC X(20) VALUE '222DEPT222 '.
|
|
05 FILLER PIC X(20) VALUE '223DEPT223 '.
|
|
05 FILLER PIC X(20) VALUE '224DEPT224 '.
|
|
05 FILLER PIC X(20) VALUE '225DEPT225 '.
|
|
05 FILLER PIC X(20) VALUE '226DEPT226 '.
|
|
05 FILLER PIC X(20) VALUE '227DEPT227 '.
|
|
05 FILLER PIC X(20) VALUE '228DEPT228 '.
|
|
05 FILLER PIC X(20) VALUE '229DEPT229 '.
|
|
05 FILLER PIC X(20) VALUE '230DEPT230 '.
|
|
05 FILLER PIC X(20) VALUE '231DEPT231 '.
|
|
05 FILLER PIC X(20) VALUE '232DEPT232 '.
|
|
05 FILLER PIC X(20) VALUE '233DEPT233 '.
|
|
05 FILLER PIC X(20) VALUE '234DEPT234 '.
|
|
05 FILLER PIC X(20) VALUE '235DEPT235 '.
|
|
05 FILLER PIC X(20) VALUE '236DEPT236 '.
|
|
05 FILLER PIC X(20) VALUE '237DEPT237 '.
|
|
05 FILLER PIC X(20) VALUE '238DEPT238 '.
|
|
05 FILLER PIC X(20) VALUE '239DEPT239 '.
|
|
05 FILLER PIC X(20) VALUE '240DEPT240 '.
|
|
05 FILLER PIC X(20) VALUE '241DEPT241 '.
|
|
05 FILLER PIC X(20) VALUE '242DEPT242 '.
|
|
05 FILLER PIC X(20) VALUE '243DEPT243 '.
|
|
05 FILLER PIC X(20) VALUE '244DEPT244 '.
|
|
05 FILLER PIC X(20) VALUE '245DEPT245 '.
|
|
05 FILLER PIC X(20) VALUE '246DEPT246 '.
|
|
05 FILLER PIC X(20) VALUE '247DEPT247 '.
|
|
05 FILLER PIC X(20) VALUE '248DEPT248 '.
|
|
05 FILLER PIC X(20) VALUE '249DEPT249 '.
|
|
05 FILLER PIC X(20) VALUE '250DEPT250 '.
|
|
05 FILLER PIC X(20) VALUE '251DEPT251 '.
|
|
05 FILLER PIC X(20) VALUE '252DEPT252 '.
|
|
05 FILLER PIC X(20) VALUE '253DEPT253 '.
|
|
05 FILLER PIC X(20) VALUE '254DEPT254 '.
|
|
05 FILLER PIC X(20) VALUE '255DEPT255 '.
|
|
05 FILLER PIC X(20) VALUE '256DEPT256 '.
|
|
05 FILLER PIC X(20) VALUE '257DEPT257 '.
|
|
05 FILLER PIC X(20) VALUE '258DEPT258 '.
|
|
05 FILLER PIC X(20) VALUE '259DEPT259 '.
|
|
05 FILLER PIC X(20) VALUE '260DEPT260 '.
|
|
05 FILLER PIC X(20) VALUE '261DEPT261 '.
|
|
05 FILLER PIC X(20) VALUE '262DEPT262 '.
|
|
05 FILLER PIC X(20) VALUE '263DEPT263 '.
|
|
05 FILLER PIC X(20) VALUE '264DEPT264 '.
|
|
05 FILLER PIC X(20) VALUE '265DEPT265 '.
|
|
05 FILLER PIC X(20) VALUE '266DEPT266 '.
|
|
05 FILLER PIC X(20) VALUE '267DEPT267 '.
|
|
05 FILLER PIC X(20) VALUE '268DEPT268 '.
|
|
05 FILLER PIC X(20) VALUE '269DEPT269 '.
|
|
05 FILLER PIC X(20) VALUE '270DEPT270 '.
|
|
05 FILLER PIC X(20) VALUE '271DEPT271 '.
|
|
05 FILLER PIC X(20) VALUE '272DEPT272 '.
|
|
05 FILLER PIC X(20) VALUE '273DEPT273 '.
|
|
05 FILLER PIC X(20) VALUE '274DEPT274 '.
|
|
05 FILLER PIC X(20) VALUE '275DEPT275 '.
|
|
05 FILLER PIC X(20) VALUE '276DEPT276 '.
|
|
05 FILLER PIC X(20) VALUE '277DEPT277 '.
|
|
05 FILLER PIC X(20) VALUE '278DEPT278 '.
|
|
05 FILLER PIC X(20) VALUE '279DEPT279 '.
|
|
05 FILLER PIC X(20) VALUE '280DEPT280 '.
|
|
05 FILLER PIC X(20) VALUE '281DEPT281 '.
|
|
05 FILLER PIC X(20) VALUE '282DEPT282 '.
|
|
05 FILLER PIC X(20) VALUE '283DEPT283 '.
|
|
05 FILLER PIC X(20) VALUE '284DEPT284 '.
|
|
05 FILLER PIC X(20) VALUE '285DEPT285 '.
|
|
05 FILLER PIC X(20) VALUE '286DEPT286 '.
|
|
05 FILLER PIC X(20) VALUE '287DEPT287 '.
|
|
05 FILLER PIC X(20) VALUE '288DEPT288 '.
|
|
05 FILLER PIC X(20) VALUE '289DEPT289 '.
|
|
05 FILLER PIC X(20) VALUE '290DEPT290 '.
|
|
05 FILLER PIC X(20) VALUE '291DEPT291 '.
|
|
05 FILLER PIC X(20) VALUE '292DEPT292 '.
|
|
05 FILLER PIC X(20) VALUE '293DEPT293 '.
|
|
05 FILLER PIC X(20) VALUE '294DEPT294 '.
|
|
05 FILLER PIC X(20) VALUE '295DEPT295 '.
|
|
05 FILLER PIC X(20) VALUE '296DEPT296 '.
|
|
05 FILLER PIC X(20) VALUE '297DEPT297 '.
|
|
05 FILLER PIC X(20) VALUE '298DEPT298 '.
|
|
05 FILLER PIC X(20) VALUE '299DEPT299 '.
|
|
05 FILLER PIC X(20) VALUE '300DEPT300 '.
|