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
 

 

EXECIO error. Unable to obtain storage.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
scorp_rahul23

New User


Joined: 06 May 2008
Posts: 90
Location: Chennai

PostPosted: Tue Mar 06, 2012 10:17 am    Post subject: EXECIO error. Unable to obtain storage.
Reply with quote

I am getting Error while running below code. Not sure what more changes I need to do in this.

Code:
   
"EXECIO * DISKR MPRIN (STEM TEMPVAR. FINIS"                     
CURRENT=1                                                               
HEAP=1100                                                               
RCODE=0;                                                               
DO UNTIL RCODE <> 0                                                     
  "EXECIO "HEAP" DISKR MPRIN "CURRENT" (STEM TEMPVAR. FINIS"             
  RCODE=RC                                                               
  DO I =1 TO TEMPVAR.0                                                   
    IF SUBSTR(TEMPVAR.I,20,10) = "         " THEN                         
      DO                                                                 
        PUSH TEMPVAR.I                                                     
        "EXECIO 1 DISKW MPROUT"                                             
      END                                                                 
  END                                                           
CURRENT=CURRENT+HEAP;                                         
SAY HEAP                                                       
"EXECIO * DISKW MPROUT (STEM OUT. FINIS"                       
END                                               
EXIT 0         



Code:

 EXECIO error. Unable to obtain storage.                                       
 EXECIO error. Unable to obtain storage.                                       
 Storage not available.                                                         
     20 +++     PUSH TEMPVAR.I                                                 
 Error running FILE7, line 20: Failure in system service                       
 ***                                                                           
Back to top
View user's profile Send private message

gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Tue Mar 06, 2012 10:23 am    Post subject:
Reply with quote

Hi,

see link http://ibmmainframes.com/viewtopic.php?t=54505&highlight=storage+rexx


Gerry
Back to top
View user's profile Send private message
scorp_rahul23

New User


Joined: 06 May 2008
Posts: 90
Location: Chennai

PostPosted: Tue Mar 06, 2012 11:29 am    Post subject: Reply to: EXECIO error. Unable to obtain storage.
Reply with quote

Code:

/*** REXX */                                                       "               
DO WHILE (RETURN_CODE ¬= EOFFLAG)                                 
   "EXECIO 1 DISKR OLD"                                           
   RETURN_CODE = RC                                               
   IF RETURN_CODE = 0 THEN                                         
      DO                                                           
        PARSE PULL RECORD                                         
            QUEUE RECORD;                                         
            IF SUBSTR(RECORD,30,10) = "          " THEN           
              "EXECIO 1 DISKW MPROUT";                             
              SAY "WRITTEN"                                       
      END;                                                         
END;                                                               



I changed to this but still there is issue with this logic. Not getting that
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1756
Location: UK

PostPosted: Tue Mar 06, 2012 12:14 pm    Post subject:
Reply with quote

How many records in your input file? As the posts in the link say - do not process large files via rexx. If you are just doing a dataset copy then use a dataset copy utility - IEBGENER or your sort product.

You do not need to read onto the heap/stack. Just read into a record:
Code:

"EXECIO 1 DISKW INFILE(input_record"

This will create a variable called INPUT_RECORD1
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Tue Mar 06, 2012 1:14 pm    Post subject:
Reply with quote

From what you have coded above, a simple sort step would be far more efficient
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 -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Unable to catalog a gdg dataset resid... Shovan JCL & VSAM 7 Fri Mar 24, 2017 2:24 pm
No new posts Need help with below DB2 error ashek15 DB2 3 Sat Mar 18, 2017 5:56 am
No new posts FINDREP Syntax Error seahawk789 DFSORT/ICETOOL 4 Thu Mar 09, 2017 10:11 pm
No new posts INVOKE WEBSERVICE error danik56 CICS 11 Thu Mar 09, 2017 11:52 am
No new posts Row not found Sql error GaganGarg DB2 7 Tue Mar 07, 2017 6:29 am


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