home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / trl14db.zip / TRLPRG.EXE / EMPTY.PRG < prev    next >
Text File  |  1990-10-22  |  604b  |  26 lines
  1. ***********
  2. * EMPTY.PRG
  3. * by Tom Rettig and Leonard Zerman
  4. * Placed in the Public Domain by Tom Rettig Associates, 10/22/1990.
  5. *
  6. * SYNTAX: DO EMPTY WITH <exp> 
  7. * RETURN: <expL> true if <exp> has empty value, otherwise false
  8. ***********
  9. PARAMETERS par1 
  10. IF TYPE( "par1" ) = "D"
  11.    DO DTOS WITH par1
  12.    CALL Trpass WITH tr_retc
  13.    CALL Trexe  WITH "D"
  14. ELSE
  15.    CALL Trpass WITH par1
  16.    CALL Trexe  WITH TYPE("par1")
  17. ENDIF
  18. CALL Trexe WITH "EMPTY"
  19. CALL Trexe   WITH "TRRETCLEN"
  20. IF fox
  21.    PRIVATE tr_temp
  22.    tr_temp = SUBSTR(tr_retc,1,tr_retn)
  23.    RETURN (tr_temp)
  24. ENDIF
  25. * eof empty * 
  26.