home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / trl14db.zip / TRLPRG.EXE / RETC.PRG < prev    next >
Text File  |  1990-10-22  |  461b  |  19 lines
  1. ***********
  2. * RETC.PRG
  3. * by Tom Rettig
  4. * Placed in the Public Domain by Tom Rettig Associates, 10/22/1990.
  5. *
  6. * SYNTAX: DO RETC WITH <expC> 
  7. * RETURN: Unchanged <expC> in tr_retc.
  8. ***********
  9. PARAMETERS par1 
  10. CALL trpass WITH par1         && put date string in tr_retc through library.
  11. CALL trexe WITH "retc"
  12. CALL Trexe   WITH "TRRETCLEN"
  13. IF fox
  14.    PRIVATE tr_temp
  15.    tr_temp = SUBSTR(tr_retc,1,tr_retn)
  16.    RETURN (tr_temp)
  17. ENDIF
  18. * eof dtos * 
  19.