DB2 and REXX

[cberthu]

Hi all,

I am a little puzzled.. I am trying to make some insert into an DB2
using SQLEXEC and it just does not work...
code looks like that:
/*
// Initialize SQLEXEC interface
*/
parse version rexxType .
parse source platform .
trace 'o'
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('SQLEXEC') <0 then
rcy = RxFuncAdd( 'SQLEXEC', 'db2ar', 'SQLEXEC' )
if RxFuncQuery('SQLDB2') <0 then
rcy = RxFuncAdd( 'SQLDB2', 'db2ar', 'SQLDB2' )
end
CALL SQLDBS 'START DATABASE MANAGER'
IF SQLCA.SQLCODE = -1026 then
SAY "DB2 DATABASE MANAGER ALREADY STARTED"
ELSE
CALL RxSqlCodeCheck 'START DATABASE MANAGER'
/*
// Initialize global variables
*/
database = 'DBNAME'
call SQLEXEC 'CONNECT TO 'database
if RxSqlCodeCheck() \= 1 then
return 0
DO A=1 TO LOAD.0 (<------ READ a stem e.g IMPORT FROM "G:aaaaa
\bbb.cc.dd" OF ASC METHOD L (6 13, 15 22, 24 33) ALLOW WRITE ACCESS
MESSAGES "G:\aa\bb\cc.txt" INSERT INTO XXXXX.01.YYYY_zz (aaaaa, bbbbb,
cccccc);
/*
// Execute sql
*/
st=load.a
CALL SQLEXEC "EXECUTE IMMEDIATE :st"
if RxSqlCodeCheck() \= 1 then
return 0
END

I get an
SQL0104N An unexpected "IMPORT FROM "G:aaaaa\bbb" was found following
"BEGIN-OF-STATEMENT". Expected tokens may includes: "<values>".
SQLSTATE=42601.

Strange is when I start the control center and copy paste the same
statement it works...??? Any Idea??

Regards Chris

[Mark A]

<cb*****@gmail.comwrote in message
news:11**********************@n76g2000hsh.googlegr oups.com...

Hi all,

I am a little puzzled.. I am trying to make some insert into an DB2
using SQLEXEC and it just does not work...
code looks like that:
/*
// Initialize SQLEXEC interface
*/
parse version rexxType .
parse source platform .
trace 'o'
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('SQLEXEC') <0 then
rcy = RxFuncAdd( 'SQLEXEC', 'db2ar', 'SQLEXEC' )
if RxFuncQuery('SQLDB2') <0 then
rcy = RxFuncAdd( 'SQLDB2', 'db2ar', 'SQLDB2' )
end
CALL SQLDBS 'START DATABASE MANAGER'
IF SQLCA.SQLCODE = -1026 then
SAY "DB2 DATABASE MANAGER ALREADY STARTED"
ELSE
CALL RxSqlCodeCheck 'START DATABASE MANAGER'
/*
// Initialize global variables
*/
database = 'DBNAME'
call SQLEXEC 'CONNECT TO 'database
if RxSqlCodeCheck() \= 1 then
return 0
DO A=1 TO LOAD.0 (<------ READ a stem e.g IMPORT FROM "G:aaaaa
\bbb.cc.dd" OF ASC METHOD L (6 13, 15 22, 24 33) ALLOW WRITE ACCESS
MESSAGES "G:\aa\bb\cc.txt" INSERT INTO XXXXX.01.YYYY_zz (aaaaa, bbbbb,
cccccc);
/*
// Execute sql
*/
st=load.a
CALL SQLEXEC "EXECUTE IMMEDIATE :st"
if RxSqlCodeCheck() \= 1 then
return 0
END

I get an
SQL0104N An unexpected "IMPORT FROM "G:aaaaa\bbb" was found following
"BEGIN-OF-STATEMENT". Expected tokens may includes: "<values>".
SQLSTATE=42601.

Strange is when I start the control center and copy paste the same
statement it works...??? Any Idea??

Regards Chris

Load is not a SQL statement, it is a command. The Control Center is designed
to run commands or SQL statements.

[cberthu]

On Apr 10, 10:12 am, "Mark A" <[e-mail]:

<[e-mail] in message

news:11**********************@n76g2000hsh.googlegr oups.com...

Hi all,

I am a little puzzled.. I am trying to make some insert into an DB2
using SQLEXEC and it just does not work...
code looks like that:
/*
// Initialize SQLEXEC interface
*/
parse version rexxType .
parse source platform .
trace 'o'
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('SQLEXEC') <0 then
rcy = RxFuncAdd( 'SQLEXEC', 'db2ar', 'SQLEXEC' )
if RxFuncQuery('SQLDB2') <0 then
rcy = RxFuncAdd( 'SQLDB2', 'db2ar', 'SQLDB2' )
end
CALL SQLDBS 'START DATABASE MANAGER'
IF SQLCA.SQLCODE = -1026 then
SAY "DB2 DATABASE MANAGER ALREADY STARTED"
ELSE
CALL RxSqlCodeCheck 'START DATABASE MANAGER'
/*
// Initialize global variables
*/
database = 'DBNAME'
call SQLEXEC 'CONNECT TO 'database
if RxSqlCodeCheck() \= 1 then
return 0
DO A=1 TO LOAD.0 (<------ READ a stem e.g IMPORT FROM "G:aaaaa
\bbb.cc.dd" OF ASC METHOD L (6 13, 15 22, 24 33) ALLOW WRITE ACCESS
MESSAGES "G:\aa\bb\cc.txt" INSERT INTO XXXXX.01.YYYY_zz (aaaaa, bbbbb,
cccccc);
/*
// Execute sql
*/
st=load.a
CALL SQLEXEC "EXECUTE IMMEDIATE :st"
if RxSqlCodeCheck() \= 1 then
return 0
END

I get an
SQL0104N An unexpected "IMPORT FROM "G:aaaaa\bbb" was found following
"BEGIN-OF-STATEMENT". Expected tokens may includes: "<values>".
SQLSTATE=42601.

Strange is when I start the control center and copy paste the same
statement it works...??? Any Idea??

Regards Chris

Load is not a SQL statement, it is a command. The Control Center is designed
to run commands or SQL statements.- Hide quoted text -

- Show quoted text -

Thanks Mark, but the stem is called LOAD but the sql looks like that:

"IMPORT FROM "G:aaaaa\bbb.cc.dd" OF ASC METHOD L (6 13, 15 22, 24 33)
ALLOW WRITE ACCESS MESSAGES "G:\aa\bb\cc.txt" INSERT INTO XXXXX.
01.YYYY_zz (aaaaa, bbbbb, cccccc);"

You think it would work with load??

[mike]

On Apr 10, 7:36 am, "[e-mail]" <[e-mail]:

Hi all,

I am a little puzzled.. I am trying to make some insert into an DB2
using SQLEXEC and it just does not work...
code looks like that:
/*
// Initialize SQLEXEC interface
*/
parse version rexxType .
parse source platform .
trace 'o'
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('SQLEXEC') <0 then
rcy = RxFuncAdd( 'SQLEXEC', 'db2ar', 'SQLEXEC' )
if RxFuncQuery('SQLDB2') <0 then
rcy = RxFuncAdd( 'SQLDB2', 'db2ar', 'SQLDB2' )
end
CALL SQLDBS 'START DATABASE MANAGER'
IF SQLCA.SQLCODE = -1026 then
SAY "DB2 DATABASE MANAGER ALREADY STARTED"
ELSE
CALL RxSqlCodeCheck 'START DATABASE MANAGER'
/*
// Initialize global variables
*/
database = 'DBNAME'
call SQLEXEC 'CONNECT TO 'database
if RxSqlCodeCheck() \= 1 then
return 0
DO A=1 TO LOAD.0 (<------ READ a stem e.g IMPORT FROM "G:aaaaa
\bbb.cc.dd" OF ASC METHOD L (6 13, 15 22, 24 33) ALLOW WRITE ACCESS
MESSAGES "G:\aa\bb\cc.txt" INSERT INTO XXXXX.01.YYYY_zz (aaaaa, bbbbb,
cccccc);
/*
// Execute sql
*/
st=load.a
CALL SQLEXEC "EXECUTE IMMEDIATE :st"
if RxSqlCodeCheck() \= 1 then
return 0
END

I get an
SQL0104N An unexpected "IMPORT FROM "G:aaaaa\bbb" was found following
"BEGIN-OF-STATEMENT". Expected tokens may includes: "<values>".
SQLSTATE=42601.

Strange is when I start the control center and copy paste the same
statement it works...??? Any Idea??

Regards Chris

The cause of your problem is that you are using the SQLEXEC API
instead of the SQLDB2 or SQLDBS api.
The SQLEXEC API can only be used for SQL, it cannot be used for
commands like import or load.
Hope this helps.

[cberthu]

<snip>

The cause of your problem is that you are using the SQLEXEC API
instead of the SQLDB2 or SQLDBS api.
The SQLEXEC API can only be used for SQL, it cannot be used for
commands like import or load.
Hope this helps.

Yes I was already very happy and was thinking now I got it.... but
unfortunately I get some other errors:
SQL7016N Invalid syntax provided to the SQLDB2 interface. Related
Error: "DB21061E". sqlcode=-7016.....

[bpayne]

This is a working import statement.

call SQLDBS('import from C:\download\OB546P.new of asc method L using
:col_data messages msg.imp INSERT_UPDATE into userid.OB546P')
col_data.0 = 16
col_data.1 = 1 /* start */
col_data.2 = 12 /* stop */
col_data.3 = 13
col_data.4 = 22
col_data.5 = 23 /* pair 3 start */
col_data.6 = 23 /* pair 3 stop */
col_data.7 = 24
col_data.8 = 35
col_data.9 = 36
col_data.10 = 39
col_data.11 = 40
col_data.12 = 48
col_data.13 = 49
col_data.14 = 57
col_data.15 = 58
col_data.16 = 60

[cberthu]

On Apr 10, 5:33 pm, "[e-mail]" <[e-mail]:

<snip>

The cause of your problem is that you are using the SQLEXEC API
instead of the SQLDB2 or SQLDBS api.
The SQLEXEC API can only be used for SQL, it cannot be used for
commands like import or load.
Hope this helps.

Yes I was already very happy and was thinking now I got it.... but
unfortunately I get some other errors:
SQL7016N Invalid syntax provided to the SQLDB2 interface. Related
Error: "DB21061E". sqlcode=-7016.....

I got it......

I do that in the rexx:
cmd = 'DB2CMD DB2 -F ' SQLFILEVAR
The sql file looks like that:
CONNECT TO DBNAME
LAOD FROM........
........
CONNECT RESET

And this worked out for me... I just have to close the DB2CMD windows
after the successful run.. and that's it... :-)