Hi,
I am getting the following abend when i am running the MPP program
IEA995I SYMPTOM DUMP OUTPUT
USER COMPLETION CODE=0462
can any one help me in sloving this problem.
I ma no using any MFS. i want to just ivoke the proam using the transaction even the first put skip is not getting displayed.
I am using the following PSB
PCB TYPE=TP,ALTRESP=YES,MODIFY=YES
PSBGEN LANG=PLI,PSBNAME=SN0200
END
Application program is
SN0200: PROC($PCB1,$PCB2) OPTIONS (MAIN NOEXECOPS);
PUT SKIP LIST('ENTER SN0200');
DCL ADDR BUILTIN;
DCL PLITDLI ENTRY;
DCL $PCB1 PTR;
DCL $PCB2 PTR;
DCL DBPTR PTR;
DCL 1 PCBAREA BASED(DBPTR),
2 DBDNAME CHAR(08);
DCL SIOAREA CHAR(7) INIT('KRISHNA');
DCL $SIOAREA PTR;
$SIOAREA=ADDR(SIOAREA);
DCL 1 DBPCB BASED($PCB2),
2 DBD CHAR (08),
2 LEV CHAR (02),
2 STC CHAR (02),
2 RES1 CHAR (08),
2 SENA CHAR (08),
2 RES2 CHAR (08),
2 KBA CHAR (100);
DBPTR = $PCB2;
PUT SKIP LIST('DATABASE NAME IS : ' || DBDNAME);
CALL PLITDLI(3,'ISRT',$PCB1,$SIOAREA);
END SN0200;
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
What you are trying to accomplish is to invoke an MPP and just execute a PUT SKIP. Your code suggests it will have to do a lot more later on; your PSB doesn't. It shows just an IO- and ALTERNATE-IO-PCB. You trade PCB2 as a database-pcb. Start with this and extend your code afterwards. Before any calls do a GU on the message-queue. Explanation of your user-code:
Quote:
0462
Explanation: An application program was scheduled in a message region and terminated without successfully issuing a GET UNIQUE for an input message. The application program did successfully process at least one other call.
System Action: The application program is abnormally terminated, and the PSB and the SMB are stopped.
Programmer Response: Determine the problem in the user message processing program, correct it, and resubmit the job.