i got the answer for write record in physical file member
i shared that concept coding….
Femp1 uf a e k disk usropn extmbr(a3) — emp1 -> pf name
Da3 s 10a
C eval a3=’EMP12′ — emp12 -> pf member name
C open emp1
C write employee — employee – pf record format name
C close emp1
C eval *inlr=*on
Thanks, Mr.Pradeep, Mr. Phil and Mr. Tom…….