×

Good News Everybody!

A new search engine is coming soon.

As a stop gap measure, we are using Google's custom search engine service.




I'm using the free tool MMAIL from Easy400 site.
Have made nice things with it to generate al kinds of types of messages
including HTML.
You can find it at: http://www-922.ibm.com/mmail/start

Eduard. 
--- rpg400-l-request@xxxxxxxxxxxx wrote:
> Send RPG400-L mailing list submissions to
>       rpg400-l@xxxxxxxxxxxx
> 
> To subscribe or unsubscribe via the World Wide Web, visit
>       http://lists.midrange.com/mailman/listinfo/rpg400-l
> or, via email, send a message with subject or body 'help' to
>       rpg400-l-request@xxxxxxxxxxxx
> 
> You can reach the person managing the list at
>       rpg400-l-owner@xxxxxxxxxxxx
> 
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of RPG400-L digest..."
> 
> 
> Today's Topics:
> 
>    1. Setting up an email message (Malchow, Grizzly)
>    2. RE: Setting up an email message (Bob cozzi)
>    3. Re: Setting up an email message (rob@xxxxxxxxx)
>    4. Re: Setting up an email message (Joel Cochran)
>    5. RE: Setting up an email message (Tom Daly)
>    6. RE: Setting up an email message (Joel Cochran)
>    7. Re: Setting up an email message (Booth Martin)
>    8. RE: Setting up an email message (Bruce Vining)
>    9. RE: Setting up an email message (Scott Johnson)
> 
> 
>
----------------------------------------------------------------------
> 
> message: 1
> date: Tue, 28 Oct 2003 08:40:30 -0600
> from: "Malchow, Grizzly" <GMalchow@xxxxxxxxxxxxxxxxxxxxx>
> subject: Setting up an email message
> 
> I'm using the QtmmSendMail API to send emails. Is there a way to put
> a
> carriage return into the message so the formatting looks a little
> better? Could I use HTML tags?
> 
> 
> 
> ------------------------------
> 
> message: 2
> date: Tue, 28 Oct 2003 08:52:34 -0600
> from: "Bob cozzi" <cozzi@xxxxxxxxx>
> subject: RE: Setting up an email message
> 
> Put a X'25' into the text of the message where you want the line feed
> to
> appear.
> 
> 
> Bob Cozzi
> Cozzi Consulting
> www.rpgiv.com
> 
> 
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Malchow, Grizzly
> Sent: Tuesday, October 28, 2003 8:41 AM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: Setting up an email message
> 
> I'm using the QtmmSendMail API to send emails. Is there a way to put
> a
> carriage return into the message so the formatting looks a little
> better? Could I use HTML tags?
> 
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (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.
> 
> 
> 
> 
> 
> ------------------------------
> 
> message: 3
> date: Tue, 28 Oct 2003 09:55:22 -0500
> from: rob@xxxxxxxxx
> subject: Re: Setting up an email message
> 
> X'0D25'
> 
> Rob Berendt
> -- 
> "They that can give up essential liberty to obtain a little temporary
> 
> safety deserve neither liberty nor safety." 
> Benjamin Franklin 
> 
> 
> 
> 
> "Malchow, Grizzly" <GMalchow@xxxxxxxxxxxxxxxxxxxxx> 
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 10/28/2003 09:40 AM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> 
> 
> To
> <rpg400-l@xxxxxxxxxxxx>
> cc
> 
> Subject
> Setting up an email message
> 
> 
> 
> 
> 
> 
> I'm using the QtmmSendMail API to send emails. Is there a way to put
> a
> carriage return into the message so the formatting looks a little
> better? Could I use HTML tags?
> 
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (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.
> 
> 
> 
> 
> ------------------------------
> 
> message: 4
> date: Tue, 28 Oct 2003 10:28:34 +0000
> from: Joel Cochran <jrc@xxxxxxxxxx>
> subject: Re: Setting up an email message
> 
> I've been trying to get this going as well.  *IF* what I understand
> is
> correct, the message itself has to be a properly formatted Stream
> file
> in the IFS.  In my mind that means I need to develop the stream file,
> in
> my case on the fly to incorporate dynamic content.  Given this
> scenario,
> it is simple enough to include a carraige return by writing x'0D25'
> to
> the Stream File.
> 
> If this is not the way this API works I would appreciate someone
> letting
> me know, I've been spinning my wheels a little.  My biggest problem
> right now is that the example I found uses the following /copy for
> the
> API data structure error call:
> 
>  * copy error structure from QSYSINC
>  /copy qsysinc/qrpglesrc,qusec
> d Qdata                  17    216
>  * set pointer to Error structure
> d pErr            s               *   Inz(%addr(QUSEC))
> 
> I get an error because it cannot find the /copy, and I haven't been
> able
> to find the DS description at the API website
> 
> Search for QtmmSendMail here:
>
http://publib.boulder.ibm.com/iseries/v5r2/ic2924/index.htm?info/apis/apifinder.htm
> 
> I got my project done by reverting to SNDDST for the time being, but
> eventually I would like to get this working.
> 
> Joel
> http://www.rpgnext.com
> 
> 
> On Tue, 2003-10-28 at 14:40, Malchow, Grizzly wrote:
> > I'm using the QtmmSendMail API to send emails. Is there a way to
> put a
> > carriage return into the message so the formatting looks a little
> > better? Could I use HTML tags?
> > 
> > _______________________________________________
> > This is the RPG programming on the AS400 / iSeries (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.
> > 
> 
> 
> 
> ------------------------------
> 
> message: 5
> date: Tue, 28 Oct 2003 10:52:39 -0500
> from: Tom Daly <Tdaly@xxxxxxxxxxxxxx>
> subject: RE: Setting up an email message
> 
> 
> 
>  |    My biggest problem
>  |  right now is that the example I found uses the following 
>  |  /copy for the
>  |  API data structure error call:
>  |  
>  |   * copy error structure from QSYSINC
>  |   /copy qsysinc/qrpglesrc,qusec
>  |  d Qdata                  17    216
>  |   * set pointer to Error structure
>  |  d pErr            s               *   Inz(%addr(QUSEC))
>  |  
>  |  I get an error because it cannot find the /copy, and I 
>  |  haven't been able
>  |  to find the DS description at the API website
> 
> 
> 
> You can find QUSEC in QSYSINC/H but you will have to convert it from
> C to
> RPG.
> 
>  typedef struct Qus_EC                                               
>   
>     {                                                                
>   
>        int  Bytes_Provided;                                          
>   
>        int  Bytes_Available;                                         
>   
>        char Exception_Id[7];                                         
>   
>        char Reserved;                                                
>   
>      /*char Exception_Data[];*/           /* Varying length        */
>   
>     } Qus_EC_t;                                                      
>   
>                                                                      
>   
> 
> 
> This could probably be improved upon but I've gotten by with this:
> 
> D QUSEC           ds
> 
> D  BytesProv                    10i 0 inz(%size(qusec))     
> D  BytesAvail                   10i 0 inz(0)               
> D  ErrorID                       7                         
> 
> 
> 
> 
> HTH
> Tom Daly
> 
> 
> 
> ------------------------------
> 
> message: 6
> date: Tue, 28 Oct 2003 11:33:30 +0000
> from: Joel Cochran <jrc@xxxxxxxxxx>
> subject: RE: Setting up an email message
> 
> Thanks, that's what I was looking for!
> 
> Joel
> http://www.rpgnext.com
> 
> 
> On Tue, 2003-10-28 at 15:52, Tom Daly wrote:
> >  |    My biggest problem
> >  |  right now is that the example I found uses the following 
> >  |  /copy for the
> >  |  API data structure error call:
> >  |  
> >  |   * copy error structure from QSYSINC
> >  |   /copy qsysinc/qrpglesrc,qusec
> >  |  d Qdata                  17    216
> >  |   * set pointer to Error structure
> >  |  d pErr            s               *   Inz(%addr(QUSEC))
> >  |  
> >  |  I get an error because it cannot find the /copy, and I 
> >  |  haven't been able
> >  |  to find the DS description at the API website
> > 
> > 
> > 
> > You can find QUSEC in QSYSINC/H but you will have to convert it
> from C to
> > RPG.
> > 
> >  typedef struct Qus_EC                                             
>     
> >     {                                                              
>     
> >        int  Bytes_Provided;                                        
>     
> >        int  Bytes_Available;                                       
>     
> >        char Exception_Id[7];                                       
>     
> >        char Reserved;                                              
>     
> >      /*char Exception_Data[];*/           /* Varying length       
> */   
> >     } Qus_EC_t;                                                    
>     
> >                                                                    
>     
> > 
> > 
> > This could probably be improved upon but I've gotten by with this:
> > 
> > D QUSEC           ds
> > 
> > D  BytesProv                    10i 0 inz(%size(qusec))     
> > D  BytesAvail                   10i 0 inz(0)               
> > D  ErrorID                       7                         
> > 
> > 
> > 
> > 
> > HTH
> > Tom Daly
> > 
> > _______________________________________________
> > This is the RPG programming on the AS400 / iSeries (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.
> 
> 
> 
> ------------------------------
> 
> message: 7
> date: Tue, 28 Oct 2003 10:39:52 -0600 (Central Standard Time)
> from: "Booth Martin" <Booth@xxxxxxxxxxxx>
> subject: Re: Setting up an email message
> 
> I use:
>  
> D CRLF C X'0D0A'
>  
> for "carriage return, line feed" 
>  
> This would only be used at paragraph breaks. e-mail doesn't normally
> use
> line breaks.
>  
>  
>  
> ---------------------------------------------------------
> Booth Martin http://www.MartinVT.com
> Booth@xxxxxxxxxxxx
> ---------------------------------------------------------
>  
> -------Original Message-------
>  
> From: RPG programming on the AS400 / iSeries
> Date: Tuesday, October 28, 2003 9:00:37 AM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: Setting up an email message
>  
> I'm using the QtmmSendMail API to send emails. Is there a way to put
> a
> carriage return into the message so the formatting looks a little
> better? Could I use HTML tags?
> 
> 
> 
> ------------------------------
> 
> message: 8
> date: Tue, 28 Oct 2003 10:55:14 -0600
> from: Bruce Vining <bvining@xxxxxxxxxx>
> subject: RE: Setting up an email message
> 
> 
> 
> 
> 
> If you install option 13 (System Openness Includes) of OS/400 you
> will get
> the QSYSINC library and QRPGLESRC/QUSEC include.
> 
> This however is NOT going to fix all of your problems...  The example
> is
> making a (bad) assumption -- namely that the last data structure in
> QUSEC
> is QUSEC, that it ends at byte 16, and that they can then append
> Qdata to
> it starting at byte 17.  Several releases back a new data structure
> was
> added (QUSC0200) to the QUSEC include and Qdata is now going to be
> appended
> to this structure and not the intended one (if you use this
> approach).
> 
> Is Qdata actually used in the sample program?
> 
> 
> 
>                                                                      
>                                                               
>                       Tom Daly                                       
>                                                               
>                       <Tdaly@sddsystems.        To:       "'RPG
> programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>        
>                       com>                      cc:                  
>                                                               
>                       Sent by:                  Subject:  RE: Setting
> up an email message                                           
>                       rpg400-l-bounces@m                             
>                                                               
>                       idrange.com                                    
>                                                               
>                                                                      
>                                                               
>                                                                      
>                                                               
>                       10/28/2003 09:52                               
>                                                               
>                       AM                                             
>                                                               
>                       Please respond to                              
>                                                               
>                       RPG programming on                             
>                                                               
>                       the AS400 /                                    
>                                                               
>                       iSeries                                        
>                                                               
>                                                                      
>                                                               
>                                                                      
>                                                               
> 
> 
> 
> 
> 
> 
>  |    My biggest problem
>  |  right now is that the example I found uses the following
>  |  /copy for the
>  |  API data structure error call:
>  |
>  |   * copy error structure from QSYSINC
>  |   /copy qsysinc/qrpglesrc,qusec
>  |  d Qdata                  17    216
>  |   * set pointer to Error structure
>  |  d pErr            s               *   Inz(%addr(QUSEC))
>  |
>  |  I get an error because it cannot find the /copy, and I
>  |  haven't been able
>  |  to find the DS description at the API website
> 
> 
> 
> You can find QUSEC in QSYSINC/H but you will have to convert it from
> C to
> RPG.
> 
>  typedef struct Qus_EC
>     {
>        int  Bytes_Provided;
>        int  Bytes_Available;
>        char Exception_Id[7];
>        char Reserved;
>      /*char Exception_Data[];*/           /* Varying length        */
>     } Qus_EC_t;
> 
> 
> 
> This could probably be improved upon but I've gotten by with this:
> 
> D QUSEC           ds
> 
> D  BytesProv                    10i 0 inz(%size(qusec))
> D  BytesAvail                   10i 0 inz(0)
> D  ErrorID                       7
> 
> 
> 
> 
> HTH
> Tom Daly
> 
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (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.
> 
> 
> 
> 
> 
> 
> ------------------------------
> 
> message: 9
> date: Tue, 28 Oct 2003 11:02:53 -0600
> from: "Scott Johnson" <sjohnson@xxxxxxxxxxxxx>
> subject: RE: Setting up an email message
> 
> 
> Instead of re-inventing the wheel, check out "MIME & Mail" (MMail)
> from IBM in
> Italy.  Has a lot of nice features that are all done and ready to go.
>  You get
> the source too. So, you can tweak it to your liking.
> 
> http://www-922.ibm.com/mmailh/intro.htm#topic1
> 
> -- Scott J.
> 
> > I've been trying to get this going as well.
> <snip>
> > Search for QtmmSendMail here:
> <snip>
> 
> 
> 
> 
> ------------------------------
> 
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) digest
> 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.
> 
> 
> 
> End of RPG400-L Digest, Vol 2, Issue 831
> ****************************************


=====
Implement-It,
Pos Cabai OfficePark unit 2,
Willemstad, Curaçao,
Netherlands Antilles.

Cell: 5999 5618980 Tel: 5999 7372031 Fax 5999 7372048 

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2026 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.