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/ICE1CA60/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
