Re: Read Email from RPG Program

Art Tostaine, Jr.
CCA, Inc.
Parlin, NJ 08859

-----Original Message-----
From: Art Tostaine, Jr. <art@link400.com>
To: Art Tostaine, Jr. <art@link400.com>
Date: Thursday, July 09, 1998 11:28 PM
Subject: Re: Read Email from RPG Program


>Nevermind.  Using POP mail (system message store), I was able to use the
>CPYFRMSTMF command like this:
>
>CPYFRMSTMF FROMSTMF('/QTCPTMM/MAIL/xxxx/JW260690.NOT') TOMBR('qsys.lib/ +
>xxxx.lib/note.file/note.mbr') MBROPT(*REPLACE) CVTDTA(*AUTO)
STMFCODPAG(437)
>
>Interesting part (And cause of problem before) is that if I display
>attributes of JW260690.NOT it comes up as code page 37, not 437.  37 did
not
>look right!
>
>The world is now safe.
>
>Art Tostaine, Jr.
>CCA, Inc.
>Parlin, NJ 08859
>
>-----Original Message-----
>From: Art Tostaine, Jr. <art@link400.com>
>To: midrange-l@midrange.com <midrange-l@midrange.com>
>Date: Thursday, July 09, 1998 11:21 PM
>Subject: Read Email from RPG Program
>
>
>>I have email setup on an As/400.  I can receive email from the internet
and
>>view it using Justmail or a POP client.
>>
>>We receive a text file as an attachment to an email.  I would like to run
>an
>>RPG program that can read that attachment and insert it into our database
>>file.
>>
>>I have used QRYDST to get my docid, then RCVDST to get the doc.  I have
>>tried sending the RCVDST to a file and to a folder.  If I send to a
folder,
>>I then used RTVDOC to get the message into a physical file.   Problem is
>>that the data from the message is there but not in fixed length records.
I
>>can see the CR-LF's, but I don't want to have to code and around that
>stuff.
>>
>>How can I get the message into a fixed length flat file that I can use in
>>RPG?
>>
>>CPYFRMSTMF has the option to do this, but I have tried that when receiving
>>mail to a userId setup as a Pop3 user (system message store), and that
>>looked even worse.
>>
>>OF course, I thought this was a no-brainer and have promised my customer
>>this function right away.  Keep in mind that the world may end if I don't
>>get this solved.
>>
>>Art Tostaine, Jr.
>>CCA, Inc.
>>Parlin, NJ 08859
>>
>>
>
>

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---