Cobol - procedure-pointer MVS UNIX

You are viewing an archived Text-only version of the thread. To view this thread in it's original format and/or if you want to reply to this thread please [click here]

Author

procedure-pointer MVS UNIX

j?rg brehe

2005-02-08, 8:55 am

hi,

I have shortly use procedure-pointer's to call our UPROS.
However we use the Compiler-statement NODYNAM and so I must use
a the field Z-UPRO, to say the compiler, he shall link this modul while running.
It seems it's work, however I don't know why. I use the same field Z-UPRO.
It seems, the Cobol-Compiler make a Copy of my field Z-Upro for every call.

Is that right, and will the MICRO-FOCUS Compiler make the same?

Z-UPRO X(8);

UPRO-upro-name1 procedure-pointer;
UPRO-upro-name2 procedure-pointer;
...

MOVE 'upro-name1' TO Z-UPRO
SET UPRO-upro-name1 TO ENTRY Z-UPRO

MOVE 'upro-name2' TO Z-UPRO
SET UPRO-upro-name1 TO ENTRY Z-UPRO

....

In the main-prog I use

call upro-nameXXX using something

regard joerg

Sponsored Links