varlenrp

varlenrp



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

This Content Component encountered an error

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchEnterpriseLinux

SearchDataCenter

Close