zOs/REXX.O08/ARGS

/* rexx */
parse arg a

say 'args' arg()
do y=1 to arg()
    say 'arg('y')' arg(y)
    end
if a = '-' then do
    x =  args('eins', 'zwei', 'drei')
    say length(x) left(x, 60)
    end
/* return left('abcde ', 100000, '*') */
exit