getting USER COMPLETION CODE=0260 in MPP program

krishna_mf · New User Joined: 31 Jan 2007 Posts: 56 Location: banglore

Hi,
i am getting the a USER COMPLETION CODE=0260
while i ma running the below MPP program. can any one help me
I am using the following PSB
PCB TYPE=TP,ALTRESP=YES,MODIFY=YES
PSBGEN LANG=PLI,PSBNAME=SN0200
END

Application program
SN0200: PROC($LTM,$PCB1) OPTIONS (MAIN NOEXECOPS);
DCL ADDR BUILTIN;
DCL PLITDLI ENTRY;
DCL $PCB1 PTR;
DCL $LTM PTR;
PUT SKIP LIST('BEFORE CCCCC');
DCL 1 PCBTERM BASED($LTM),
2 QLTNAM CHAR(8),
2 QLTRES CHAR(2),
2 QLTSTC CHAR(2),
2 QLTDAT,
3 QLTJDT FIXED DEC (7),
3 QLTTIM FIXED DEC (7),
3 QLTSEQ FIXED BIN (31),
3 QLTFMT CHAR (8);

DCL SIOAREA CHAR(8) INIT('KRIS') ;
DCL $SIOAREA PTR;
$SIOAREA=ADDR(SIOAREA);
CALL PLITDLI(3,'CHNG',$PCB1,'SN020');
CALL PLITDLI(3,'ISRT',$PCB1,$SIOAREA);
END SN0200;

Bitneuker · Posted: Wed Feb 14, 2007 3:43 pm

I have to investigate the 0260 but if you execute a DLI-call in an MPP you should start the application with a GU on the message queue. Did your first put skip appear now? And where is your alternate-io-pcb? The io-pcb is generated automatically for an MPP and is not defined in the psb, just the db-pcb's; modify=yes in the tp-psb means also an alternate-io-pcb is needed; you'll have to code it in the pcb-list of your mainproc. You used my example but extended it with a DLI-call: program-to-program switch :roll:but I told to start with the simple thing and afterwards extend it.

krishna_mf · New User Joined: 31 Jan 2007 Posts: 56 Location: banglore

thanks Bitneuker

i want to just test a simple IMS MPP program
can you please tell what call PLITDLI call can i do in the program

Bitneuker · Posted: Wed Feb 14, 2007 7:23 pm

The error code explains the functionscode (CHNG) is corrupt. Replace the count (3) by a fixed bin (31) field. Follow the second link in my signature and at LookAt search for 0206. In fact use this option whenever you've got an error. Then your message look like a mess. An IMS message has a certain structure. Below you find the code of one of our applications performing a program-to-program swich via a CHNG-call. The only fields you fill are length, transaction code to swich to and the data you want to transfer to the other application.

krishna_mf · New User Joined: 31 Jan 2007 Posts: 56 Location: banglore

hi,
when i am running the below MPP program .
For GU call i am getting return code AH .
for INSRT call i am getting QH.
can you please help me

$LTM is the logical terminal PCB

DCL 1 PCBTERM BASED($LTM),
2 QLTNAM CHAR(8),
2 QLTRES CHAR(2),
2 QLTSTC CHAR(2),
2 QLTDAT,
3 QLTJDT FIXED DEC (7),
3 QLTTIM FIXED DEC (7),
3 QLTSEQ FIXED BIN (31),
3 QLTFMT CHAR (8);

DCL 1 IOAREA,
3 LL BIN FIXED(31),
3 ZZ CHAR(2) INIT('00'X),
3 TC CHAR(09) ;

CALL PLITDLI(N3,GUC,$LTM,SIOAREA);
PUT SKIP LIST('STATUS CODE FOR GU',$LTM->QLTSTC);
CALL PLITDLI (N3,ISRTC,$LTM,IOAREA);
PUT SKIP LIST('STATUS CODE FOR LTM ISRT',$LTM->QLTSTC);

Bitneuker · Posted: Wed Feb 14, 2007 8:17 pm

Please don't post in different topics about the same item. I answered you there. Investigate your calls.