Re: QGYRHRL API

[Jerry Adams <jerry@xxxxxxxxxxxxxxx>]

Bob,

Thanks again for the pointers.  Making the changes you suggested 
certainly made for a better program.  Unfortunately, I get the same, 
incomplete (per my expectations, that is) results.  That is, none of the 
workstation devices (twinax, emulation, or network) actually show up in 
the list.  Looks like I picked the wrong API; I next try Rob's 
suggestion about using the List API. 


        * Jerry C. Adams
*IBM System i5/iSeries Programmer/Analyst
B&W Wholesale Distributors, Inc.* *
voice
        615.995.7024
fax
        615.995.1201
email
        jerry@xxxxxxxxxxxxxxx <mailto:jerry@xxxxxxxxxxxxxxx>



Bob Cozzi wrote:
>      D QGYRHRL         PR                  ExtProc('QgyRtvHdwRscList')
>      D  Receiver                  28800a
>      D  Length                       10i 0 Const
>      D  Format                        8a   Const
>      D  Resource                     10i 0 Const
>      D  Errors                      116a
>
> I would add OPTIONS(*VARSIZE) to the RECEIVER parameter otherwise you have to
> pass a 288000-byte variable for that parameter. 
>
> Next, you ERRORDS data structure is NOT initialized. Consequently it is telling
> the API that it has X'40404040' as the structure length. Which is telling the
> API that you're passing in an error DS that is 1077952576 bytes long.
>
> Rule 1 of data structure declaration: "Avoid surprise, Initialize!".
> Add the INZ keyword to the definition of ERRORDS to resolve this issue.
>
> Next, this code:
> Header  = %subst(Receiver:1:16);
> and
> Detail  = %subst(Receiver:start:124);
>
> Should be:
>
> Header  = %subst(Receiver:1:%size(header));
> and
> Detail  = %subst(Receiver:start:%size(detail));
>
>
>
> -Bob Cozzi
> www.i5PodCast.com
> Ask your manager to watch i5 TV
>
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On
> Behalf Of Jerry Adams
> Sent: Wednesday, April 25, 2007 9:26 AM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: QGYRHRL API
>
> Bob,
>
> As regards the security issue, probably not an issue as I have *AllObj 
> authority.
>
> I posted the code at http://code.midrange.com/index.php?id=50f273c912.
>
>
>         * Jerry C. Adams
> *IBM System i5/iSeries Programmer/Analyst
> B&W Wholesale Distributors, Inc.* *
> voice
>         615.995.7024
> fax
>         615.995.1201
> email
>         jerry@xxxxxxxxxxxxxxx <mailto:jerry@xxxxxxxxxxxxxxx>
>
>
>
> Bob Cozzi wrote:
>   
> > Jerry,
> > It is either your prototype or your parameter list or a security issue.
> > Can you post a code excerpt?
> >
> > -Bob Cozzi
> > www.i5PodCast.com
> > Ask your manager to watch i5 TV
> >
> >
> >
> > -----Original Message-----
> > From: rpg400-l-bounces+bob=rpgworld.com@xxxxxxxxxxxx
> > [mailto:rpg400-l-bounces+bob=rpgworld.com@xxxxxxxxxxxx] On Behalf Of Jerry
> >     
> Adams
>   
> > Sent: Wednesday, April 25, 2007 7:57 AM
> > To: RPG Midrange
> > Subject: QGYRHRL API
> >
> > I wrote a program that uses the QGYRHRL (QgyRtvHdwRscList) API 
> > yesterday.  The purpose is to find all of the workstation devices on the 
> > system.  However, only two devices are found; trust me, we have more 
> > than two workstation devices here.  And, incidentally, neither of the 
> > workstations it retrieves is listed when I use WRKCFGSTS *DEV.  No 
> > printer is retrieved; we have twinax, network, and emulated printers all 
> > on our system; all of which show upon using the WRKCFGSTS command.
> >
> >
> >
> > Originally I tried limiting the API to retrieve just the local work 
> > station resources (Category = 3).  When that didn't work, I changed the 
> > program to retrieve all hardware resources (Category = 1).  Same result 
> > plus, of course, all cards, disks, etc.
> >
> >
> > I even downloaded a program from the web that had the API.  When I ran 
> > it, I got the same result (only the two displays previously listed).  
> > The sample output, which accompanied the program on the web site, 
> > indicated that individual display and printer devices are retrieved; 
> > just didn't on my system (which, by the way, is at V5R4).
> >
> >
> > The only thing that I have been able to come up with is that we run 
> > under the 36 environment, but I don't see how that could have an 
> > effect.  An object is an object, ain't it?
> >
> >
> > Any clues gratefully and humbly accepted.
> >
> >
> > Thanks.
> >   
> >     
>
>