PO A o k ro a AE o one ea

6C

(20 pts) 22. Consider a magnetic tape (number 12) containing records with the following

layout:
Positions Variable Name Description
1-6 ID Identification Number
7-30 (provide your own) Employee Name (Alpha numeric)
31-33 IDPT Department Number
34 KSX Sex Code (Female-l, Male-2)
35-36 NX Number of exemptions
37-41 EARN Weekly earnings (XXX7%X)

Write a complete FORTRAN program to read these records from tape number 12
and copy on tape number 14 those records for females with weekly earnings
less than 500.00 per week. Be sure and terminate this program properly.
(You may want to prepare a program flow chart before writing this program.)

8

45 50 55

s
8
a
8
(5

Ji
ANKA

NZNNNNRANNH

ij č
|

i

|
|