MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Query: problem when using SORT in REXX- INSUFFICIENT VIRTUAL

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
neelesh
Beginner


Joined: 07 May 2005
Posts: 2
Topics: 1

PostPosted: Sat May 07, 2005 10:22 am    Post subject: Query: problem when using SORT in REXX- INSUFFICIENT VIRTUAL Reply with quote

Hi,

I am getting a problem while performimg SORT in REXX, but when i submit a job directly i am getting the expected results.

Problem is : WER153A INSUFFICIENT VIRTUAL STORAGE IN FINAL MERGE PHASE
How to resolve this.?

I am executing the REXX in batch using IKJEFT01.

The SYSOUT message is :

SYSIN :
OUTFIL FNAMES=SORTOUT,ENDREC=1,OUTREC=(3,2,BI,EDIT=(TTTTTTTT))
SUM FIELDS=NONE
SORT FIELDS=(3,2,BI,D)
WER164B 102,404K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 0 BYTES RESERVE REQUESTED, 102,380K BYTES USED
WER146B 16K BYTES OF EMERGENCY SPACE ALLOCATED
WER108I SORTIN : RECFM=F ; LRECL= 29114; CISIZE = 26624
WER110I SORTOUT : RECFM=FB ; LRECL= 8; BLKSIZE= 800
WER410B 100,356K BYTES OF VIRTUAL STORAGE AVAILABLE ABOVE THE 16MEG LINE,
WER410B 0 BYTES RESERVE REQUESTED, 98M BYTES USED
WER036B G=1769,B=1,BIAS=00
WER162B 0 PREALLOCATED SORTWORK TRACKS, 37,500 DYNAMICALLY ALLOCATED,
WER162B 0 ACQUIRED IN SECONDARY EXTENTS, 10,515 RELEASED, TOTAL OF 26,383 T
WER124I ESTIMATED PREALLOCATED/USED SORTWORK SPACE USAGE FACTOR < 0.01
WER045C END SORT PHASE
WER055I INSERT 0, DELETE 2381824
WER153A INSUFFICIENT VIRTUAL STORAGE IN FINAL MERGE PHASE
WER418I DATASPACE(S) AND/OR HIPERSPACE(S) USED
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000


My REXX program:

AIXCLUST = TEST.TSTS.PROD.AIX

DO
"ALLOC DD(SORTOUT) DS('"USERID()".TSTS.T1') MOD SP(1 1)",
"TRACKS LRECL(8) RECFM(F,B) BLKSIZE(800) UNIT(SYSDA)",
"REU"

"ALLOC DD(SORTIN) DS('"AIXCLUST"') SHR REU"
"SP(120 120) CYLINDERS" */
"ALLOC DD(SORTWK01) DUMMY"
"ALLOC DD(SYSOUT) DS(*)"
"ALLOC DD(SYSPRINT) DS(*)"
CMD.1=" SORT FIELDS=(3,2,BI,D)"
CMD.2=" SUM FIELDS=NONE"
CMD.3=" OUTFIL FNAMES=SORTOUT,ENDREC=1,OUTREC=(3,2,BI,EDIT=(TTTTTTTT))"
/* WRITE ABOVE SORT STATEMENTS INTO SYSIN FILE */
DO R=1 TO 3
PUSH CMD.R
END
"ALLOC DD(SYSIN) UNIT(SYSDA) NEW DELETE"
"EXECIO" QUEUED() "DISKW SYSIN (FINIS"
ADDRESS ISPEXEC "SELECT PGM(SORT) "
ADDRESS TSO
"FREE DSN(SYSIN SYSPRINT SORTOUT SYSOUT SORTIN SORTWK01)"
END

Thanks,
Neeelsh.
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Mon May 09, 2005 10:35 am    Post subject: Reply with quote

neelesh,

Try increasing the VSCORE parm . try this

Code:

PGM=SORT,PARM='SIZE=MAX,VSCORE=9000K'


Hope this helps...

Cheers

kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
neelesh
Beginner


Joined: 07 May 2005
Posts: 2
Topics: 1

PostPosted: Tue May 10, 2005 1:00 am    Post subject: Virtual STORAGE problem persists. Reply with quote

Kolusu,

Thanks for the response.

Tried the same, but not of much help.

Included INREC to lessen the SORT input, now the VIRTUAL STORAGE
problem is resolved.

But still would like to know, what has to be done for resolving
such problems.

Priviliged to be a part of MVSFORUMS, where knowledge is shared unrelentlessly.

Happy Moments,
Neelesh.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group