Ok, here's a boatload of code to sift through. ;) I hope I have
everything here that's required. I really appreciate people looking
into this. I don't mind the workaround I have, but I would like to know
what is wrong.
Thanks,
--- This is the code that opens the IFS file then reads it in. It calls
the $ReadIFSFile procedure which is defined below. Additional
prototypes and the contents of the IFS File are also listed after the
code. The %scan, in this code, would return a zero any time the x'25'
character was in the data being scanned.
D VAR_Phone C '[phone#]'
D Data S 1024a Inz
D FileDesc S 10i 0 Inz
D IFSFile S 512a Inz
D newData S 1024a Varying
D O_RDOnly S 10i 0 Inz( 1 )
D Start S 5u 0
// IFSFile field contains a filepath to the file to be
read.
// Open the default Email Body Template file.
FileDesc = $OpnIFSFile( IFSFile: O_RDOnly );
// Read the default Email Body Template file.
DoU NOT BytesRead;
Clear Data;
BytesRead = $ReadIFSFile( FileDesc: Data: %len( Data )
);
// Write the data read to the Temporary Email Message
file.
If BytesRead;
// Insert the contact phone number if the IFS body
has
// that variable in it. Leave the loop afterward.
start = %scan( VAR_Phone: Data );
If start > 0;
newData = %subst( Data: 1: (start - 1) ) +
RQ#CntctPhone
+ %subst( Data: (start + %len( VAR_Phone ))
);
Else;
newData = Data;
EndIf;
$WrtIFSFile( EmlMsgDesc: newData );
EndIf;
EndDo;
--- prototypes
// Open an IFS File ( IFSSProc )
D $OpnIFSFile PR 10i 0
D FileName 512a Const
D OpenAccess 10i 0 Const Options( *Omit:
*NoPass )
// Write to an IFS File ( IFSSProc )
// (Data is varying so extra spaces aren't written to the
file)
D $WrtIFSFile PR
D FileHandle 10i 0 Const
D Data 1024a Value Varying
D CarriageReturns...
D 3u 0 Const Options( *Omit:
*NoPass )
D ReturnCode 10i 0 Options( *Omit:
*NoPass )
--- Our wrapper around the IFS read. We have most of our IFS-related
code in a service program
P $ReadIFSFile B Export
D PI n
D FileHandle 10i 0 Const
D Data 1024a
D ReadLength 5i 0 Const Options( *Omit:
*NoPass )
D ReturnCode 10i 0 Options( *Omit:
*NoPass )
//---------------------------------------------------------------*
// Define Local Indicators
D DataRead S n Inz( *Off )
// Define Local Variables
D BytesRead S 10i 0 Inz
D ReadBytes S 10i 0 Inz( %len( Data ) )
//================================================================*
/Free
// If the Read Length parameter was passed, set the number of
// bytes to read.
If %addr( ReadLength ) <> *Null and %parms >= 3;
ReadBytes = ReadLength;
EndIf;
BytesRead = read( FileHandle: %addr( Data ): ReadBytes );
// If the Return Code is requested, set the value for the
Return Code.
If %addr( ReturnCode ) <> *Null and %parms = 4;
ReturnCode = BytesRead;
EndIf;
// Set the Return Indicator to indicate if data was read.
If BytesRead > *zero;
DataRead = *On;
Else;
DataRead = *Off;
EndIf;
Return DataRead;
/End-Free
P $ReadIFSFile E
//---------------------------------------------------------------*
---Contents of IFS File:
<-- new line
Please call [phone#] to contact us if you have any questions.
<-- new line
-- end of file.
Kurt Anderson
Application Developer
Highsmith Inc
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Scott Klement
Sent: Monday, July 23, 2007 1:13 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: %scan and the new line character
Hi Kurt,
Once I moved the field that was based on the buffer into a
program-defined variable field, I can scan that new variable field
without the %scan ending at the first x'25' found.
The code you've described in this thread SHOULD work just fine. (I
frequently do stuff like this!) So I guess I don't understand why it's
failing, unless there's a bug in your code? Can you post the code that
fails?
--
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.
midrange.com
