Re: Help with Service Programming

As an alternative, I would consider appending a semi-colon to the end of the
string (assuming it never has one) and changing the delimiter to just be the
semi-colon. That should get the strings only and not the blanks.

What happens when you step through in debug?

On Fri, Feb 19, 2010 at 11:43 AM, Kelly, John (Limerick) <
John.Kelly@xxxxxxxxxxx> wrote:

I did change the loop to a DoU but ended up with the same result.

As a novice to this whole area I am struggling to identify where the
getToken subprocedure. Attached please find the full code for the get
email/set email utility. My thoughts are that it is part of the QC2LE
binding directory, and is related to the Strtok C function.

The string the utility needs to process is a series of emails,
separated by a semi colon. It is to keep processing until it finds a
space which determines it has found all the email addresses. An example
of the string it is attempting to read would be ...

'john.wayne@xxxxxxxxxx;joe.blogs@xxxxxxxxxx'

In the attached code it sets the 'delimiters' variable to include both
a semi colon and a space - i.e. '; '. It then uses it to interrogate the
string using the gettoken procedure.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Needles,Stephen J
Sent: 19 February 2010 16:35
To: RPG programming on the IBM i / System i
Subject: RE: Help with Service Programming

Yep...that's it...thanks Dennis.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Dennis Lovelady
Sent: Thursday, February 18, 2010 5:40 PM
To: 'RPG programming on the IBM i / System i'
Subject: RE: Help with Service Programming

If I remember correctly Dow will always perform 1 extra iteration.

Try

changing the DOW to a DoU.

Rather than

doW (pToken <> *null);

try

doU (pToken = *null);

The above is incorrect. Difference between DoU and DoW is that DoU will
always do one iteration (the test is at the end), while DoW test is at
the
beginning, so it will not process the (potentially) extra step. Neither
operation will iterate an extra time after the test.

The problem is almost certainly in the getToken procedure. May we see
that,
please?

Dennis Lovelady
http://www.linkedin.com/in/dennislovelady
--
"Some see the problem in every opportunity, some see the opportunity in
every problem."
-- Kevin Cowling



--
This is the RPG programming on the IBM i / System i (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.



========================================================================
======
This communication, including attachments, is confidential, may be
subject to legal privileges, and is intended for the sole use of the
addressee. Any use, duplication, disclosure or dissemination of this
communication, other than by the addressee, is prohibited. If you have
received this communication in error, please notify the sender
immediately and delete or destroy this communication and all copies.

--
This is the RPG programming on the IBM i / System i (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.




This message (and any associated files) is intended only for the
use of the individual or entity to which it is addressed and may
contain information that is confidential. If you have received this
message in error, please notify us immediately by replying to the
message and then deleting it from your computer. Any views presented
are solely those of the author and do not necessarily represent
those of the company.

Howmedica International S. de R. L. Registered in Ireland,
Registered No. 901582.
Incorporated in Panama with Limited Liability.
Vat No. IE9/Z/33717B.
Registered Office Raheen Business Park, Limerick, Ireland.

--
This is the RPG programming on the IBM i / System i (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.