# Call a cics pgm from natural **URL:** \ **Category:** Forum\ **Tags:** Adabas-Natural, Natural, Natural-on-Mainframes\ **Created:** [July 12, 2005, 12:21am UTC](https://techcommunity.softwareag.com/t/call-a-cics-pgm-from-natural/60085 "2005-07-12T00:21:14Z")\ **Posts on this page:** 3\ **Page:** 1
**Author:** ![mikem](https://avatars.discourse-cdn.com/v4/letter/m/41988e/32.png) [@mikem](https://techcommunity.softwareag.com/u/mikem)\ **Post date:** [July 12, 2005, 12:21am UTC](https://techcommunity.softwareag.com/t/call-a-cics-pgm-from-natural/60085/1 "2005-07-12T00:21:14Z")
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? ---
**Author:** ![anon29934956](https://avatars.discourse-cdn.com/v4/letter/a/ee7513/32.png) [@anon29934956](https://techcommunity.softwareag.com/u/anon29934956)\ **Post date:** [October 6, 2005, 1:50pm UTC](https://techcommunity.softwareag.com/t/call-a-cics-pgm-from-natural/60085/2 "2005-10-06T13:50:43Z")
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: ```auto 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. ---
**Author:** ![system](https://global.discourse-cdn.com/techcommunity/original/3X/c/d/cd19967bb605d28a72d77eb83a1cae22f3df2eb8.svg) [@system](https://techcommunity.softwareag.com/u/system)\ **Post date:** [April 2, 2021, 2:40pm UTC](https://techcommunity.softwareag.com/t/call-a-cics-pgm-from-natural/60085/3 "2021-04-02T14:40:13Z")