zos - CICS Program Stack in COBOL -


is there way of identify program name in call stack? i.e., i've got pgm x links pgm b , 1 links pgm c, , then, in c, want know program originates call (pgm x)?

you can this, take little assembler. essentially, need chase save areas , execute csvquery on return address, give name of module owns save area.

there few quirks, need watch out cobol runtime modules (prefixed igz) and/or language environment modules (prefixed cee). when cobol call, invokes runtime module calls program called.

also, not identify programs did e. c. link or e. c. xctl, cobol call invocations use os save area conventions.

example:

csvquery search=jpalpa,inaddr=<r14_from_savearea>,outepnm=<module_name_output>,mf=(e,plist) 

do repeatedly every return address on save area chain , know callers.


Comments