168 lines
7.5 KiB
COBOL
168 lines
7.5 KiB
COBOL
05 FILLER PIC X(10) VALUE '001DEPT001'.
|
|
05 FILLER PIC X(10) VALUE '004DEPT004'.
|
|
05 FILLER PIC X(10) VALUE '007DEPT007'.
|
|
05 FILLER PIC X(10) VALUE '010DEPT010'.
|
|
05 FILLER PIC X(10) VALUE '013DEPT013'.
|
|
05 FILLER PIC X(10) VALUE '016DEPT016'.
|
|
05 FILLER PIC X(10) VALUE '019DEPT019'.
|
|
05 FILLER PIC X(10) VALUE '022DEPT022'.
|
|
05 FILLER PIC X(10) VALUE '025DEPT025'.
|
|
05 FILLER PIC X(10) VALUE '028DEPT028'.
|
|
05 FILLER PIC X(10) VALUE '031DEPT031'.
|
|
05 FILLER PIC X(10) VALUE '034DEPT034'.
|
|
05 FILLER PIC X(10) VALUE '037DEPT037'.
|
|
05 FILLER PIC X(10) VALUE '040DEPT040'.
|
|
05 FILLER PIC X(10) VALUE '043DEPT043'.
|
|
05 FILLER PIC X(10) VALUE '046DEPT046'.
|
|
05 FILLER PIC X(10) VALUE '049DEPT049'.
|
|
05 FILLER PIC X(10) VALUE '052DEPT052'.
|
|
05 FILLER PIC X(10) VALUE '055DEPT055'.
|
|
05 FILLER PIC X(10) VALUE '058DEPT058'.
|
|
05 FILLER PIC X(10) VALUE '061DEPT061'.
|
|
05 FILLER PIC X(10) VALUE '064DEPT064'.
|
|
05 FILLER PIC X(10) VALUE '067DEPT067'.
|
|
05 FILLER PIC X(10) VALUE '070DEPT070'.
|
|
05 FILLER PIC X(10) VALUE '073DEPT073'.
|
|
05 FILLER PIC X(10) VALUE '076DEPT076'.
|
|
05 FILLER PIC X(10) VALUE '079DEPT079'.
|
|
05 FILLER PIC X(10) VALUE '082DEPT082'.
|
|
05 FILLER PIC X(10) VALUE '085DEPT085'.
|
|
05 FILLER PIC X(10) VALUE '088DEPT088'.
|
|
05 FILLER PIC X(10) VALUE '091DEPT091'.
|
|
05 FILLER PIC X(10) VALUE '094DEPT094'.
|
|
05 FILLER PIC X(10) VALUE '097DEPT097'.
|
|
05 FILLER PIC X(10) VALUE '100DEPT100'.
|
|
05 FILLER PIC X(10) VALUE '103DEPT103'.
|
|
05 FILLER PIC X(10) VALUE '106DEPT106'.
|
|
05 FILLER PIC X(10) VALUE '109DEPT109'.
|
|
05 FILLER PIC X(10) VALUE '112DEPT112'.
|
|
05 FILLER PIC X(10) VALUE '115DEPT115'.
|
|
05 FILLER PIC X(10) VALUE '118DEPT118'.
|
|
05 FILLER PIC X(10) VALUE '121DEPT121'.
|
|
05 FILLER PIC X(10) VALUE '124DEPT124'.
|
|
05 FILLER PIC X(10) VALUE '127DEPT127'.
|
|
05 FILLER PIC X(10) VALUE '130DEPT130'.
|
|
05 FILLER PIC X(10) VALUE '133DEPT133'.
|
|
05 FILLER PIC X(10) VALUE '136DEPT136'.
|
|
05 FILLER PIC X(10) VALUE '139DEPT139'.
|
|
05 FILLER PIC X(10) VALUE '142DEPT142'.
|
|
05 FILLER PIC X(10) VALUE '145DEPT145'.
|
|
05 FILLER PIC X(10) VALUE '148DEPT148'.
|
|
05 FILLER PIC X(10) VALUE '151DEPT151'.
|
|
05 FILLER PIC X(10) VALUE '154DEPT154'.
|
|
05 FILLER PIC X(10) VALUE '157DEPT157'.
|
|
05 FILLER PIC X(10) VALUE '160DEPT160'.
|
|
05 FILLER PIC X(10) VALUE '163DEPT163'.
|
|
05 FILLER PIC X(10) VALUE '166DEPT166'.
|
|
05 FILLER PIC X(10) VALUE '169DEPT169'.
|
|
05 FILLER PIC X(10) VALUE '172DEPT172'.
|
|
05 FILLER PIC X(10) VALUE '175DEPT175'.
|
|
05 FILLER PIC X(10) VALUE '178DEPT178'.
|
|
05 FILLER PIC X(10) VALUE '181DEPT181'.
|
|
05 FILLER PIC X(10) VALUE '184DEPT184'.
|
|
05 FILLER PIC X(10) VALUE '187DEPT187'.
|
|
05 FILLER PIC X(10) VALUE '190DEPT190'.
|
|
05 FILLER PIC X(10) VALUE '193DEPT193'.
|
|
05 FILLER PIC X(10) VALUE '196DEPT196'.
|
|
05 FILLER PIC X(10) VALUE '199DEPT199'.
|
|
05 FILLER PIC X(10) VALUE '202DEPT202'.
|
|
05 FILLER PIC X(10) VALUE '205DEPT205'.
|
|
05 FILLER PIC X(10) VALUE '208DEPT208'.
|
|
05 FILLER PIC X(10) VALUE '211DEPT211'.
|
|
05 FILLER PIC X(10) VALUE '214DEPT214'.
|
|
05 FILLER PIC X(10) VALUE '217DEPT217'.
|
|
05 FILLER PIC X(10) VALUE '220DEPT220'.
|
|
05 FILLER PIC X(10) VALUE '223DEPT223'.
|
|
05 FILLER PIC X(10) VALUE '226DEPT226'.
|
|
05 FILLER PIC X(10) VALUE '229DEPT229'.
|
|
05 FILLER PIC X(10) VALUE '232DEPT232'.
|
|
05 FILLER PIC X(10) VALUE '235DEPT235'.
|
|
05 FILLER PIC X(10) VALUE '238DEPT238'.
|
|
05 FILLER PIC X(10) VALUE '241DEPT241'.
|
|
05 FILLER PIC X(10) VALUE '244DEPT244'.
|
|
05 FILLER PIC X(10) VALUE '247DEPT247'.
|
|
05 FILLER PIC X(10) VALUE '250DEPT250'.
|
|
05 FILLER PIC X(10) VALUE '253DEPT253'.
|
|
05 FILLER PIC X(10) VALUE '256DEPT256'.
|
|
05 FILLER PIC X(10) VALUE '259DEPT259'.
|
|
05 FILLER PIC X(10) VALUE '262DEPT262'.
|
|
05 FILLER PIC X(10) VALUE '265DEPT265'.
|
|
05 FILLER PIC X(10) VALUE '268DEPT268'.
|
|
05 FILLER PIC X(10) VALUE '271DEPT271'.
|
|
05 FILLER PIC X(10) VALUE '274DEPT274'.
|
|
05 FILLER PIC X(10) VALUE '277DEPT277'.
|
|
05 FILLER PIC X(10) VALUE '280DEPT280'.
|
|
05 FILLER PIC X(10) VALUE '283DEPT283'.
|
|
05 FILLER PIC X(10) VALUE '286DEPT286'.
|
|
05 FILLER PIC X(10) VALUE '289DEPT289'.
|
|
05 FILLER PIC X(10) VALUE '292DEPT292'.
|
|
05 FILLER PIC X(10) VALUE '295DEPT295'.
|
|
05 FILLER PIC X(10) VALUE '298DEPT298'.
|
|
05 FILLER PIC X(10) VALUE '301DEPT301'.
|
|
05 FILLER PIC X(10) VALUE '304DEPT304'.
|
|
05 FILLER PIC X(10) VALUE '307DEPT307'.
|
|
05 FILLER PIC X(10) VALUE '310DEPT310'.
|
|
05 FILLER PIC X(10) VALUE '313DEPT313'.
|
|
05 FILLER PIC X(10) VALUE '316DEPT316'.
|
|
05 FILLER PIC X(10) VALUE '319DEPT319'.
|
|
05 FILLER PIC X(10) VALUE '322DEPT322'.
|
|
05 FILLER PIC X(10) VALUE '325DEPT325'.
|
|
05 FILLER PIC X(10) VALUE '328DEPT328'.
|
|
05 FILLER PIC X(10) VALUE '331DEPT331'.
|
|
05 FILLER PIC X(10) VALUE '334DEPT334'.
|
|
05 FILLER PIC X(10) VALUE '337DEPT337'.
|
|
05 FILLER PIC X(10) VALUE '340DEPT340'.
|
|
05 FILLER PIC X(10) VALUE '343DEPT343'.
|
|
05 FILLER PIC X(10) VALUE '346DEPT346'.
|
|
05 FILLER PIC X(10) VALUE '349DEPT349'.
|
|
05 FILLER PIC X(10) VALUE '352DEPT352'.
|
|
05 FILLER PIC X(10) VALUE '355DEPT355'.
|
|
05 FILLER PIC X(10) VALUE '358DEPT358'.
|
|
05 FILLER PIC X(10) VALUE '361DEPT361'.
|
|
05 FILLER PIC X(10) VALUE '364DEPT364'.
|
|
05 FILLER PIC X(10) VALUE '367DEPT367'.
|
|
05 FILLER PIC X(10) VALUE '370DEPT370'.
|
|
05 FILLER PIC X(10) VALUE '373DEPT373'.
|
|
05 FILLER PIC X(10) VALUE '376DEPT376'.
|
|
05 FILLER PIC X(10) VALUE '379DEPT379'.
|
|
05 FILLER PIC X(10) VALUE '382DEPT382'.
|
|
05 FILLER PIC X(10) VALUE '385DEPT385'.
|
|
05 FILLER PIC X(10) VALUE '388DEPT388'.
|
|
05 FILLER PIC X(10) VALUE '391DEPT391'.
|
|
05 FILLER PIC X(10) VALUE '394DEPT394'.
|
|
05 FILLER PIC X(10) VALUE '397DEPT397'.
|
|
05 FILLER PIC X(10) VALUE '400DEPT400'.
|
|
05 FILLER PIC X(10) VALUE '403DEPT403'.
|
|
05 FILLER PIC X(10) VALUE '406DEPT406'.
|
|
05 FILLER PIC X(10) VALUE '409DEPT409'.
|
|
05 FILLER PIC X(10) VALUE '412DEPT412'.
|
|
05 FILLER PIC X(10) VALUE '415DEPT415'.
|
|
05 FILLER PIC X(10) VALUE '418DEPT418'.
|
|
05 FILLER PIC X(10) VALUE '421DEPT421'.
|
|
05 FILLER PIC X(10) VALUE '424DEPT424'.
|
|
05 FILLER PIC X(10) VALUE '427DEPT427'.
|
|
05 FILLER PIC X(10) VALUE '430DEPT430'.
|
|
05 FILLER PIC X(10) VALUE '433DEPT433'.
|
|
05 FILLER PIC X(10) VALUE '436DEPT436'.
|
|
05 FILLER PIC X(10) VALUE '439DEPT439'.
|
|
05 FILLER PIC X(10) VALUE '442DEPT442'.
|
|
05 FILLER PIC X(10) VALUE '445DEPT445'.
|
|
05 FILLER PIC X(10) VALUE '448DEPT448'.
|
|
05 FILLER PIC X(10) VALUE '451DEPT451'.
|
|
05 FILLER PIC X(10) VALUE '454DEPT454'.
|
|
05 FILLER PIC X(10) VALUE '457DEPT457'.
|
|
05 FILLER PIC X(10) VALUE '460DEPT460'.
|
|
05 FILLER PIC X(10) VALUE '463DEPT463'.
|
|
05 FILLER PIC X(10) VALUE '466DEPT466'.
|
|
05 FILLER PIC X(10) VALUE '469DEPT469'.
|
|
05 FILLER PIC X(10) VALUE '472DEPT472'.
|
|
05 FILLER PIC X(10) VALUE '475DEPT475'.
|
|
05 FILLER PIC X(10) VALUE '478DEPT478'.
|
|
05 FILLER PIC X(10) VALUE '481DEPT481'.
|
|
05 FILLER PIC X(10) VALUE '484DEPT484'.
|
|
05 FILLER PIC X(10) VALUE '487DEPT487'.
|
|
05 FILLER PIC X(10) VALUE '490DEPT490'.
|
|
05 FILLER PIC X(10) VALUE '493DEPT493'.
|
|
05 FILLER PIC X(10) VALUE '496DEPT496'.
|
|
05 FILLER PIC X(10) VALUE '499DEPT499'.
|