MVSFORUMS.com

enge · Beginner Joined: 12 Oct 2004 Posts: 78 Topics: 39

hello,
i need to know in a var pic x(8 ) ,internal in my routine cobol, the program or routine that called me.

- the calling program is tp or batch.
- no pass in linkage section

is there a way?
thanks

kolusu · Posted: Mon Oct 18, 2004 7:49 am Post subject:

Enge,

Please search before posting. Check this link which disucusses the same issue.

http://www.mvsforums.com/helpboards/viewtopic.php?t=145&highlight=External

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

enge · Beginner Joined: 12 Oct 2004 Posts: 78 Topics: 39

kolosu,
can you give me an exemple ( code cobol) to invoke CSVQUERY macro?
thank you very much.

kolusu · Posted: Tue Oct 19, 2004 6:54 am Post subject:

Enge,

Why do you want to take a tough route when an easier solution is readily avaialable? Did you read Hari_uss post in the above link?

Kolusu

Btw my name is spelled as KOLUSU , not kolosu
_________________
Kolusu
www.linkedin.com/in/kolusu

enge · Beginner Joined: 12 Oct 2004 Posts: 78 Topics: 39

well,
i have a routine that is invoked from 2 distinct programs (pgmA, pgmB).The programs are develop by 2 distinct programmers .
if the first programmer move 'pgmA' in linkage section it's all ok, but if the second programmer move 'pgmA' of pgmB in linkage, i don't want! j must discovered this!
j'd like to want wha call me.
thank you very much.

enge · Beginner Joined: 12 Oct 2004 Posts: 78 Topics: 39

eureka!
[code:1:aabe9d3dac]
PRINT NOGEN
**********************************************************************
*
* A0RBCALL - RETURNS THE NAME OF THE CALLER PROGRAM
*
* AUTHOR : FRIENDS
* DATE : NOVEMBRE 2004
*
*
**********************************************************************
*
* INVOKING SYNTAX IN COBOL:
*
* CALL A0RBCALL-NOME USING PROGRAM-NAME RETCODE
*
* WHERE:
*
* 01 A0RBCALL-NAME PIC X(8) VALUE 'A0RBCALL'.
*-----------
* 01 PROGRAM-NAME PIC X(7).
*
* IS THE NAME OF THE CALLER PROGRAM EXCEPT AT THE FIRST LEVEL
* WHERE THIS PARAMETER IS ALL BLANKS
*-----------
* 01 RETCODE PIC S9(8) COMP.
*
* RETURN CODES FROM THE MACRO CSVQUERY
*
* ***[ NOTE ]*******************************************************
*
* * USE ONLY BETWEEN DYNAMIC CALLS IN BATCH MODE
* * FUNZIONA SOLO NEL FORMATO BATCH.
* nel formato attuale riesco a rintracciare il programma cobol "A"
* chiamante al 2