Portal | Manuals | 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

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 Pack to Unpack conversion for sending... A_programmers COBOL Programming 13 Wed Sep 11, 2019 10:46 pm Compare two files logic in COBOL Nishant Singhal COBOL Programming 4 Sun Aug 25, 2019 2:25 am Concatenate two files of variable rec... Thiru S DFSORT/ICETOOL 3 Wed Aug 21, 2019 11:53 pm Copy physical Tape files to a Mainfra... Dadi Krishna Teja JCL & VSAM 11 Thu May 16, 2019 10:25 pm Search string from concatenated input... srini24 JCL & VSAM 8 Sat Mar 30, 2019 9:51 pm

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