Forums >> BVSTools >> BVSTools Announcements >> eMail Tool (MAILTOOL) Specific Announcements
MAILTOOL Gets New ILE Subprocedure - Set Message With a Pointer
by: bvstone

Jump to: 






bvstone

MAILTOOL Gets New ILE Subprocedure - Set Message With a Pointer

Posted:
MAILTOOL Gets New ILE Subprocedure - Set Message With a Pointer

We recently updated MAILTOOL to v8.20 which includes a new procedure named #mailtool_setMsgPtr().

This new procedure allows you to set the message using a pointer and the length of the data to be used as the message.

This update was added for compatibility between OS releases from V5R2 to V7R1 and up.  Because the size of strings in RPG programs differs from release to release, this addition was requested and implemented so that if a user on a newer OS level is using strings they can easily set the message to a size larger than the V5Rx limit of 64.

The prototype for the new procedure is as follows:

      *//////////////////////////////////////////////////////////////*
      * #mailtool_setMsgPtr - Set Value of Message with Pointer      *
      *                                                              *
      * Input:                                                       *
      *   in_msg@ - The pointer to the message data.                 *
      *   in_msg@Size - The size of the message data.                *
      *                                                              *
      * Output:                                                      *
      *   out_errMsg - The error message (if error exists).          *
      *                                                              *
      * Returns:                                                     *
      *   -1 for error, size of message if no error.                 *
      *                                                              *
      *//////////////////////////////////////////////////////////////*
     D #mailtool_setMsgPtr...
     D                 PR            10i 0
     D  in_msg@                        *
     D  in_msg@Size                  10i 0 Value
     D  out_errMsg                  256    Options(*NOPASS)

 

A sample application using the new procedure is as follows:

     H DFTACTGRP(*NO) BNDDIR('BVSTOOLS')
      ****************************************************************
      * Prototypes                                                   *
      ****************************************************************
      /COPY QCOPYSRC,P.MAILTOOL
      ****************************************************************
     D ErrMsg          S            256    INZ
     D rc              S             10i 0
     D msgID           S             13s 0
     D myMessage       S          65535
      ****************************************************************
      /free

       myMessage = 'This is my message!  It could be long or short!';

       if (#mailtool_init() >= 0);
         rc = #mailtool_setValue('configuration_file':
                                 '/bvstools/bvstools_mailtool.json');
         rc = #mailtool_loadDefaults();
         rc = #mailtool_addTORecipient('bvstone@gmail.com');
         rc = #mailtool_setValue('subject':'Test #mailtool_setMsgPtr');
         rc = #mailtool_setMsgPtr(%addr(myMessage):%len(%trimr(myMessage)));
         rc = #mailtool_sendMail(errMsg:msgID);
       endif;

       *INLR = *ON;
      /end-free

Now, in this example we've used the lowest common denominator of V5R2 and set the max string size to 65535 bytes.  On newer OS releases this of course could be much larger (up to 16m or maybe more if the limit is increased again!).

Again, if there are any questions, please ask. 


Last edited 06/24/2015 at 12:46:53




Reply




Copyright 1983-2017 BVSTools
GreenBoard(v3) Powered by the eRPG SDK, MAILTOOL Plus!, GreenTools for Google Apps, jQuery, jQuery UI, BlockUI, CKEditor and running on the IBM i (AKA AS/400, iSeries, System i).