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

Need SYNCSORT to compare two files


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA

PostPosted: Wed Apr 22, 2009 10:25 pm
Reply with quote

The SYMNAMES file must have RECFM=FB and LRECL=80 so you can't use 60. That's the reason for the error in step 2. Please go back and read my previous posts.
Back to top
View user's profile Send private message
charavind17

New User


Joined: 24 Sep 2008
Posts: 30
Location: chennai

PostPosted: Wed Apr 22, 2009 11:12 pm
Reply with quote

is it that the regions whatever jobs am running are invoking syncsort i believe. how to invoke DFSORT...am getting U0016 abend when i used LREC as 80 and the jCl you have used...
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table

PostPosted: Wed Apr 22, 2009 11:20 pm
Reply with quote

Quote:
IEC141I 013-20

20
An OPEN macro instruction was issued for a sequential data set using queued access. BLKSIZE is not a multiple of LRECL, or LRECL is 0 with RECFM=FB or RECFM=FBS, or BLKSIZE is not at least four bytes greater than LRECL with RECFM=V.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA

PostPosted: Thu Apr 23, 2009 12:03 am
Reply with quote

charavind17,

If Syncsort is installed at your shop, then you can't invoke DFSORT unless your site has a license for both products (which it probably doesn't).

I can't help you with Syncsort.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Thu Apr 23, 2009 2:05 am
Reply with quote

Hello,

I believe your problem is not a sort problem, but rather understanding how files and jcl work together.

The 013-20 is simply a dcb conflict.

What happens if you run the job exactly as Frank posted? Rather than changing things around, it would be better to work thru the already proven solution.

Submit the unchanged job and post the jcl, control statements and all messages created byt he sort (including the message ids).
Back to top
View user's profile Send private message
charavind17

New User


Joined: 24 Sep 2008
Posts: 30
Location: chennai

PostPosted: Thu Apr 23, 2009 4:04 am
Reply with quote

Dick,
i have used JCL whatever frank has mentioned and below is the JCL

Code:
//S1    EXEC  PGM=SORT                                         
//SYSOUT    DD  SYSOUT=*                                       
//SORTIN DD DSN=UDEM.MTAR.MT1060C,DISP=SHR                     
//SORTOUT DD DSN=&&S1,UNIT=SYSDA,SPACE=(TRK,(2,1)),DISP=(,PASS)
//SYSIN    DD    *                                             
  OPTION COPY                                                   
  INREC BUILD=(C'TARG,+',11,4,ZD,ADD,+1,TO=ZD,LENGTH=4,80:X)   
/*                                                             
//S2    EXEC  PGM=SORT                                         
//SYSOUT    DD  SYSOUT=*                                       
//SYMNAMES DD DSN=&&S1,DISP=(OLD,PASS)                         
//SORTIN DD DSN=UDEM.MTAR.MT1060IS.TEST,DISP=SHR               
//SORTOUT DD DUMMY                                             
//SYSIN    DD    *                               
  OPTION COPY,STOPAFT=1                         
  OUTFIL NULLOFL=RC16,INCLUDE=(70,4,ZD,EQ,TARG) 
/*                                               


13.25.15 JOB13681  IEF403I SZRYDLO - STARTED - TIME=13.25.15                 
13.25.16 JOB13681  MVS0010I SZRYDLO  09.112 D          S1       ** R0000 ** 
13.25.16 JOB13681  IEF450I SZRYDLO S2 - ABEND=S000 U0016 REASON=00000000  479
   479                     TIME=13.25.16                                     
13.25.16 JOB13681  MVS0010I SZRYDLO  09.112 D          S2       ** U0016 ** 
13.25.16 JOB13681  IEF404I SZRYDLO - ENDED - TIME=13.25.16                   
13.25.16 JOB13681  $HASP395 SZRYDLO  ENDED       142 LINES          0 CARDS 

sysout of s1

  OPTION COPY                                                     
  INREC BUILD=(C'TARG,+',11,4,ZD,ADD,+1,TO=ZD,LENGTH=4,80:X)       
WER276B  SYSDIAG= 95318, 411286, 411286, 1125750                   
WER164B  6,896K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B     0 BYTES RESERVE REQUESTED, 1,025,480 BYTES USED       
WER146B  20K BYTES OF EMERGENCY SPACE ALLOCATED                   
WER108I  SORTIN   : RECFM=FB   ; LRECL=    60; BLKSIZE=  4620     
WER257I  INREC RECORD LENGTH =    80                               
WER238I  POTENTIALLY INEFFICIENT USE OF INREC                     
WER110I  SORTOUT  : RECFM=FB   ; LRECL=    80; BLKSIZE= 27920     
WER449I  SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE                     

sysout of s2

TARG,+816D                                     
         *                                     
*** SYNTAX ERROR ***                           
WER470A  SYMNAMES ERRORS FOUND                 
WER449I  SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE 
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA

PostPosted: Thu Apr 23, 2009 4:19 am
Reply with quote

With DFSORT, you get:

TARG,+8164

which is valid. icon_rolleyes.gif

TO=ZDF instead of TO=ZD should get you the same thing for Syncsort. (Shouldn't the Syncsort person be helping with Syncsort questions here?)
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 Goto page Previous  1, 2

 


Similar Topics
Topic Forum Replies
No new posts Is there a way to close VSAM files us... CICS 3
No new posts Extract record using 2 input file int... JCL & VSAM 2
No new posts Merge files with a key and insert a b... DFSORT/ICETOOL 6
No new posts COBOL program logic for comparisipn o... COBOL Programming 2
No new posts Sort with JOINKEYS using two VB files DFSORT/ICETOOL 1
Search our Forums:

Back to Top