home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a067 / 1.img / GRUMP501.EXE / GGETNO.PRG < prev    next >
Encoding:
Text File  |  1991-05-29  |  378 b   |  17 lines
  1. /*
  2.     Function: GGetNo()
  3.     Purpose:  Return number of particular GET
  4.     Author:   Greg Lief
  5.     Dialect:  Clipper 5.x
  6.     Copyright (c) 1991 Greg Lief
  7. */
  8. #include "grump.ch"
  9.  
  10. function ggetno(target)
  11. local ret_val := ''
  12. memvar getlist
  13. default target to getactive():name
  14. return ascan(getlist, { | get | upper(get:name) == upper(target) } )
  15.  
  16. * eof GGETNAME.PRG
  17.