49 lines
1.4 KiB
Plaintext
49 lines
1.4 KiB
Plaintext
|
/*****************************************************/
|
|||
|
|
/* This program creates a name and address file. The */
|
|||
|
|
/* data structure for each record is in the %INCLUDE */
|
|||
|
|
/* file RECORD.DCL. */
|
|||
|
|
/*****************************************************/
|
|||
|
|
create:
|
|||
|
|
procedure options(main);
|
|||
|
|
|
|||
|
|
%include 'record.dcl';
|
|||
|
|
%replace
|
|||
|
|
true by '1'b,
|
|||
|
|
false by '0'b;
|
|||
|
|
|
|||
|
|
declare
|
|||
|
|
output file,
|
|||
|
|
filename character(14) varying,
|
|||
|
|
eofile bit(1) static initial(false);
|
|||
|
|
|
|||
|
|
put list ('Name and Address Creation Program, File Name: ');
|
|||
|
|
get list (filename);
|
|||
|
|
|
|||
|
|
open file(output) stream output title(filename);
|
|||
|
|
|
|||
|
|
do while (^eofile);
|
|||
|
|
put skip(3) list('Name: ');
|
|||
|
|
get list(name);
|
|||
|
|
eofile = (name = 'EOF');
|
|||
|
|
if ^eofile then
|
|||
|
|
do;
|
|||
|
|
/* write prompt strings to console */
|
|||
|
|
put list('Address: ');
|
|||
|
|
get list(addr);
|
|||
|
|
put list('City, State, Zip: ');
|
|||
|
|
get list(city, state, zip);
|
|||
|
|
put list('Phone: ');
|
|||
|
|
get list(phone);
|
|||
|
|
|
|||
|
|
/* data in memory, write to output file */
|
|||
|
|
put file(output)
|
|||
|
|
list(name,addr,city,state,zip,phone);
|
|||
|
|
put file(output) skip;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
put file(output) skip list('EOF');
|
|||
|
|
put file(output) skip;
|
|||
|
|
|
|||
|
|
end create;
|
|||
|
|
|
|||
|
|
|