View previous topic :: View next topic |
Author |
Message |
enge Beginner
Joined: 12 Oct 2004 Posts: 78 Topics: 39
|
Posted: Mon Oct 18, 2004 3:38 am Post subject: how to know the calling program |
|
|
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 |
|
Back to top |
|
|
kolusu Site Admin
Joined: 26 Nov 2002 Posts: 12372 Topics: 75 Location: San Jose
|
|
Back to top |
|
|
enge Beginner
Joined: 12 Oct 2004 Posts: 78 Topics: 39
|
Posted: Tue Oct 19, 2004 5:12 am Post subject: |
|
|
kolosu,
can you give me an exemple ( code cobol) to invoke CSVQUERY macro?
thank you very much. |
|
Back to top |
|
|
kolusu Site Admin
Joined: 26 Nov 2002 Posts: 12372 Topics: 75 Location: San Jose
|
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 |
|
Back to top |
|
|
enge Beginner
Joined: 12 Oct 2004 Posts: 78 Topics: 39
|
Posted: Tue Oct 19, 2004 8:24 am Post subject: |
|
|
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. |
|
Back to top |
|
|
enge Beginner
Joined: 12 Oct 2004 Posts: 78 Topics: 39
|
Posted: Wed Nov 24, 2004 5:55 am Post subject: |
|
|
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 |
|
Back to top |
|
|
|
|