cQSTACK	;Show stack for job X ;cQSTACK;
	;
	S $ZT="ERR^"_$T(+0)
	;
	S %ST=$ST K %ZL,%ZLX
	I $ECODE="" D S(%ST,.%ZL)
	E  D S(%ST,.%ZL) S $ECODE="" D S(%ST,.%ZLX)
	;
	W !,$ZE,! ZW %ZL W ! ZW %ZLX
	;
YZ	Q
	;
S(X,Y)	N I F I=0:1:X S Y(I)=$ST(I,"PLACE")_" "_$ST(I,"MCODE")
SZ	Q
	;
ERR	D ^cA400 w !,$ZE,! Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9