01010H CSH102
01020FMSTRIN IP AF 35 DISK PRB101 CSH102
01030F KASCII CSH102
01040FCARDSIN IS F 80 DISK CSH102 CSH102
01050F KASCII CSH102
01060FPRINT O F 132 OF PRINTER CSH102
01070FMSTROUT O F 35 DISK PRB102 CSH102
01080F KASCII CSH102
02010IMSTRIN AA 11 CSH102
02090I 1 3 EMPNOM M1 CSH102
02030I 1 35 MASREC CSH102
02040ICARDSIN AA 12 80 C1 CSH102
02050I OR 13 80 C2 CSH102
02060I OR 14 80 C3 CSH102
02070I OR 15 80 C4 CSH102
02080I OR 16 80 C5 CSH102
02090I 1 3 EMPNOI M1 CSH102
02100I 4 20 NAMEI CSH102
02110I 21 290SOCSEI CSH102
02120I 30 322PAYRTI CSH102
02130I 33 34 CLASSI CSH102
02140I 35 35 SHIFTI CSH102
03010OPRINT H 2 1 1P CSH102
03020O OR OF CSH102
03030O UDATE Y 12 CSH102
03040O 50 'EXCEPTION REPORT' CSH102
03050O 70 'PAGE' CSH102
03060O PAGE Z 75 CSH102
03070O H 1 1P CSH102
03080O OR OF CSH102
03100O 5 'EMP' CSH102
03110O 41 'TYPE OF' CSH102
03120O H 2 1P CSH102
03130O OR OF CSH102
03140O 5 'NO' CSH102
03150O 18 'NAME' CSH102
03160O 43 'TRANSACTION' CSH102
03170O 66 'ERROR' CSH102
03180O D 1 NMRN11N12 CSH102
03190O AND N1P CSH102
03200O OR MR 12 CSH102
03210O EMPNOI 5 CSH102
03220O MR 12 NAMEI 25 CSH102
03230O MR 12 37 'ADDITION' CSH102
03240O NMR 13 37 'DELETION' CSH102
03250O NMR 14 44 'PAY RATE CHANGE' CSH102
03260O NMR 15 45 'JOB CLASS CHANGE' CSH102
03270O NMR 16 46 'SHIFT CODE CHANGE' CSH102
03280O MR 12 73 'ADDITION OF DUPLICATE' CSH102
03290O MR 12 80 'RECORD' CSH102
03300O NMR 13 70 'MASTER NOT ON FILE' CSH102
03310O NMR 14 70 'MASTER NOT ON FILE' CSH102
O NMR 15 70 'MASTER NOT ON FILE'
03320O NMR 16 70 'MASTER NOT ON FILE' CSH102
03330OMSTROUT D NMR 11 CSH102
03340O OR MR 12 CSH102
03350O MASREC 35 CSH102
O D NMR 12
O EMPNOI 3
O NAMEI 20
O SOCSEI 29
O PAYRTI 32
O CLASSI 34
O SHIFTI 35
O D MR 14
03350O MASREC 35 CSH102
O PAYRTI 32
O D MR 15
03350O MASREC 35 CSH102
O CLASSI 34
O D MR 16
03350O MASREC 35 CSH102
O SHIFTI 35