Code400 -The Support Alternative

Code400 -The Support Alternative - Iseries Tools http://www.code400.com/forum/ Links/Reviews of products on the AS400 market. Some may contain free trial versions. If you see something you have worked with please post your thoughts. en Tue, 07 Sep 2010 00:45:11 GMT vBulletin 60 http://www.code400.com/forum/images/misc/rss.png Code400 -The Support Alternative - Iseries Tools http://www.code400.com/forum/ MMAIL message log http://www.code400.com/forum/showthread.php/9554-MMAIL-message-log?goto=newpost Mon, 16 Aug 2010 20:18:36 GMT MMAIL is an open-source free utility for IBM System i . It provides a number of ways for sending e-mail messages from your IBM System i. See http://www.easy40.net/mmail start . ================================================== ====== Several installers of the MMAIL utility in the past months... MMAIL is an open-source free utility for IBM System i . It provides a number of ways for sending e-mail messages from your IBM System i. See http://www.easy40.net/mmail start .
================================================== ======

Several installers of the MMAIL utility in the past months did contact me, asking for some tool that would log all the outgoing e-mail messages from the utility.
This is a very reasonable requirement from companies relying on e-mail messages for some part of their business.

To be honest, there is no way (apart from "certified mail", not yet supported, as far as I know, on System i) to make sure that a piece of mail did reach a receiver and that it was opened.

Having thought about this requirement, I've come to the conclusion that the best way to have a log, is a client log.

Imagine that any message out of MMAIL is blank (blind) copied to a given e-mail address. As a result, this "blind" receiver will get a copy of any message out of this "system". By doing this, there are a number of advantages. The client e-mailer, Outlook or what you have, provides for sorting, scanning, etc., the received messages, much better than any RPG program would perhaps do. It's no cost, it's already there.

This could solve another issue. As you know, incoming messages can be filtered according to their resulting SPAM level. As an example, my own e-mail account has a SPAM filter set to 3.0. It means that messages with a SPAM level over 3.0 are not delivered into the incoming mail basket, they go instead into the SPAM basket and - unless you do something special- you would never know that you received them.
Now, messages from MMAIL are assigned a SPAM level from the ISP servicing your e-mail account. Though you may not know it, a SPAM filter level is assigned to your account. Messages with a SPAM level higher than allowed do not come to your incoming mail basket.
Well then.
You could define to MMAIL a number of "blind" copy receivers, each with a different SPAM level filter. In this way you could have several outgoing MMAIL message logs and be able to find out whether a given message was not received because of its SPAM level.

Coming now to crude facts.
In August 16, 2010 MMAIL release you will find a new command, named WRKMDTBC (Work with Mandatory Blank Copies), see http://www.easy400.net/mmailh/othutils.htm#10a , that allows you to define a number of "blind" receivers of whatever message is out from MMAIL.
It would then be your job to define, at your ISP, the SPAM level filter for such "blind" receivers.

Hope this helps the many who wanted such a service be made available.

Giovanni B. Perotti
MMAIL developer
Easy400.net owner ]]> Iseries Tools jbperotti http://www.code400.com/forum/showthread.php/9554-MMAIL-message-log Native ZIP tools for iSeries http://www.code400.com/forum/showthread.php/9529-Native-ZIP-tools-for-iSeries?goto=newpost Mon, 09 Aug 2010 17:00:22 GMT Hello, Here is a FREE RPG program that you can use for IFS file compression on your iSeries (i5, AS/400, System i). There is also a not free tool with more functionalities. No setup, no PASE, no shell...only RPG program to call. Have fun ! ... Hello,

Here is a FREE RPG program that you can use for IFS file compression on your iSeries (i5, AS/400, System i). There is also a not free tool with more functionalities.

No setup, no PASE, no shell...only RPG program to call.

Have fun !

http://www.businesswebzone.com/ramte...eries-software ]]> Iseries Tools bwadmin http://www.code400.com/forum/showthread.php/9529-Native-ZIP-tools-for-iSeries Help on CL programming http://www.code400.com/forum/showthread.php/9526-Help-on-CL-programming?goto=newpost Sun, 08 Aug 2010 07:29:18 GMT Hi all

Can anybody help me with program logic for adding the sum of a field from a PF file
I did use RCVF command to read the file , but i wan unable to read the next record and the pointer is moving to last record instead of last record
I used the Breaker "Goto" in the programming . But still it is moving to last record

A sanple

Code:

0001.00 PGM                                            

0002.00 DCL VAR(&TBAL) TYPE(*DEC) LEN(12 2)            

0003.00 DCL VAR(&CBAL) TYPE(*CHAR) LEN(12)             

0004.00 DCLF  FILE(BANKAC)  RCDFMT()                   

0005.00 READNEXT:RCVF                                  

0006.00 MONMSG MSGID(CPF0864) EXEC(GOTO X)             

0007.00 /* AR(&TBAL) VALUE( &BAL)     */               

0008.00 /*     MSGID(CPF0864) EXEC(GOTO END)          *

0009.00 CHGVAR VAR(&TBAL) VALUE( &BAL)                 

0010.00 CHGVAR VAR(&TBAL) VALUE(&TBAL +&BAL)           

0011.00 GOTO READNEXT                                  

0012.00 X:CHGVAR VAR(&CBAL) VALUE(&TBAL)               

0013.00 SNDPGMMSG MSG(&CBAL)                           

0014.00 ENDPGM

]]> Iseries Tools sheena http://www.code400.com/forum/showthread.php/9526-Help-on-CL-programming