Hi,
I'm able to capture the F3 using the CF03 in my Cobol program. But how about the "Enter" key?
I'm able to capture the F3 using the CF03 in my Cobol program. But how about the "Enter" key?
Select; When Help_01; // do help processing When Exit_03; // do exit processing When Refresh_05; // etc. etc. EndSl
select DSPFILE assign to workstation-DSPFILE-si organization is transaction access mode is dynamic relative key is recnum file status is DSPFILE-file-status control-area is ws-control. 01 ws-control. 05 function-key PIC X(02) 05 device-name PIC X(10) 05 record-format PIC X(10) read DSPFILE indicators are ws-control
Where: function-key Is a 2-digit number inserted in the field by the workstation interface that identifies the function key the operator pressed to initiate the transaction. Nbr Meaning 00 Enter key 01-24 Function keys 1 through 24 90 Roll up / Page down key 91 Roll down / Page up key 92 Print key 93 Help key 94 Clear key 95 Home key 99 Undefined
DSPF: A PRINT A CF03(03) A HELP A INDARA COBOL: 01 INDIC-AREA. 05 IN03 PIC 1 INDIC 03. 88 ENDP VALUE B'1'. 88 NOT-ENDP VALUE B'0'. . . . IF NOT-ENDP some cobol statements.
Comment