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/

Reply via email to