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

WER486A Error while joining two files
IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
kalyan.v

New User


Joined: 04 Feb 2008
Posts: 65
Location: Hyd
PostPosted: Fri Aug 28, 2009 1:30 pm
 Reply with quote
Hi,

I am trying the below sort card to retrieve the FILE1 records only when they have matched key in FILE2.
Code:

//******************************************************************
//STEP060  EXEC PGM=SYNCSORT,PARM='SIZE(MAX)'                       
//******************************************************************
//SYSOUT   DD SYSOUT=*                                             
//SORTWK01 DD UNIT=WORK,SPACE=(CYL,(20,10))                         
//SORTWK02 DD UNIT=WORK,SPACE=(CYL,(20,10))                         
//SORTWK03 DD UNIT=WORK,SPACE=(CYL,(20,10))                         
//SORTWK04 DD UNIT=WORK,SPACE=(CYL,(20,10))                         
//SORTWK05 DD UNIT=WORK,SPACE=(CYL,(20,10))                         
//SORTJNF1 DD DSN=FILE1,DISP=SHR -------------LRECL=900,RECFM=FB 
//SORTJNF2 DD DSN=FILE2,DISP=SHR -------------LRECL=205,RECFM=FB     
//SORTOUT  DD DSN=FILE3,                   
//            DISP=(NEW,CATLG,DELETE),DCB=(MODEL.DSCB),             
//            UNIT=SYSDA,SPACE=(CYL,(10,10),RLSE)                   
//SYSIN    DD *
  JOINKEYS FILE=F1,FIELDS=(38,5,A)        ------->  PIC S9(9) COMP-3     
  JOINKEYS FILE=F2,FIELDS=(01,5,A)        -------->  PIC S9(9) COMP-3
  REFORMAT FIELDS=(F1:1,900)             
  SORT FIELDS=COPY                                 
/*


But i am getting below error.
Code:

WER164B  19,624K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,         
WER164B     0 BYTES RESERVE REQUESTED, 1,021,704 BYTES USED                 
WER146B  12K BYTES OF EMERGENCY SPACE ALLOCATED                             
WER481I  JOINKEYS REFORMAT RECORD LENGTH=  900, TYPE = F                     
WER110I  SORTOUT  : RECFM=FB   ; LRECL=   900; BLKSIZE= 27900               
WER211B  SYNCSMF  CALLED BY SYNCSORT; RC=0000                               
WER486A  ERROR IN BOTH JNF1 AND JNF2 PROCESSING                             
WER482I  JNF1 STATISTICS                                                     
WER483B  14,736K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,         
WER483B     0 BYTES RESERVE REQUESTED, 13,960K BYTES USED                   
WER108I  SORTJNF1 : RECFM=FB   ; LRECL=   900; BLKSIZE= 27900               
WER483B  13,704K BYTES OF VIRTUAL STORAGE AVAILABLE ABOVE THE 16MEG LINE,   
WER483B     0 BYTES RESERVE REQUESTED, 13,704K BYTES USED                   
WER483B  G=4622,B=62                                                         
WER483B  0 PREALLOCATED SORTWORK TRACKS, 0 DYNAMICALLY ALLOCATED,           
WER483B     0 ACQUIRED IN SECONDARY EXTENTS, 0 RELEASED, TOTAL OF 0 TRACKS US
WER046A  SORT CAPACITY EXCEEDED                                             
WER066A  APROX RCD CNT              62                                       
WER482I  JNF2 STATISTICS                                                     
WER483B  4,260K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,           
WER483B     0 BYTES RESERVE REQUESTED, 3,484K BYTES USED                     
WER108I  SORTJNF2 : RECFM=FB   ; LRECL=   205; BLKSIZE= 27880               
WER483B  3,228K BYTES OF VIRTUAL STORAGE AVAILABLE ABOVE THE 16MEG LINE,     
WER483B     0 BYTES RESERVE REQUESTED, 3,228K BYTES USED                     
WER483B  G=2956,B=276                                                       
WER483B  0 PREALLOCATED SORTWORK TRACKS, 0 DYNAMICALLY ALLOCATED,           
WER483B     0 ACQUIRED IN SECONDARY EXTENTS, 0 RELEASED, TOTAL OF 0 TRACKS US
WER046A  SORT CAPACITY EXCEEDED                                             
WER066A  APROX RCD CNT             276                                       



ERROR IN BOTH JNF1 AND JNF2 PROCESSING -- I am unable to find what is the error while joining.

Please help me to solve this.

Thanks,
Kalyan V
Back to top
View user's profile Send private message
ramsri

Active User


Joined: 18 Oct 2008
Posts: 380
Location: India
PostPosted: Fri Aug 28, 2009 3:02 pm
 Reply with quote
Code:

WER046A  SORT CAPACITY EXCEEDED                                             
WER066A  APROX RCD CNT              62


The above messages are the real cause !

HTH.
Back to top
View user's profile Send private message
ramsri

Active User


Joined: 18 Oct 2008
Posts: 380
Location: India
PostPosted: Fri Aug 28, 2009 3:04 pm
 Reply with quote
You may want to try the ACTION suggested here....

Code:

WER046A SORT CAPACITY EXCEEDED
EXPLANATION: All available intermediate storage is exhausted,
including any secondary allocation allowed in this job set. Sort processing
cannot continue.
ACTION: Supply more intermediate storage (see the SORTWK calculation
formula) or use the MAXSORT technique.


HTH.
Back to top
View user's profile Send private message
kalyan.v

New User


Joined: 04 Feb 2008
Posts: 65
Location: Hyd
PostPosted: Fri Aug 28, 2009 3:36 pm
 Reply with quote
Hi Ramsri,

I tried the sort by increasing the intermediate storage.But it is giving the same error.

Thanks,
Kalyan V
Back to top
View user's profile Send private message
Ketan Varhade

Active User


Joined: 29 Jun 2009
Posts: 197
Location: Mumbai
PostPosted: Fri Aug 28, 2009 3:37 pm
 Reply with quote
Can you paste the new JCL which you have coded ?
Back to top
View user's profile Send private message
kalyan.v

New User


Joined: 04 Feb 2008
Posts: 65
Location: Hyd
PostPosted: Fri Aug 28, 2009 4:17 pm
 Reply with quote
Here is my new jcl.

Code:

//*****************************************************************
//STEP060  EXEC PGM=SYNCSORT,PARM='SIZE(MAX)'                     
//*****************************************************************
//*****************************************************************
//SYSOUT   DD SYSOUT=*                                             
//SORTWK01 DD UNIT=WORK,SPACE=(CYL,(50,20))                       
//SORTWK02 DD UNIT=WORK,SPACE=(CYL,(50,20))                       
//SORTWK03 DD UNIT=WORK,SPACE=(CYL,(50,20))                       
//SORTWK04 DD UNIT=WORK,SPACE=(CYL,(50,20))                       
//SORTWK05 DD UNIT=WORK,SPACE=(CYL,(50,20))                       
//SORTWK06 DD UNIT=WORK,SPACE=(CYL,(50,20))                       
//SORTWK07 DD UNIT=WORK,SPACE=(CYL,(50,20))                       
//SORTWK08 DD UNIT=WORK,SPACE=(CYL,(50,20))                       
//SORTWK09 DD UNIT=WORK,SPACE=(CYL,(50,20))                       
//SORTWK10 DD UNIT=WORK,SPACE=(CYL,(50,20))                       
//SORTWK11 DD UNIT=WORK,SPACE=(CYL,(50,20))                       
//SORTWK12 DD UNIT=WORK,SPACE=(CYL,(50,20))                       
//SORTWK13 DD UNIT=WORK,SPACE=(CYL,(50,20))                       
//SORTWK14 DD UNIT=WORK,SPACE=(CYL,(50,20))                       
//SORTWK15 DD UNIT=WORK,SPACE=(CYL,(50,20))                       
//SORTJNF1 DD DSN=FILE1,DISP=SHR 
//SORTJNF2 DD DSN=FILE2,DISP=SHR     
//SORTOUT  DD DSN=FILE3,                   
//            DISP=(NEW,CATLG,DELETE),DCB=(MODEL.DSCB),           
//            UNIT=SYSDA,SPACE=(CYL,(10,10),RLSE)                 
//SYSIN    DD *
  JOINKEYS FILE=F1,FIELDS=(38,5,A)       
  JOINKEYS FILE=F2,FIELDS=(01,5,A)       
  REFORMAT FIELDS=(F1:1,900)             
  SORT FIELDS=COPY                                 
/*
           


Thanks,
Kalyan V
Back to top
View user's profile Send private message
Ketan Varhade

Active User


Joined: 29 Jun 2009
Posts: 197
Location: Mumbai
PostPosted: Fri Aug 28, 2009 4:25 pm
 Reply with quote
Hi , Can you try once again with the increase the space parameter of the SORTOUT file

Code:

SPACE=(CYL,(625,125),RLSE)


Please let me know if the problem still prevails
Back to top
View user's profile Send private message
kalyan.v

New User


Joined: 04 Feb 2008
Posts: 65
Location: Hyd
PostPosted: Fri Aug 28, 2009 6:20 pm
 Reply with quote
Hi Ketan,

I tried by changing the space parameter as mentioned by you.
Still i am getting the same error.

Thanks,
Kalyan V
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
PostPosted: Fri Aug 28, 2009 7:37 pm
 Reply with quote
Per this message from the SYSOUT you post:
Code:
WER483B  0 PREALLOCATED SORTWORK TRACKS, 0 DYNAMICALLY ALLOCATED,           
WER483B     0 ACQUIRED IN SECONDARY EXTENTS, 0 RELEASED, TOTAL OF 0 TRACKS US
It seems there is a problem with the UNIT you are using for SORTWORK files.

May be you are tying to use an unusable UNIT parameter and you have ZERO tracks available for sorting. Correct that and try again.
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 -> JCL & VSAM

 

Similar Topics
Topic Forum Replies
No new posts Compare 2 files and retrive records f... DFSORT/ICETOOL 0
No new posts Compare 2 files(F1 & F2) and writ... JCL & VSAM 8
No new posts Error to read log with rexx CLIST & REXX 11
No new posts Error when install DB2 DB2 2
No new posts Write line by line from two files DFSORT/ICETOOL 7
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us