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/