Here is an example. It is based on a file which has the same file/record/field name.
This happens when you create the file with the CRTPF and a length value.
Fmyfile uf e disk rename (myfile : myRecord)
F prefix (m_)
D mystring s 15
C read myfile
C eval mystring = %subst(m_myfile : 1 :10)
C mystring dsply
C eval m_myfile = ‘xxxx’
C update myRecord
C eval *inlr = *on