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
 

 

U0476 abend in IMS Call

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
View previous topic :: :: View next topic  
Author Message
Neeraj Kumar

New User


Joined: 24 Nov 2007
Posts: 7
Location: ABC

PostPosted: Thu Aug 18, 2011 3:58 pm    Post subject: U0476 abend in IMS Call
Reply with quote

Hi,

I have a PL/I-IMS program which when I'm running is abending with U0476, in ACCESS_POLICY proc. Please see the program snippet below:

Code:

IF STATUS = 'V'                   
  THEN                                   
   DO ;                                   
       PUT SKIP EDIT('IN VOID') (A) ;       
       CALL ACCESS_POLICY;                   
   END ;                                 

---------------------------------------------
---------------------------------------------

ACCESS_POLICY: PROC;                             
                                               
    PUT SKIP EDIT('IN ACCESS_POLICY') (A) ;

    PCBPTR = P223001;                       
    SSA_A12345_Q.SSAQOP  = 'EQ';           
    SSA_A12345_Q.SSAQVAL = A00000.LPOL#0 ; 

    CALL PLITDLI(DLI4,                         
                 DLIGU,                         
                 PCBPTR,                       
                 A12345,                       
                 SSA_A12345_Q);                 
                                               
---------------------------------------------
---------------------------------------------



Though eventually I fixed it, (It was related to Call Parms), but my question is, even if the program is abending it should display, the very first statement which is just a display, the put skip statement in Spool, but it is not.

I'm new to PL/I, so looking for some explaination here.

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

Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7315

PostPosted: Thu Aug 18, 2011 4:08 pm    Post subject: Reply to: U0476 abend in IMS Call
Reply with quote

Please look at the topic underneath yours in this forum.
Back to top
View user's profile Send private message
Soumik Das

New User


Joined: 06 Aug 2011
Posts: 25
Location: India

PostPosted: Tue Aug 23, 2011 3:43 pm    Post subject: Reply to: U0476 abend in IMS Call
Reply with quote

Hey Bill..its coming above not underneath... icon_eek.gif ..don't know why

...and so here it is...

your problem has more to do with checkpoints....just add a the line

Code:
CLOSE FILE(SYSPRINT);


at the end of all the PUT SKIP EDITs and you should get all of your diagnostics printed.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7315

PostPosted: Tue Aug 23, 2011 3:51 pm    Post subject: Reply to: U0476 abend in IMS Call
Reply with quote

Yes, I should have linked to it (but no time at that time for niceties for people who can't be bothered to look). When there is a new post, the order can change. Still possible to find easily...

It will look weird for anyone reading the stuff later, so go with Soumik's link. Thanks Soumik.
Back to top
View user's profile Send private message
Soumik Das

New User


Joined: 06 Aug 2011
Posts: 25
Location: India

PostPosted: Tue Aug 23, 2011 3:57 pm    Post subject: Reply to: U0476 abend in IMS Call
Reply with quote

Quote:
(but no time at that time for niceties for people who can't be bothered to look).


Yup...but my boss is off sick!!... icon_fU.gif ..so I guess I can play the samaritan for a while....
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1824
Location: UK

PostPosted: Tue Aug 23, 2011 4:02 pm    Post subject:
Reply with quote

In PL/1 you should never open/close SYSPRINT (although you can). SYSPRINT i a system file and can be written to outside of your PL/1 program by the PL/1 environment (this is where your PL/1 program is executed).
Back to top
View user's profile Send private message
Soumik Das

New User


Joined: 06 Aug 2011
Posts: 25
Location: India

PostPosted: Tue Aug 23, 2011 4:18 pm    Post subject:
Reply with quote

Nic Clouston wrote:
In PL/1 you should never open/close SYSPRINT (although you can).


Yeah you're right....but judging by his (Neeraj's) PUT statements..it does not look like those diagnostic lines will ever be willingy put to a production stage. It looks more like a test env thingy...and you can get away with almost anything in test....

well as much as I know it has mostly to with the write buffers..and a CLOSE FILE does flush the buffer.....to avoid this scenario we always put our diagnostics out a another file and give it a DDNAME like DIAGPLI (with RECFM=FBA,LRECL=133) etc and direct it to a SYSOUT rather than a DSNAME...it is just adding 2 or 3 more LOCs but it allows us to let the SYSPRINT be undisturbed....

I also wrote an assembler routine a few years ago which used to do in PLI something similar to the fflush function in C. Unfortunately I lost it...

however if you have any better solution..I am all ears
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1824
Location: UK

PostPosted: Wed Aug 24, 2011 12:40 am    Post subject:
Reply with quote

Much simpler to just write your put skip and then do an R in the line command area. On failure it is the last put skip that does not reach sysout so the first will. Yes, you can have loads of duplicate put skips but you only need to do it at the point of failure so only a few put skips (or one) would be duplicated.
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 -> PL/I & Assembler All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts C03 ABEND sjiraga PL/I & Assembler 1 Thu Jun 01, 2017 4:51 pm
No new posts Need help in REXX CALL program Raje1002 CLIST & REXX 5 Wed Apr 19, 2017 11:18 pm
No new posts Need help in triggering a PL1 module ... Varungv99 IMS DB/DC 0 Fri Apr 07, 2017 10:01 am
No new posts IMS region inactive - User abend code... gthmrj IMS DB/DC 5 Tue Mar 07, 2017 12:29 pm
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm


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