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
 

 

IMS abend code U0476

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

New User


Joined: 24 Feb 2005
Posts: 11

PostPosted: Sat Oct 04, 2008 4:29 pm    Post subject: IMS abend code U0476
Reply with quote

Hi,

I have a new IMS Cobol batch program which fails with a U0476 abend when I try to execute it. Here's how the JCL looks like

//EXEC PGM = DFSRRC00, PARM='DLI,FASC88FP, FASC88'

Here FASC88FP is my new ims program and FASC88 is an existing PSB. BAsically I am using existing PSB for this program. The PSB consists of the following PCBs - AGCYPCB, PRODPCB. My COBOL program looks as follows

PROCEDURE DIVISION.
ENTRY 'DLITCBL' USING AGCYPCB
PRODPCB.

FASC88 is also an IMS program but it contains a DBB call instead of DLI in the parameter list of DFSRRC00.

I am not sure what's going wrong. I checked the IMS Abend code manual and it I think my program doiesn't satisfy any of the causes of failure listed. If someone feels differently, please correct me.

Thanks
VK
Back to top
View user's profile Send private message

Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Sun Oct 05, 2008 1:41 am    Post subject:
Reply with quote

Check if the below link helps you..

http://www.ibmmainframes.com/viewtopic.php?t=8078&postdays=0&postorder=asc&start=15&sid=1fc6ea2f8a238941daf5c5c1d8839ec0
Back to top
View user's profile Send private message
vaibhavkolhe

New User


Joined: 24 Feb 2005
Posts: 11

PostPosted: Sun Oct 05, 2008 10:13 am    Post subject: Reply to: IMS abend code U0476
Reply with quote

Thanks for the link. But what does an IO-PCB mean?
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Sun Oct 05, 2008 10:21 am    Post subject:
Reply with quote

The IO-PCB is for communication with terminals. Any DLI-call supplies IMS with the number of parameters passed.
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Sun Oct 05, 2008 10:30 am    Post subject:
Reply with quote

Hello again,

The general format for an IMS data communications call is, for COBOL:
Code:
CALL 'CBLTDLI' USING dli-function, io-pcb or alternate-pcb, io-area, mod-name, destination name

and for PLI
Code:
CALL PLITDLI(num-parms,dli-function, io-pcb or alternate-pcb, io-area, mod-name, destination name)

The mod-name and destination-name fields are optional. The dli-function field can contain any of the following values:

The io-pcb contains logical terminal name (8 characters), 2 characters reserved, status code (2 characters), current date (4 characters packed decimal YYYYDDD), current time (4 characters packed decimal HHMMSST), sequence number (4 characters), descriptor name (8 characters binary), and user id (8 characters). The alternate-pcb contains only the first three of these fields.
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 UNIT=AFF for Easytrieve code gandikk JCL & VSAM 7 Wed Jul 12, 2017 11:42 pm
No new posts C03 ABEND sjiraga PL/I & Assembler 1 Thu Jun 01, 2017 4:51 pm
No new posts DB2 Program abending without giving a... rahulgarg14 DB2 7 Mon May 29, 2017 8:10 pm
No new posts Job failing with USER = 4093 REASON C... Pradeepa S ABENDS & Debugging 1 Wed May 17, 2017 3:35 pm
No new posts COBOL Code Parsers and Lineage Establ... balimanja COBOL Programming 2 Tue May 02, 2017 3:30 am


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