Ibm midrange 禁用Fn键Dspf Rpgle
我使用屏幕设计辅助创建了一个显示文件,其中包含一个子文件和一个窗口,用于弹出并向子文件添加记录。 在窗口上,我只想有两个控制功能 -输入以添加记录并关闭窗口 -F3返回上一个子文件页面 我有一个问题,每当我打开窗口并按下除已定义按钮之外的任何其他Fn键时,我的程序似乎都会无限循环 在WRKACTJOB中查看我的作业占用CPU负载 我想以某种方式禁用所有其他键的输入,以防止用户出现此错误并占用系统资源 这是我的DDS代码Ibm midrange 禁用Fn键Dspf Rpgle,ibm-midrange,rpgle,Ibm Midrange,Rpgle,我使用屏幕设计辅助创建了一个显示文件,其中包含一个子文件和一个窗口,用于弹出并向子文件添加记录。 在窗口上,我只想有两个控制功能 -输入以添加记录并关闭窗口 -F3返回上一个子文件页面 我有一个问题,每当我打开窗口并按下除已定义按钮之外的任何其他Fn键时,我的程序似乎都会无限循环 在WRKACTJOB中查看我的作业占用CPU负载 我想以某种方式禁用所有其他键的输入,以防止用户出现此错误并占用系统资源 这是我的DDS代码 A*%%TS SD 20210608 183039 JAL
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
在此循环中,如果循环开始时按下的键不等于EnterKey,*in03将永远保持*关闭。我猜你需要另一个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;
这真的是一个无限循环,还是你只是处于“坏按键”状态,在我的模拟器中,左下角有一个红色的X标记?@Mike当我调试它时,我一直在循环,没有红色的X,它说的是系统。在循环中,它帮助刷新了条目页面,但不能将K指示器与dds定义的CF/CA指示器混合使用。事实上,只需使用DDS定义的指示器即可。K指示器更难理解(序列中至少有一个间隙,你不看就知道它在哪里),而且它们在现代RPG IV中并不总是起作用。当然,如果*inkc=*打开,应该用什么来代替?让我知道,我会更改:)在使用CA03(03)的情况下,*in03相当于*inkc。谢谢,已更新