News Stay informed about the latest enterprise technology news and product updates.

varlenrp

varlenrp

Sudhakar Kunji


//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

Dig Deeper on iSeries programming commands

Start the conversation

Send me notifications when other members comment.

Register

By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Please create a username to comment.

-ADS BY GOOGLE

SearchDataCenter

Close