home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / MArb92a.zip / repub.cmd < prev    next >
OS/2 REXX Batch file  |  1996-04-04  |  681b  |  20 lines
  1. /* REXX: Select on Party (Republican) */
  2.  
  3. /*  Function     : Demonstration agent whose task is to determine
  4.                    whether the current source record contains the
  5.                    value "Republican" in the consecutive byte
  6.                    locations starting in byte 18. Uses the function
  7.                    GetData() to retrieve the entire record image.
  8.     Created      : February 10, 1996
  9.     Modifications:
  10. */
  11.  
  12. /* Return true, if "Republican" is found, false otherwise. 
  13. */
  14.     SELECT
  15.         WHEN STRIP(SUBSTR(GetData("Record"),18,11)) == "Republican"
  16.             THEN
  17.                 RETURN 1
  18.         OTHERWISE
  19.             RETURN 0
  20.     END