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;
|
||
|
||
|
||
|