RE: MODS?? Help.

["Joe Lee" <LeeJD@xxxxxx>]

This is what I use.

H BNDDIR('QC2LE')
D bSearch         pr              *   ExtProc('bsearch')    
D  LookFor                        *   Options(*String) Value
D  ArrayPtr                       *   Value                 
D  ArrayLen                     10U 0 Inz(0) Value   
D  ElemSize                     10U 0 Inz(0) Value   
D  CompFunc                       *   ProcPtr Value         

Joe Lee

>>> MWalter@xxxxxxxxxxxxxxx 11/02/2004 11:09:06 >>>

I've been fighting with this same issue. Does anyone have an RPG
Prototype
for the bsearch() c function. I think I can wrap that in a service
program.

Thanks,

Mark

Mark D. Walter 
Senior Programmer/Analyst
CCX, Inc.
mwalter@xxxxxxxxxx 
http://www.ccxinc.com 


|---------+--------------------------------->
|         |           "Jonathan Mason"      |
|         |           <jonathan.mason@astrad|
|         |           yne-uk.com>           |
|         |           Sent by:              |
|         |           rpg400-l-bounces@midra|
|         |           nge.com               |
|         |                                 |
|         |                                 |
|         |           11/02/2004 02:05 PM   |
|         |           Please respond to RPG |
|         |           programming on the    |
|         |           AS400 / iSeries       |
|---------+--------------------------------->
 
>-----------------------------------------------------------------------------------------------------------------------|
  |                                                                    
                                                  |
  |       To:       "RPG programming on the AS400 / iSeries"
<rpg400-l@xxxxxxxxxxxx>                                      |
  |       cc:                                                          
                                                  |
  |       Subject:  RE: MODS?? Help.                                   
                                                  |
 
>-----------------------------------------------------------------------------------------------------------------------|




Hi Ron

Have you thought about creating a 999 element one character array that
you
initialise with blanks?  Then, whenever you write an occurence out to
the
MODS, you put an "X" (or other non-blank character) into the
appropriate
element of the one character array.  You can then %lookup for the
first
blank element, and the resulting index should be the first occurrenc
in
your
MODS.

All the best

Jonathan
www.astradyne-uk.com 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx 
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of RPower@xxxxxxxxxx 
Sent: 02 November 2004 15:34
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.
--