Blue Ridge Software LLC
  Encryption
Services
  Webmaster
Services
  Programming   Software   About Us

Program Snippets

  RPG IV - CHAIN using ~percent~Found (Add To Favorites)
C     ECWSTR        CHAIN     STRMSTLA                            
C                   If        NOT %Found(STRMSTLA)                
C                   Eval      MSG = 'Store Closed or Non-existant'
C                   Eval      MSGDSC = 'ECWSTR/NF in STRMSTA'     
C                   EXSR      WRITE_ERROR                         
C                   Endif  
© 2013- Blue Ridge Software LLC