1. /// Description: 获取堆栈信息
    2. ClassMethod GetStackInfo()
    3. {
    4.         s cnt = 0
    5.         s stackInfo = ""
    6.         s levelDeep = $STACK(-1)
    7.         for loop = 0 : 1 : levelDeep { 
    8.       s tp = $STACK(loop)
    9.       continue:(tp = "")||(tp = "XECUTE")
    10.       s cp = $STACK(loop, "PLACE")
    11.       continue:(cp = "")
    12.       s stackInfo = $s(stackInfo = "" : cp , 1 : stackInfo _ "; " _ cp)
    13.     }
    14.     q $g(stackInfo)
    15. }

    http://localhost:57772/csp/docbook/DocBook.UI.Page.cls?KEY=RCOS_fstack