Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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 User access certification In Mainfram... Virendra Shambharkar All Other Mainframe Topics 4 Tue Oct 03, 2017 12:32 pm
No new posts Speed-up/reduce CPU use of code prino PL/I & Assembler 0 Tue Sep 26, 2017 12:05 am
This topic is locked: you cannot edit posts or make replies. how to code for GDG in Rexx cvnlynn CLIST & REXX 13 Wed Aug 09, 2017 9:13 pm
This topic is locked: you cannot edit posts or make replies. rexx code to create a ps file Bharath Vikraman CLIST & REXX 4 Mon Aug 07, 2017 10:30 am
No new posts I want to retire TRX and use only Rex... Abhinav Sharma CLIST & REXX 6 Sat Jul 29, 2017 2:53 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us