News Stay informed about the latest enterprise technology news and product updates.

analysrp

analysrp



     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

Dig Deeper on iSeries programming commands

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchDataCenter

Close