USS und REXX (Skriptaufruf im USS)

Aufruf von Prozeduren im USS aus REXX
- SYSCALL-Service "spawn" (neuen Prozess aufrufen)
- SYSCALL-Service "waitpid" (Ende eines Prozesses abwarten)

map.0 = pstdin

map.1 = pstdout

map.2 = pstderr

what = "/usr/inter/DVMT01/hpj.sh"

parm.1 = what

parm.2 = member

parm.3 = package

parm.0 = 3

env.0 = 0

Address SYSCALL "spawn" what "3 map. parm. env."

If retval > 0 Then Do

pid = retval

Address SYSCALL "waitpid" "(pid) ret. 0"

hpjrc = ret.1

End

Aufruf von Prozeduren im USS aus REXX