View previous topic :: View next topic
|
Author |
Message |
sandiptcs
New User
Joined: 29 Nov 2006 Posts: 19 Location: amsterdam
|
|
|
|
I have an MPP program called AB100 and another MPP program AB102 which is called from AB100
The MPP program AB102 does not execute any function (GU/ISRT/CHNG/PURG) on IMS queue but queries a IMS database
The call from AB100 is presently like this
CALL AB102 USING IO-PCB
TP-PCB
DB-PCB
AB102-I-OAREA.
Question is
1. Can I modify this call to
CALL AB102 USING
DB-PCB
AB102-I-OAREA.
since bcoz I dont use either i-o PCB or TP-PCB in AB102. AND
in AB102 , remove the definition of IO-PCB and TP-PCB from the linkage and define it in the working storage |
|
Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
|
|
|
|
Depends on the usage of the PSB. Do both programs use the same PSB? Does the PCB for AB102 contain an IO-PCB? |
|
Back to top |
|
|
sandiptcs
New User
Joined: 29 Nov 2006 Posts: 19 Location: amsterdam
|
|
|
|
I found that only the PSB for AB100 exists. No PSB exist for AB102 (i.e in the same name).
AB100 has 2 TP PCBs and DB PCBs defined in the PSB
However the program AB102 has I-O PCB mask, one TP PCB mask and one DB PCB mask defined in the linkage section.
Does that mean AB102 uses the same PSB as AB100 ? |
|
Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
|
|
|
|
As I understand it AB102 is a called module. What it takes to operate correctly is that the pointers are passed in the correct order pointing to the right databases. Just pass the pointers that are needed by AB102. If no IO-PCB needed don't pass it. Question: why would you want to modify the stuff Btw: noticed you're in Amsterdam, so am I. If you'd like to discuss the matter by phone just tell me and I'll send you a PM. |
|
Back to top |
|
|
sandiptcs
New User
Joined: 29 Nov 2006 Posts: 19 Location: amsterdam
|
|
|
|
Thanks Bitneuker, I am interested in discussing this over the phone |
|
Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
|
|
|
|
You've got PM |
|
Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
|
|
|
|
Sandip; you've got PM |
|
Back to top |
|
|
|