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