/* +-------------------------REXX------------------------------------+*/ /* ! !*/ /* ! Programmname : DB2Commands 15.05.2001 !*/ /* ! !*/ /* ! Aufruf : DB2Commands.Rex (HTML) !*/ /* ! !*/ /* +-----------------------------------------------------------------+*/ /* */ /* Laden RexxUtilitis */ call RxFuncAdd 'SysLoadFuncs', 'rexxutil', 'SysLoadFuncs' call sysloadfuncs parse version rexxType . parse source platform . if platform == 'AIX/6000' & rexxType == 'REXXSAA' then do rcy = SysAddFuncPkg("db2rexx") End Else Do if Rxfuncquery('SQLDBS') <> 0 then rcy = rxfuncadd('SQLDBS', 'DB2AR', 'SQLDBS') if Rxfuncquery('SQLDB2') <> 0 then rcy = rxfuncadd('SQLDB2','DB2AR','SQLDB2') if Rxfuncquery('SQLEXEC') <> 0 then rcy = rxfuncadd('SQLEXEC','DB2AR','SQLEXEC') End Parse upper arg HTML HTML = SPACE(HTML, 0) Drop Ou. Ou.0 = 0 Select When platform = "LINUX" Then "set +v" When platform = "AIX/6000" Then "set +v" Otherwise "@echo off" End "rxqueue /CLEAR" "db2 ? | rxqueue " ZZ = 0 Drop Commands. Commands.0 = 0 do queued() Pull Zeile ZZ = ZZ + 1 If ZZ < 6 Then Iterate Zeile = Translate(Zeile) If Word(Zeile, 1) = "ANM:" Then Leave Commands.0 = Commands.0 + 1; CI = Commands.0 ; Commands.CI = Substr(Zeile, 1, 26) Commands.0 = Commands.0 + 1; CI = Commands.0 ; Commands.CI = Substr(Zeile, 27, 26) Commands.0 = Commands.0 + 1; CI = Commands.0 ; Commands.CI = Substr(Zeile, 54, 27) End Drop DB2CMD. DB2CMD.0 = 0 Do CI = 1 To Commands.0 Commands.ci = Strip(Commands.ci) Found = Pos("/", Commands.ci, 1) If Found = 0 Then do DB2CMD.0 = DB2CMD.0 + 1; DI = DB2CMD.0; DB2CMD.DI = Commands.ci End Else Do Commands.ci = Translate(Commands.ci, " ", "/") If Words(Commands.ci) = 3 Then do DB2CMD.0 = DB2CMD.0 + 1; DI = DB2CMD.0; DB2CMD.DI = Word(Commands.ci, 1) " " word(Commands.ci, 2) DB2CMD.0 = DB2CMD.0 + 1; DI = DB2CMD.0; DB2CMD.DI = Word(Commands.ci, 1) " " word(Commands.ci, 3) End Else Do DB2CMD.0 = DB2CMD.0 + 1; DI = DB2CMD.0; DB2CMD.DI = Word(Commands.ci, 1) " " Subword(Commands.ci, 3) DB2CMD.0 = DB2CMD.0 + 1; DI = DB2CMD.0; DB2CMD.DI = Word(Commands.ci, 2) " " Subword(Commands.ci, 3) End End End "rxqueue /CLEAR" Call SORTASC If HTML = "HTML" THEN Call Html_Kopf Do CI = 1 To DB2CMD.0 CMD = Strip(DB2CMD.ci) If CMD = "" Then Iterate "rxqueue /CLEAR" "db2 ? "cmd" | rxqueue " If HTML = "HTML" THEN Do ok = Ausgabe('
'CMD'
')
do queued()
Pull Zeile
If Word(Zeile, 1) = "ANM.:" Then Leave
OK = Ausgabe(Zeile)
If HTML = "HTML" Then OK = Ausgabe('
')
End
If HTML = "HTML" Then OK = Ausgabe('
DB2/LUW Commands Übersicht')
ok = AUSGABE(' Siehe IBM DB2 LUW CMD.Doc
')
ok = AUSGABE('
')
ok = AUSGABE('