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

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

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

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.