I have input file and i need to update a focus data base based on the values present in the
input file.
If the key matches,then it is updated other wise
the record is write to the exception file.
I wrote a para to do this process.
but i am unable to get the values in the file.
Instead of values it is stores only the variables name.
Please correct me wthere this approach is correct

 TABLE FILE TLDBEX     
PRINT TM_BRN_NUM      
      TM_ACC_NUM      
      TS_IN_BAL       
      TS_AVE_COF      
      TS_MARGIN       
      TS_FST_DTE      
      TS_NXT_REP      
ON TABLE HOLD AS HOLD1
END                   


MODIFY FILE TLDBTERM

PERFORM 070_LOADDATA

FIXFORM ON HOLD1 TM_BRN_NUM/A4 TM_ACC_NUM/A8 TS_IN_BAL/P08
.....

 CASE 310_GETOLDT                                                       
 -**********************************************************************
 -* Store Data For Old Record In Save Variables                         
 -**********************************************************************
 COMPUTE ROOT_KEY     = ROOT_KEY;                                       
         SNAPSHOT_DTE = C_SSD;                                          
         NEXT_REP     = C_SEL_NREP;                                     
         BRN_ACC      = TM_BRN_NUM | TM_ACC_NUM ;                       
         TRANCH_NUM   = C_TRN;                                          
MATCH ROOT_KEY                                                          
ON NOMATCH COMPUTE ERR_MSG = 'ROOT_KEY expected at 310_GETOLDDT';       
ON NOMATCH PERFORM 999_ERROR                                            
ON MATCH   CONTINUE                                                     
MATCH SNAPSHOT_DTE                                                      
ON NOMATCH COMPUTE ERR_MSG = 'SNAPSHOT_DTE expected at 310_GETOLDDT';   
ON NOMATCH PERFORM 999_ERROR                                            
ON MATCH   CONTINUE                                                     
MATCH NEXT_REP                                                       
ON NOMATCH COMPUTE ERR_MSG = 'NEXT_REP expected at 310_GETOLDDT';    
ON NOMATCH PERFORM 999_ERROR                                         
ON MATCH   CONTINUE                                                  
MATCH BRN_ACC                                                        
ON NOMATCH COMPUTE ERR_MSG = 'BRN_ACC expected at 310_GETOLDDT';     
ON NOMATCH PERFORM 999_ERROR                                         
ON MATCH   CONTINUE                                                  
MATCH TRANCH_NUM                                                     
ON NOMATCH COMPUTE ERR_MSG = 'TRANCH_NUM expected at 310_GETOLDDT';  
ON NOMATCH PERFORM 999_ERROR                                         
ON MATCH   COMPUTE C_STRN     = D.TRANCH_NUM;                        
                   C_SCTEAM   = D.CORP_TEAM;                         
....




CASE 999_ERROR                                                         
-********************************************************************* 
-* Write the Branch and Account number to the Exception File           
-********************************************************************* 
WRITE EXPFILE ERR_MSG TM_BRN_NUM TM_ACC_NUM 
ENDCASE                                       
DATA ON HOLD1                                 
END                                           
-RUN                                          
-EXIT                                         
 

This message has been edited. Last edited by: <Kathryn Henning>,

It's been quite a while since I've used MODIFY for this, but try

WRITE EXPFILE <D.ERR_MSG <D.TM_BRN_NUM <D.TM_ACC_NUM

or

WRITE EXPFILE <ERR_MSG <TM_BRN_NUM <TM_ACC_NUM

If EXPFILE is a flat file you want to write a 'log' to try..

TYPE ON EXPFILE "<ERR_MSG..."  

Here is a link to the basic syntax on MODIFY.

MODIFY Syntax Summary