|
That's exactly it! 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 Tucker Gerry > Sent: Tuesday, December 18, 2001 10:19 AM > To: rpg400-l@midrange.com > Subject: RE: Indirect reference to *INKx > > Try this:..... > > FDisplayF CF E WorkStn InfDs( DfDspFDs ) > > > D DfDspFDs Ds NoOpt > D 368 > D DfFncKey 1 > D DfDspCsr 5i 0 > D 4 > D DfSflPos 5i 0 > D DfSflPag 5i 0 > D DfSflSiz 5i 0 > D DfWdwCsr 5i 0 > > D DfF1 C X'31' > D DfF2 C X'32' > D DfF3 C X'33' > D DfF4 C X'34' > D DfF5 C X'35' > D DfF6 C X'36' > D DfF7 C X'37' > D DfF8 C X'38' > D DfF9 C X'39' > D DfF10 C X'3A' > D DfF11 C X'3B' > D DfF12 C X'3C' > D DfF13 C X'B1' > D DfF14 C X'B2' > D DfF15 C X'B3' > D DfF16 C X'B4' > D DfF17 C X'B5' > D DfF18 C X'B6' > D DfF19 C X'B7' > D DfF20 C X'B8' > D DfF21 C X'B9' > D DfF22 C X'BA' > D DfF23 C X'BB' > D DfF24 C X'BC' > D DfClear C X'BD' > D DfEnter C X'F1' > D DfHelp C X'F3' > D DfPagUp C X'F4' > D DfPagDwn C X'F5' > D DfPrint C X'F6' > > D DkHelp C X'31' > D DkF2 C X'32' > D DkExit C X'33' > D DkPrompt C X'34' > D DkRefresh C X'35' > D DkCreate C X'36' > D DkRetrieve C X'37' > D DkF8 C X'38' > D DkF9 C X'39' > D DkActions C X'3A' > D DkF11 C X'3B' > D DkCancel C X'3C' > D DkF13 C X'B1' > D DkF14 C X'B2' > D DkF15 C X'B3' > D DkF16 C X'B4' > D DkTop C X'B5' > D DkBottom C X'B6' > D DkLeft C X'B7' > D DkRight C X'B8' > D DkF21 C X'B9' > D DkF22 C X'BA' > D DkOptions C X'BB' > D DkKeys C X'BC' > D DkEnter C X'F1' > D DkPagUp C X'F4' > D DkPagDwn C X'F5' > > : > : > > C Select > C When DfFncKey = DkExit > : > : > C When DfFncKey = DkCancel > : > : > > C EndSl > : > : > > > > > > -----Original Message----- > From: Joe Pluta [mailto:joepluta@PlutaBrothers.com] > Sent: 18 December 2001 15:57 > To: rpg400-l@midrange.com > Subject: Indirect reference to *INKx > > > > 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. > > Joe > > _______________________________________________ > 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. > > _______________________________________________ > 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.
As an Amazon Associate we earn from qualifying purchases.
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.
midrange.com
