Re: SQL aus REXX heraus

Geschrieben von Thomas Schulz on September 22, 2003 um 16:53:

Als Antwort auf SQL aus REXX heraus geschrieben von Alfred on September 18, 2003 um 10:56:

Hallo zusammen

Falls REXX support installiert ist, z.B folgende Prozedure

/* REXX */
SAY 'TEST VON DB2 VERSION 6'
A_NAME =
A_DBID =
I = 0
ROW_FOUND = 0
"SUBCOM DSNREXX"
IF RC THEN DO
S_RC = RXSUBCOM('ADD', 'DSNREXX', 'DSNREXX')
END
ADDRESS DSNREXX
SQLSTMT = ' ' !!,
'SELECT NAME , CREATOR, STGROUP , ' !! ,
' BPOOL, DBID ' !! ,
'FROM SYSIBM.SYSDATABASE ORDER BY NAME'
"CONNECT" PDB2
"EXECSQL SET CURRENT PACKAGESET = 'DSNREXUR'"
"EXECSQL DECLARE C1 CURSOR FOR S1"
"EXECSQL PREPARE S1 INTO :OUTSQLDA FROM :SQLSTMT"
"EXECSQL OPEN C1"
DO UNTIL(SQLCODE 0)
"EXECSQL FETCH C1 INTO ",
":NAME, :CREATOR, :STGROUP, :BPOOL, :DBID"
SAY SQLCODE
IF SQLCODE < 0 THEN DO
SAY 'SQLCODE= ' SQLCODE
EXIT 12
END
IF SQLCODE = 0 THEN DO
SAY 'NAME = ' NAME
SAY 'CREATOR = ' CREATOR
SAY 'STOGROUP = ' STOGROUP
SAY 'BPOOL = ' BPOOL
SAY 'DBID = ' DBID
I = I + 1
ROW_FOUND = I
A_NAME.I = NAME
A_DBID.I = DBID
END
END
"EXECSQL CLOSE C1"
SAY RC
DISCONNECT
SAY RC
S_RC = RXSUBCOM('DELETE', 'DSNREXX', 'DSNREXX')
DO I = 1 TO ROW_FOUND
SAY A_NAME.I
SAY A_DBID.I
END
EXIT

Wenn du eine Literatur braucht, kann ich Sie dir per Mail
schicken

MFG
Thomas Schulz

Antworten:

Schreibe eine Antwort

Name:
E-Mail:

Thema:

Kommentar:
: Hallo zusammen : Falls REXX support installiert ist, z.B folgende Prozedure : /* REXX */ : SAY 'TEST VON DB2 VERSION 6' : A_NAME = : A_DBID = : I = 0 : ROW_FOUND = 0 : "SUBCOM DSNREXX" : IF RC THEN DO : S_RC = RXSUBCOM('ADD', 'DSNREXX', 'DSNREXX') : END : ADDRESS DSNREXX : SQLSTMT = ' ' !!, : 'SELECT NAME , CREATOR, STGROUP , ' !! , : ' BPOOL, DBID ' !! , : 'FROM SYSIBM.SYSDATABASE ORDER BY NAME' : "CONNECT" PDB2 : "EXECSQL SET CURRENT PACKAGESET = 'DSNREXUR'" : "EXECSQL DECLARE C1 CURSOR FOR S1" : "EXECSQL PREPARE S1 INTO :OUTSQLDA FROM :SQLSTMT" : "EXECSQL OPEN C1" : DO UNTIL(SQLCODE 0) : "EXECSQL FETCH C1 INTO ", : ":NAME, :CREATOR, :STGROUP, :BPOOL, :DBID" : SAY SQLCODE : IF SQLCODE < 0 THEN DO : SAY 'SQLCODE= ' SQLCODE : EXIT 12 : END : IF SQLCODE = 0 THEN DO : SAY 'NAME = ' NAME : SAY 'CREATOR = ' CREATOR : SAY 'STOGROUP = ' STOGROUP : SAY 'BPOOL = ' BPOOL : SAY 'DBID = ' DBID : I = I + 1 : ROW_FOUND = I : A_NAME.I = NAME : A_DBID.I = DBID : END : END : "EXECSQL CLOSE C1" : SAY RC : DISCONNECT : SAY RC : S_RC = RXSUBCOM('DELETE', 'DSNREXX', 'DSNREXX') : DO I = 1 TO ROW_FOUND : SAY A_NAME.I : SAY A_DBID.I : END : EXIT : Wenn du eine Literatur braucht, kann ich Sie dir per Mail : schicken : MFG : Thomas Schulz

Optionale Link URL:
Link Titel:
Optionale Image URL:

[ Antworten ] [ Forum ]