Re: strtok and consecutive delimiters

The Function eats the delimiters, I must know what data was missing between
the delimiters. A PC is passing me a Comma delimited String on a data queue.
Between each comma is critical data.

Below is a copy of the procedure in a service pgm

$GetString      B                    Export

$GetString      PI          2048a   varying
 String@                    2048a   Varying Const Options(*Varsize)
 Delimiters@                  10a   Varying Const Options(*Varsize)
 - - - - - - - -
 Local Variables
 - - - - - - - -
Token@          s               *
Stringout       s           2048a   Varying
- - - - - - - - - - -
 Load Character Array
- - - - - - - - - - -
                  If        String@ = *blank
                  Eval      Token@ = StrTok(*Null : delimiters@)
                  Else
                  Eval      Token@ = StrTok(string@ : delimiters@)
                  Endif

                  If        Token@  = *Null
                  Eval      Stringout= *blank
                  Else
                  Eval      Stringout = %Str(Token@)
                  Endif

                  Return    Stringout

$GetString      E
---- Original Message ----- 
From: "Booth Martin" <Booth@xxxxxxxxxxxx>
To: <rpg400-l@xxxxxxxxxxxx>
Sent: Thursday, June 12, 2003 3:42 PM
Subject: Re: strtok and consecutive delimiters


> Please explain a tad more.  Are you writing or reading the file?  Why
isn't
> it working?  What is failing?  (several delimiters in a row should work
just
> fine, so I am wondering what's gone awry?)
>
>
>
> ---------------------------------------------------------
> Booth Martin   http://www.MartinVT.com
> Booth@xxxxxxxxxxxx
> ---------------------------------------------------------
>
> -------Original Message-------
>
> From: RPG programming on the AS400 / iSeries
> Date: Thursday, June 12, 2003 9:36:22 AM
> To: RPG400-L@xxxxxxxxxxxx
> Subject: strtok and consecutive delimiters
>
> Hello all, I have a procedure in a service pgm that uses the strtok
> function. I am trying to figure out how to handle consecutive delimiters.
I
> attended a session with Jon Paris that had a handout the Power of
> Prototyping. In the session we talked about using the function. I remember
> him saying with slight modification the code could handle consecutive
> delimiters. Does anyone know how handle the multiple delimiter issue??
> Thanks in advance.
>
> Wayne Achenbaum
> Slomin's Inc.
>
> _______________________________________________
> 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.
>