/* +-------------------------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('') OK = Ausgabe('

'CMD'') End ELSE Do OK = Ausgabe("Command : " CMD) End If HTML = "HTML" Then OK = Ausgabe('

') 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('') If HTML = "HTML" Then ok = Ausgabe('') Else OK = Ausgabe("") End If HTML = "HTML" THEN Call Html_Fuss Return Ausgabe: AZeile = Arg(1) Say AZeile Return 0 Html_Kopf: ok = AUSGABE('') ok = AUSGABE('') ok = AUSGABE('') ok = AUSGABE('') ok = AUSGABE('') ok = AUSGABE('DB2/LUW Commands') ok = AUSGABE('') ok = AUSGABE('') ok = AUSGABE('') ok = AUSGABE('') ok = AUSGABE('') ok = AUSGABE('') ok = AUSGABE('') ok = AUSGABE('') ok = AUSGABE('') ok = AUSGABE('') ok = AUSGABE('') ok = AUSGABE('') ok = AUSGABE('') ok = AUSGABE('') ok = AUSGABE('') ok = AUSGABE(' ') ok = AUSGABE('

DB2/LUW Commands  Übersicht') ok = AUSGABE(' Siehe IBM DB2 LUW CMD.Doc
') ok = AUSGABE('
 ') ok = AUSGABE('') Return Html_Fuss: ok = AUSGABE('
') Return SORTASC: tausch = '' do i1 = 1 to DB2CMD.0-1 do i2 = i1+1 to DB2CMD.0 if DB2CMD.I1 > DB2CMD.I2 Then do tausch = DB2CMD.I1 DB2CMD.i1 = DB2CMD.I2 DB2CMD.i2 = tausch end end end Return