rpgle/rpg中使用ESc

在rpgle/rpg中使用Esc键来调用某个功能时,除了可以使用命令来设置对应的程序外还可以使用程序来控制,因为esc对应的ascii码为X'F8'(ESpace =X'F8'),所以总结了一下,可以是用两种方法设置这个键可执行的功能:

第一中设置方法:

cl程序

 

pgm
....

SETATNPGM PGM(MY_LIB/MY_FUCTION_PGM) SET(*ON)

....

endpgm

 

 

 

第二种设置方法:

rpgle/rpg程序

     Fmydsp010FM  CF   E           WORKSTN INFDS(FEEDBK)
     F                                     INFSR(PSSR)
     F                                     SFILE(SF:RECNUM)

      .........

     D FEEDBK          DS
     D  FUNKEY               369    369
     D  CURSOR               370    371B 0

      .........

     C*Other key
     C     FUNKEY        IFEQ      X'F8'
     C                   call      'my_fuction'
     C                   ENDIF

      ......

     C                   eval      *inlr ='1'