Re: MCH0601 on SQL Insert -- RPG400-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

So are the message details for the SQL cursor, SQL FETCH, and MCH0601 a secret, or does the /circumvention/ by avoiding the SQL just render that issue moot, such that there is no longer any interest in knowing what might have been the problem?

Regards, Chuck

Lim Hock-Chai wrote:

These code are running in a service program. Not sure if this
would place a role in the problem. But anyway, I replaced that
whole sections of code with RPG IO and it works fine now.

Here is the RPG replacement version:
//create a temp work file, QTEMP/SVRMLTMP,
// to house the message
//------------------------------------------------
myCmd = 'DLTF FILE(QTEMP/SVEMLTMP)'; callp(e) qcmdexc(myCmd :%len(%trimr(myCmd))); myCmd = 'CRTPF FILE(QTEMP/SVEMLTMP) RCDLEN(300)'; qcmdexc(myCmd :%len(%trimr(myCmd))); open SVEMLTMP; //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))); open EMAILMSG; setll *start EMAILMSG; read EMAILMSG myMsgRec; dow not %eof(); mySVEMLTMP.data = myMsgRec.srcdta; write SVEMLTMP mySVEMLTMP; read EMAILMSG myMsgRec; enddo; close SVEMLTMP;

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.