2013-04-11 01:07:29 -07:00
|
|
|
/* PL/I permits optional arguments, but not an infinitely varying */
|
|
|
|
|
/* argument list: */
|
|
|
|
|
s: procedure (a, b, c, d);
|
2013-10-27 22:24:23 +00:00
|
|
|
declare (a, b, c, d) float optional;
|
2013-04-11 01:07:29 -07:00
|
|
|
if ^omitted(a) then put skip list (a);
|
|
|
|
|
if ^omitted(b) then put skip list (b);
|
|
|
|
|
if ^omitted(c) then put skip list (c);
|
|
|
|
|
if ^omitted(d) then put skip list (d);
|
|
|
|
|
end s;
|
