zOs/REXX/EXARGS

/* rexx ****************************************************************
    example rexx arguments:
        say number of arguments and each argument
***********************************************************************/
parse arg a1, a2
say 'rexx RZ4/A540769.wk.rexx(exArgs) at' ,
             time() 'on' sysvar(sysnode) 'user' userid()
say 'with' arg() 'arguments:' a1',' a2
do ax=1 to arg()
    say '  arg' ax 'len' length(arg(ax)) '<'arg(ax)'>'
    end
return
spx = 0
lx = 0
do px=1 while spx < 10
    parse external l1
    if l1 == '' then do
        spx = spx+1
        if spx > 10 then
            leave
        iterate
        end
    if spx <> 0 then do
       say spx '* empty lines'
       spx = 0
       end
    lx = lx + 1
    say px 'external l1:' l1'|'
    end
say lx 'non empty external lines'
if arg() < 1 then do
    say '***call exArgs with 4 arguments'
    call exArgs 'arg 1', 'a2', 'a3', 'und arg4' ziemlich lang 'oder?'
    say '***returned from exArgs with 4 arguments'
    end
say 'rexx exArgs exit'
exit