Re: Send Email

Specify SET OPTION Commit = *None;

Or, you could specify the option on the CRTRPGSQLI command.




"Guy Terry" <guy.terry@xxxxxxxxxxxxxxxxxxx>
Sent by: midrange-l-bounces@xxxxxxxxxxxx
07/09/2007 08:44 AM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
<midrange-l@xxxxxxxxxxxx>
cc

Subject
Send Email






Our RPG developer is trying to get HTML email coming out of his RPG apps.
I
showed him the third-party tools that will do this, but he preferred to
write something himself. He's using RPG to call the QTMMSENDMAIL API. The
RPG appears to have been based on something written by Raymond Everhart.
(You can see it half way down the thread at
http://www.systeminetwork.com/isnetforums/showthread.php?t=46141)



Trouble is, he gets a CPF4328 'Member not journaled to journal *N' (full
error below)



He thinks the bit where it goes wrong is when it runs this subroutine:



0397.00 C/Exec SQL

0398.00 C+ Insert into Qtemp/EMAIL

0399.00 C+ VALUES(:Text)

0400.00 C/End-Exec



We don't use journaling here, and this error has us stumped.



Any ideas?



Guy



Message . . . . : Member EMAIL not journaled to journal *N.


Cause . . . . . : Member EMAIL file EMAIL in library QTEMP is not
journaled

to journal *N in library *N for commitment definition QILE.


The journal specified is used by commitment definition QILE. If *N is


specified for the journal, the file is not journaled. If the file is a


logical file, all based-on physical files may not be journaled to the
same


journal as required by commitment control.


Recovery . . . : Ensure the file being opened is journaled. For logical


files, make sure that the based-on physical files are journaled to the
same

journal.


Technical description . . . . . . . . : The commitment definition
identifier

is X'100101000000000820C4'.