MVSFORUMS.com

[gotluru]

Hi,

How i am going to know which program is called?

My Environmnet is: Cobol/MVS

Thanks,
Prasad

[kolusu]

Gotluru,

There are 2 macro's which will give information about the load modules.

1.CSVINFO -- Obtain Information about Loaded Modules

2.CSVQUERY -- Contents Supervisor Query Service

The macro CSVQUERY will tell you what module (not CSECT) is at a particular address. If the program you are using uses standard linkage conventions, then you can look at Reg 14 on entry (or from your save area) and pass that address to CSVQUERY. You'll get the load module name and starting address. Then you subtract that from your R14 and you get an offset.If standard linkage conventions are in use, the R12 on entry might point to the module name, depending on the compiler used to compile the caller.

Check this link for Retrieving Information About Loaded Modules

To make things simpler, pass the called program name to the calling program as a variable.

Hope this helps...

cheers

kolusu

[gotluru]

Hi Kolusu,

Thanks for the information.

How to get return code's to be displayed at runtime? Can you help me with example..

Thanks,
Prasad

[hari_uss]

Gotluru,

Check this link..

Return Code

Implicit declaration for Return code is PIC S9(04) COMP. I think you can find a way to display that.
-----
Hari.

[gotluru]

Hi Hari,

Thanks for the help.

I am looking in other way. I need program name from where the call is came from?

Thanks,
Prasad

[hari_uss]

Hi Prasad,

I dont know any built-in function to get that info. I would pass the name of the calling program as a parameter through the linkage

Or,

Define an EXTERNAL variable WS-CALLING-PGM in all your calling programs and in the called program.

-----
Hari.

[gotluru]

Hi Hari,

Thanks for immediate reply..

[hari_uss]

It is different from passing parameters.

Program-1.

[gotluru]

Hi Hari,

Thanks for your help. External clause is working fine and easier than passing parms.

Thanks,
Prasad

[Dibakar]

Hi,

I need to verify if a calling program is authorised to call the called program or not. And to prevent unauthorised program from getting access by pretending to be someone else, I don't trust the program name passed by the calling program. So I need a way to find the name of calling program. This should work in any environment (CICS/TSO) and calling method (Call/Link/XCTL/Start).


After going through all the posts on this subject and available material on the web I don't find any example that can get calling program name irrespective of the calling method.

Only method that doesn't seem to care about the calling methods is to use PPA1. Please let me know if that is correct and the right approach. And if someone can provide an example, preferably in COBOL. Another question, will this work if I have a static call?
_________________
Regards,
Diba

[papadi]

Any restrictions should be handled by external security. . . (racf, acf2, tss).

No program needs (or should be permitted) to do this. . .

fwiw.
_________________
All the best,

di

[Dibakar]

[papadi]

For fun, let us assume i want to "break in". Let us also assume that a program named GOODGUY is allowed to call this "restricted" module.

If i create my own code that does something "bad" and name it GOODGUY, how will this restricted module know that my GOODGUY module should be denied. . .?
_________________
All the best,

di

[Dibakar]

This program will never get promoted to production library as a simple comparison with the old GOODGUY would reveal that it is doing something fishy. Without this manual check any security tool would fail in this case.
_________________
Regards,
Diba

[nevilh]