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
Last Wiki Answer Submitted: September 17, 2008 4:32 pm by philpl1jb44,090 pts.
All Answer Wiki Contributors: philpl1jb44,090 pts.