× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. November 2004

RE: MODS?? Help.

Or...
www.rpgxtools.com


John Brandt 
iStudio400.com 
(903) 523-0708 
Home of iS/ODBC - MSSQL access from iSeries and RPG. 




-----Original Message-----
From: Bob Cozzi [mailto:cozzi@xxxxxxxxx]
Sent: Tuesday, November 02, 2004 1:44 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: MODS?? Help.


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.



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

---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.788 / Virus Database: 533 - Release Date: 11/1/04
 

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.788 / Virus Database: 533 - Release Date: 11/1/04

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.