Joined: 07 Nov 2005 Posts: 1105 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:
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.