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