33 lines
896 B
Plaintext
33 lines
896 B
Plaintext
|
/******************************************************/
|
|||
|
|
/* This program reads an employee record file and */
|
|||
|
|
/* creates another file of keys to access the records.*/
|
|||
|
|
/******************************************************/
|
|||
|
|
|
|||
|
|
keyfile:
|
|||
|
|
procedure options(main);
|
|||
|
|
declare
|
|||
|
|
1 employee static,
|
|||
|
|
2 name character(30) varying;
|
|||
|
|
|
|||
|
|
declare
|
|||
|
|
(input, keys) file,
|
|||
|
|
k fixed;
|
|||
|
|
|
|||
|
|
open file(input) keyed environment(f(128),b(10000))
|
|||
|
|
title('$1.emp');
|
|||
|
|
|
|||
|
|
open file(keys) stream output
|
|||
|
|
linesize (60) title('$1.key');
|
|||
|
|
|
|||
|
|
do while('1');
|
|||
|
|
read file(input) into(employee) keyto(k);
|
|||
|
|
put skip list(k,name);
|
|||
|
|
put file(keys) list(name,k);
|
|||
|
|
if name = 'EOF' then
|
|||
|
|
stop;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end keyfile;
|
|||
|
|
|
|||
|
|
|
|||
|
|
|