Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
*... assuming PARAMETERS statement looks like this:
*... PARAMETERS merror, msg, mess1, mlineno
IF merror = 1
STORE SUBSTR(msg, 7, AT("'", SUBSTR(msg, 7)) -5) + '.fdb' TO fdbTable
STORE juststem(justfname(fdbTable)) TO cAlias
USE (fdbTable) ALIAS (cAlias)
ENDIF
*!*********************************************************************
*!
*! Function: JUSTSTEM()
*!
*! Called by: GENXTAB.PRG
*!
*!*********************************************************************
FUNCTION juststem
* Return just the stem name from "filname"
PARAMETERS filname
PRIVATE ALL
IF RAT('\',m.filname) > 0
m.filname = SUBSTR(m.filname,RAT('\',m.filname)+1,255)
ENDIF
IF AT(':',m.filname) > 0
m.filname = SUBSTR(m.filname,AT(':',m.filname)+1,255)
ENDIF
IF AT('.',m.filname) > 0
m.filname = SUBSTR(m.filname,1,AT('.',m.filname)-1)
ENDIF
RETURN ALLTRIM(UPPER(m.filname))