101 lines
5.5 KiB
COBOL
101 lines
5.5 KiB
COBOL
05 FILLER PIC X(20) VALUE '500DEPT500 '.
|
|
05 FILLER PIC X(20) VALUE '495DEPT495 '.
|
|
05 FILLER PIC X(20) VALUE '490DEPT490 '.
|
|
05 FILLER PIC X(20) VALUE '485DEPT485 '.
|
|
05 FILLER PIC X(20) VALUE '480DEPT480 '.
|
|
05 FILLER PIC X(20) VALUE '475DEPT475 '.
|
|
05 FILLER PIC X(20) VALUE '470DEPT470 '.
|
|
05 FILLER PIC X(20) VALUE '465DEPT465 '.
|
|
05 FILLER PIC X(20) VALUE '460DEPT460 '.
|
|
05 FILLER PIC X(20) VALUE '455DEPT455 '.
|
|
05 FILLER PIC X(20) VALUE '450DEPT450 '.
|
|
05 FILLER PIC X(20) VALUE '445DEPT445 '.
|
|
05 FILLER PIC X(20) VALUE '440DEPT440 '.
|
|
05 FILLER PIC X(20) VALUE '435DEPT435 '.
|
|
05 FILLER PIC X(20) VALUE '430DEPT430 '.
|
|
05 FILLER PIC X(20) VALUE '425DEPT425 '.
|
|
05 FILLER PIC X(20) VALUE '420DEPT420 '.
|
|
05 FILLER PIC X(20) VALUE '415DEPT415 '.
|
|
05 FILLER PIC X(20) VALUE '410DEPT410 '.
|
|
05 FILLER PIC X(20) VALUE '405DEPT405 '.
|
|
05 FILLER PIC X(20) VALUE '400DEPT400 '.
|
|
05 FILLER PIC X(20) VALUE '395DEPT395 '.
|
|
05 FILLER PIC X(20) VALUE '390DEPT390 '.
|
|
05 FILLER PIC X(20) VALUE '385DEPT385 '.
|
|
05 FILLER PIC X(20) VALUE '380DEPT380 '.
|
|
05 FILLER PIC X(20) VALUE '375DEPT375 '.
|
|
05 FILLER PIC X(20) VALUE '370DEPT370 '.
|
|
05 FILLER PIC X(20) VALUE '365DEPT365 '.
|
|
05 FILLER PIC X(20) VALUE '360DEPT360 '.
|
|
05 FILLER PIC X(20) VALUE '355DEPT355 '.
|
|
05 FILLER PIC X(20) VALUE '350DEPT350 '.
|
|
05 FILLER PIC X(20) VALUE '345DEPT345 '.
|
|
05 FILLER PIC X(20) VALUE '340DEPT340 '.
|
|
05 FILLER PIC X(20) VALUE '335DEPT335 '.
|
|
05 FILLER PIC X(20) VALUE '330DEPT330 '.
|
|
05 FILLER PIC X(20) VALUE '325DEPT325 '.
|
|
05 FILLER PIC X(20) VALUE '320DEPT320 '.
|
|
05 FILLER PIC X(20) VALUE '315DEPT315 '.
|
|
05 FILLER PIC X(20) VALUE '310DEPT310 '.
|
|
05 FILLER PIC X(20) VALUE '305DEPT305 '.
|
|
05 FILLER PIC X(20) VALUE '300DEPT300 '.
|
|
05 FILLER PIC X(20) VALUE '295DEPT295 '.
|
|
05 FILLER PIC X(20) VALUE '290DEPT290 '.
|
|
05 FILLER PIC X(20) VALUE '285DEPT285 '.
|
|
05 FILLER PIC X(20) VALUE '280DEPT280 '.
|
|
05 FILLER PIC X(20) VALUE '275DEPT275 '.
|
|
05 FILLER PIC X(20) VALUE '270DEPT270 '.
|
|
05 FILLER PIC X(20) VALUE '265DEPT265 '.
|
|
05 FILLER PIC X(20) VALUE '260DEPT260 '.
|
|
05 FILLER PIC X(20) VALUE '255DEPT255 '.
|
|
05 FILLER PIC X(20) VALUE '250DEPT250 '.
|
|
05 FILLER PIC X(20) VALUE '245DEPT245 '.
|
|
05 FILLER PIC X(20) VALUE '240DEPT240 '.
|
|
05 FILLER PIC X(20) VALUE '235DEPT235 '.
|
|
05 FILLER PIC X(20) VALUE '230DEPT230 '.
|
|
05 FILLER PIC X(20) VALUE '225DEPT225 '.
|
|
05 FILLER PIC X(20) VALUE '220DEPT220 '.
|
|
05 FILLER PIC X(20) VALUE '215DEPT215 '.
|
|
05 FILLER PIC X(20) VALUE '210DEPT210 '.
|
|
05 FILLER PIC X(20) VALUE '205DEPT205 '.
|
|
05 FILLER PIC X(20) VALUE '200DEPT200 '.
|
|
05 FILLER PIC X(20) VALUE '195DEPT195 '.
|
|
05 FILLER PIC X(20) VALUE '190DEPT190 '.
|
|
05 FILLER PIC X(20) VALUE '185DEPT185 '.
|
|
05 FILLER PIC X(20) VALUE '180DEPT180 '.
|
|
05 FILLER PIC X(20) VALUE '175DEPT175 '.
|
|
05 FILLER PIC X(20) VALUE '170DEPT170 '.
|
|
05 FILLER PIC X(20) VALUE '165DEPT165 '.
|
|
05 FILLER PIC X(20) VALUE '160DEPT160 '.
|
|
05 FILLER PIC X(20) VALUE '155DEPT155 '.
|
|
05 FILLER PIC X(20) VALUE '150DEPT150 '.
|
|
05 FILLER PIC X(20) VALUE '145DEPT145 '.
|
|
05 FILLER PIC X(20) VALUE '140DEPT140 '.
|
|
05 FILLER PIC X(20) VALUE '135DEPT135 '.
|
|
05 FILLER PIC X(20) VALUE '130DEPT130 '.
|
|
05 FILLER PIC X(20) VALUE '125DEPT125 '.
|
|
05 FILLER PIC X(20) VALUE '120DEPT120 '.
|
|
05 FILLER PIC X(20) VALUE '115DEPT115 '.
|
|
05 FILLER PIC X(20) VALUE '110DEPT110 '.
|
|
05 FILLER PIC X(20) VALUE '105DEPT105 '.
|
|
05 FILLER PIC X(20) VALUE '100DEPT100 '.
|
|
05 FILLER PIC X(20) VALUE '095DEPT095 '.
|
|
05 FILLER PIC X(20) VALUE '090DEPT090 '.
|
|
05 FILLER PIC X(20) VALUE '085DEPT085 '.
|
|
05 FILLER PIC X(20) VALUE '080DEPT080 '.
|
|
05 FILLER PIC X(20) VALUE '075DEPT075 '.
|
|
05 FILLER PIC X(20) VALUE '070DEPT070 '.
|
|
05 FILLER PIC X(20) VALUE '065DEPT065 '.
|
|
05 FILLER PIC X(20) VALUE '060DEPT060 '.
|
|
05 FILLER PIC X(20) VALUE '055DEPT055 '.
|
|
05 FILLER PIC X(20) VALUE '050DEPT050 '.
|
|
05 FILLER PIC X(20) VALUE '045DEPT045 '.
|
|
05 FILLER PIC X(20) VALUE '040DEPT040 '.
|
|
05 FILLER PIC X(20) VALUE '035DEPT035 '.
|
|
05 FILLER PIC X(20) VALUE '030DEPT030 '.
|
|
05 FILLER PIC X(20) VALUE '025DEPT025 '.
|
|
05 FILLER PIC X(20) VALUE '020DEPT020 '.
|
|
05 FILLER PIC X(20) VALUE '015DEPT015 '.
|
|
05 FILLER PIC X(20) VALUE '010DEPT010 '.
|
|
05 FILLER PIC X(20) VALUE '005DEPT005 '.
|