/* REXX opadoper.rex - Invokes OPS/REXX exec in sysexec */

opsrc=OPSDYNAM('ALLOC DD(SYSEXEC) DSN(BSTARK.CLIST) SHR')
SAY 'OPSDYNAM() opsrc='opsrc
rc = OI('ADOPER D T','2nd arg','3rd arg')
SAY 'rc='rc', opsrc='opsrc