In practice, I have a display file called VIDEO1, which contains a REC1 record format. REC1 has three input fields if1, if2, if3 and two output fields of1, of2.
After defining
Code: Select all
Dcl-F VIDEO1 WORKSTN INDDS(dspf1) usropn;
Code: Select all
dcl-ds rec1ds likerec(REC1:*all);