/* REXX */ Parse Arg cmd /* Run a Unix command with output to the terminal */ /* set up DDnames for terminal output */ Address TSO 'ALLOC DA(*) FI(SYSERR) REU' Address TSO 'ALLOC DA(*) FI(SYSMSG) REU' /* run command */ urc = BPXWUNIX(cmd,, 'DD:SYSMSG','DD:SYSERR') If urc \= 0 then Say 'Command 'cmd' ended with RC='urc /* Free DDnames */ Address TSO 'FREE FI(SYSERR SYSMSG)' Exit 0