Enter VS CHECK(ER)

[Thunder]

Anyway the RGPLE program can now if the enter it's cause by the CHECK(ER)?

[danlong005]

Re: Enter VS CHECK(ER)

No, There isn't a way to differentiate. Below I put a small program below that shows it. Whether actually pressing enter or letting CHECK(ER) simulate enter on field exit.

A                                      DSPSIZ(24 80 *DS3)
A                                      INDARA            
A          R FMT1                                        
A                                      CF02(02 'ret')    
A                                      CF03(03 'Exit')   
A            FIELD          9N 0B  7 19                  
A                                      CHECK(ER)

 ctl-opt option(*srcstmt:*nodebugio);         
                                              
 dcl-f test93d workstn infds( infoDS );       
                                              
 dcl-ds infoDS;                               
   keyPressed char(1) pos(369);               
 end-ds;                                      
                                              
* Function keys.                              
 dcl-c ENTER const(X'F1');                    
                                              
* Named indicators.                           
 dcl-s IndicatorPtr pointer inz(%addr(*in));  
 dcl-ds Inds based(IndicatorPtr);             
   f3 ind pos(03);                            
 end-ds;                                      
                                              
 dow f3 = *off;          
   exfmt fmt1;                         
   if f3 = *on;                        
     iter;                             
   endif;                              
                                       
   if keyPressed = ENTER;              
     dsply ('Enter was pressed');      
   endif;                              
                                       
 enddo;   

 *inlr = *on; 
 return;

What is it that you are wanting to do if you could differentiate? Maybe there is another way to do it.

[Thunder]

Re: Enter VS CHECK(ER)

If the value in the field it's "A" it should activate another field on the screen, else saves on the file.

[tomliotta]

Re: Enter VS CHECK(ER)

If the value is 'A' and CHECK(ER) results in being passed to the program, it implies that the field on the screen is only one character wide. In that case, there should be no way for the user to press -Enter- unless the user didn't type anything into the field. And in that case, there would be no change in the field that would be signaled.

Does the record have the CHANGE() keyword specified?

[Thunder]

Re: Enter VS CHECK(ER)

No.
But im using now.

Thanks