Modifying the size of the data set using REXX

mosinjamadar · New User Joined: 26 Sep 2007 Posts: 42 Location: pune

Hi

I am trying to write a code in REXX which will modify the primary and secondary size of the PS file. code is getting executed successfuly but data set size is not getting changed.could you please help me out with this .since i m executing huge spufi files about 20000 insert output fie always gets space abend and every time i have to delete the data set and create a new one with more size

Following is my code which i have written by referring to REXX user guide

PULL BASEDS
PULL NEWDS
IF SYSDSN(BASEDS) = 'OK' THEN
DO
X=LISTDSI(BASEDS)
IF X = 0 THEN
CALL ALLC
ELSE
SAY 'RETURN CODE IS' X
END
ELSE
SAY DSNAME 'NOT AVAILABLE'
EXIT

ALLC:
NEWPRIMARY = 5 * SYSPRIMARY
SAY SYSPRIMARY
NEWPRIMARY = 10
"ALLOC DA("BASEDS") MOD SPACE("NEWPRIMARY SYSSECONDS")"

IF RC = 0 THEN
SAY 'SUCESSFULL ALLOCATION'
ELSE
SAY RC 'ERROR ENCOUNTERED'

expat · Posted: Sun Feb 22, 2009 2:04 pm

Why not use a large allocation to start with and use the RLSE parameter to release unused space at step completion.

The only way that the secondary space can be altered is by using the different space allocation in the job step that writes to the dataset that pre exists.

mosinjamadar · New User Joined: 26 Sep 2007 Posts: 42 Location: pune

Sir, Thanks for reply
but i wanted know is there any way I can handle it using rexx

expat · Posted: Sun Feb 22, 2009 2:28 pm

Not unless you delete and redefine the dataset or use the space override in the same step