varlenpg

By Sudhakar Kunji 25 Feb 2002 |

Digg This!     StumbleUpon     Del.icio.us

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

Digg This!     StumbleUpon     Del.icio.us

RELATED RESOURCES 2020software.com, trial software downloads for accounting software, ERP software, CRM software and business software systems Search Bitpipe.com for the latest white papers and business webcasts Whatis.com, the online computer dictionary