Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

what is abend USER COMPLETION CODE=0462 in MPP progra

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
View previous topic :: :: View next topic  
Author Message
krishna_mf

New User


Joined: 31 Jan 2007
Posts: 56
Location: banglore

PostPosted: Tue Feb 13, 2007 12:16 pm    Post subject: what is abend USER COMPLETION CODE=0462 in MPP progra
Reply with quote

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;
Back to top
View user's profile Send private message

Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Tue Feb 13, 2007 4:23 pm    Post subject:
Reply with quote

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.



Program:

Code:
TPNSVER:  PROC(PTERM) OPTIONS (MAIN);   
DCL       PTERM PTR;                     
DCL 1 PCBTERM  BASED(PTERM),             
      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);         

       PUT SKIP LIST('THIS IS A USELESS PROGRAM');   
       PUT SKIP LIST('I SHOULD FIRST DO THE GU FOR THE MESSAGE');   
END  TPNSVER;                           


PSB:
Code:
PCB   TYPE=TP

In normal cases it's enough to define PCB's for the databases; the IO-PCB you get for free when the stuff is defined MPP.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to Capture the Max return code of... anilkumar922 All Other Mainframe Topics 0 Thu Jan 12, 2017 12:02 pm
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm
No new posts PL/I code tuning/Performance improvement Virendra Shambharkar PL/I & Assembler 4 Mon Dec 05, 2016 11:57 am
No new posts What is the code in CLIST to enable t... jackzhang75 CLIST & REXX 1 Fri Dec 02, 2016 3:02 am
No new posts IDEAL - Code Retrieval yugendran CA Products 0 Fri Nov 25, 2016 3:27 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us