41 lines
1.0 KiB
Plaintext
41 lines
1.0 KiB
Plaintext
sample:
|
||
procedure options(main);
|
||
declare
|
||
c character(10) varying,
|
||
i fixed binary(15);
|
||
|
||
do;
|
||
put skip list('Input: ');
|
||
get list(c);
|
||
c = upper(c); /* function reference */
|
||
put skip list('Output: ',c);
|
||
end;
|
||
|
||
begin;
|
||
declare
|
||
c float binary(24);
|
||
|
||
put skip list('Input: ');
|
||
get list(c);
|
||
call output(c); /* subroutine invocation */
|
||
end;
|
||
|
||
upper:
|
||
procedure(c) returns(character(10) varying);
|
||
declare
|
||
c character(10) varying;
|
||
|
||
return(translate(c,'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
|
||
'abcdefghijklmnopqrstuvwxyz'));
|
||
end upper;
|
||
|
||
output:
|
||
procedure(c);
|
||
declare
|
||
c float binary(24);
|
||
|
||
put skip edit(c) (column(20),e(10,2));
|
||
end output;
|
||
|
||
end sample;
|
||
|