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
 
REXX is failing in allocating a Huge File

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

New User


Joined: 16 Apr 2007
Posts: 10
Location: gurgaon - india

PostPosted: Thu Jan 24, 2013 4:00 pm    Post subject: REXX is failing in allocating a Huge File
Reply with quote

Hi,

I am using a REXX tool creates member from input file as given below,

Let input file have following records,
. add Agent ID1
Rec1
Rec2
Rec3
.add Agent ID 2
Rec1
Rec2
.add Agent ID 3
Rec1
Rec2
Rec3
Rec4

Then it will create 3 output files as follows,
Outfile1.Agent ID1 --> will contain 3 records
Outfile2.Agent ID2 --> will contain 2 records
Outfile3.Agent ID3 --> will contain 4 records

i.e. agents IDs are suffixed in the file name.
Functioning of REXX tool is,
a) REXX tool allocates the file. Different file is allocated for different agent ID.
b) queue up 2000 record in stack
c) write the records in output file till EOF

Problem is that one of the agent ID contain lot of records around 4 Million. in that case REXX tool fails with Space abend. It is not able to allocate such huge file.

When I tested the tool in test environment It was working fine. but in production it fails.

TSO ALLOCATE statement used to allocate file is,
ALLOCATE DS('"PDSNM"') F(OUTMEM) MOD SPACE(200 100) CYLINDERS" DSORG("PS")" "LRECL("LRECL") BLOCK("BLK") RECFM("F B") DATAC("SCPHUGE") UNIT(SYSDA)"

can anybody please suggest work around for this.
Back to top
View user's profile Send private message

PeterHolland

Global Moderator


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

PostPosted: Thu Jan 24, 2013 4:08 pm    Post subject:
Reply with quote

What are your LRECL and BLK values?
Back to top
View user's profile Send private message
Gary McDowell

Active User


Joined: 15 Oct 2012
Posts: 139
Location: USA

PostPosted: Thu Jan 24, 2013 5:30 pm    Post subject:
Reply with quote

You may be able to change UNIT(SYSDA) to UNIT(SYSDA,2), or UNIT(SYSDA,3), etc. Not really sure.
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1777
Location: Bloomington, IL

PostPosted: Thu Jan 24, 2013 9:13 pm    Post subject:
Reply with quote

Note that ALLOC is a TSO command, not a Rexx statement. It would be helpful, Rahulgarg, if you told us just what abend (B37? D37? E37?) is occurring.
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2086
Location: Silicon Valley

PostPosted: Thu Jan 24, 2013 9:48 pm    Post subject: Reply to: REXX is failing in allocating a Huge File
Reply with quote

Quote:
It is not able to allocate such huge file.


I am pretty sure it is allocating the size that you requested, but you fill it up with too many records.

Part of the failure is that you do not know how to compute your space needs. How did you come up with SPACE(200 100) CYLINDERS?

Also, it looks like some quotes are missing:
Code:
ALLOCATE DS('"PDSNM"') F(OUTMEM) MOD SPACE(200 100) CYLINDERS" DSORG("PS")" "LRECL("LRECL") BLOCK("BLK") RECFM("F B") DATAC("SCPHUGE") UNIT(SYSDA)"


Are 'PS' and 'F' and 'B' really variables? Does your SYSDA pool have enough free space?
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu Jan 24, 2013 10:35 pm    Post subject:
Reply with quote

Hello,

Suggest you consider an implementation that does Not use REXX. REXX has introduced many performance issues when large volumes of data are used.

When testing there should have been full-bolume testing done - and should be in the future for this or any other "things". One of the causes of "worked in test, failed in production" is insufficient testing - which includes full-volume testing.
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 How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 5 Wed Oct 04, 2017 6:54 am
No new posts Execute JCL step based on the content... sprikitik JCL & VSAM 2 Tue Oct 03, 2017 10:03 am
This topic is locked: you cannot edit posts or make replies. PS file data should be passed as symb... d_sarlie JCL & VSAM 15 Tue Oct 03, 2017 5:18 am
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 47 Fri Sep 29, 2017 1:08 pm

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