Call a cobol program dynamically from a assembler

rssprasadin · New User Joined: 22 Aug 2008 Posts: 3 Location: Chennai

I need to call a cobol program dynamically from a assembler program with a parm of 80

Anuj D. · Posted: Fri Aug 22, 2008 6:18 pm Post subject:

Hi,

I do not speak assembler much, little did I know..

1. You can issue a CALL macro call in your Assembler program. With this method you also need to include an INCLUDE command in a link file for the module you want to link to. When the Linker processes the INCLUDE command, it does not actually include the COBOL module, but instead generates and includes a small Assembler module. When the CALL is executed at run time, the Assembler module loads and links to the COBOL module.

2. You can issue a LOAD macro call in your Assembler program. Again, the LOAD macro does not load the COBOL module directly, but instead creates and loads an Assembler module the address of which is returned by the LOAD. You then issue a BALR instruction specifying this address. The Assembler module then performs the dynamic link to the COBOL module. Note that if you use this option you must set the high bit in the last parameter address to the number of parameters being passed so that the COBOL program can determine the correct number of parameters.

rssprasadin · New User Joined: 22 Aug 2008 Posts: 3 Location: Chennai

THX Anuj. I have already used LOAD and BALR. my program is running after using LM R14,R3,SAVEAREA+4, but R1 has the parameter. after using that code my all registers are correpted except R15. please help

Robert Sample · Posted: Fri Aug 22, 2008 8:01 pm Post subject:

If you haven't reviewed the manual Writing ILC Applications SA22-7563, you need to do so. There's an entire chapter on calling COBOL programs from Assembler, with details on LE-conforming and non-LE-conforming routines.

rssprasadin · New User Joined: 22 Aug 2008 Posts: 3 Location: Chennai

i am getting the error
A storage reference exception, S0C4, occurred during execution of
program CEEVGTUN.

my code is