RE: API- Userspace pointer Question -- RPG400-L

Maybe so but if they change it trust me I'll know exactly WHERE to fix
the DS & the code...not to mention I actually read the "what's new" &
"what's changed" between releases...(I like to be prepared)

Not to mention that chances are if they DO change the API return data
I'll most likely need it somewhere...using your method the code won't
explode...but you'll still have to retrofit to get the new info.

In my case it's not that bad...

We always install OS upgrades & ptf's on a different box so All
necessary changes "roll out" with the OS upgrade on production &
development boxes...
 


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
Sent: Thursday, September 22, 2005 11:29 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: API- Userspace pointer Question

Bad Tommy!  Bad Tommy!

If IBM changes the 'List member size' by adding a new field to SPLF0300
or some other reason and you do not modify your code you are toast.  You
should use the 'List member size' from the generic list header and not
%size of that data structure.

List member size is field GHListMbrSz below:

      /define GH0100
      * GH0100 - List API - Generic Header Format 0100 from 'System API
Reference'
     D pGH0100List     S               *
     D ListEntry       S             10i 0
     D pGH0100         S               *         Ptr header
     D GH0100          DS                  Based(pGH0100)
     D  GHUser                       64A         User area
     D  GHGHSize                     10I 0       Generic header size
     D  GHRelease                     4A         Structure rel level
     D  GHFormat                      8A         Format name
     D  GHAPI                        10A         API used
     D  GHDTS                        13A         Date/time created
     D  GHInfoSts                     1A         Information status
     D  GHUSsize                     10I 0       Size user space
     D  GHInpOff                     10I 0       Offset input parm
     D  GHInpSize                    10I 0       Size input parm
     D  GHHdrOff                     10I 0       Offset header sectn
     D  GHHdrSize                    10I 0       Size header sectn
     D  GHListOff                    10I 0       Offset list data
     D  GHListSize                   10I 0       List data size
     D  GHListNbr                    10I 0       Number list members
     D  GHListMbrSz                  10I 0       List member size
     D  GHListCCSID                  10I 0       CCSID list entry
     D  GHCountry                     2A         Country ID
     D  GHLanguage                    3A         Language ID
     D  GHSubsetInd                   1A         Subset list ind
     D  GHReserved                   42A         Reserved 

Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Holden Tommy" <Tommy.Holden@xxxxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
09/22/2005 11:05 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Fax to

Subject
RE: API- Userspace pointer Question






s0300Ptr=s0300Ptr+%Size(SPLF0300)

Where s0300Ptr is set to the original offset just add the %size of the
DS returned. 


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of DAWOOD KHAN
Sent: Thursday, September 22, 2005 10:43 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: API- Userspace pointer Question 

   Hi all,

   I'm new with API, just need some more information using pointers with
   API's

   I'm easily access the first value from the user space but how do I
get the
   next value(pointer value)  from the user space ?, any example code,
   document or link, any help

   Please let me know

   thanks

   Dave

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