/* REXX PROCEDURE */
trace o
/**********************************************************/
/*Variables and commands for Custormizing******************/
/*                                                        */
trace r
opcvdbsy = "DB3"
clistdsn = "'HLQ.OPCVIEW.SQQ2EXE1'"
ispmlib  = "'HLQ.OPCVIEW.SQQ2MSG1'"
ispplib  = "'HLQ.OPCVIEW.SQQ2PNL1'"
isptlib  = "'HLQ.OPCVIEW.SQQ2TBL1'"
ispllib  = "'HLQ.OPCVIEW.SQQ2LMD1'"
address TSO
"ALTLIB ACT APPL(CLIST) DA("clistdsn")"
"ALLOC FI(STEPLIBX) DA('HLQ.OPCVIEW.SQQ2LMD1'",
               "'DB3A.SDSNEXIT'",
               "'DB3A.SDSNLOAD'",
               ") SHR REUSE"
/*                                                        */
/*End of Customizing part**********************************/
/**********************************************************/
parse arg argumente
parse var argumente what .
upper what
address ISPEXEC
"LIBDEF ISPPLIB DATASET ID("ispplib")"
"LIBDEF ISPMLIB DATASET ID("ispmlib")"
"LIBDEF ISPTLIB DATASET ID("isptlib")"
"LIBDEF ISPLLIB DATASET ID("ispllib")"
if strip(opcvdbsy,'B') = "" then do
   say 'DB2-System ist Blank, dies ist unzul„ssig.'
   exit
end
"VPUT (OPCVDBSY)"
opcvparm = ''
"VPUT (OPCVPARM)"
if what = "AUFTRAG" then do
    parse var argumente what sys auf dat datn .
    opcvparm = left(what,8) !!,
               left(sys,4)  !!,
               left(auf,16) !!,
               left(dat,8)  !!,
               left(datn,8)
    "VPUT (OPCVPARM)"
    "SELECT PANEL(OPCVMENU) OPT(1)"
end
else
if what = "JOB" then do
    parse var argumente what sys job .
    opcvparm = left(what,8) !!,
               left(sys,4)  !!,
               left(job,8)
    "VPUT (OPCVPARM)"
    "SELECT PANEL(OPCVMENU) OPT(2)"
end
opcvparm = ''
"VPUT (OPCVPARM)"
"SELECT PANEL(OPCVMENU)"
address ISPEXEC
"LIBDEF -SPPLIB"
"LIBDEF ISPMLIB"
"LIBDEF ISPTLIB"
"LIBDEF ISPLLIB"
address TSO
"ALTLIB DEACT APPL(CLIST)"
exit