varlenpg

varlenpg



//Compile with CVTOPT(*VARCHAR)//

     FVARLENPF  O    E           K DISK
      *
     D Wrk_Data        DS
     D  VarFldLen                     2B 0
     D  Fix3000                    3000
      *
     C     *Entry        Plist
     C                   Parm                    WsFld1           75
     C                   Parm                    WsFld2           75
     C                   Parm                    WsFld3           75
      *
     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

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