Minoru Massaki at IBM Mainframe Discussion List <IBM-MAIN@bama.ua.edu> wrote on 02/27/2012 06:21:40 PM: > But unfortunately KEYBEGIN parameter became 'OPERAND DEFINER ERROR' on > my z/OS V1.12 (ADCD system) . > Then I have checked DFSORT Application Programming Guide for z/OS > V1.12, I could not find out KEYBEGIN parameter. > > Is KEYBEGIN a new keyword provided by new PTF? > > Is there another way to do same things without KEYBEGIN parameter? > Because we don't have a chance to apply the PTF, if the KEYEGIN is > provided by PTF.
KEYBEGIN has been available with DFSORT since October, 2010 with z/OS DFSORT V1R10 PTF UK90025 and z/OS DFSORT V1R12 PTF UK90026. If you don't have that PTF installed, you can do what you want without KEYBEGIN using a DFSORT job like this: //S1 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN DD * dsn-aaa 08:00 open dsn-aaa 08:10 close dsn-aaa 08:15 delete dsn-bbb 07:55 delete dsn-ccc 08:05 open dsn-ccc 08:07 close dsn-ddd 08:01 open dsn-ddd 08:02 close dsn-ddd 08:03 open dsn-ddd 08:04 close dsn-ddd 08:05 open dsn-ddd 08:06 close dsn-ddd 08:07 open dsn-ddd 08:08 close //OUT DD SYSOUT=* //TOOLIN DD * SPLICE FROM(IN) TO(OUT) ON(1,11,CH) KEEPNODUPS WITHEACH - WITH(26,14) WITH(40,14) WITH(54,14) WITH(68,14) - WITH(82,14) WITH(96,14) WITH(110,14) USING(CTL1) //CTL1CNTL DD * OPTION COPY INREC IFTHEN=(WHEN=INIT, OVERLAY=(125:SEQNUM,1,ZD,START=1,RESTART=(1,11))), IFTHEN=(WHEN=(125,1,ZD,EQ,2),BUILD=(1,11,26:12,14)), IFTHEN=(WHEN=(125,1,ZD,EQ,3),BUILD=(1,11,40:12,14)), IFTHEN=(WHEN=(125,1,ZD,EQ,4),BUILD=(1,11,54:12,14)), IFTHEN=(WHEN=(125,1,ZD,EQ,5),BUILD=(1,11,68:12,14)), IFTHEN=(WHEN=(125,1,ZD,EQ,6),BUILD=(1,11,82:12,14)), IFTHEN=(WHEN=(125,1,ZD,EQ,7),BUILD=(1,11,96:12,14)), IFTHEN=(WHEN=(125,1,ZD,EQ,8),BUILD=(1,11,110:12,14)) OUTFIL BUILD=(1,123) /* Frank Yaeger - DFSORT Development Team (IBM) - yae...@us.ibm.com 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 lists...@bama.ua.edu with the message: INFO IBM-MAIN