62 lines
1.6 KiB
Plaintext
62 lines
1.6 KiB
Plaintext
/******************************************************/
|
||
/* This program constructs a data base of employee */
|
||
/* records using a structure declaration. */
|
||
/******************************************************/
|
||
|
||
enter:
|
||
procedure options(main);
|
||
%replace
|
||
true by '1'b,
|
||
false by '0'b;
|
||
|
||
declare
|
||
1 employee static,
|
||
2 name character(30) varying,
|
||
2 address,
|
||
3 street character(30) varying,
|
||
3 city character(10) varying,
|
||
3 state character(12) varying,
|
||
3 zip fixed decimal(5),
|
||
2 age fixed decimal(3),
|
||
2 wage fixed decimal(5,2),
|
||
2 hours fixed decimal(5,1);
|
||
|
||
declare
|
||
1 default static,
|
||
2 street character(30) varying
|
||
initial('(no street)'),
|
||
2 city character(10) varying
|
||
initial('(no city)'),
|
||
2 state character(12) varying
|
||
initial('(no state)'),
|
||
2 zip fixed decimal(5)
|
||
initial(00000);
|
||
declare
|
||
emp file;
|
||
|
||
open file(emp) keyed output environment(f(128),b(8000))
|
||
title ('$1.EMP');
|
||
|
||
do while(true);
|
||
put list('Employee: ');
|
||
get list(name);
|
||
if name = 'EOF' then
|
||
do;
|
||
call write_it();
|
||
stop;
|
||
end;
|
||
address = default;
|
||
put list (' Age, Wage: ');
|
||
get list (age,wage);
|
||
hours = 0;
|
||
call write_it();
|
||
end;
|
||
|
||
write_it:
|
||
procedure;
|
||
write file(emp) from(employee);
|
||
end write_it;
|
||
|
||
end enter;
|
||
|
||
|