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
 
Running out of Storage

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

New User


Joined: 14 Apr 2011
Posts: 2
Location: Ireland

PostPosted: Mon Aug 11, 2014 3:03 am    Post subject: Running out of Storage
Reply with quote

I have been asked to debug an online program that keeps running out of storage and nobody can explain why. I have a suspicion that I know why but I would greatly value someone else's opinion...
Let's say Module A is the Main Module.
Module A calls Module B which has an ON ERROR Block coded (no REVERT).
My suspicion is that every time Module B is entered it allocates more storage for a new On Error block. Can someone confirm this?
Can this extra storage be released by a REVERT at the end of Module B?
If I arrange that the ON ERROR Block is executed only on the first entry to Module B, will it still be in force the next time Module B is called?
I know there is someone out there who can answer this. Very many thanks for your advice.
Back to top
View user's profile Send private message

PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2452
Location: Netherlands, Amstelveen

PostPosted: Mon Aug 11, 2014 12:50 pm    Post subject:
Reply with quote

Look at "fetch", "release", "call" usage.
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 OLDS frozen in BACKOUT status when On... lind sh IMS DB/DC 3 Tue Feb 13, 2018 7:12 pm
No new posts INSUFFICIENT VIRTUAL STORAGE!! Vignesh Sid SYNCSORT 1 Thu Dec 28, 2017 3:45 pm
No new posts Job is running with no response!!! Vignesh Sid DB2 3 Fri Oct 27, 2017 6:28 pm
No new posts sharing PLI storage Pedro PL/I & Assembler 2 Mon Oct 16, 2017 10:11 pm
No new posts Iterative use of a REXX script causin... bryonyh CLIST & REXX 4 Fri Jul 28, 2017 12:52 pm

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