It’s not clear how this relates to this thread. Please open a new question so that your problem can get the attention it needs.

Tom

i am facing this problem:

Acc. to my work assigned to me, I have to divide a display record into a Subfile and another display record.

Earlier, *in20 was used on each field for DSPATR(PR).
Now, when in my program *in20 is set on, no field in the subfile and the new display record is protected.
also, on the Subfile Control format, no indicator like DSPATR(RI) on any field sets Reverse Image after being set to on.

1) Use SFLCLR and clear that format.

2) Other way is bit diff, first use CLEAR opcode on that field and just after that use UPDATE on CTL. It will do.

Just a comment for you to think about — why did you use EXFMT instead of a simple WRITE?

Tom

Once you’ve coded message subfile handling into your screen DDS and program, the code is easy to propagate and resuse elsewhere.

The DDS is like this:

A          R D@MSGSFL                   SFL                            
A                                       TEXT('Message Subfile Record') 
A                                       SFLMSGRCD(24)                  
A            D#SMK                      SFLMSGKEY                      
A            D#SPQ                      SFLPGMQ                        
                                                                       
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
                                                                       
A          R D@MSGCTL                   SFLCTL(D@MSGSFL)               
A                                       TEXT('Message Subfile Control')
A                                       OVERLAY                        
A                                       SFLDSP                         
A                                       SFLINZ                         
A N01                                   SFLEND                         
A                                       SFLSIZ(2)                      
A                                       SFLPAG(1)                      
A            D#SPQ                      SFLPGMQ                        

The code in the program is like this:

 * ------------------------------------------------------------------------             
 * Message handling data structures                                                     
 * ------------------------------------------------------------------------             
                                                                                        
D p_MsgRtnCode    S              7                                         Return code  
D p_MsgPgmName    S             10                                         Program name 
D p_MsgDest       S              5                                         Destination  
D p_MsgFile       S             10                                         Message file 
D p_MsgKey        S              4                                         Message key  
D p_MsgType       S              7                                         Message type 
                                                                                        
D p_MsgID         DS             7                                         Message ID   
D  MsgType                1      3                                          Message type
                                                                                        
D p_MsgDta        DS           512                                         Message data 

.......

D D#SPQ           S             10                                         Message Queue name

......

(main screen loop - basically, the message subfile is written before the EXFMT) :

C                   ExSr      SetLegend                                      Cmd.Key legend
C                   Write     D@FOOT                                         Footer        
C                   Write     D@MSGCTL                                       Messages      
C  N14              Write     D@NDT1                                         No Subfile    
C                   Exfmt     D@SF1C                                         Detail screen 

......

(when checking function keys after EXFMT) :

C                   If        Fkey <> fnRollUp                             If not Roll Up  
C                   ExSr      ClearMessage                                   Clear messages
C                   EndIf                                                                  

.......

(Send message and clear message queue subroutines - call your own message sender) :

C     SendMessage   BegSr                                                                  
                                                                                           
 * ========================================================================                
 * Send message to program message queue                                                   
 * ------------------------------------------------------------------------                
                                                                                           
C                   If        MsgType = 'ERR'                              If error message
C                   Eval      *In40   = *On                                  Set error flag
C                   EndIf                                                                  
                                                                                           
C                   Call      'TICSNMG'                                    <Send message>  
C                   Parm      *Blank        p_MsgRtnCode                   B:Return code   
C                   Parm      D#SPQ         p_MsgPgmName                   I:Program name  
C                   Parm      '*SAME'       p_MsgDest                      I:Destination   
C                   Parm                    p_MsgID                        I:Message ID    
C                   Parm      'TTSMSGS'     p_MsgFile                      I:Message file  
C                   Parm      *Blank        p_MsgKey                       I:Message key   
C                   Parm                    p_MsgDta                       I:Message data  
C                   Parm      '*INFO'       p_MsgType                      I:Message type
                                                                                         
C                   Clear                   p_MsgID                        Message ID    
C                   Clear                   p_MsgDta                       Message data  
                                                                                         
 * ------------------------------------------------------------------------              
 *                                                                                       
 * ========================================================================              
                                                                                         
C                   EndSr                                                                
                                                                                         
C     ClearMessage  BegSr                                                                
                                                                                         
 * ========================================================================              
 * Clear program message queue                                                           
 * ------------------------------------------------------------------------              
                                                                                         
C                   Call      'TICSNMG'                                    <Send message>
C                   Parm      *Blank        p_MsgRtnCode                   B:Return code 
C                   Parm      D#SPQ         p_MsgPgmName                   I:Program name
C                   Parm      '*SAME'       p_MsgDest                      I:Destination 
C                   Parm      '*CLEAR'      p_MsgID                        I:Message ID  
C                   Parm                    p_MsgFile                      I:Message file
C                   Parm                    p_MsgKey                       I:Message key 
C                   Parm                    p_MsgDta                       I:Message data
C                   Parm                    p_MsgType                      I:Message type
                                                                                         
C                   Clear                   p_MsgID                        ¦ Clear the   
C                   Clear                   p_MsgDta                       ¦ parameters  
C                   MoveA     *Off          *In(40)                        Reset errors  
                                                                                         
 * ------------------------------------------------------------------------              
 *                                                                                       
 * ========================================================================              
                                                                                         
C                   EndSr                                                                

This is just picked out of one program from many, all of which use the same standard code (yes, probably should be /COPY’d or proceduralised….)

Sloopy