Quantcast
Channel: IBM Mainframe Computers Forums
Viewing all articles
Browse latest Browse all 8500

DFSORT/ICETOOL :: DFSORT - Overriding default option TUNE=STOR

$
0
0
Author: Steve Ironmonger
Subject: DFSORT - Overriding default option TUNE=STOR
Posted: Tue Apr 04, 2017 3:54 pm (GMT 5.5)

Hi,

we have an issue with one of our Cobol programs that calls DFSORT, I'm not a cobol programmer so I don't really understand what the issue is....the guy whos investigating it says :-

basically they have made the main stoarage handling super ace including 64K , but our programs are address mode 24 , so because its forced to use the main storage, when there is more than 16mb of data in its internal sort file the job abend S0C3 cause it cant address over 16mb with AMODE 24

The programmer is asking if there is any way to change TUNE= default parameter ?

Code:
OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,RESET=Y,VSAMEMT=Y,DYNSPC=256         
OPTIONS: SIZE=62914560,MAXLIM=1048576,MINLIM=450560,EQUALS=Y,LIST=Y,ERET=ABEND,MSGDDN=SYSOUT               
OPTIONS: VIO=N,RESDNT=ALL ,SMF=NO   ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=N             ,ABCODE=MSG 
OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=N,COBEXIT=COB2                       
OPTIONS: TMAXLIM=62914560,ARESALL=0,ARESINV=0,OVERRGN=16384,CINV=N,CFW=Y,DSA=0                             
OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE    ,EXITCK=S,PARMDDN=DFSPARM ,FSZEST=N       
OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSIZE=MAX                       
OPTIONS: NULLOUT=RC0                                                                                       
OPTIONS: DYNAPCT=10 ,MOWRK=Y,TUNE=STOR,EXPMAX=MAX    ,EXPOLD=0      ,EXPRES=10%                           


I've tried

Code:
//DFSPARM  DD    *                       
  PARM TUNE=STOR                         
/*                                       


But I get the following :-
Code:
ICE060I 0 INVALID DFSPARM  PARAMETER                             


Any help would be appreciated.

Cheers

Steve


Viewing all articles
Browse latest Browse all 8500

Trending Articles