The program works for me with no significant changes. I created my SAMPLE1 table with SQL, so I did add a RENAME() keyword for the record format to get the REC format name. But it worked as written.
 
So, it doesn’t seem to be a problem with the program itself.
 
That means that the program didn’t run successfully (perhaps didn’t run at all), or it added a record to a copy of the file, or it ran under commitment control and didn’t commit the record, or…?
 
More info is needed. The file description might help, but you should verify that everything is configured as you think it is.
 
Tom

Fpf01      uf a e           k disk    usropn   
C                   open      pf01             
C                   eval      eno=100          
C                   eval      ename=’xyz’      
C                   eval      esal=40000       
C                   write     format           
C                   close     pf01             
C                   eval      *inlr=*on        

i am able to write a record successfully not sure why you are not able to do , for your information , i have given you the code which might help full to you.

Ravula

Is it a library list problem?

Perhaps there is a gap in our understanding 

   of what you’ve done.

Your program compiled successfully?  

   What did you do, how do you know this?

Your program ran successfully?  

   What did you do, how do you know this?

Your program didn’t add a record?  

  What did you do, how do you know this?

Have you tried to debug your program?  Check if there is another instance of your file in a different lib. Is your program running interactive or batch? Check the objects, pgm and file to see when they were last used. Get some more data the check back for more answers.