× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. MIDRANGE-L
  3. April 2018

Re: Anybody know a good way for a program to see what's on its job's call-stack?

Here is what I came up with:

D DS
D STKENTRY 1 44A
D STKENTLEN 1 4B 0
D STKENTQPGM 25 44A

D CALLSTACK DS
D CALLSTKBYTES 1 32000A
D CALLSTKENTS 9 12B 0
D CALLSTKOFF 13 16B 0
D CLSTKLEN S 10I 0 INZ(32000)
D CLSTKFMT S 8A INZ('CSTK0100')
D CLSTKJOB DS
D 1 42A INZ('*')
D 43 44A INZ(X'0000')
D 45 48B 0 INZ(1)
D 49 56A INZ(X'0000000000000000')
D CLSTKJOBF S 8A INZ('JIDF0100')
D CLSTKERR DS
D CLSTKPROV 1 4B 0 INZ(0)
D CLSTKAVAIL 5 8B 0
C CALL 'QWVRCSTK'
C PARM CALLSTACK
C PARM CLSTKLEN
C PARM CLSTKFMT
C PARM CLSTKJOB
C PARM CLSTKJOBF
C PARM CLSTKERR
C ADD 1 CALLSTKOFF
C 1 DO CALLSTKENTS I 5 0
C EVAL STKENTRY = %SUBST(CALLSTKBYTES:CALLSTKOFF:44)
* Here, you would put your code to do something with each stack entry
C ADD STKENTLEN CALLSTKOFF
C ENDDO
C SETON LR


--
JHHL

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.