Perry,
Thanks! That's exactly what I needed at this point, because I created a
program to do the same thing in Unidata and just wasn't sure what the
structure of that system variable output was in Universe. Now I have it!
Thanks! (and to everyone else who contributed)
The coolest thing about this -- I'm using it in a file trigger so I can
trace exactly where the write that launched the trigger occurred. On
Unidata it includes the actual line number. Sweet!
Susan
Date: Tue, 13 Feb 2007 12:46:32 -0500
From: "Perry Taylor" <[EMAIL PROTECTED]>
Subject: RE: [U2] A trail of bread crumbs
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
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
