Portal | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref

Author Message
Rijit

Active User

Joined: 15 Apr 2010
Posts: 168
Location: Pune

Posted: Tue Jul 14, 2015 2:40 pm    Post subject: Join 3 files and sum

Please help me with the SORT/ICETOOL card for the following requirement:

I have 3 files:

INFILE - A

 Code: AAA002 BBB005 CCCCC003

INFile - B

 Code: AAA000 BBB002 CCCCC004

INFile - C

 Code: AAA001 BBB001 CCCCC004

Desired Output:

 Code: AAA003 BBB008 CCCCC011

Thanks,

Bill Woodger

DFSORT Moderator

Joined: 09 Mar 2011
Posts: 7312

 Posted: Tue Jul 14, 2015 3:08 pm    Post subject: Reply to: Join 3 files and sum So it is always three or five alphabetic characters followed by three numerics?
Rijit

Active User

Joined: 15 Apr 2010
Posts: 168
Location: Pune

Posted: Tue Jul 14, 2015 4:04 pm    Post subject: Re: Reply to: Join 3 files and sum

 Bill Woodger wrote: So it is always three or five alphabetic characters followed by three numerics?

Let us consider it always 3 character followed by the count for each record.
magesh23586

Active User

Joined: 06 Jul 2009
Posts: 213
Location: Chennai

Posted: Tue Jul 14, 2015 4:17 pm    Post subject: Reply to: Join 3 files and sum

Have the three dataset concatenated

If three and 5 characters followed by number then.
 Code: //STEP0100 EXEC PGM=SORT              //SYSOUT   DD SYSOUT=*                //SORTIN   DD DISP=SHR,DSN=FILE1      //         DD DISP=SHR,DSN=FILE2      //         DD DISP=SHR,DSN=FILE3      //SORTOUT  DD SYSOUT=*                                        //SYSIN DD *                                                     INREC IFTHEN=(WHEN=(4,1,SS,EQ,C'0,1,2,3,4,5,6,7,8,9'),             BUILD=(1,3,X'4040',4,3)),                                     IFTHEN=(WHEN=NONE,BUILD=(1,8))                          SORT FIELDS=(1,5,CH,A)                                        SUM FIELDS=(6,3,ZD)                                         OUTFIL BUILD=(1,8,SQZ=(SHIFT=LEFT))                        /*

If only 3 characters then
 Code: //SYSIN DD *   SORT FIELDS=(1,3,CH,A)      SUM FIELDS=(4,3,ZD)
Bill Woodger

DFSORT Moderator

Joined: 09 Mar 2011
Posts: 7312

 Posted: Tue Jul 14, 2015 4:33 pm    Post subject: Reply to: Join 3 files and sum For three-characters followed by a count, a simple MERGE (so instead of SORTIN you use SORTIN01, SORTIN02 and SORTIN03) with the key and a SUM, or the OUTFIL reporting features with SECTIONS and TRAILER3 using TOT/TOTAL. Of course, if your input files are not in order (despite the sample you have shown), you can't use MERGE, you have to SORT with concatenated data as has already been suggested.
Rijit

Active User

Joined: 15 Apr 2010
Posts: 168
Location: Pune

Posted: Tue Jul 14, 2015 5:03 pm    Post subject: Re: Reply to: Join 3 files and sum

 Bill Woodger wrote: For three-characters followed by a count, a simple MERGE (so instead of SORTIN you use SORTIN01, SORTIN02 and SORTIN03) with the key and a SUM, or the OUTFIL reporting features with SECTIONS and TRAILER3 using TOT/TOTAL. Of course, if your input files are not in order (despite the sample you have shown), you can't use MERGE, you have to SORT with concatenated data as has already been suggested.

Hi, Thanks for Input can anyone please help me for an example or a similar sort card which can be used for reference. Frank any inputs pls ??
Bill Woodger

DFSORT Moderator

Joined: 09 Mar 2011
Posts: 7312

 Posted: Tue Jul 14, 2015 5:28 pm    Post subject: Reply to: Join 3 files and sum If you mean Frank Yaeger, he retired from IBM in May 2012, so you're more than three years late. It's a MERGE with SUM. SUM I hope you know. MERGE is like SORT but is for multiple files which are all in the same sequence. MERGE takes those files, and creates one output file, in sequence. If you want to look at the OUTFIL with REMOVECC,NODETAIL and SECTIONS with TRAILER3, there are examples here.
 All times are GMT + 6 Hours
 Page 1 of 1

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics Dynamically read input files using BP... Srinivas B COBOL Programming 20 Sat Sep 05, 2020 1:48 pm Sync logic between VSAM files and DB2... murali.andaluri COBOL Programming 9 Tue Aug 25, 2020 1:01 pm REXX tool to extract all files starti... KeshavKunal CLIST & REXX 4 Tue Jul 21, 2020 3:43 pm PKZIP - extracting multiple txt files drarem All Other Mainframe Topics 3 Tue Jul 07, 2020 8:47 pm Compare multiple files using JCL/Rexx... tanvi110788 JCL & VSAM 4 Tue May 19, 2020 5:47 pm

 © 2003-2020 IBM MAINFRAME Software Support Division
 Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us