8 lines
105 B
Plaintext
8 lines
105 B
Plaintext
|
[source,pli]
|
||
|
|
----
|
||
|
|
foo: proc options(main);
|
||
|
|
declare i fixed decimal init(42);
|
||
|
|
put list (i);
|
||
|
|
end;
|
||
|
|
----
|