RE: MODS?? Help.

If you don't want to do a bsearch() (C runtime function) then create a FOR
loop

 For I = 1 to %ELEM(Sprop_Rec)
  If Sspstat = ' '
  Leave
 Endfor
 **   I now equal the first blank occurrence.
-Bob


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of RPower@xxxxxxxxxx
Sent: Tuesday, November 02, 2004 9:34 AM
To: RPG programming on the AS400 / iSeries
Subject: MODS?? Help.

Ok, Tuesday feels like Monday now.  Trying to find the first occurrence in 
a MODS that is not filled up?  (Hope that makes sense) and then load it 
with my information.  I tried using %LOOKUP on the first field name, but 
it's not an array so that's wrong.  Here's my MODS:
     ?* Affected Streets Data Structure Array
     d Sprop_Rec       Ds           136    Occurs(999)
     d  Sspstat                       1    Overlay(Sprop_Rec:*Next)
     d  Sspstr#                       4  0 Overlay(Sprop_Rec:*Next)
     d  Ssploc                       30    Overlay(Sprop_Rec:*Next)
     d  Sspstak                       4  0 Overlay(Sprop_Rec:*Next)
     d  Ssploct                      30    Overlay(Sprop_Rec:*Next)
     d  Ssplds1                      30    Overlay(Sprop_Rec:*Next)
     d  Ssplds2                      30    Overlay(Sprop_Rec:*Next)

Now let's say there are a couple of occurences filled with info I want, 
how do I find the first blank occurrence?  I know if it were an array 
field I could do
Eval      z = %LookUp(' ':MyArray:1) and that would give me the first 
blank index.  Thanks,


Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
Tel: 709-576-8132
Email: rpower@xxxxxxxxxx
Website: http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill


This e-mail communication and accompanying documents is intended only for
the individual or entity to which it is addressed and may contain
information that is confidential, privileged or exempt from disclosure under
applicable law.  Any use of this information by individuals or entities
other than the intended recipient is strictly prohibited.  If you have
received this in error, please notify the sender and delete all the copies
(electronic or otherwise) immediately.
--
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.