|
View previous topic :: View next topic
|
| Author |
Message |
sri_code
New User
Joined: 20 Nov 2006
Posts: 19
Location: india
|
|
|
|
I have a requirement according to that, I have to call an existing IMS cobol program from a new cobol program.
The IMS program is having DLITCBL entry point.
One important thing to remember is, i should not make any changes in the sub program (IMS cobol), even if i made any changes, the program should work independently as it is working currently.
In Simple words the program should work as sub module as well as main module.
please try to provide all possible ways to do this.
I need it urgently.... Thank you. |
|
| Back to top |
|
 |
Devzee
Active Member
Joined: 20 Jan 2007
Posts: 684
Location: Hollywood
|
|
|
|
| You write a COBOL progam and call your existing IMS Submodule, and in the CALL parameter pass all the PCB Masks and any other parameters as required by your submodule. |
|
| Back to top |
|
|
sri_code
New User
Joined: 20 Nov 2006
Posts: 19
Location: india
|
|
|
|
As i already mentioned the IMS program is having ENTRY 'DLITCBL' statement.
Can a called module have ENTRY statement. |
|
| Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19
|
|
|
|
| Does this new program have access to other segments than accessed by the submodule? If so don't forget to adjust your PSB. And, what type of program is it; batch, bmp or mpp? |
|
| Back to top |
|
|
Sandy Zimmer
Active Member
Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE
|
|
|
|
| Also think about the way you will call it - you will need to call it dynamically - not statically. |
|
| Back to top |
|
|
Sandy Zimmer
Active Member
Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE
|
|
|
|
| Oh, all STOP RUN statements should be changed to GOBACK. What is the purpose of calling the existing module? |
|
| Back to top |
|
|
Devzee
Active Member
Joined: 20 Jan 2007
Posts: 684
Location: Hollywood
|
|
|
|
| Quote: |
| As i already mentioned the IMS program is having ENTRY 'DLITCBL' statement. |
Usually I dont use this ENTRY statement, instead if we use procedure division using PCB list etc. then any program can call any module.
| Quote: |
| all STOP RUN statements |
The best practise is not to code STOP RUN in any program instead use GOBACK. |
|
| Back to top |
|
|
|
|
