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
 

 

Sort using Synctool

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

New User


Joined: 22 Sep 2006
Posts: 9

PostPosted: Fri Dec 04, 2009 5:13 pm    Post subject: Sort using Synctool
Reply with quote

I am trying to join fields from two datasets
I am using the following JCL

Code:
//S3 EXEC PGM=SYNCTOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG  DD SYSOUT=*
//IN1      DD *     
1     12    BB   08 
1     13    CC   11 
1     14    AA    4 
/*                   
//IN2     DD *       
1     12    BB    2 
1     12    AA    2 
1     12    CC    4 
1     13    CC    5 
1     13    BB    3 
1     13    AA    3 
/*                   
//OUT1     DD SYSOUT=*                                         
//T1       DD DSN=&&T1,UNIT=3390,SPACE=(CYL,(5,5)),DISP=(,PASS)
//T2       DD DSN=&&T2,UNIT=3390,SPACE=(CYL,(5,5)),DISP=(,PASS)
//CONCT    DD DSN=*.T1,VOL=REF=*.T1,DISP=(OLD,DELETE)           
//         DD DSN=*.T2,VOL=REF=*.T2,DISP=(OLD,DELETE)           
//TOOLIN   DD *                                                 
  COPY FROM(IN1) TO(T1) USING(CTL1)                             
  COPY FROM(IN2) TO(T2) USING(CTL2)                             
  SPLICE FROM(CONCT) WITHALL-                                   
    ON(13,2,CH) -                                               
    WITH(1,1) -                                                 
    TO(OUT1)                                                   
//CTL1CNTL DD *                                                 
  OUTREC FIELDS=(1:1,1,                                         
                 7:7,2,                                         
                 13:13,2,                                       
                 19:19,1)                                       
/*                                                             
//CTL2CNTL DD *                                                 
  OUTREC FIELDS=(25:18,2)                                       
//*


The job fails with the following reason :

Code:
WER428I  CALLER-PROVIDED IDENTIFIER IS "0003"                       
WER276B  SYSDIAG= 18519, 3519307, 3519307, 5382362                 
WER164B  18,708K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B     0 BYTES RESERVE REQUESTED, 1,004K BYTES USED           
WER146B  20K BYTES OF EMERGENCY SPACE ALLOCATED                     
WER108I  CONCT    : RECFM=FB   ; LRECL=    19; BLKSIZE= 27987       
WER110I  OUT1     : RECFM=FB   ; LRECL=    19; BLKSIZE= 27987       
WER171A  CONCAT DS, LRECLS NE OR RECFMS DIFF                       
WER211B  SYNCSMF  CALLED BY SYNCSORT; RC=0000                       

Could anyone help me out solving this problem?

Edited: Please use BBcode when You post some code/error, that's rather readable, Thanks... Anuj
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10210
Location: italy

PostPosted: Fri Dec 04, 2009 5:24 pm    Post subject: Reply to: Sort using icetool
Reply with quote

the WER.... messages indicate that You are using SYNCSORT
topic moved!
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Fri Dec 04, 2009 5:49 pm    Post subject:
Reply with quote

You are concatenating T1 and T2 and they are of different LRECLs. T1 is of 19-bytes while T2 is of 26. Make a choice what you can change to make T1 and T2 compatible to get what you want. I, for one, can't suggest much on what to change, as you don't tell us the expected output.
Back to top
View user's profile Send private message
snpavithra

New User


Joined: 22 Sep 2006
Posts: 9

PostPosted: Mon Dec 07, 2009 5:00 pm    Post subject: Reply to: Sort using Synctool
Reply with quote

Both the input IN1 and IN2 are of length 19 bytes

IN1
Code:

1 12 BB 08
1 13 CC 11
1 14 AA 4

IN2
Code:

1 12 BB 2
1 12 AA 2
1 12 CC 4
1 13 CC 5
1 13 BB 3
1 13 AA 3
1 14 AA 4

The expected output is

Code:

1 12 BB 2 08
1 12 AA 2 08
1 12 CC 4 08
1 13 CC 5 11
1 13 BB 3 11
1 13 AA 3 11
1 14 AA 4 04
Back to top
View user's profile Send private message
snpavithra

New User


Joined: 22 Sep 2006
Posts: 9

PostPosted: Mon Dec 07, 2009 5:05 pm    Post subject: Reply to: Sort using Synctool
Reply with quote

The last column in the o/p is the (col4) from IN1 for the same (col1,col2) in IN2
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Mon Dec 07, 2009 5:20 pm    Post subject:
Reply with quote

snpavithra wrote:
Both the input IN1 and IN2 are of length 19 bytes

that is not true, they are 80.
but who cares?

Anuj wrote:
You are concatenating T1 and T2 and they are of different LRECLs. T1 is of 19-bytes while T2 is of 26.


read your messages, as Anuj did for you;
and you have the gall to ignore his comment and write your own non-relevant garbage.

did you get this JOB from someone else?
screw it up
and now are being thickheaded??
Back to top
View user's profile Send private message
snpavithra

New User


Joined: 22 Sep 2006
Posts: 9

PostPosted: Mon Dec 07, 2009 6:47 pm    Post subject: Reply to: Sort using Synctool
Reply with quote

Sorry if the reply was annoying. Thanks for the 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 Limit duplicate records in the SORT pshongal SYNCSORT 6 Mon Nov 21, 2016 12:54 pm
No new posts How to convert the VBM file to VB or... Sulabh Agrawal JCL & VSAM 4 Fri Nov 18, 2016 1:04 pm
No new posts Sort records based on numeric field. Alks SYNCSORT 2 Wed Oct 19, 2016 10:14 pm
No new posts How to delete second instance from Fl... Gunapala CN DFSORT/ICETOOL 6 Tue Oct 18, 2016 11:42 pm
No new posts abend sort based on count records in ... anatol DFSORT/ICETOOL 5 Mon Oct 17, 2016 10:10 pm


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