Re: MCH0601 on SQL Insert

I created my own version and I did not get an error. Sounds like an IBM
problem unless there is something funky in record 6 since it is reading the
first five records without a problem

I used a *JOB override level and I don't know if that will effect it. Also
the message are different (V6R1). Mine just has.

3 rows inserted in SVEMLTMP in QTEMP.
SQL cursors closed.

Given the difference in the messages is it possible you are running some
other code instead of this?

d
MemberName...
d s 10a
Inz('MEMBER1')

/Free


Exec Sql Drop Table
QTEMP/SVEMLTMP;


Exec Sql Create Table QTEMP/SVEMLTMP
(
Text VarChar(1000 ) Not Null With
Default);


//copy the EMAILMSG member to a temp work
file

//------------------------------------------------------------
ExecuteSystemCommand('OVRDBF FILE(EMAILMSG) TOFILE(EMAILMSG) MBR('
+
%Trim(MemberName) + ')
OVRSCOPE(*JOB)');
Exec Sql Insert Into
QTEMP/SVEMLTMP
Select Cast(Trim(SRCDTA) As Varchar(1000)) As
Message
From
EMAILMSG;
ExecuteSystemCommand('DLTOVR FILE(EMAILMSG)
LVL(*JOB)');


*InLR =
*On;

Return;

/End-Free



On Wed, May 12, 2010 at 3:09 PM, hockchai Lim <lim.hock-chai@xxxxxxxxxxxxxxx

wrote:

I'm getting a MCH0601 error on a sql insert statement. Does anybody know
what I did wrong?
Below is the clip of my code:
exec sql
drop table QTEMP/SVEMLTMP;
exec sql
create table QTEMP/SVEMLTMP
(TEXT VARCHAR (1000 ) NOT NULL WITH DEFAULT);

//copy the EMAILMSG member to a temp work file
//------------------------------------------------------------
myCmd = 'OVRDBF FILE(EMAILMSG) TOFILE(EMAILMSG) MBR(' +
%trim(piMbr) + ') OVRSCOPE(*CALLLVL)';
qcmdexc(myCmd :%len(%trimr(myCmd)));
exec sql insert into QTEMP/SVEMLTMP
select rtrim(SRCDTA) FROM EMAILMSG;


Below is the error I see in joblog when running in DEBUG mode.
Cursor SQLCURSOR000000003 opened.
1 rows fetched from cursor SQLCURSOR000000003.
1 rows fetched from cursor SQLCURSOR000000003.
1 rows fetched from cursor SQLCURSOR000000003.
1 rows fetched from cursor SQLCURSOR000000003.
1 rows fetched from cursor SQLCURSOR000000003.
Space offset X'0003F1D3' or X'0000000000000000' is outside current limit
for object MSRL3G343APALHC 336523.
Space offset X'0003F1D2' or X'0000000000000000' is outside current limit
for object MSRL3G343APALHC 336523.
Space offset X'FFFFEF37' or X'0000000000000000' is outside current limit
for object MSRL3G343APALHC 336523.
1 rows fetched from cursor SQLCURSOR000000003.
Space offset X'0003F204' or X'0000000000000000' is outside current limit
for object MSRL3G343APALHC 336523.
Space offset X'0003F203' or X'0000000000000000' is outside current limit
for object MSRL3G343APALHC 336523.
Space offset X'FFFFEF6A' or X'0000000000000000' is outside current limit
for object MSRL3G343APALHC 336523.
1 rows fetched from cursor SQLCURSOR000000003.
Space offset X'0003B3D6' or X'0000000000000000' is outside current limit



--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.