RE: Indirect reference to *INKx

["Bob Cozzi \(RPGIV\)" <cozzi@xxxxxxxxx>]

Joe,

That may work but it looks like you're trying to get Fred Flinstone's
car to fly like George Jetson's.  :(

Bob Cozzi
cozzi@rpgiv.com
Visit the new on-line iSeries Forums at: http://www.rpgiv.com/forum

> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On
> Behalf Of Joe Pluta
> Sent: Tuesday, December 18, 2001 10:04 AM
> To: rpg400-l@midrange.com
> Subject: RE: Indirect reference to *INKx
>
> Nevermind.  I did a search on the RPG400-L archives, and found out
what I
> was doing wrong.  I wasn't defining *INKA, which I did with a simple
"eval
> *inka = *inka" statement in my *INZSR.  That done, %addr(*inka) worked
fine.
>
> > From: Joe Pluta
> >
> > I know you can indirectly reference *IN01-99, but I'm wondering
> > if there's a
> > way to do the same thing for the command keys.  %ADDR(*INKA) doesn't
> > compile, so I'm wondering if there's another way to symbolically
name the
> > command keys.
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.