zOs/REXX/EXRESULT

xRes = 0
rc = 99
call res
say 'call result' result  'rc='rc
call res
say 'call result' result 'rc='rc
say 'fun='res() 'result' result 'rc='rc
say 'fun='res() 'result' result 'rc='rc
exit
res:
    xRes = xRes + 1
    return 'retRes='xRes