Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Incompatible LREC

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
Selva0202

New User


Joined: 17 Oct 2008
Posts: 18
Location: USA

PostPosted: Fri Oct 31, 2008 6:42 pm    Post subject: Incompatible LREC
Reply with quote

Hi there,

I've got a requirement to do the follwing.

Write records in a new file (FILE C) which are available only in FILE A but not FILE B.

Used the following JCL:

Code:
                                           
//S1    EXEC PGM=SYNCTOOL                                               
//TOOLMSG  DD SYSOUT=*                                                 
//DFSMSG   DD SYSOUT=*                                                 
//F1IN     DD DSN=Q01374.GDG.INPUT1,DISP=SHR                           
//F2IN     DD DSN=Q01374.GDG.INPUT2,DISP=SHR                           
//T1       DD DSN=&&T1,DISP=(MOD,PASS),                                 
//            UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)                         
//MATCH DD DSN=Q01374.DASD.TCM2.MATCH,DISP=(,CATLG,DELETE),         
//            SPACE=(CYL,(5,5))
//F1ONLY DD DSN=Q01374.DASD.TCM2.INONLY,DISP=(,CATLG,DELETE),       
//            SPACE=(CYL,(5,5))
//F2ONLY DD DSN=Q01374.DASD.TCM2.ADD,DISP=(,CATLG,DELETE),           
//            SPACE=(CYL,(5,5))
//TOOLIN   DD *                                                       
 COPY FROM(F1IN) TO(T1) USING(MATA)                                   
 COPY FROM(F2IN) TO(T1) USING(MATB)                                   
 SPLICE FROM(T1) TO(MATCH) ON(1,40,CH) -                               
      WITH(42,1) KEEPNODUPS USING(MATC)                               
/*                                                                     
//MATACNTL DD *                                                       
 OUTREC FIELDS=(1:1,40,     GENERATION NAME                           
 41:C'11')                                                             
/*                                                                     
//MATBCNTL DD *                                                       
 OUTREC FIELDS=(1:1,40,     GENERATION NAME2                           
 41:C'22')                                                             
/*                                                                     
//MATCCNTL DD *                                                       
 OUTFIL FNAMES=MATCH,INCLUDE=(41,2,CH,EQ,C'12'),OUTREC=(1,40)         
 OUTFIL FNAMES=F1ONLY,INCLUDE=(41,2,CH,EQ,C'11'),OUTREC=(1,40)         
 OUTFIL FNAMES=F2ONLY,INCLUDE=(41,2,CH,EQ,C'22'),OUTREC=(1,40)         
/*


ERROR MSG

+WER247A Q01374U8,S1 , -MATCH HAS INCOMPATIBLE LREC
+WER247A Q01374U8,S1 , -F1ONLY HAS INCOMPATIBLE LREC
+WER247A Q01374U8,S1 , -F2ONLY HAS INCOMPATIBLE LREC


Can someone have a look and tell me how to come out from this problem.
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Fri Oct 31, 2008 6:47 pm    Post subject:
Reply with quote

At a first glance, you are writing LRECL 40 records into a LRECL 80 dataset
Back to top
View user's profile Send private message
Alissa Margulies

SYNCSORT Support


Joined: 25 Jul 2007
Posts: 500
Location: USA

PostPosted: Fri Oct 31, 2008 11:02 pm    Post subject:
Reply with quote

Quote:
Write records in a new file (FILE C) which are available only in FILE A but not FILE B.

This would be much simpler to accomplish using SyncSort's JOIN feature.

Code:
//STEP1  EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTJNF1 DD DSN=FILEA
//SORTJNF2 DD DSN=FILEB
//SORTOUT  DD DSN=FILEC
//SYSIN    DD *
   JOINKEYS FILE=F1,FIELDS=(1,40,A)       
   JOINKEYS FILE=F2,FIELDS=(1,40,A)     
   JOIN UNPAIRED,F1,ONLY
   SORT FIELDS=COPY                     
Back to top
View user's profile Send private message
Selva0202

New User


Joined: 17 Oct 2008
Posts: 18
Location: USA

PostPosted: Sat Nov 01, 2008 7:46 pm    Post subject: Reply to: Incompatible LREC
Reply with quote

This work for me...!

Thanks a lot for your help.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Copying to a different LREC length Frank Yaeger DFSORT/ICETOOL 6 Tue Oct 25, 2011 2:36 pm
No new posts Sort 2 input VSAM files and output a ... Nic Clouston DFSORT/ICETOOL 5 Wed May 11, 2011 11:25 am
No new posts WER107A SORTOUT RECFM INCOMPATIBLE WI... mallik4u JCL & VSAM 5 Wed Aug 05, 2009 5:58 pm
No new posts Reformatting Error: SORTOUT HAS INCO... himanshu7 JCL & VSAM 11 Mon Mar 30, 2009 12:04 pm
No new posts INCOMPATIBLE LRECL fazilbe JCL & VSAM 15 Fri Jan 09, 2009 5:51 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us