Re: API- Userspace pointer Question

Suppose you have a copy member that looks like
GH0100
      /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


Then you would use logic like:
...
             qusptrus(LckUsrSpc:pGH0100:errc0100);
...
       pGH0100List = pGH0100 + GHListOff;
       for ListEntry = 1 to GHListNbr;
         pOBJL0100 = pGH0100List + (ListEntry - 1) * GHListMbrSz;
...
       endfor;


Rob Berendt