jz1b0c
Active User
Joined: 25 Jan 2004
Posts: 160
Location: Toronto, Canada
|
|
|
|
I have a rexx which will access Db2
select_batch_cntl:
ntfnd = " "
ADDRESS TSO "SUBCOM DSNREXX" /* DSNREXX ENVIRONMENT AVILABLE?*/
/* IF NOT, ADD IT IN THE ENV LIST*/
IF RC <> 0 THEN
S_RC = RXSUBCOM('ADD','DSNREXX','DSNREXX')
/* "FROM QUALIFIER.table1 WHERE JOB_ID = '"jobid"'" */
ADDRESS DSNREXX "CONNECT " SSID
SQLSTMT = "SELECT ",
"LAST_RUN_DT,",
"JOB_INIT_DT,",
"SUCCESSFUL_IND",
"FROM QUALIFIER.table1 WHERE JOB_ID = '"jobid"'"
ADDRESS DSNREXX
"EXECSQL DECLARE C1 CURSOR FOR S1"
"EXECSQL PREPARE S1 INTO :SQLDA FROM :SQLSTMT"
"EXECSQL OPEN C1"
ROW_CNTR = 0
IF SQLCODE ? = 0 THEN SAY ' SQLCODE IS ' SQLCODE
DO WHILE (SQLCODE = 0) & ( ROW_CNTR < 5 )
IF SQLCODE \= 0 THEN LEAVE
"EXECSQL FETCH C1 INTO :rundt,:jobint,:i"
ROW_CNTR = ROW_CNTR + 1
END
"EXECSQL CLOSE C1"
IF ROW_CNTR < 2 THEN RETURN 3
return 0 |
|
