在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'
阅读(1722) | 评论(0) | 转发(0) |