如何解决禁用 Fn 键 Dspf Rpgle
我使用 Screen Design Aid 创建了一个显示文件,其中包含一个子文件和一个用于弹出并向子文件添加记录的窗口。 在窗口上我只想有两个控制功能。
-Enter 添加记录并关闭窗口 -F3 返回上一个子文件页面。
我有一个问题,每当我打开窗口并按除那些定义的按钮之外的任何其他 Fn 键时,我的程序似乎都在无限循环。
查看我在 WRKACTJOB 中的作业占用 CPU 负载
我想以某种方式禁用所有其他键的输入,以防止用户收到此错误并占用系统资源。
这是我的 DDS 代码
A*%%TS SD 20210608 183039 JAL REL-V7R3M0 5770-WDS
A*%%EC
A DSPSIZ(27 132 *DS4)
A R PRTWNDW
A*%%TS SD 20190630 072251 JAL REL-V7R2M0 5770-WDS
A WINDOW(6 14 8 85)
A PRTMSG# 80 O 4 3
A PRTMSG2# 80 O 5 3
A 1 31'Print Message Window'
A R ADDWNDW
A*%%TS SD 20210608 183039 JAL REL-V7R3M0 5770-WDS
A CA03(03 'Previous')
A CA02(02 'Add/Update')
A WINDOW(2 12 22 105)
A 2 36'ADD COST DISTRIBUTION RECORD'
A 5 4'Supplier:'
A 7 4'Brand:'
A 9 4'Exp A/c:'
A 11 4'Sub-Total:'
A 14 4'ASB:'
A 15 4'Supplier:'
A 13 4'Cost Split'
A 17 4'Check:'
A CSSUPC# 6A B 5 18
A CSEXCD# 3A B 9 18
A CSSTTL# 9Y 2B 11 18EDTCDE(2)
A CSASST# 3Y 0B 14 18EDTCDE(2)
A CSSPST# 3Y 0B 15 18EDTCDE(2)
A CSCHCK# 3A B 17 18
A CSSUPN# 30A O 5 32
A CSBRNM# 30A O 7 32
A CSEXNM# 30A O 9 32
A CSCHNM# 30A O 17 32
A CSBRNO# 3A B 7 18
A ADDMSG# 80A O 19 4COLOR(WHT)
A 21 4'F2 = Add/Update Record'
A COLOR(WHT)
A 21 31'F12 = Previous'
A COLOR(WHT)
A R DUMMY ASSUME
A OVERLAY
A 1 2' '
A R CMTDATA SFL
A*%%TS SD 20210608 152830 JAL REL-V7R3M0 5770-WDS
A ACNAME R O 7 4REFFLD(APVENDR/ACNAME R50FILES/VAPV-
A END)
A BRBRDSC R O 7 37REFFLD(ANPBRNDR/BRBRDSC ANPLIB/ANPB-
A RND)
A CMEXCD R O 7 69REFFLD(ANPCSTCMTR/CMEXCD ANPTEST/AN-
A PCSTCMT)
A CMSTTL R O 7 92REFFLD(ANPCSTCMTR/CMSTTL ANPTEST/AN-
A PCSTCMT)
A CMBCSP R O 7109REFFLD(ANPCSTCMTR/CMBCSP ANPTEST/AN-
A PCSTCMT)
A CMSCSP R O 7117REFFLD(ANPCSTCMTR/CMSCSP ANPTEST/AN-
A PCSTCMT)
A R CMTCTL SFLCTL(CMTDATA)
A*%%TS SD 20210608 175516 JAL REL-V7R3M0 5770-WDS
A CA12(12 'Previous')
A CA02(02 'Add')
A CA06(06 'Modify')
A CA07(07 'Delete')
A CA09(09 'Print')
A OVERLAY
A 42 SFLDSP
A 41 SFLDSPCTL
A 40 SFLCLR
A 45 SFLEND(*MORE)
A SFLSIZ(0100)
A SFLPAG(0015)
A 1 56'PO Cost Distribution'
A 3 4'PO Number:'
A FLD001 11A O 3 16
A 3 37'PO Sub-total:'
A FLD003 9Y 2O 3 52EDTCDE(2)
A 3 69'Current Sub-total:'
A FLD004 9Y 2O 3 89EDTCDE(2)
A 5 4'Supplier'
A 5 37'Brand'
A 5 69'Exp A/C'
A 5 92'Sub-total'
A 5109'BPI'
A 5117'Supplier'
A R CMTFOOT
A*%%TS SD 20210608 173541 JAL REL-V7R3M0 5770-WDS
A KEEP
A 25 3'F2 = Add Record'
A COLOR(WHT)
A 25 22'F6 = Modify Record'
A COLOR(WHT)
A 25 44'F7 = Delete Record'
A COLOR(WHT)
A 25 66'F9 = Print Supplier Copy'
A COLOR(WHT)
A 25 94'F12 = Previous'
A COLOR(WHT)
这是迄今为止的RPGLE
FANPPORCMT CF E WorkStn
F SFILE(CMTDATA:RRN#)
FVAPVEND IF A E K Disk
D FileInfo DS
D KeyPressed 369 369
D EnterKey C CONST(x'F1')
***
/free
// Internal Procedure Prototypes
dcl-pr ClrVndSfile end-pr;
dcl-pr LoadVndSfile end-pr;
dcl-pr DspVndSfile end-pr;
// Stand alone variables
dcl-s RRN# packed(4);
//Main Program--------------------------------//
// Initialize
*in40 = *off;
*in41 = *off;
*in42 = *off;
*in45 = *off;
// While F12 is not pressed display screen
DoW *in12 = *off;
ClrCmtSfile();
LoadCmtSfile();
DspCmtSfile();
if *in02 = *on;
*in02 = *off;
exfmt addwndw;
dow *in03 = *off;
if KeyPressed = EnterKey;
*in03 = *on;
endif;
enddo;
endif;
EndDo;
*Inlr = *On;
//End Main**************************************//
//Clear Subfile Procedure---------------//
dcl-proc ClrCmtSfile;
*in40 = *on;
write cmtctl;
*in40 = *off;
RRN# = 0;
end-proc;
//*********************************************//
//Load Subfile Procedure----------------//
dcl-proc LoadCmtSfile;
RRN# = RRN# + 1;
acname = ' Supplier Testing';
brbrdsc = 'Brand Testing';
cmexcd = ' Expense testing';
cmsttl = 1333330;
cmbcsp = 50;
cmscsp = 50;
write cmtdata;
end-proc;
//*********************************************//
//Display Subfile Procedure-------------//
dcl-proc DspCmtSfile;
*in41 = *on;
*in42 = *on;
write cmtfoot;
exfmt cmtctl;
*in41 = *off;
*in42 = *off;
end-proc;
//*********************************************//
/end-free
解决方法
在这个循环中,如果循环开始时 KeyPressed 不等于 EnterKey,*in03 将永远保持 *off。我猜你在循环中需要另一个 EXFMT。
dow *in03 = *off;
if KeyPressed = EnterKey;
*in03 = *on;
endif;
enddo;
,
试试这个
if *in02 = *on; //Window requested
*in02 = *off;
dow *in03 = *off;
exfmt addwndw; //show window until enter or f3 are used
if KeyPressed = EnterKey;
*in03 = *on;
endif;
if *in03 = *on; //F3 used
leave;
endif;
enddo;
endif;
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。