/* REXX   */
CVTADDR = STORAGE(00000010,4)
CVTSNAME@=D2X(X2D(C2X(CVTADDR))+X2D(154))
SNAME=STORAGE(CVTSNAME@,4)

/* rexx : sql */
trace none
mes = msg("off")
parse upper arg a_proj a_uid a_psw a_db

if a_proj <> '' & a_db == '' then do
   say "Usage: TSO SQL project user psw db"
   signal exit;
end
if a_db <> '' then do
   uproj = a_proj;
   uid   = a_uid;
   upsw  = a_psw;
   udb   = a_db;
   signal no_ispf
end

address ispexec
"CONTROL DISPLAY SAVE"
"CONTROL ERRORS  CANCEL"
"DISPLAY PANEL(ORALOGIN)"
return = rc
if return <> 0 then signal exit;


no_ispf:
ugrp = "TEST"
if uproj = 'DBA'  then uproj = "ORA"
if uproj = 'ORA'  then ugrp  = "DBA"

if udb <> 'MPMX' & udb <> 'DEV1' & udb <> 'MPMY' & udb <> 'IAS1' then do
   say "Specify the correct database"
   say "Cheers"
   exit
end;

say "Hallo" SYSVAR(SYSUID) " , working on Oracle8i are you ??? "
say " "
sqllib = ""uproj"."ugrp".sql"
if sysdsn("'"sqllib"'") <> 'OK' then do
   say "ERROR: library "UPROJ"."UGRP".SQL doesn't exist."
   signal exit
end;

address tso
tsoprefix = sysvar(syspref)
"PROF NOPREF"
"PROF NOWTPMSG"

V7:
  "FREE  DD(PARMNETW SYSERR ORA$FNA ORA$LIB ORA@"udb" SQLLOGIN)"
  "FREE  DD(ORA$ENV TNSNAMES)"
  db_num = substr(udb,4,1)
  "ALLOC DD(SQLLOGIN)  DSN('"uproj"."ugrp".CNTL(SQLLOGIN)') SHR"
  if udb = 'MPMX' then do
    "ALLOC DD(TNSNAMES)  DSN('ORA.DBA.TNSNAMES("SNAME")') SHR"
  end;
  if udb = 'MPMY' then do
    "ALLOC DD(TNSNAMES)  DSN('ORA.DBA.TNSNAMES(TEST)') SHR"
  end;
  if uproj = 'ORA' then do
    "ALLOC DD(ORA$FNA)   DSN('"uproj"."ugrp".CNTL(ORA$FN8I)') SHR"
  end;
  if uproj <> 'ORA' then do
    "ALLOC DD(ORA$FNA)   DSN('"uproj"."ugrp".CNTL(ORA$FNA)') SHR"
  end;
  "ALLOC DD(ORA$ENV)   DSN('ORA.sys.PARMLIB(ORAENV)') SHR"
  "ALLOC DD(ORA$LIB)   DSN('ORA.SYS.CMDLOAD.PSR8151') SHR"
  "ALLOC DD(ORA$LIB)   DSN('ORA.SYS.CMDLOAD') SHR"
  "ALLOC DD(ORA@"udb") DUMMY"
  "ALLOC DD(SYSERR)    DSN(*) SHR REUSE"
  "CALL 'ORA.sys.CMDLOAD(SQLPLUS)'
  '"uid"/"upsw" @/DSN/ORA.DBA.SQL(DBNAME8I) </SCREEN/'"
  "FREE  DD(PARMNETW SYSERR ORA$FNA ORA$LIB ORA@"udb" SQLLOGIN)"
  "FREE  DD(ORA$ENV TNSNAMES)"

done:
  if tsoprefix <> '' then
     "PROF PREF("tsoprefix")"

UPSW = ''

exit:
  address ispexec
  "CONTROL ERRORS"
  "CONTROL DISPLAY RESTORE"
  "CONTROL DISPLAY REFRESH"