IBM Mainframe Forum

by **senthil** » Tue Jun 30, 2009 10:03 am

hi all,
i am stuck with the following message whnever i try to run a particular exec.

IRX0802E Storage not available.
IRX0673E EXECIO error while trying to put an element on the data stack.

what should i do to avoid this problem, i cannot increase my logon region.please provide some other better solution.

by **expat** » Tue Jun 30, 2009 12:14 pm

How big is the file that you are trying to read.
Have you considered using smaller chunks of data and processing each chunk before processing the next

Select all

"EXECIO 0 DISKR DCO (OPEN)"
EOF = 0
DO FOREVER UNTIL(EOF)
"EXECIO 25000 DISKR DCO (STEM DCOI."
IF RC <> 0 THEN EOF = 1
DO A = 1 TO DCOI.0

*** PUT PROCESSING CODE HERE ***

END
END
"EXECIO 0 DISKR DCO (CLOSE)"

by **senthil** » Tue Jun 30, 2009 2:52 pm

hi,
the method i used to clear stack after processing is

Select all

DO UNTIL QUEUED() = 0
PARSE PULL STACK ITEM
END

i have been executing that code for a couple of months.
the file which i have used as input yesterday(worked successfully) when used throws the above mentioned error today.
these are the following attributes of that file
General Data
Management class . . : MCPDSSM
Storage class . . . : SCDFAULT
Volume serial . . . : DSM161
Device type . . . . : 3390
Data class . . . . . : DEFAULT
Organization . . . : PO
Record format . . . : FB
Record length . . . : 80
Block size . . . . : 800
1st extent cylinders: 10
Secondary cylinders : 15
Data set name type : PDS

Current Allocation
Allocated cylinders : 10
Allocated extents . : 1
Maximum dir. blocks : 5

Current Utilization
Used cylinders . . : 1
Used extents . . . : 1
Used dir. blocks . : 1
Number of members . : 5

IBM Mainframe Forum

storage problem

storage problem

Re: storage problem

Re: storage problem