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: 10232
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 Innovations in Your Mainframe Sort Arun Raj PC Guides & IT News 4 Wed Mar 15, 2017 10:38 pm
No new posts SORT VSAM file with each field one by... maxsubrat DFSORT/ICETOOL 6 Tue Mar 14, 2017 1:07 pm
No new posts SORT requirement sjiraga COBOL Programming 6 Thu Mar 09, 2017 9:11 pm
No new posts SORT to append Month and YEAR in MMYY... tisamf DFSORT/ICETOOL 1 Wed Mar 08, 2017 4:46 pm
No new posts JCL sort Match and NoMatch rakeshsekar1987 SYNCSORT 2 Thu Feb 02, 2017 10:26 pm


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