Re: STRTOK question?

I learn best by asking questions.  Follows is code that does the parsing 
you are looking for, but in RPG.  What is the advantage of using a C 
solution?

*************** Beginning of data **************************************
D Input           S            100 
D Ar              S            100    Dim(100) 
D IxA             S              3S 0 
D IxB             S              3S 0 
D IxE             S              3S 0 
C                   Eval      Input = 
C                             'ord11:000420:TUB:blue  tu  z2:2z3x4' 
C                   Eval      IxA=1 
C                   Eval      IxB=1 
C                   Eval      IxE=1 
 * 
 * Scan for the fields: 
C                   Dou       Not *IN99 
C     ':'           SCAN (E)  Input:IxB     IxE                      99 
 
C                   If        *IN99 
C                   Eval      Ar(IxA) = %SubSt(Input:IxB 
C                             :(IxE-IxB)) 
 * set indexes for next cycle: 
C                   Eval      IxA = IxA + 1 
C                   Eval      IxB = IxE + 1 
C                   End 
 
C                   End 
C                   Eval      *INLR = *ON 
 
_______________________
Booth Martin
boothm@earth.goddard.edu
http://www.spy.net/~booth
_______________________




"Kim Clark" <KCLARK@rivertrade.com>
Sent by: owner-rpg400-l@midrange.com
04/20/2000 02:14 PM
Please respond to RPG400-L

 
        To:     <RPG400-L@midrange.com>
        cc: 
        Subject:        STRTOK question?



I am trying to use the C runtime function 'strtok' to read the following 
delimited string. I am following the example in the Red Book Who Knew You 
Could That with RPGIV.
 
                InpString = 'ord11:000420:TUB:blue  tu  z2:2z3x4'

Everything works fine, except when it reads 'blue  tu  z2' from the 
string.  'strtok' seperates this part of the string into 'blue' , 'tu' and 
'z2'.   Is there a way to stop 'strtok' from reading the spaces/blanks as 
delimiters. I need 'blue tu z2' to be one token, not broken into three 
tokens. 

Thanks in advance for your help 

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




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