IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Setting up dynalloc option for Sort jcl having join keys.


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
magesh23586

Active User


Joined: 06 Jul 2009
Posts: 213
Location: Chennai

PostPosted: Wed May 29, 2013 12:22 pm
Reply with quote

Hi,

Following jcl created, but its failed due to sort workspace abend,
the SORTJNF1 contains 27K cyls .
the SORTJNF2 contacting 5 cyls of records.
Though I gave the dynalloc (,255) in jcl, it takes default dynaloc(,4),
what should I do to have dynalloc (,255) in the following jcl

Code:

//ZZZZZZ JOB (TEST,T),T,                                             
//   CLASS=X,MSGCLASS=X,NOTIFY=ZZZZZ                                 
//S1   EXEC  PGM=SORT                                                   
//SYSOUT DD SYSOUT=*                                                   
//SORTJNF1 DD DSN=ZZZZ.TTTT.EEEEE.G5886V00.MAY27,DISP=SHR     
//SORTJNF2 DD DSN=XXXX.INPUT,DISP=SHR                         
//SORTOUT DD DSN=ZZZZZ.OUTPUT,DISP=OLD                       
//SYSIN DD *                                                           
* CONTROL STATEMENTS FOR JOINKEYS APPLICATION                           
  JOINKEYS FILE=F1,FIELDS=(2,11,A)                                     
  JOINKEYS FILE=F2,FIELDS=(1,11,A)                                     
  REFORMAT FIELDS=(F1:1,5448)                                           
* CONTROL STATEMENTS FOR MAIN TASK (JOINED RECORDS)                     
  SORT FIELDS=COPY                                                     
/*                                                                     
//DFSPARM DD *                                                         
  OPTION DYNALLOC=(,255),FILSZ=E2700000                                 
/*


Regards,
Magsh
Back to top
View user's profile Send private message
magesh23586

Active User


Joined: 06 Jul 2009
Posts: 213
Location: Chennai

PostPosted: Wed May 29, 2013 12:43 pm
Reply with quote

Hi Its worked out...got the solution icon_smile.gif

we need to use JNF1CNTL DD
Code:

//ZZZZZZ JOB (TEST,T),T,                                             
//   CLASS=X,MSGCLASS=X,NOTIFY=ZZZZZ                                 
//S1   EXEC  PGM=SORT                                                   
//SYSOUT DD SYSOUT=*                                                   
//SORTJNF1 DD DSN=ZZZZ.TTTT.EEEEE.G5886V00.MAY27,DISP=SHR     
//SORTJNF2 DD DSN=XXXX.INPUT,DISP=SHR                         
//SORTOUT DD DSN=ZZZZZ.OUTPUT,DISP=OLD
//JNF1CNTL DD *                           
  OPTION DYNALLOC=(,255),FILSZ=E2700000   
/*                                                                 
//SYSIN DD *                                                           
* CONTROL STATEMENTS FOR JOINKEYS APPLICATION                           
  JOINKEYS FILE=F1,FIELDS=(2,11,A)                                     
  JOINKEYS FILE=F2,FIELDS=(1,11,A)                                     
  REFORMAT FIELDS=(F1:1,5448)                                           
* CONTROL STATEMENTS FOR MAIN TASK (JOINED RECORDS)                     
  SORT FIELDS=COPY                                                     
/*                                                                     
//DFSPARM DD *                                                         
  OPTION DYNALLOC=(,255),FILSZ=E2700000                                 
/*


Regards,
Magesh
Back to top
View user's profile Send private message
magesh23586

Active User


Joined: 06 Jul 2009
Posts: 213
Location: Chennai

PostPosted: Wed May 29, 2013 12:51 pm
Reply with quote

Hi,

The problem was, though I give dynalloc parameter, it is showing dynaloc=N, where it is suppose to show dynaloc=(syda,255).

DFSORT join works differently it seems.

Code:

23:54 ON TUE MA
0          * CONTROL STATEMENTS FOR JOINKEYS APPLICATION                       
             JOINKEYS FILE=F1,FIELDS=(2,11,A)                                   
             JOINKEYS FILE=F2,FIELDS=(1,11,A)                                   
             REFORMAT FIELDS=(F1:1,5448)                                       
           * CONTROL STATEMENTS FOR MAIN TASK (JOINED RECORDS)                 
             SORT FIELDS=COPY                                                   
             OPTION DYNALLOC=(,255),FILSZ=E2700000                             
 ICE411I 0 THIS IS THE JOINKEYS MAIN TASK FOR JOINING F1 AND F2                 
 ICE416I 0 JOINKEYS IS USING THE F1 SUBTASK FOR SORTJNF1 - SEE JNF1JMSG MESSAGES
 ICE416I 1 JOINKEYS IS USING THE F2 SUBTASK FOR SORTJNF2 - SEE JNF2JMSG MESSAGES
 ICE419I 0 JOINED RECORDS: TYPE=F, LENGTH=5448                                 
 ICE201I G RECORD TYPE IS F - DATA STARTS IN POSITION 1                         
 ICE751I 0 C5-K51706 C6-K51706 C7-K51706 C8-K51706 E9-K51706 C9-BASE   E5-K51706
 ICE193I 0 ICEAM1 ENVIRONMENT IN EFFECT - ICEAM1 INSTALLATION MODULE SELECTED 
MJ201UA.S1      .        , INPUT LRECL = 5448, TYPE = F                         
AIN STORAGE = (MAX,6291456,6291456)                                             
AIN STORAGE ABOVE 16MB = (6229998,6229998)                                     
PTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,RESET=Y,VSA
PTIONS: SIZE=6291456,MAXLIM=2097152,MINLIM=450560,EQUALS=N,LIST=Y,ERET=RC16 ,MSG
PTIONS: VIO=N,RESDNT=ALL ,SMF=NO   ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=N
PTIONS: RESALL=8192,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=N,STIMER=Y,
PTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW=Y,DSA=0   
PTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE    ,EXITCK=S,PARMDDN
PTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSIZE=
PTIONS: NULLOUT=RC0                                                             
XCP ACCESS METHOD USED FOR SORTOUT                                             
F-K49534 F0-K49037 DA-K51706                                                   
N S222  ABEND WAS ISSUED BY DFSORT, ANOTHER PROGRAM OR AN EXIT (PHASE C 3)       
Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Wed May 29, 2013 10:11 pm
Reply with quote

magesh23586 wrote:
The problem was, though I give dynalloc parameter, it is showing dynaloc=N, where it is suppose to show dynaloc=(syda,255).

DFSORT join works differently it seems.



Your maintask is using COPY operation and you wouldn't need sort work datasets. You should check your JNF1JMSG to see how the override of DYNALOC worked. The reason for the failure of the job is because of this

Code:

N S222  ABEND WAS ISSUED BY DFSORT, ANOTHER PROGRAM OR AN EXIT (PHASE C 3)       


So find out why the operator cancelled your job.
Back to top
View user's profile Send private message
magesh23586

Active User


Joined: 06 Jul 2009
Posts: 213
Location: Chennai

PostPosted: Wed Jun 12, 2013 8:15 pm
Reply with quote

Hi SKolusu,

Please find the below job submitted. The sort is expecting dynamic allocation.

Code:

//xxxxxx JOB (TEST,T),T,                                     
//   CLASS=X,MSGCLASS=X,NOTIFY=TMJ201U                         
//S1   EXEC  PGM=SORT                                           
//SYSOUT DD SYSOUT=*                                           
//SORTJNF1 DD DSN=XXXXXX.G5886V00,DISP=SHR   
//SORTJNF2 DD DSN=ZZZZZZ,DISP=SHR                 
//SORTOUT DD DSN=LLLLLL.ZZZZZ,DISP=OLD                 
//SYSIN DD *                                                   
* CONTROL STATEMENTS FOR JOINKEYS APPLICATION                   
  JOINKEYS FILE=F1,FIELDS=(2,11,A)                             
  JOINKEYS FILE=F2,FIELDS=(1,11,A)                             
  REFORMAT FIELDS=(F1:1,5448)                                   
* CONTROL STATEMENTS FOR MAIN TASK (JOINED RECORDS)             
  SORT FIELDS=COPY                                             
/*                                                             
//DFSPARM DD *                                                 
  OPTION DYNALLOC=(,16),FILSZ=E2700000                         
/* 


1ICE417I 0 THIS IS THE JOINKEYS F1 SUBTASK FOR SORTJNF1                         
 ICE143I 0 BLOCKSET     SORT  TECHNIQUE SELECTED                               
 ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES A
 ICE000I 0 - CONTROL STATEMENTS
 07:32 ON WED JU
0          SORT  FORMAT=BI,FIELDS=(2,11,A)                                     
           RECORD TYPE=F                                                       
           DEBUG NOABEND,ESTAE                                                 
           OPTION EQUALS,MSGPRT=ALL,LIST,NOCHECK,RESINV=0,DYNALLOC,SORTDD=JNF1,M
                          DDN=JNF1JMSG,SORTIN=SORTJNF1                         
 ICE201I G RECORD TYPE IS F - DATA STARTS IN POSITION 1                         
 ICE083A D RESOURCES WERE UNAVAILABLE FOR DYNAMIC ALLOCATION OF WORK DATA SETS (
 ICE753I 0 FWK=(2,170064) SWK=(0,0) TWK=(0,0) RWK=(0,0) TOTAL=(2,170064) BLK=532
 ICE751I 0 C5-K51706 C6-K51706 C7-K51706 C8-K51706 E4-K51706 C9-BASE   E5-K51706
 ICE750I 0 DC 0 TC 15471263088 CS DSVVV KSZ 15 VSZ 15                           
 ICE752I 0 FSZ=2839806 RC  IGN=0 E  AVG=5452 0  WSP=20109266 C  DYN=170064 53216
 ICE052I 3 END OF DFSORT                                                       

ICE143I 0 BLOCKSET     COPY  TECHNIQUE SELECTED                                 
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 1 - CONTROL STATEMENTS
 07:32 ON WED JUN
            OPTION DYNALLOC=(,16),FILSZ=E2700000                               
ICE140I 0 END OF PARAMETERS FROM DFSPARM  - SYSIN OR SORTCNTL/PARAMETER LIST CON
          * CONTROL STATEMENTS FOR JOINKEYS APPLICATION                         
            JOINKEYS FILE=F1,FIELDS=(2,11,A)                                   
            JOINKEYS FILE=F2,FIELDS=(1,11,A)                                   
            REFORMAT FIELDS=(F1:1,5448)                                         
          * CONTROL STATEMENTS FOR MAIN TASK (JOINED RECORDS)                   
            SORT FIELDS=COPY                                                   
ICE411I 0 THIS IS THE JOINKEYS MAIN TASK FOR JOINING F1 AND F2                 
ICE416I 0 JOINKEYS IS USING THE F1 SUBTASK FOR SORTJNF1 - SEE JNF1JMSG MESSAGES
ICE418A 0 JOINKEYS F1 SUBTASK FOR SORTJNF1 TERMINATED - SEE JNF1JMSG MESSAGES   
ICE751I 0 C5-K51706 C6-K51706 C7-K51706 E7-K51706                               
ICE052I 3 END OF DFSORT                                                         

Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Wed Jun 12, 2013 9:55 pm
Reply with quote

magesh23586 wrote:

Hi Its worked out...got the solution icon_lol.gif

we need to use JNF1CNTL DD


magesh23586 wrote:

Please find the below job submitted. The sort is expecting dynamic allocation.

//DFSPARM DD *
OPTION DYNALLOC=(,16),FILSZ=E2700000
/*


magesh23586,

You failed to implement your own find of using JNF1CNTL instead of DFSPARM ???

Either way you need to talk to your systems programmer as to find out why you don't have enough space for sort works. Look at the message ICE083A and you will notice that DFSORT was not able to find the required space even for the default dynamic allocation of 4 work datasets.


Code:

 ICE083A D RESOURCES WERE UNAVAILABLE FOR DYNAMIC ALLOCATION OF WORK DATA SETS (
Back to top
View user's profile Send private message
magesh23586

Active User


Joined: 06 Jul 2009
Posts: 213
Location: Chennai

PostPosted: Fri Jun 14, 2013 11:04 am
Reply with quote

I got it, thought of showing you, Join is expecting some sort workspace. Thanks for the kind explanation.
Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Fri Jun 14, 2013 10:02 pm
Reply with quote

magesh23586 wrote:
I got it, thought of showing you, Join is expecting some sort workspace. Thanks for the kind explanation.


magesh23586,

You need to read my earlier response carefully.

skolusu wrote:
Your maintask is using COPY operation and you wouldn't need sort work datasets.


The MAIN TASK messages are shown in the SYSOUT and if you can show me that it required sort work space, that would be great.

Your SUBTASK1 and SUBTASK2is performing a sort on the key of 11 bytes which requires sort work datasets. The messages for SUBTASK1 are presented in JNF1JMSG and subtask2 messages are presented in JNF2MSG dataset.

So please understand the difference.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts Need to set RC4 through JCL SORT DFSORT/ICETOOL 5
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts JCL sort card - get first day and las... JCL & VSAM 9
No new posts SCOPE PENDING option -check data DB2 2
No new posts Sort First/last record of a subset th... DFSORT/ICETOOL 7
Search our Forums:

Back to Top