RE: MODS?? Help. -- RPG400-L

In case you don't have www.rpgxtoosl.com, I've cut/pasted the protos for
bsearch and qsort here.

      ** 
      **  Binary Search
      **  from RPG xTools
     D BSearch         PR              *   ExtProc('bsearch')
     D  pSearchData                    *   Value
     D  pStartOfArray                  *   Value
     D  nElemCount                   10U 0 Value
     D  nElemSize                    10U 0 Value
     D  CompFunct                      *   Value ProcPtr

      ** 
      **  Quick Sort
      **  from RPG xTools
     D qsort           PR              *   ExtProc('qsort')
     D  pArrayData                     *   Value
     D  nElemCount                   10U 0 Value
     D  nElemSize                    10U 0 Value
     D  CompFunct                      *   Value ProcPtr

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of MWalter@xxxxxxxxxxxxxxx
Sent: Tuesday, November 02, 2004 1:09 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: MODS?? Help.


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.
--
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.



--
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.





--
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.