168 lines
7.5 KiB
COBOL
168 lines
7.5 KiB
COBOL
05 FILLER PIC X(10) VALUE '500DEPT500'.
|
|
05 FILLER PIC X(10) VALUE '497DEPT497'.
|
|
05 FILLER PIC X(10) VALUE '494DEPT494'.
|
|
05 FILLER PIC X(10) VALUE '491DEPT491'.
|
|
05 FILLER PIC X(10) VALUE '488DEPT488'.
|
|
05 FILLER PIC X(10) VALUE '485DEPT485'.
|
|
05 FILLER PIC X(10) VALUE '482DEPT482'.
|
|
05 FILLER PIC X(10) VALUE '479DEPT479'.
|
|
05 FILLER PIC X(10) VALUE '476DEPT476'.
|
|
05 FILLER PIC X(10) VALUE '473DEPT473'.
|
|
05 FILLER PIC X(10) VALUE '470DEPT470'.
|
|
05 FILLER PIC X(10) VALUE '467DEPT467'.
|
|
05 FILLER PIC X(10) VALUE '464DEPT464'.
|
|
05 FILLER PIC X(10) VALUE '461DEPT461'.
|
|
05 FILLER PIC X(10) VALUE '458DEPT458'.
|
|
05 FILLER PIC X(10) VALUE '455DEPT455'.
|
|
05 FILLER PIC X(10) VALUE '452DEPT452'.
|
|
05 FILLER PIC X(10) VALUE '449DEPT449'.
|
|
05 FILLER PIC X(10) VALUE '446DEPT446'.
|
|
05 FILLER PIC X(10) VALUE '443DEPT443'.
|
|
05 FILLER PIC X(10) VALUE '440DEPT440'.
|
|
05 FILLER PIC X(10) VALUE '437DEPT437'.
|
|
05 FILLER PIC X(10) VALUE '434DEPT434'.
|
|
05 FILLER PIC X(10) VALUE '431DEPT431'.
|
|
05 FILLER PIC X(10) VALUE '428DEPT428'.
|
|
05 FILLER PIC X(10) VALUE '425DEPT425'.
|
|
05 FILLER PIC X(10) VALUE '422DEPT422'.
|
|
05 FILLER PIC X(10) VALUE '419DEPT419'.
|
|
05 FILLER PIC X(10) VALUE '416DEPT416'.
|
|
05 FILLER PIC X(10) VALUE '413DEPT413'.
|
|
05 FILLER PIC X(10) VALUE '410DEPT410'.
|
|
05 FILLER PIC X(10) VALUE '407DEPT407'.
|
|
05 FILLER PIC X(10) VALUE '404DEPT404'.
|
|
05 FILLER PIC X(10) VALUE '401DEPT401'.
|
|
05 FILLER PIC X(10) VALUE '398DEPT398'.
|
|
05 FILLER PIC X(10) VALUE '395DEPT395'.
|
|
05 FILLER PIC X(10) VALUE '392DEPT392'.
|
|
05 FILLER PIC X(10) VALUE '389DEPT389'.
|
|
05 FILLER PIC X(10) VALUE '386DEPT386'.
|
|
05 FILLER PIC X(10) VALUE '383DEPT383'.
|
|
05 FILLER PIC X(10) VALUE '380DEPT380'.
|
|
05 FILLER PIC X(10) VALUE '377DEPT377'.
|
|
05 FILLER PIC X(10) VALUE '374DEPT374'.
|
|
05 FILLER PIC X(10) VALUE '371DEPT371'.
|
|
05 FILLER PIC X(10) VALUE '368DEPT368'.
|
|
05 FILLER PIC X(10) VALUE '365DEPT365'.
|
|
05 FILLER PIC X(10) VALUE '362DEPT362'.
|
|
05 FILLER PIC X(10) VALUE '359DEPT359'.
|
|
05 FILLER PIC X(10) VALUE '356DEPT356'.
|
|
05 FILLER PIC X(10) VALUE '353DEPT353'.
|
|
05 FILLER PIC X(10) VALUE '350DEPT350'.
|
|
05 FILLER PIC X(10) VALUE '347DEPT347'.
|
|
05 FILLER PIC X(10) VALUE '344DEPT344'.
|
|
05 FILLER PIC X(10) VALUE '341DEPT341'.
|
|
05 FILLER PIC X(10) VALUE '338DEPT338'.
|
|
05 FILLER PIC X(10) VALUE '335DEPT335'.
|
|
05 FILLER PIC X(10) VALUE '332DEPT332'.
|
|
05 FILLER PIC X(10) VALUE '329DEPT329'.
|
|
05 FILLER PIC X(10) VALUE '326DEPT326'.
|
|
05 FILLER PIC X(10) VALUE '323DEPT323'.
|
|
05 FILLER PIC X(10) VALUE '320DEPT320'.
|
|
05 FILLER PIC X(10) VALUE '317DEPT317'.
|
|
05 FILLER PIC X(10) VALUE '314DEPT314'.
|
|
05 FILLER PIC X(10) VALUE '311DEPT311'.
|
|
05 FILLER PIC X(10) VALUE '308DEPT308'.
|
|
05 FILLER PIC X(10) VALUE '305DEPT305'.
|
|
05 FILLER PIC X(10) VALUE '302DEPT302'.
|
|
05 FILLER PIC X(10) VALUE '299DEPT299'.
|
|
05 FILLER PIC X(10) VALUE '296DEPT296'.
|
|
05 FILLER PIC X(10) VALUE '293DEPT293'.
|
|
05 FILLER PIC X(10) VALUE '290DEPT290'.
|
|
05 FILLER PIC X(10) VALUE '287DEPT287'.
|
|
05 FILLER PIC X(10) VALUE '284DEPT284'.
|
|
05 FILLER PIC X(10) VALUE '281DEPT281'.
|
|
05 FILLER PIC X(10) VALUE '278DEPT278'.
|
|
05 FILLER PIC X(10) VALUE '275DEPT275'.
|
|
05 FILLER PIC X(10) VALUE '272DEPT272'.
|
|
05 FILLER PIC X(10) VALUE '269DEPT269'.
|
|
05 FILLER PIC X(10) VALUE '266DEPT266'.
|
|
05 FILLER PIC X(10) VALUE '263DEPT263'.
|
|
05 FILLER PIC X(10) VALUE '260DEPT260'.
|
|
05 FILLER PIC X(10) VALUE '257DEPT257'.
|
|
05 FILLER PIC X(10) VALUE '254DEPT254'.
|
|
05 FILLER PIC X(10) VALUE '251DEPT251'.
|
|
05 FILLER PIC X(10) VALUE '248DEPT248'.
|
|
05 FILLER PIC X(10) VALUE '245DEPT245'.
|
|
05 FILLER PIC X(10) VALUE '242DEPT242'.
|
|
05 FILLER PIC X(10) VALUE '239DEPT239'.
|
|
05 FILLER PIC X(10) VALUE '236DEPT236'.
|
|
05 FILLER PIC X(10) VALUE '233DEPT233'.
|
|
05 FILLER PIC X(10) VALUE '230DEPT230'.
|
|
05 FILLER PIC X(10) VALUE '227DEPT227'.
|
|
05 FILLER PIC X(10) VALUE '224DEPT224'.
|
|
05 FILLER PIC X(10) VALUE '221DEPT221'.
|
|
05 FILLER PIC X(10) VALUE '218DEPT218'.
|
|
05 FILLER PIC X(10) VALUE '215DEPT215'.
|
|
05 FILLER PIC X(10) VALUE '212DEPT212'.
|
|
05 FILLER PIC X(10) VALUE '209DEPT209'.
|
|
05 FILLER PIC X(10) VALUE '206DEPT206'.
|
|
05 FILLER PIC X(10) VALUE '203DEPT203'.
|
|
05 FILLER PIC X(10) VALUE '200DEPT200'.
|
|
05 FILLER PIC X(10) VALUE '197DEPT197'.
|
|
05 FILLER PIC X(10) VALUE '194DEPT194'.
|
|
05 FILLER PIC X(10) VALUE '191DEPT191'.
|
|
05 FILLER PIC X(10) VALUE '188DEPT188'.
|
|
05 FILLER PIC X(10) VALUE '185DEPT185'.
|
|
05 FILLER PIC X(10) VALUE '182DEPT182'.
|
|
05 FILLER PIC X(10) VALUE '179DEPT179'.
|
|
05 FILLER PIC X(10) VALUE '176DEPT176'.
|
|
05 FILLER PIC X(10) VALUE '173DEPT173'.
|
|
05 FILLER PIC X(10) VALUE '170DEPT170'.
|
|
05 FILLER PIC X(10) VALUE '167DEPT167'.
|
|
05 FILLER PIC X(10) VALUE '164DEPT164'.
|
|
05 FILLER PIC X(10) VALUE '161DEPT161'.
|
|
05 FILLER PIC X(10) VALUE '158DEPT158'.
|
|
05 FILLER PIC X(10) VALUE '155DEPT155'.
|
|
05 FILLER PIC X(10) VALUE '152DEPT152'.
|
|
05 FILLER PIC X(10) VALUE '149DEPT149'.
|
|
05 FILLER PIC X(10) VALUE '146DEPT146'.
|
|
05 FILLER PIC X(10) VALUE '143DEPT143'.
|
|
05 FILLER PIC X(10) VALUE '140DEPT140'.
|
|
05 FILLER PIC X(10) VALUE '137DEPT137'.
|
|
05 FILLER PIC X(10) VALUE '134DEPT134'.
|
|
05 FILLER PIC X(10) VALUE '131DEPT131'.
|
|
05 FILLER PIC X(10) VALUE '128DEPT128'.
|
|
05 FILLER PIC X(10) VALUE '125DEPT125'.
|
|
05 FILLER PIC X(10) VALUE '122DEPT122'.
|
|
05 FILLER PIC X(10) VALUE '119DEPT119'.
|
|
05 FILLER PIC X(10) VALUE '116DEPT116'.
|
|
05 FILLER PIC X(10) VALUE '113DEPT113'.
|
|
05 FILLER PIC X(10) VALUE '110DEPT110'.
|
|
05 FILLER PIC X(10) VALUE '107DEPT107'.
|
|
05 FILLER PIC X(10) VALUE '104DEPT104'.
|
|
05 FILLER PIC X(10) VALUE '101DEPT101'.
|
|
05 FILLER PIC X(10) VALUE '098DEPT098'.
|
|
05 FILLER PIC X(10) VALUE '095DEPT095'.
|
|
05 FILLER PIC X(10) VALUE '092DEPT092'.
|
|
05 FILLER PIC X(10) VALUE '089DEPT089'.
|
|
05 FILLER PIC X(10) VALUE '086DEPT086'.
|
|
05 FILLER PIC X(10) VALUE '083DEPT083'.
|
|
05 FILLER PIC X(10) VALUE '080DEPT080'.
|
|
05 FILLER PIC X(10) VALUE '077DEPT077'.
|
|
05 FILLER PIC X(10) VALUE '074DEPT074'.
|
|
05 FILLER PIC X(10) VALUE '071DEPT071'.
|
|
05 FILLER PIC X(10) VALUE '068DEPT068'.
|
|
05 FILLER PIC X(10) VALUE '065DEPT065'.
|
|
05 FILLER PIC X(10) VALUE '062DEPT062'.
|
|
05 FILLER PIC X(10) VALUE '059DEPT059'.
|
|
05 FILLER PIC X(10) VALUE '056DEPT056'.
|
|
05 FILLER PIC X(10) VALUE '053DEPT053'.
|
|
05 FILLER PIC X(10) VALUE '050DEPT050'.
|
|
05 FILLER PIC X(10) VALUE '047DEPT047'.
|
|
05 FILLER PIC X(10) VALUE '044DEPT044'.
|
|
05 FILLER PIC X(10) VALUE '041DEPT041'.
|
|
05 FILLER PIC X(10) VALUE '038DEPT038'.
|
|
05 FILLER PIC X(10) VALUE '035DEPT035'.
|
|
05 FILLER PIC X(10) VALUE '032DEPT032'.
|
|
05 FILLER PIC X(10) VALUE '029DEPT029'.
|
|
05 FILLER PIC X(10) VALUE '026DEPT026'.
|
|
05 FILLER PIC X(10) VALUE '023DEPT023'.
|
|
05 FILLER PIC X(10) VALUE '020DEPT020'.
|
|
05 FILLER PIC X(10) VALUE '017DEPT017'.
|
|
05 FILLER PIC X(10) VALUE '014DEPT014'.
|
|
05 FILLER PIC X(10) VALUE '011DEPT011'.
|
|
05 FILLER PIC X(10) VALUE '008DEPT008'.
|
|
05 FILLER PIC X(10) VALUE '005DEPT005'.
|
|
05 FILLER PIC X(10) VALUE '002DEPT002'.
|