Minoru Massaki at IBM Mainframe Discussion List <[email protected]>
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) - [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
