MVSFORUMS.com A Community of and for MVS Professionals
View previous topic :: View next topic
Author
Message
neelesh Beginner Joined: 07 May 2005 Posts: 2 Topics: 1
Posted: Sat May 07, 2005 10:22 am Post subject: Query: problem when using SORT in REXX- INSUFFICIENT VIRTUAL
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
kolusu Site Admin Joined: 26 Nov 2002 Posts: 12378 Topics: 75 Location: San Jose
Posted: Mon May 09, 2005 10:35 am Post subject:
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
neelesh Beginner Joined: 07 May 2005 Posts: 2 Topics: 1
Posted: Tue May 10, 2005 1:00 am Post subject: Virtual STORAGE problem persists.
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
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