//Compile with CVTOPT(*VARCHAR)//
FVARLENPF O E K DISK
FVARLENDS CF E WORKSTN
*
D Wrk_Data DS
D VarFldLen 2B 0
D Fix3000 3000
*
C EXFMT VR00R1
C Eval VarFldLen = %Len(WsFld1)
C Eval Fix3000 = WsFld1
C Eval VrFld1 = Wrk_Data
C Eval VarFldLen = %Len(WsFld2)
C Eval Fix3000 = WsFld1
C Eval VrFld2 = Wrk_Data
C Eval VarFldLen = %Len(WsFld3)
C Eval Fix3000 = WsFld1
C Eval VrFld3 = Wrk_Data
C WRITE VR00RC
C SETON LR
C RETURN