Can you both sort and merge in a single job step? ________________________________ From: IBM Mainframe Discussion List <[email protected]> on behalf of Martin Packer <[email protected]> Sent: Friday, September 2, 2016 2:44 PM To: [email protected] Subject: Re: DFSORT mixed VSAM & sequential.
Unless I misunderstand there's a slight error in Sri Hari's sample: The IFTHEN should have C'B' rather than C'2'. SORTINxx is what DFSORT MERGE uses. That syntax might be confusing. But then again maybe MERGE will work for you. (I doubt it.) Cheers, Martin Martin Packer, zChampion, Principal Systems Investigator, Worldwide Cloud & Systems Performance, IBM +44-7802-245-584 email: [email protected] Twitter / Facebook IDs: MartinPacker Blog: https://www.ibm.com/developerworks/mydeveloperworks/blogs/MartinPacker A Record Of Sorts<https://www.ibm.com/developerworks/mydeveloperworks/blogs/MartinPacker> www.ibm.com I'm a well-known mainframe performance guy, with almost 30 years of experience helping customers manage systems. I also dabble in lots of other technology. I've sought to widen the Performance role, incorporating aspects of infrastructural architecture. Podcast Series (With Marna Walle): https://developer.ibm.com/tv/mpt/ or https://itunes.apple.com/gb/podcast/mainframe-performance-topics/id1127943573?mt=2 From: Sri h Kolusu <[email protected]> To: [email protected] Date: 02/09/2016 20:30 Subject: Re: DFSORT mixed VSAM & sequential. Sent by: IBM Mainframe Discussion List <[email protected]> Frank, Thanks for sending the DCB properties of the files involved offline. Based on the DCB properties here is a DFSORT JOB that will give you the desired results without having you copy the VSAM cluster to a sequential file. We will be using the trick of JOINKEYS where you can have two subtasks with different files. All we need is an additional indicator at the end. //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //INVSAM DD DISP=SHR,DSN=Your Input VSAM Cluster //* //INSEQF DD DISP=SHR,DSN=Your Sequential file 1 // DD DISP=SHR,DSN=Your Sequential file 2 ... // DD DISP=SHR,DSN=Your Sequential file n //* //SORTOUT DD DSN=Your final output file, // DISP=(NEW,CATLG,DELETE), // SPACE=(CYL,(X,Y),RLSE) //* //SYSIN DD * OPTION COPY JOINKEYS F1=INVSAM,FIELDS=(1,10,A,13,4,A,17,4,A,11,2,A,501,1,A) JOINKEYS F2=INSEQF,FIELDS=(1,10,A,13,4,A,17,4,A,11,2,A,501,1,A) JOIN UNPAIRED REFORMAT FIELDS=(F1:1,500,?,F2:1,500) INREC IFOUTLEN=500, IFTHEN=(WHEN=(501,1,CH,EQ,C'2'),BUILD=(502,500)) //* //JNF1CNTL DD * RECORD TYPE=F INREC OVERLAY=(501:C'A') //JNF2CNTL DD * INREC OVERLAY=(501:C'B') //* Further if you have any questions please let me know Thanks, Kolusu DFSORT Development IBM Corporation IBM Mainframe Discussion List <[email protected]> wrote on 09/02/2016 08:35:18 AM: > From: Frank Swarbrick <[email protected]> > To: [email protected] > Date: 09/02/2016 08:35 AM > Subject: Re: DFSORT mixed VSAM & sequential. > Sent by: IBM Mainframe Discussion List <[email protected]> > > Ed, there was no response from you in your response below. :-) > > ________________________________ > From: IBM Mainframe Discussion List <[email protected]> on > behalf of Edward Gould <[email protected]> > Sent: Thursday, September 1, 2016 9:51 PM > To: [email protected] > Subject: Re: DFSORT mixed VSAM & sequential. > > > On Aug 31, 2016, at 3:55 PM, Frank Swarbrick > <[email protected]> wrote: > > > > FWIW, here his my example: > > > > //STEP00 EXEC PGM=IDCAMS > > //FILEIN DD DSN=&DSNENV..DEMAND.DMDMTC.CICS, > > // DISP=SHR > > //FILEOUT DD DSN=&DSNENV..DEMAND.DMDMTC, > > // DISP=SHR > > //SYSIN DD * > > REPRO INFILE (FILEIN)- > > OUTFILE (FILEOUT) REUSE > > //SYSPRINT DD SYSOUT=* > > //STEP01 EXEC PGM=SORT,COND=(4,LT) > > //SORTIN DD DSN=&DSNENV..DEMAND.DMDMTC, > > // DISP=SHR > > // DD DSN=&DSNENV..DEMAND.DDGENMT, > > // DISP=SHR > > // DD DSN=&DSNENV..DEMAND.DRTNMTC, > > // DISP=SHR > > // DD DSN=&DSNENV..DEMAND.DDMNTXX, > > // DISP=SHR > > // DD DSN=&DSNENV..DEMAND.DBKPGMT, > > // DISP=SHR > > // DD DSN=&DSNENV..DEMAND.DDMTCE, > > // DISP=SHR > > // DD DSN=&DSNENV..DEMAND.DDGMTC, > > // DISP=SHR > > // DD DSN=&DSNENV..DEMAND.MTCE.SAVE04, > > // DISP=SHR > > //SORTOUT DD DSN=&DSNENV..DEMAND.DDAMTC, > > // DISP=SHR > > //DFSPARM DD * > > SORT FIELDS=(1,10,PD,A,13,4,PD,A,17,4,PD,A,11,2,PD,A),EQUALS > > //SYSOUT DD SYSOUT=* > > > > > > ________________________________ > > From: IBM Mainframe Discussion List <[email protected]> on > behalf of Sri h Kolusu <[email protected]> > > Sent: Wednesday, August 31, 2016 12:20 PM > > To: [email protected] > > Subject: Re: DFSORT mixed VSAM & sequential. > > > > John, > > > > As Bill mentioned it is the access methods that is preventing the > > concatenation of the VSAM files. > > > > If you can send your existing job and control cards may be I can suggest > > an alternative to copying VSAM to sequential file > > > > Thanks, > > Kolusu > > DFSORT Development > > IBM Corporation > > > > > > > > From: John McKown <[email protected]> > > To: [email protected] > > Date: 08/31/2016 08:11 AM > > Subject: DFSORT mixed VSAM & sequential. > > Sent by: IBM Mainframe Discussion List <[email protected]> > > > > > > > > I can't find a way to do the following. Basically a programmer want to > > create an output data set which is the sorted input from a sequential data > > set and a VSAM file. I don't see any way to do this easily. We plan to > > unload the VSAM to sequential, then sort it with the other sequential data > > set. But that is just more work. I wonder why DFSORT doesn't have a way to > > handle this. > > > > -- > > Unix: Some say the learning curve is steep, but you only have to climb it > > once. -- Karl Lehenbauer > > Unicode: http://xkcd.com/1726/ > > > > Maranatha! <>< > > John McKown > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN Unless stated otherwise above: IBM United Kingdom Limited - Registered in England and Wales with number 741598. Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
