analysrp

By Sudhakar Kunji 25 Feb 2002 |

Digg This!     StumbleUpon     Del.icio.us

     FANALYS00  O    E           K DISK
      *
     D WsFld1          S             75
     D WsFld2          S             75
     D WsFld3          S             75
     D Wrk_Idx         S              5S 0
     D Wrk_Cnt1        S             15P 5
      *
     C     *Entry        Plist
     C                   Parm                    Wrk_Cnt1
      *
     C                   Z-Add     0             Wrk_Idx
     C                   Z-Add     Wrk_Cnt1      AnRCnt
      *
     C                   DoW       (AnVSiz > AnSSiz)
     C                             Or Wrk_Idx <= 10000
     C                   Eval      WsFld1 = 'TESTING'
     C                   Eval      WsFld2 = 'TESTING DATA'
     C                   Eval      WsFld3 = 'TESTING MY MGR DATA'
      *
     C                   Call      'STDLENPG'
     C                   Parm                    WsFld1
     C                   Parm                    WsFld2
     C                   Parm                    WsFld3
      *
     C                   Call      'VARLENPG'
     C                   Parm                    WsFld1
     C                   Parm                    WsFld2
     C                   Parm                    WsFld3
      *
     C                   Call      'OBJSIZCL'
     C                   Parm                    AnVSiz
     C                   Parm                    AnSSiz
      *
     C                   Add       1             AnRCnt
     C                   Add       1             Wrk_Idx
     C                   Write     AN00RC
     C                   EndDo
      *
     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