home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / marb91c.zip / FeMale.CMD < prev    next >
OS/2 REXX Batch file  |  1996-03-11  |  187b  |  8 lines
  1. /* REXX: Select on Gender (FeMale) */
  2.     SELECT
  3.         WHEN SUBSTR(GetData(),16,1)== "F"
  4.             THEN
  5.                 RETURN 1
  6.         OTHERWISE
  7.             RETURN 0
  8.     END