USS und REXX (HFS-Dateizugriff)
Umleiten von Ausgaben im USS
- SYSCALL-Service "open" (Datei öffnen / erstellen)
- SYSCALL-Service "close" (Datei schließen)
- SYSCALL-Service "readfile" (Datei in REXX-Stem lesen)
pstdin = -1 /* stdin wird nicht benutzt */
outpath = "/tmp/"member".out"
Address SYSCALL "open (outpath)" o_rdwr+o_creat+o_trunc "644"
pstdout = retval /* Filedescriptor für stdout */
errpath = "/tmp/"member".err"
Address SYSCALL "open (errpath)" o_rdwr+o_creat+o_trunc "644"
pstderr = retval /* Filedescriptor für stderr */
/* hier Programm im USS starten */
Address SYSCALL "close" stdoutfd
Address SYSCALL "close" stderrfd
Address SYSCALL "readfile (outpath) outline."
Address SYSCALL "readfile (errpath) errline."