RE: Indirect reference to *INKx

["Tucker Gerry" <Gerry.Tucker@xxxxxxxxxxxxxxx>]

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.