I'm not sure if you're looking for a UniVerse or UniData solution.
Here's what I use on Universe...
FUNCTION CALLSTACK
!
* RETURN ATTRIBUTE-DELMITED CALLSTACK
*
* 07/08/2004
* PERRY TAYLOR
!
* FORM THE STACK *
CALLSTK = DELETE(SYSTEM(9001), 1)
FOR AMC = DCOUNT(CALLSTK, @AM) TO 1 STEP -1
IF LEN(CALLSTK<AMC>) THEN
FILESPEC = CALLSTK<AMC, 2>
CALLSTK<AMC> = ''
FOR NC = LEN(FILESPEC) TO 1 STEP -1
CH = FILESPEC[NC, 1]
IF CH = '/' OR CH = '\' THEN EXIT
CALLSTK<AMC> = CH: CALLSTK<AMC>
NEXT NC
END ELSE
CALLSTK = DELETE(CALLSTK, AMC)
END
NEXT AMC
RETURN(CALLSTK)
Is that what you were looking for, Gretel?
Perry
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Susan Joslyn
Sent: Tuesday, February 13, 2007 11:19 AM
To: u2-users@listserver.u2ug.org
Subject: [U2] A trail of bread crumbs
Greetings saviors.
I'm trying to find a system variable? Or anything that can tell me, from
within a BASIC program, "How did I get here?"
Is there a trail of breadcrumbs for me to follow from within Unibasic,
does
anyone know?
Just sign me,
Gretel
p.s. I'm a digest subscriber, (so busy luring witches into the woods,
you
know) so if anyone has my answer for me, copy me directly, please!
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
CONFIDENTIALITY NOTICE: This e-mail message, including any attachments, is for
the sole use of the intended recipient(s) and may contain confidential and
privileged information. Any unauthorized review, use, disclosure or
distribution is prohibited. ZirMed, Inc. has strict policies regarding the
content of e-mail communications, specifically Protected Health Information,
any communications containing such material will be returned to the originating
party with such advisement noted. If you are not the intended recipient, please
contact the sender by reply e-mail and destroy all copies of the original
message.
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
