home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / marb91c.zip / Age2234.cmd < prev    next >
OS/2 REXX Batch file  |  1996-03-16  |  537b  |  22 lines
  1. /* REXX: Select on Age */
  2.  
  3. /* Demonstration Agent Code.
  4. */
  5.  
  6. /* Places value of list prospect's age into
  7.    agent global variable pool using Store()
  8.    function. Retrieves value using Fetch() function.
  9.    Neither function is necessary. Just used to
  10.    illustrate function.
  11. */
  12.     CALL Store "Age",,
  13.                SUBSTR(GetData(),13,2)
  14.     SELECT
  15.         WHEN Fetch("Age") > "21" &,
  16.              SUBSTR(GetData(),13,2) < "35"
  17.             THEN
  18.                 RETURN 1
  19.         OTHERWISE
  20.             RETURN 0
  21.     END
  22.