/* REXX */
arg db
if substr(db,4,1) = "" then do
   say "Usage: DBA db_name"
   exit 8
end
if length(db) \== 1 then db = substr(db,4,1)
group = "DBA00"
oraver = "V815"
dbname = "MPM"||db
say "Oracle Server Manager: database="dbname", libraries=ORA."group".*"
x = msg('OFF')
tsoprefix = sysvar(syspref)

"PROF NOPREF"
"FREE DD(ORA@"dbname "SYSERR ORA$FNA ORA$LIB ORA$ENV)"
"ALLOC DD(ORA$FNA)  DSN('ORA."group".CNTL(ORA$FNA)') SHR"
"ALLOC DD(ORA$ENV)  DSN('ORA.SYS.PARMLIB(ORAENV)') SHR"
"ALLOC DD(ORA$LIB)  DSN('ORA."group".LOAD') SHR"
"ALLOC DD(ORA@"||dbname||") DUMMY"
"ALLOC DD(SYSERR) DSN(*)"
"CALL 'ORA.SYS.CMDLOAD(SVRMGRL)'"

endoff:
"FREE DD(ORA@"dbname "SYSERR ORA$FNA ORA$LIB ORA$ENV)"
"FREE  DD(SYSERR ORA$FNA ORA$LIB)"
if tsoprefix \== '' then
   "PROF PREF("tsoprefix")"
else nop
exit

usage:
say "Usage: TSO SVRM8I x (where 'x' is database number eg. 6 for MPMJ)"
exit 1