Show subfile without waiting until the user press a key

[ndevriendt]

Hallo,

Is this possible ?

I want to call an other program that show's an overlaying
window with a message on my subfile. I want that my
subfile first is shown on the screen and that immediatly
after this my programm wil run.

My problem now is that when I show my subfile the program is stopping at the read instruction an goes on when I do some action.

Write C03
Read F03

 

[Mercury2]

Yes, it is possible using the INVITE kwd.
I show you a simple example to help you find information on how to use this kwd :

1. MyDSPF

A                                      DSPSIZ(24 80 *DS3)
A                                      PRINT
A                                      CA03(03 'Exit')
A          R REC1
A                                      INVITE 
A                                  5 10'MyFld......'  
A            FLD1          20   B  6 10

2. Override or Change command to indicate your timeout.
OVRDSPF or CHGDSPF MyDSPF WaitRcd( *Immed )

3. RPG Program using this DSPF

FMyDSPF     CF   E             WORKSTN MAXDEV(*FILE)  
D count           s              5u 0 inz(0)  
                                              
 /free                                        
  Dow NOT *in03;                              
   count += 1;                                
   if %rem(count : 2) = 0;                    
     z1  = '111111111111';
    else;                 
     z1  = '222222222222';
    endif;                    
    Write(e)  REC1;                                      
    Read(e)   MyDSPF;                                    
  Enddo;                                                 
...
 /end-free

HTH