Invoking MPP program from another MPP program

Sanjoy · New User Joined: 19 Oct 2005 Posts: 19

How one MPP pl1 program can invoke another MPP pl1 program?

Bitneuker · Posted: Wed Oct 18, 2006 6:27 pm

Program-to-program switch. Either use ALTPCB or change the transaction code in your SPA.

Bitneuker · Posted: Wed Oct 18, 2006 7:47 pm

Bitneuker · Posted: Wed Oct 18, 2006 7:50 pm

Example of change-call:

DCL ALT_TRX CHAR(8);

ALT_TRX = 'prog to change to';
PARMCT = 3;
CALL PLITDLI (PARMCT,'CHNG',PALTERN,ALT_TRX);
CALL PLITDLI (PARMCT,'ISRT',PALTERN,IOAREA);

Sanjoy · New User Joined: 19 Oct 2005 Posts: 19

Thank you Bitneuker.

Can you please explian it ,I mean little bit more technical details?

Actually I get that CHNG command will change the Alternate PCB PALTERN and of transaction ALT_TRX.Am I right.
But in the ISRT call which IMS message do we need to put?

Bitneuker · Posted: Tue Oct 24, 2006 3:01 pm

Hi,

this is the complete piece. This message is sent to MPP-prog PBE22. PBE22 uses transaction NPBE22 which is started in the CHNG-call via the ALTPCB. The PBE22 will act on the content of the message (DATA).

DCL 1 IOAREA CHAR(1924);
DCL 1 MID_E0 UNAL BASED(ADDR(IOAREA)),
3 LL BIN FIXED(31),
3 ZZ BIT(16),
3 TC CHAR(09),
3 PFX CHAR(08),
3 CURSOR CHAR(04),
3 PAWO CHAR(08),
3 SYSSPA,
5 SPLITKZ CHAR(1),
5 SECOK CHAR(1),
5 MODUS CHAR(8),
5 PAGE# CHAR(3),
5 MASKE CHAR(5),
5 TCOK CHAR(1),
3 SPA CHAR(50),
3 FEHLER CHAR(79),
3 MASKE1 CHAR(05),
3 MASKE2 CHAR(05),
3 FMASKE CHAR(05),
3 FFUNKT CHAR(01),
3 DATA CHAR(1725);

MID_E0 = '';
DATA = 'blablabla info for PBE22';
LL = 294;
MASKE1 = 'QA';
FMASKE = 'PBE22';
SYSSPA.MASKE = 'QA';
FFUNKT = 'A';
TC = 'PBE22';

DCL ALT_TRX CHAR(8);

ALT_TRX = 'NPBE22';
PARMCT = 3;
CALL PLITDLI (PARMCT,'CHNG',PALTERN,ALT_TRX);
CALL PLITDLI (PARMCT,'ISRT',PALTERN,IOAREA);

Bitneuker · Posted: Tue Oct 24, 2006 3:43 pm

Sorry for the typo-error. In the message TC is filled with 'NPBE22'. not with 'PBE22'. Thus IMS knows the message is for TRX NPBE22.

Sanjoy · New User Joined: 19 Oct 2005 Posts: 19

Thnaks Bitneuker.

It's working.

But I have got one more question.

After 1st run of the 2nd program some how it is getting stopped. What may be the possible reasons?

Bitneuker · Posted: Thu Oct 26, 2006 2:50 pm

Sanjoy · New User Joined: 19 Oct 2005 Posts: 19

No...Actually MPP2 is getting stopped after 1st run.

In Ims region it is showing

TRAN CLS ENQCT QCT LCT PLCT CP NP LP SEGSZ SEGNO PARLM RC
SN02 12 0 0 10 5 5 5 7 0 1000 4 0
PSBNAME: SN0200
STATUS: BAL( 2),STOP

So subsequent transaction of MMP1 can't invoke MPP2. My Qs is why MPP2 is getting stopped after 1st run?

Bitneuker · Posted: Thu Oct 26, 2006 3:25 pm

Was this MPP-2 started meaning PGM and TRAN are up? Was the region stopped? Please check by typing subsequently:

/DIS REG A.
does the region in which the MPP-2 should run show? If not check SDSF whether the region abended. If it's not active submit the job from SDSF.

/DIS TRAN transactioncode
does is say STOPPED then type /STA TRAN transactioncode

/DIS PROG programname MPP-2
does it say STOPPED then type /STA PROG programname MPP-2

Sanjoy · New User Joined: 19 Oct 2005 Posts: 19

Thanks Bitneuker.

Actually my problem is After 1st invokation of the MPP-2 it is getting stopped somehow. So rest of the invokation by MPP-1 is getting failed.

Now content of MPP2 is only a display.

Can you tell me when a transaction is stopped by IMS? Then I think i can get the problem.

Bitneuker · Posted: Thu Oct 26, 2006 6:52 pm

I assume you invoked MPP-1 with a transactioncode. So it starts running. After it completes the CHNG- and ISRT-call MPP-2 is started. What happens next. Normally MPP-2 reads the messagequeue to retrieve the message MPP-1 has sent. Did MPP-2 report the QC statuscode telling there are no more messages? I have no clue what this MPP-2 is supposed to do next. Please tell me what it does, or should do? Just telling it stopped somehow brings no light. We need the reason and therefore more information.

You tell me it shows a display which you must have found out by looking in the SDSF (A) showing the regionjob. There you should find if and for what reason MPP-2 was stopped.

If this kind of troubleshooting takes too long by posts I'd better send you my phonenumber in a PM (just did so). Please consider our working hours at Greenwich Time (here the time is 15.19 o'clock now).

Bitneuker · Posted: Thu Oct 26, 2006 7:17 pm

A transaction may be stopped by IMS when a (programmed) failure is detected. The reason is shown in the regionjob which can be looked at via SDSF. Together with the transaction also the program is stopped. See prior post.

Sanjoy · New User Joined: 19 Oct 2005 Posts: 19

Actually my intention is MPP1 should only invoke MPP2. No IMS mesage sending is required.
What I did in my 1st program:
MPP1 : Proc ($LTM,$PGM) Options(Main);
DCL LTM ptr;
%INCLUDE TPPCB; /* IMS I/O PCB MASK*/
Dcl WF CHAR(21000) BASED;

dcl 1 SqlCa,
%include SQLSTATE;

dcl $PGM ptr;
dcl PGM ptr;
PGM = $PGM;
dcl SN_TRAN char(8) init('');
DCL 1 IMS_MSG,
%INCLUDE XXXXXX;;

SN_TRAN = 'SN02';
Put skip list('calling PLITDLI for change ALP');
CALL PLITDLI(C3,'CHNG',PGM,SN_TRAN); /* Change Alternate PCB */
put skip list('status code from plitdli',substr(pgm->wf,11,2));
Put skip list('calling PLITDLI for change ALP');
CALL PLITDLI(C3,'ISRT',PGM,addr(Ims_msg)); /* Insert Message */
put skip list('status code from plitdli',substr(pgm->wf,11,2));

In the 2nd prog:

MPP2:Proc($ltm) options(main);

DCL LTM ptr;
%INCLUDE TPPCB; /* IMS I/O PCB MASK*/

Put skip list(XXXXXXXXXXXXXXXXXX);

End mpp2;

It seems there is some problem in the MPP2. Is it manditory to receive the message in MPP2? and also If i don't require to send any message what should be the format of the IMS-msg?

Thanks a lot for your help.

Bitneuker · Posted: Thu Oct 26, 2006 7:29 pm

Looks like you forgot the ALTPCB in proc (xx,yy) options main. One of our programs making CHNG-calls:

TPQAVER: PROC (QPIOTRM,QPALTERN,Q
QPNLVERT,QPNLBUEN,Q
QPNLZBNE,QPNLHIDB,Q
QPNLVVER)
OPTIONS(MAIN);

In the corresponding PSB we coded the iopcb is modifyable:

PCB TYPE=TP,MODIFY=YES

Adjust and try again

Sanjoy · New User Joined: 19 Oct 2005 Posts: 19

Also In the Job I am only getting the display XXXXXXXXXXXXXXX

Nothing else

Sanjoy · New User Joined: 19 Oct 2005 Posts: 19

Yes it is done with ALTPCB. See $PGM pointer in the code.

DO i need to mention it in MPP2 as well.

Bitneuker · Posted: Thu Oct 26, 2006 7:40 pm

When I look at MPP-2 it's all it does.......makes a display and ends just like you programmed. If you want MPP-2 to return control to MPP-1 again you should do in MPP-2 what you did in MPP-1: CHNG control to MPP-1.

Btw: a regulair MPP keeps reading messages to process and communicate with terminals. The way this thing looks it's like a subroutine. Don't see the advantage of this exept if you wanted a proof of concept.

Bitneuker · Posted: Thu Oct 26, 2006 7:46 pm

IMS-message:

DCL 1 IOAREA CHAR(xxx);
DCL 1 MID_E0 UNAL BASED(ADDR(IOAREA)),
3 LL BIN FIXED(31),
3 ZZ BIT(16),
3 TC CHAR(09),
3 your info for MPP2 CHAR(????),

MID_E0 = '';
your info for MPP2 = 'blablabla info for PBE22';
LL = ???;
TC = 'transaction';

Sanjoy · New User Joined: 19 Oct 2005 Posts: 19

Actually All I want MPP2 program should stop after doing some funtion but MPP2 transaction should not be stopped so that it will be available when MPP1 requires to invoke it.

Bitneuker · Posted: Thu Oct 26, 2006 7:51 pm

Bitneuker · Posted: Thu Oct 26, 2006 7:54 pm

Bitneuker · Posted: Thu Oct 26, 2006 8:05 pm

And did you check the region with SDSF (JESMSGLG)?

Sanjoy · New User Joined: 19 Oct 2005 Posts: 19

Yes and it is showing

TRAN CLS ENQCT QCT LCT PLCT CP NP LP SEGSZ SEGNO PARLM RC
SN02 149 20 0 10 5 5 5 7 0 1000 4 0
PSBNAME: SN0200
STATUS: BAL( 2),STOP
*2006299/164458*