Call a cics pgm from natural

, ,
1

i am trying to call a cics pgm from a natural pgm. When i call the cics pgm i want to pass the program it came from so when it enters the cics pgm i can check for that pgm and exit the program. How would the parameters be set up both in natural and cics?

2

I assume that “cics pgm” is a program in a 3GL language such as Cobol that is to be called from Natural and that itself issues CICS calls, i.e. contains EXEC CICS statements.
The name of the calling Natural program can easily be passed to the 3GL program. Sample Natural program:

DEFINE DATA LOCAL
1 #PGM (A8) INIT<*PROGRAM>
END-DEFINE
CALL 'MYPROG' #PGM 
END

An extensive description of the calling conventions for 3GL programs can be found in the CALL statement documention, including several examples.