News
Stay informed about the latest enterprise technology news and product updates.
varlenrp
varlenrp
Continue Reading This Article
Enjoy this article as well as all of our content, including E-Guides, news, tips and more.
Step 2 of 2:
//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
Start the conversation
0 comments