Hi
Hw to see the call stack to see the various levels of the programs.
Hw to see the call stack to see the various levels of the programs.
~
d GetCaller PR Extpgm('QWVRCSTK')
d 2000
d 10I 0
d 8 CONST
d 56
d 8 CONST
d 15
d Var DS 2000
d BytAvl 10I 0
d BytRtn 10I 0
d Entries 10I 0
d Offset 10I 0
d EntryCount 10I 0
d VarLen S 10I 0 Inz(%size(Var))
d ApiErr S 15
d Outdata S 30
d JobIdInf DS
d JIDQName 26 Inz('*')
d JIDIntID 16
d JIDRes3 2 Inz(*loval)
d JIDThreadInd 10I 0 Inz(1)
d JIDThread 8 Inz(*loval)
d Entry DS 256
d EntryLen 10I 0
d PgmNam 10 Overlay(Entry:25)
d PgmLib 10 Overlay(Entry:35)
d
c CallP GetCaller(Var:VarLen:'CSTK0100':JobIdInf
c :'JIDF0100':ApiErr)
c Do EntryCount
c Eval Entry = %subst(Var:Offset + 1)
c eval outdata = %subst(entry:1:30)
c outdata dsply reply 1
c Eval Offset = Offset + EntryLen
c Enddo
c Eval *InLR = *on
Comment