RE: how to use Scan in free format?

["Bruce Odum" <bodum@xxxxxxxxxxxx>]

Scn = %scan(' ':String:Scn);              
Word = %subst(String:Start:Scn-Start);    
Scn = Scn + 1;                            
Start = Scn;                              

Bruce Odum
bodum@xxxxxxxxxxxx
(423) 510-3821

4080 Jenkins Rd.
Chattanooga, TN 37421



-----Original Message-----
From: RPower@xxxxxxxxxx [mailto:RPower@xxxxxxxxxx] 
Sent: Tuesday, July 27, 2004 10:48 AM
To: RPG programming on the AS400 / iSeries
Subject: how to use Scan in free format?

Ok,
Figured I'd start writing new apps in Free format now, or at least some
of 
the smaller ones to get used to it.  How do I do the SCAN opcode in Free

format?  Got a 30 char field, want to find first occurence of ' ' and
take 
the portion of that field from beginning to ' ' and use it, then scan
from 
that onwards, etc.  Parsing a field.  Thanks,