I don't see JOINKEYS in z/OS 1.10's version of the DFSORT manual, so I'd say "No, you can't do this in z/OS 1.10". I can't think of a way to do it, off hand, using DFSORT without JOINKEYS. If I were doing it myself, I'd likely use REXX. It should be fairly easy since you said that the files were already sorted. If the files were really large, I might write it in COBOL or HLASM if I were worried about CPU usage.
John McKown Systems Engineer IV IT Administrative Services Group HealthMarketsR 9151 Boulevard 26 ? N. Richland Hills ? TX 76010 (817) 255-3225 phone ? [email protected] ? www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarketsR is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. ?The Chesapeake Life Insurance CompanyR, Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM > -----Original Message----- > From: IBM Mainframe Discussion List > [mailto:[email protected]] On Behalf Of Minoru Massaki > Sent: Tuesday, January 24, 2012 12:27 AM > To: [email protected] > Subject: Re: DFSORT - How to split detailed record based on > master record > > Yaeger-san and McKown-san, > > Thank you very much for your kind help. > It is exactly what I want to do. > > By the way, one of our customer is still using z/OS V1.10. > Does DFSORT for z/OS V1R10 support JOINKEYS application? > If it doesn't, are there any way to do same thing as JOINKEYS does on > z/OS V1.10 with DFSORT? > > Thank you. > > Minoru Massaki (M*M) > > 2012/1/24 Frank Yaeger <[email protected]>: > > Minoru Massaki at IBM Mainframe Discussion List > <[email protected]> > > wrote on 01/23/2012 08:47:00 AM: > >> I'm looking for a way to do following by DFSORT. I have > read through > >> DFSORT manuals but I could not find out the method. Your > help would > >> be highly appreciated. > >> > >> There is a master file which contains Volume serial (VOLSER). The > >> master file is sorted by VOLSER and there is NO duplicate VOLSER. > >> Each record of the detailed record file contains VOLSER > and data set > >> name. The detailed record file is also sorted by VOLSER > and there are > >> duplicate VOLSER. In some case, detailed record file does > not contain > >> VOLSER record which is in mster record. > >> I want to split detailed record file into two files based on master > >> record file as following: > >> > >> Master record file > >> VOL000 > >> VOL001 > >> VOL005 > >> VOL010 > >> > >> Detailed record file > >> VOL001 AAA > >> VOL002 BBB > >> VOL005 CCC > >> VOL005 DDD > >> VOL007 EEE > >> VOL007 FFF > >> > >> DFSORT output > >> master-exist > >> VOL001 AAA > >> VOL005 CCC > >> VOL005 DDD > >> > >> non-master > >> VOL002 BBB > >> VOL007 EEE > >> VOL007 FFF > >> > >> > >> Can DFSORT do it? > > > > You can use a DFSORT JOINKEYS job like the following to do > what you asked > > for. > > I made some assumptions about the RECFM and LRECL of you > input files and > > the > > starting positions of your fields, but you can adjust as needed if I > > guessed wrong. > > > > //S1 EXEC PGM=SORT > > //SYSOUT DD SYSOUT=* > > //IN1 DD * > > VOL000 > > VOL001 > > VOL005 > > VOL010 > > //IN2 DD * > > VOL001 AAA > > VOL002 BBB > > VOL005 CCC > > VOL005 DDD > > VOL007 EEE > > VOL007 FFF > > //OUT1 DD SYSOUT=* > > //OUT2 DD SYSOUT=* > > //SYSIN DD * > > JOINKEYS F1=IN1,FIELDS=(4,6,A),SORTED > > JOINKEYS F2=IN2,FIELDS=(5,6,A),SORTED > > JOIN UNPAIRED,F2 > > REFORMAT FIELDS=(F2:1,80,?) > > OPTION COPY > > OUTFIL FNAMES=OUT1,INCLUDE=(81,1,CH,EQ,C'B'),BUILD=(1,80) > > OUTFIL FNAMES=OUT2,INCLUDE=(81,1,CH,EQ,C'2'),BUILD=(1,80) > > /* > > > > For complete details on DFSORT's JOINKEYS function, see: > > > > > http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE > 1CA60/4.0?DT=20110608113434 > > > > Frank Yaeger - DFSORT Development Team (IBM) - [email protected] > > Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, > Symbols, Migration > > > > => DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort > > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to [email protected] with the message: INFO IBM-MAIN > > > > -- > > 全先 実 - Minoru Massaki (M*M) > E-mail: [email protected] > > ---------------------------------------------------------------------- > 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
