Re: ICETOOL - Question regarding a statement in the ICETOOL Guide
Thanks Sri! I'll check this out. I have saved a link to the most recent DFSORT A.P.G. and looked at JOINKEYS. At first glance it seems somewhat daunting but I'll study it and try it out. Bill -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Sri h Kolusu Sent: Friday, October 27, 2017 9:09 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ICETOOL - Question regarding a statement in the ICETOOL Guide Bill, Here is a DFSORT JOINKEYS job which will give you the desired results similar to splice //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //INA DD * VICKY FRANK CARRIE HOLLY PAUL //INB DD * KAREN HOLLY CARRIE VICKY MARY //OUT12DD SYSOUT=* //OUT1 DD SYSOUT=* //OUT2 DD SYSOUT=* //SYSINDD * OPTION COPY JOINKEYS F1=INA,FIELDS=(1,10,A) JOINKEYS F2=INB,FIELDS=(1,10,A) JOIN UNPAIRED REFORMAT FIELDS=(F1:1,10,?,F2:1,10) OUTFIL FNAMES=OUT12,INCLUDE=(11,1,CH,EQ,C'B'),BUILD=(1,10) OUTFIL FNAMES=OUT1,INCLUDE=(11,1,CH,EQ,C'1'),BUILD=(1,10) OUTFIL FNAMES=OUT2,INCLUDE=(11,1,CH,EQ,C'2'),BUILD=(12,10) //* Joinkeys is explained in detail here https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.2.0/com.ibm.zos.v2r2.icea100/joinkeys.htm Also here are the examples (look up example 5 ) https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.icea100/ice2ca_JOINKEYS_application_examples.htm Further if you have any questions please send an email to our hotline (dfs...@us.ibm.com) or you can mail me directly. Thanks, Sri Hari Kolusu DFSORT Development IBM Corporation IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on 10/26/2017 11:41:15 PM: > From: "George, William@FTB" <bill.geo...@ftb.ca.gov> > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 10/26/2017 11:41 PM > Subject: Re: ICETOOL - Question regarding a statement in the ICETOOL Guide > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > Thanks Sri! > JOINKEYS... that's a new one on me. I guess I have an outdated DFSORT manual. > Here's the link I have: http://publibz.boulder.ibm.com/epubs/pdf/ice1ca30.pdf > > Thanks again > Bill > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU > ] On Behalf Of Sri h Kolusu > Sent: Thursday, October 26, 2017 10:56 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: ICETOOL - Question regarding a statement in the ICETOOL Guide > > George, > > It was a typo in our publications, it should be 1-10 instead of 1-3. > The sorting of 1-10 bytes is done with ON statement on SPLICE. > Please look at the DFSMSG dataset and you will see the SPLICE > control cards generates the SORT statement with 1,10,CH,A > > We will update our pubs. Thanks for bringing it to our attention. > > > "We sort the records of T1 on positions 1-10 and splice the second > id byte for matching records. We use KEEPNODUPS to keep non- > duplicate records. > > > Just an fyi, SPLICE is an Older technique to find the matching records. > Ideally we suggest using JOINKEYS > > > Thanks, > Sri Hari Kolusu > DFSORT Development > IBM Corporation > > IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on > 10/26/2017 03:09:04 AM: > > > From: "George, William@FTB" <bill.geo...@ftb.ca.gov> > > To: IBM-MAIN@LISTSERV.UA.EDU > > Date: 10/26/2017 03:09 AM > > Subject: ICETOOL - Question regarding a statement in the ICETOOL Guide > > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > > > I am confused about a statement I'm seeing in the DFSORT - ICETOOL > > Chapter and its example: > > Example 3 - Create files with matching and non-matching records I've > > copied the example below and my question is regarding the last line > > below and it statement on sorting: > > We sort the records of T1 on positions 1-3 and splice the second id > > byte for matching records. > > > > Where in the JCL code does it state to sort the T1 records on > > positions > 1-3?? > > > > //S3 EXEC PGM=ICETOOL > > //TOOLMSG DD SYSOUT=* > > //DFSMSG DD SYSOUT=* > > //IN1 DD * > > Vicky > > Frank > > Carrie > > Holly > > Paul > > /* > > //IN2 DD * > > Karen > > Holly > > Carrie > > Vicky > > Mary > > /* > > //OUT12 DD SYSOUT=* > > //OUT1 DD SYSOUT=* > > //OUT2 DD SYSOUT=* > > //T1 DD DSN=&,DISP=(MOD,PASS),UNIT=SYSDA,SPACE=(TRK,(5,5)) > > //TOOLIN DD * > >COPY FROM(IN1) TO(T1) USING(CTL1) > >COPY FROM(IN2) TO(T1) USING(CTL2) > >SPLICE FROM(T1) TO(OUT12) ON
Re: ICETOOL - Question regarding a statement in the ICETOOL Guide
Bill, Here is a DFSORT JOINKEYS job which will give you the desired results similar to splice //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //INA DD * VICKY FRANK CARRIE HOLLY PAUL //INB DD * KAREN HOLLY CARRIE VICKY MARY //OUT12DD SYSOUT=* //OUT1 DD SYSOUT=* //OUT2 DD SYSOUT=* //SYSINDD * OPTION COPY JOINKEYS F1=INA,FIELDS=(1,10,A) JOINKEYS F2=INB,FIELDS=(1,10,A) JOIN UNPAIRED REFORMAT FIELDS=(F1:1,10,?,F2:1,10) OUTFIL FNAMES=OUT12,INCLUDE=(11,1,CH,EQ,C'B'),BUILD=(1,10) OUTFIL FNAMES=OUT1,INCLUDE=(11,1,CH,EQ,C'1'),BUILD=(1,10) OUTFIL FNAMES=OUT2,INCLUDE=(11,1,CH,EQ,C'2'),BUILD=(12,10) //* Joinkeys is explained in detail here https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.2.0/com.ibm.zos.v2r2.icea100/joinkeys.htm Also here are the examples (look up example 5 ) https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.icea100/ice2ca_JOINKEYS_application_examples.htm Further if you have any questions please send an email to our hotline (dfs...@us.ibm.com) or you can mail me directly. Thanks, Sri Hari Kolusu DFSORT Development IBM Corporation IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on 10/26/2017 11:41:15 PM: > From: "George, William@FTB" <bill.geo...@ftb.ca.gov> > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 10/26/2017 11:41 PM > Subject: Re: ICETOOL - Question regarding a statement in the ICETOOL Guide > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > Thanks Sri! > JOINKEYS... that's a new one on me. I guess I have an outdated DFSORT manual. > Here's the link I have: http://publibz.boulder.ibm.com/epubs/pdf/ice1ca30.pdf > > Thanks again > Bill > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU > ] On Behalf Of Sri h Kolusu > Sent: Thursday, October 26, 2017 10:56 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: ICETOOL - Question regarding a statement in the ICETOOL Guide > > George, > > It was a typo in our publications, it should be 1-10 instead of 1-3. > The sorting of 1-10 bytes is done with ON statement on SPLICE. > Please look at the DFSMSG dataset and you will see the SPLICE > control cards generates the SORT statement with 1,10,CH,A > > We will update our pubs. Thanks for bringing it to our attention. > > > "We sort the records of T1 on positions 1-10 and splice the second > id byte for matching records. We use KEEPNODUPS to keep non- > duplicate records. > > > Just an fyi, SPLICE is an Older technique to find the matching records. > Ideally we suggest using JOINKEYS > > > Thanks, > Sri Hari Kolusu > DFSORT Development > IBM Corporation > > IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on > 10/26/2017 03:09:04 AM: > > > From: "George, William@FTB" <bill.geo...@ftb.ca.gov> > > To: IBM-MAIN@LISTSERV.UA.EDU > > Date: 10/26/2017 03:09 AM > > Subject: ICETOOL - Question regarding a statement in the ICETOOL Guide > > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > > > I am confused about a statement I'm seeing in the DFSORT - ICETOOL > > Chapter and its example: > > Example 3 - Create files with matching and non-matching records I've > > copied the example below and my question is regarding the last line > > below and it statement on sorting: > > We sort the records of T1 on positions 1-3 and splice the second id > > byte for matching records. > > > > Where in the JCL code does it state to sort the T1 records on > > positions > 1-3?? > > > > //S3 EXEC PGM=ICETOOL > > //TOOLMSG DD SYSOUT=* > > //DFSMSG DD SYSOUT=* > > //IN1 DD * > > Vicky > > Frank > > Carrie > > Holly > > Paul > > /* > > //IN2 DD * > > Karen > > Holly > > Carrie > > Vicky > > Mary > > /* > > //OUT12 DD SYSOUT=* > > //OUT1 DD SYSOUT=* > > //OUT2 DD SYSOUT=* > > //T1 DD DSN=&,DISP=(MOD,PASS),UNIT=SYSDA,SPACE=(TRK,(5,5)) > > //TOOLIN DD * > >COPY FROM(IN1) TO(T1) USING(CTL1) > >COPY FROM(IN2) TO(T1) USING(CTL2) > >SPLICE FROM(T1) TO(OUT12) ON(1,10,CH) WITH(13,1) USING(CTL3) > KEEPNODUPS > > /* > > //CTL1CNTL DD * > >OUTREC FIELDS=(1,10,12:C'11') > > /* > > //CTL2CNTL DD * > >OUTREC FIELDS=(1,10,12:C'22') > > /* > > //CTL3CNTL DD * > >OUTFIL FNAMES=OUT12,INCLUDE=(12,2,CH,EQ,C'12'),OUTREC=(1,10) > >OUTFIL FNAMES=OUT1,INCLUDE=(12,2,CH,EQ,C'11'),OUTREC=(1,10) > >OUTFIL FNAMES=OUT2,INCLUDE=(12,2,CH,EQ,C'22'),OUTREC=(1,10)
Re: ICETOOL - Question regarding a statement in the ICETOOL Guide
Well... I guess it's time to hunt out a more current release. 8-D -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of retired mainframer Sent: Thursday, October 26, 2017 1:56 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ICETOOL - Question regarding a statement in the ICETOOL Guide That was copyrighted in 2008 and synchronized with z/OS 1.10, 9 years and 6 releases back. > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] > On Behalf Of George, William@FTB > Sent: Thursday, October 26, 2017 11:11 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: ICETOOL - Question regarding a statement in the ICETOOL > Guide > > Thanks Sri! > JOINKEYS... that's a new one on me. I guess I have an outdated DFSORT manual. > Here's the link I have: http://publibz.boulder.ibm.com/epubs/pdf/ice1ca30.pdf -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ICETOOL - Question regarding a statement in the ICETOOL Guide
That was copyrighted in 2008 and synchronized with z/OS 1.10, 9 years and 6 releases back. > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of George, William@FTB > Sent: Thursday, October 26, 2017 11:11 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: ICETOOL - Question regarding a statement in the ICETOOL Guide > > Thanks Sri! > JOINKEYS... that's a new one on me. I guess I have an outdated DFSORT manual. > Here's the link I have: http://publibz.boulder.ibm.com/epubs/pdf/ice1ca30.pdf -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ICETOOL - Question regarding a statement in the ICETOOL Guide
Thanks Sri! JOINKEYS... that's a new one on me. I guess I have an outdated DFSORT manual. Here's the link I have: http://publibz.boulder.ibm.com/epubs/pdf/ice1ca30.pdf Thanks again Bill -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Sri h Kolusu Sent: Thursday, October 26, 2017 10:56 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ICETOOL - Question regarding a statement in the ICETOOL Guide George, It was a typo in our publications, it should be 1-10 instead of 1-3. The sorting of 1-10 bytes is done with ON statement on SPLICE. Please look at the DFSMSG dataset and you will see the SPLICE control cards generates the SORT statement with 1,10,CH,A We will update our pubs. Thanks for bringing it to our attention. "We sort the records of T1 on positions 1-10 and splice the second id byte for matching records. We use KEEPNODUPS to keep non-duplicate records. Just an fyi, SPLICE is an Older technique to find the matching records. Ideally we suggest using JOINKEYS Thanks, Sri Hari Kolusu DFSORT Development IBM Corporation IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on 10/26/2017 03:09:04 AM: > From: "George, William@FTB" <bill.geo...@ftb.ca.gov> > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 10/26/2017 03:09 AM > Subject: ICETOOL - Question regarding a statement in the ICETOOL Guide > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > I am confused about a statement I'm seeing in the DFSORT - ICETOOL > Chapter and its example: > Example 3 - Create files with matching and non-matching records I've > copied the example below and my question is regarding the last line > below and it statement on sorting: > We sort the records of T1 on positions 1-3 and splice the second id > byte for matching records. > > Where in the JCL code does it state to sort the T1 records on > positions 1-3?? > > //S3 EXEC PGM=ICETOOL > //TOOLMSG DD SYSOUT=* > //DFSMSG DD SYSOUT=* > //IN1 DD * > Vicky > Frank > Carrie > Holly > Paul > /* > //IN2 DD * > Karen > Holly > Carrie > Vicky > Mary > /* > //OUT12 DD SYSOUT=* > //OUT1 DD SYSOUT=* > //OUT2 DD SYSOUT=* > //T1 DD DSN=&,DISP=(MOD,PASS),UNIT=SYSDA,SPACE=(TRK,(5,5)) > //TOOLIN DD * >COPY FROM(IN1) TO(T1) USING(CTL1) >COPY FROM(IN2) TO(T1) USING(CTL2) >SPLICE FROM(T1) TO(OUT12) ON(1,10,CH) WITH(13,1) USING(CTL3) KEEPNODUPS > /* > //CTL1CNTL DD * >OUTREC FIELDS=(1,10,12:C'11') > /* > //CTL2CNTL DD * >OUTREC FIELDS=(1,10,12:C'22') > /* > //CTL3CNTL DD * >OUTFIL FNAMES=OUT12,INCLUDE=(12,2,CH,EQ,C'12'),OUTREC=(1,10) >OUTFIL FNAMES=OUT1,INCLUDE=(12,2,CH,EQ,C'11'),OUTREC=(1,10) >OUTFIL FNAMES=OUT2,INCLUDE=(12,2,CH,EQ,C'22'),OUTREC=(1,10) > /* > > We copy the IN1 records to the T1 data set and add an identifier of > '11' to show they come from FILE1. > We copy the IN2 records to the end (MOD) of the T1 data set and add > an identifier of '22' to show they come from FILE2. > We sort the records of T1 on positions 1-3 and splice the second id > byte for matching records. > > > Thanks for any insights > Bill > > __ > CONFIDENTIALITY NOTICE: This email from the State of California is for > the sole use of the intended recipient and may contain confidential > and privileged information. Any unauthorized review or use, including > disclosure or distribution, is prohibited. If you are not the intended > recipient, please contact the sender and destroy all copies of this > email. > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ICETOOL - Question regarding a statement in the ICETOOL Guide
George, It was a typo in our publications, it should be 1-10 instead of 1-3. The sorting of 1-10 bytes is done with ON statement on SPLICE. Please look at the DFSMSG dataset and you will see the SPLICE control cards generates the SORT statement with 1,10,CH,A We will update our pubs. Thanks for bringing it to our attention. "We sort the records of T1 on positions 1-10 and splice the second id byte for matching records. We use KEEPNODUPS to keep non-duplicate records. Just an fyi, SPLICE is an Older technique to find the matching records. Ideally we suggest using JOINKEYS Thanks, Sri Hari Kolusu DFSORT Development IBM Corporation IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on 10/26/2017 03:09:04 AM: > From: "George, William@FTB" <bill.geo...@ftb.ca.gov> > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 10/26/2017 03:09 AM > Subject: ICETOOL - Question regarding a statement in the ICETOOL Guide > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > I am confused about a statement I'm seeing in the DFSORT - ICETOOL > Chapter and its example: > Example 3 - Create files with matching and non-matching records > I've copied the example below and my question is regarding the last > line below and it statement on sorting: > We sort the records of T1 on positions 1-3 and splice the second id > byte for matching records. > > Where in the JCL code does it state to sort the T1 records on positions 1-3?? > > //S3 EXEC PGM=ICETOOL > //TOOLMSG DD SYSOUT=* > //DFSMSG DD SYSOUT=* > //IN1 DD * > Vicky > Frank > Carrie > Holly > Paul > /* > //IN2 DD * > Karen > Holly > Carrie > Vicky > Mary > /* > //OUT12 DD SYSOUT=* > //OUT1 DD SYSOUT=* > //OUT2 DD SYSOUT=* > //T1 DD DSN=&,DISP=(MOD,PASS),UNIT=SYSDA,SPACE=(TRK,(5,5)) > //TOOLIN DD * >COPY FROM(IN1) TO(T1) USING(CTL1) >COPY FROM(IN2) TO(T1) USING(CTL2) >SPLICE FROM(T1) TO(OUT12) ON(1,10,CH) WITH(13,1) USING(CTL3) KEEPNODUPS > /* > //CTL1CNTL DD * >OUTREC FIELDS=(1,10,12:C'11') > /* > //CTL2CNTL DD * >OUTREC FIELDS=(1,10,12:C'22') > /* > //CTL3CNTL DD * >OUTFIL FNAMES=OUT12,INCLUDE=(12,2,CH,EQ,C'12'),OUTREC=(1,10) >OUTFIL FNAMES=OUT1,INCLUDE=(12,2,CH,EQ,C'11'),OUTREC=(1,10) >OUTFIL FNAMES=OUT2,INCLUDE=(12,2,CH,EQ,C'22'),OUTREC=(1,10) > /* > > We copy the IN1 records to the T1 data set and add an identifier of > '11' to show they come from FILE1. > We copy the IN2 records to the end (MOD) of the T1 data set and add > an identifier of '22' to show they come from FILE2. > We sort the records of T1 on positions 1-3 and splice the second id > byte for matching records. > > > Thanks for any insights > Bill > > __ > CONFIDENTIALITY NOTICE: This email from the State of California is > for the sole use of the intended recipient and may contain > confidential and privileged information. Any unauthorized review or > use, including disclosure or distribution, is prohibited. If you are > not the intended recipient, please contact the sender and destroy > all copies of this email. > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ICETOOL - Question regarding a statement in the ICETOOL Guide
Thanks Steve... I tend to believe also it is a mistake (typo maybe) and should state it is sorted on the ON positions. I'll check out this 'mini' guide. Bill -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Steve Smith Sent: Thursday, October 26, 2017 5:29 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ICETOOL - Question regarding a statement in the ICETOOL Guide Nothing in the "JCL code". It appears to me the example has a mistake: either they meant they sort on "positions 1-10", or the SPLICE statement should have "ON(1,3,CH)". This example is so trivial, it's hard to know for sure what they meant. But probably it's the former. There's a really helpful manual I found called "DFSORT: ICETOOL Mini-User Guide" (a misnomer -- full-sized users will find it valuable) by Frank L. Yaeger. My copy is dated October 2010. It came from the DFSORT Team in San Jose, so it should be available from IBM. sas On Wed, Oct 25, 2017 at 5:39 PM, George, William@FTB <bill.geo...@ftb.ca.gov> wrote: > I am confused about a statement I'm seeing in the DFSORT - ICETOOL Chapter > and its example: > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ICETOOL - Question regarding a statement in the ICETOOL Guide
If you were not aware, there is a dfsort hotline where you can email any DFSORT question to IBM. This is a no charge service To do so - userdfs...@us.ibm.com Lizette > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of George, William@FTB > Sent: Wednesday, October 25, 2017 2:39 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: ICETOOL - Question regarding a statement in the ICETOOL Guide > > I am confused about a statement I'm seeing in the DFSORT - ICETOOL Chapter > and its example: > Example 3 - Create files with matching and non-matching records I've copied > the example below and my question is regarding the last line below and it > statement on sorting: > We sort the records of T1 on positions 1-3 and splice the second id byte for > matching records. > > Where in the JCL code does it state to sort the T1 records on positions 1-3?? > > //S3 EXEC PGM=ICETOOL > //TOOLMSG DD SYSOUT=* > //DFSMSG DD SYSOUT=* > //IN1 DD * > Vicky > Frank > Carrie > Holly > Paul > /* > //IN2 DD * > Karen > Holly > Carrie > Vicky > Mary > /* > //OUT12 DD SYSOUT=* > //OUT1 DD SYSOUT=* > //OUT2 DD SYSOUT=* > //T1 DD DSN=&,DISP=(MOD,PASS),UNIT=SYSDA,SPACE=(TRK,(5,5)) > //TOOLIN DD * >COPY FROM(IN1) TO(T1) USING(CTL1) >COPY FROM(IN2) TO(T1) USING(CTL2) >SPLICE FROM(T1) TO(OUT12) ON(1,10,CH) WITH(13,1) USING(CTL3) KEEPNODUPS > /* > //CTL1CNTL DD * >OUTREC FIELDS=(1,10,12:C'11') > /* > //CTL2CNTL DD * >OUTREC FIELDS=(1,10,12:C'22') > /* > //CTL3CNTL DD * >OUTFIL FNAMES=OUT12,INCLUDE=(12,2,CH,EQ,C'12'),OUTREC=(1,10) >OUTFIL FNAMES=OUT1,INCLUDE=(12,2,CH,EQ,C'11'),OUTREC=(1,10) >OUTFIL FNAMES=OUT2,INCLUDE=(12,2,CH,EQ,C'22'),OUTREC=(1,10) > /* > > We copy the IN1 records to the T1 data set and add an identifier of '11' to > show they come from FILE1. > We copy the IN2 records to the end (MOD) of the T1 data set and add an > identifier of '22' to show they come from FILE2. > We sort the records of T1 on positions 1-3 and splice the second id byte for > matching records. > > > Thanks for any insights > Bill > > __ > CONFIDENTIALITY NOTICE: This email from the State of California is for the > sole use of the intended recipient and may contain confidential and > privileged information. Any unauthorized review or use, including disclosure > or distribution, is prohibited. If you are not the intended recipient, please > contact the sender and destroy all copies of this email. > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send email to > lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ICETOOL - Question regarding a statement in the ICETOOL Guide
Nothing in the "JCL code". It appears to me the example has a mistake: either they meant they sort on "positions 1-10", or the SPLICE statement should have "ON(1,3,CH)". This example is so trivial, it's hard to know for sure what they meant. But probably it's the former. There's a really helpful manual I found called "DFSORT: ICETOOL Mini-User Guide" (a misnomer -- full-sized users will find it valuable) by Frank L. Yaeger. My copy is dated October 2010. It came from the DFSORT Team in San Jose, so it should be available from IBM. sas On Wed, Oct 25, 2017 at 5:39 PM, George, William@FTBwrote: > I am confused about a statement I'm seeing in the DFSORT - ICETOOL Chapter > and its example: > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
ICETOOL - Question regarding a statement in the ICETOOL Guide
I am confused about a statement I'm seeing in the DFSORT - ICETOOL Chapter and its example: Example 3 - Create files with matching and non-matching records I've copied the example below and my question is regarding the last line below and it statement on sorting: We sort the records of T1 on positions 1-3 and splice the second id byte for matching records. Where in the JCL code does it state to sort the T1 records on positions 1-3?? //S3 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN1 DD * Vicky Frank Carrie Holly Paul /* //IN2 DD * Karen Holly Carrie Vicky Mary /* //OUT12 DD SYSOUT=* //OUT1 DD SYSOUT=* //OUT2 DD SYSOUT=* //T1 DD DSN=&,DISP=(MOD,PASS),UNIT=SYSDA,SPACE=(TRK,(5,5)) //TOOLIN DD * COPY FROM(IN1) TO(T1) USING(CTL1) COPY FROM(IN2) TO(T1) USING(CTL2) SPLICE FROM(T1) TO(OUT12) ON(1,10,CH) WITH(13,1) USING(CTL3) KEEPNODUPS /* //CTL1CNTL DD * OUTREC FIELDS=(1,10,12:C'11') /* //CTL2CNTL DD * OUTREC FIELDS=(1,10,12:C'22') /* //CTL3CNTL DD * OUTFIL FNAMES=OUT12,INCLUDE=(12,2,CH,EQ,C'12'),OUTREC=(1,10) OUTFIL FNAMES=OUT1,INCLUDE=(12,2,CH,EQ,C'11'),OUTREC=(1,10) OUTFIL FNAMES=OUT2,INCLUDE=(12,2,CH,EQ,C'22'),OUTREC=(1,10) /* We copy the IN1 records to the T1 data set and add an identifier of '11' to show they come from FILE1. We copy the IN2 records to the end (MOD) of the T1 data set and add an identifier of '22' to show they come from FILE2. We sort the records of T1 on positions 1-3 and splice the second id byte for matching records. Thanks for any insights Bill __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ICETOOL Question
Mark, Did you check out the material on ibm website for ICETOOL? It is pretty much a 4GL type language. Here is the URL and a brief Blurb for those that do not know ICETOOL ftp://ftp.software.ibm.com/storage/dfsort/mvs/sorttool.pdf This paper is a mini-user guide for DFSORT's versatile ICETOOL data processing and reporting utility. The major features of ICETOOL for z/OS DFSORT V1R10 (used for z/OS 1.10 and z/OS 1.11) and z/OS DFSORT V1R12 (used for z/OS 1.12), including its JCL and control statements, are discussed at length using many examples. The objective is to show you how to use DFSORT's ICETOOL to accomplish complex tasks ICETOOL, a versatile data set processing and reporting utility, provides an easy-to-use batch front-end for DFSORT. ICETOOL combines new features with previously available DFSORT features to perform complex sorting, copying, merging, reporting and analytical tasks using multiple data sets in a single job step. ICETOOL was first introduced in DFSORT Release 11.1 and was significantly enhanced in each subsequent DFSORT release. The many enhancements to ICETOOL through October, 2010 are reflected in this paper. Lizette > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Mark Jacobs - Listserv > Sent: Friday, October 14, 2016 1:10 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: ICETOOL Question > > Before I dig into the books, does anyone have an ICETOOL example that does > this; > > Copy all records in a file has these fields > > B CCC D > > to a different file in this field order > > > -- > > Mark Jacobs > Time Customer Service > Global Technology Services > > The standard you walk past is the standard you accept. > Lt. Gen. David Morrison > > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ICETOOL Question
Why ICETOOL? It is a DFSORT COPY operation, with a BUILD on INREC. OPTION COPY INREC BUILD=(starta,lengtha,startb,lengthb,startc,lengthc,startd,lengthd) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
ICETOOL Question
Before I dig into the books, does anyone have an ICETOOL example that does this; Copy all records in a file has these fields B CCC D to a different file in this field order -- Mark Jacobs Time Customer Service Global Technology Services The standard you walk past is the standard you accept. Lt. Gen. David Morrison -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ICETOOL question
This is really clever but there is a minor error in the rounding logic of the last IFTHEN. When the fraction portion of the percentage is between 95 and 99 inclusive, the tenths digit is incremented to 0 but the units digit (two positions to the left because of the intervening comma) is not incremented. It looks like the rounding needs to be done before the value is edited to include the comma. This will insure that any carry is propagated properly to the left. :: -Original Message- :: From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On :: Behalf Of Sri h Kolusu :: Sent: Friday, May 10, 2013 9:00 AM :: To: IBM-MAIN@LISTSERV.UA.EDU :: Subject: Re: ICETOOL question :: :: K, :: :: The following DFSORT JCL will give you the desired results. The trick :: here :: is to use the same input file twice with Joinkeys. Looking at the your :: expected results, I also rounded the decimal. :: :: //STEP0100 EXEC PGM=SORT :: //SYSOUT DD SYSOUT=* :: //IN1 DD * :: AAA :: BBB :: AAA :: CCC :: AAA :: BBB :: //IN2 DD * :: AAA :: BBB :: AAA :: CCC :: AAA :: BBB :: //SORTOUT DD SYSOUT=* :: //SYSINDD* :: JOINKEYS F1=IN1,FIELDS=(4,1,A),SORTED,NOSEQCK :: JOINKEYS F2=IN2,FIELDS=(1,1,A) :: REFORMAT FIELDS=(F1:1,4,F2:2,8) :: :: SORT FIELDS=(1,3,CH,A) :: :: OUTREC IFTHEN=(WHEN=GROUP,KEYBEGIN=(1,3),PUSH=(14:SEQ=8)), :: IFTHEN=(WHEN=INIT, :: OVERLAY=(25:(14,8,ZD,MUL,+1),DIV,5,8,ZD,EDIT=(IIT,TT))), :: IFTHEN=(WHEN=(30,1,ZD,GT,5),OVERLAY=(29:29,1,ZD,ADD,+1,EDIT=(T))) :: :: OUTFIL REMOVECC,NODETAIL,BUILD=(80X), :: SECTIONS=(1,3,TRAILER3=(1,4,25,5)) :: //* :: //JNF1CNTL DD * :: INREC FIELDS=(1,3,X) :: //* :: //JNF2CNTL DD * :: INREC FIELDS=(X,7C'0',C'1') :: SUM FIELDS=(2,8,ZD) :: //* :: :: The output from this job is :: :: AAA 50,0 :: BBB 33,3 :: CCC 16,7 :: :: Hope this helps... :: Kolusu :: DFSORT Development :: IBM Corporation :: IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu wrote on :: 05/10/2013 06:53:40 AM: :: :: From: K kzafi...@gmail.com :: To: IBM-MAIN@listserv.ua.edu, :: Date: 05/10/2013 07:01 AM :: Subject: ICETOOL question :: Sent by: IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu :: :: Hi dear all, :: :: I would like to produce a statistic report using ICETOOL. This :: report should shown the percentage of records in the file according :: to their values e.g. :: :: Input: :: :: AAA :: BBB :: AAA :: CCC :: AAA :: BBB :: :: Output Percentages: :: :: AAA 50,0 :: BBB 33,0 :: CCC 16,7 :: :: Is there any ICETOOL operator (like OCCUR) to find out the above :: percentage? Do I have to use various INCLUDE COND and then read the :: DFSMSG to extract percentages (from ICE054I 0 RECORDS - IN: xxx, OUT: :: yyy) ? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ICETOOL question
Great Catch mainframer. I apologize for the oversight.. Here are updated control cards which would account for rounding the decimals when they are between 95 and 99. I also added a message to denote the type of rounding performed. //SYSINDD* JOINKEYS F1=IN1,FIELDS=(4,1,A),SORTED,NOSEQCK JOINKEYS F2=IN2,FIELDS=(1,1,A) REFORMAT FIELDS=(F1:1,4,F2:2,8) SORT FIELDS=(1,3,CH,A) OUTREC IFTHEN=(WHEN=GROUP,KEYBEGIN=(1,3),PUSH=(14:SEQ=8)), IFTHEN=(WHEN=INIT, OVERLAY=(25:(14,8,ZD,MUL,+1),DIV,5,8,ZD,EDIT=(IIT,TT))), IFTHEN=(WHEN=(30,1,SS,EQ,C'6,7,8,9',AND,29,2,ZD,LE,95), OVERLAY=(29:29,1,ZD,ADD,+1,EDIT=(T),35:C'DECIMAL ROUNDED')), IFTHEN=(WHEN=(29,2,ZD,GT,95), OVERLAY=(25:25,3,UFF,ADD,+1,EDIT=(IIT),C',00',35:C'INTEGER ROUNDED')) OUTFIL REMOVECC,NODETAIL,BUILD=(80X), SECTIONS=(1,3,TRAILER3=(1,4,25,5,X,35,15)) //* Kolusu DFSORT Development IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu wrote on 05/16/2013 11:01:00 AM: From: retired mainframer retired-mainfra...@q.com To: IBM-MAIN@listserv.ua.edu, Date: 05/16/2013 11:05 AM Subject: Re: ICETOOL question Sent by: IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu This is really clever but there is a minor error in the rounding logic of the last IFTHEN. When the fraction portion of the percentage is between 95 and 99 inclusive, the tenths digit is incremented to 0 but the units digit (two positions to the left because of the intervening comma) is not incremented. It looks like the rounding needs to be done before the value is edited to include the comma. This will insure that any carry is propagated properly to the left. :: -Original Message- :: From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU ] On :: Behalf Of Sri h Kolusu :: Sent: Friday, May 10, 2013 9:00 AM :: To: IBM-MAIN@LISTSERV.UA.EDU :: Subject: Re: ICETOOL question :: :: K, :: :: The following DFSORT JCL will give you the desired results. The trick :: here :: is to use the same input file twice with Joinkeys. Looking at the your :: expected results, I also rounded the decimal. :: :: //STEP0100 EXEC PGM=SORT :: //SYSOUT DD SYSOUT=* :: //IN1 DD * :: AAA :: BBB :: AAA :: CCC :: AAA :: BBB :: //IN2 DD * :: AAA :: BBB :: AAA :: CCC :: AAA :: BBB :: //SORTOUT DD SYSOUT=* :: //SYSINDD* :: JOINKEYS F1=IN1,FIELDS=(4,1,A),SORTED,NOSEQCK :: JOINKEYS F2=IN2,FIELDS=(1,1,A) :: REFORMAT FIELDS=(F1:1,4,F2:2,8) :: :: SORT FIELDS=(1,3,CH,A) :: :: OUTREC IFTHEN=(WHEN=GROUP,KEYBEGIN=(1,3),PUSH=(14:SEQ=8)), :: IFTHEN=(WHEN=INIT, :: OVERLAY=(25:(14,8,ZD,MUL,+1),DIV,5,8,ZD,EDIT=(IIT,TT))), :: IFTHEN=(WHEN=(30,1,ZD,GT,5),OVERLAY=(29:29,1,ZD,ADD,+1,EDIT=(T))) :: :: OUTFIL REMOVECC,NODETAIL,BUILD=(80X), :: SECTIONS=(1,3,TRAILER3=(1,4,25,5)) :: //* :: //JNF1CNTL DD * :: INREC FIELDS=(1,3,X) :: //* :: //JNF2CNTL DD * :: INREC FIELDS=(X,7C'0',C'1') :: SUM FIELDS=(2,8,ZD) :: //* :: :: The output from this job is :: :: AAA 50,0 :: BBB 33,3 :: CCC 16,7 :: :: Hope this helps... :: Kolusu :: DFSORT Development :: IBM Corporation :: IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu wrote on :: 05/10/2013 06:53:40 AM: :: :: From: K kzafi...@gmail.com :: To: IBM-MAIN@listserv.ua.edu, :: Date: 05/10/2013 07:01 AM :: Subject: ICETOOL question :: Sent by: IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu :: :: Hi dear all, :: :: I would like to produce a statistic report using ICETOOL. This :: report should shown the percentage of records in the file according :: to their values e.g. :: :: Input: :: :: AAA :: BBB :: AAA :: CCC :: AAA :: BBB :: :: Output Percentages: :: :: AAA 50,0 :: BBB 33,0 :: CCC 16,7 :: :: Is there any ICETOOL operator (like OCCUR) to find out the above :: percentage? Do I have to use various INCLUDE COND and then read the :: DFSMSG to extract percentages (from ICE054I 0 RECORDS - IN: xxx, OUT: :: yyy) ? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ICETOOL question
Dear All I could never thought that DFSORT should help to produce percentages of the records... Thank you for your (more or less tricky) help Kind regards Kostas On 10 May 2013 20:10, Norbert Friemel nf.ibmm...@web.de wrote: On Fri, 10 May 2013 08:53:40 -0500, K wrote: Two steps: //* //S1 EXEC PGM=ICETOOL //* //TOOLMSG DD SYSOUT=* //DFSMSGDD SYSOUT=* //DATA DD DISP=(,PASS), // DSN=amp;DATA, // SPACE=(80,(10,10)),AVGREC=U, // LRECL=80,RECFM=FB //TOTAL DD DISP=(,PASS), // DSN=amp;TOTAL, // SPACE=(80,(1,1)),AVGREC=U, // LRECL=80,RECFM=FB //INDD * AAA BBB AAA CCC AAA BBB /* //TOOLINDD * COPY FROM(IN) TO(DATA) COUNT FROM(DATA) WRITE(TOTAL) TEXT('Total#,+') DIGITS(9) WIDTH(80) /* //* //S2 EXEC PGM=SORT //* //SYSOUTDD SYSOUT=* //SYMNOUT DD SYSOUT=* //SORTINDD DISP=(OLD,DELETE), // DSN=amp;DATA //SORTOUT DD SYSOUT=* //SYMNAMES DD DISP=(OLD,DELETE), // DSN=amp;TOTAL //SYSIN DD * SORT FIELDS=(1,3,CH,A) INREC BUILD=(1,3,+1,TO=PD,LENGTH=5,Total#,TO=PD,LENGTH=5) SUM FIELDS=(4,5,PD) OUTREC BUILD=(1,3,(((4,5,PD,DIV,9,5,PD),ADD,+5),DIV,+10), EDIT=(IIIT,T%)) /* Norbert Friemel Hi dear all, I would like to produce a statistic report using ICETOOL. This report should shown the percentage of records in the file according to their values e.g. Input: AAA BBB AAA CCC AAA BBB Output Percentages: AAA 50,0 BBB 33,0 CCC 16,7 Is there any ICETOOL operator (like OCCUR) to find out the above percentage? Do I have to use various INCLUDE COND and then read the DFSMSG to extract percentages (from ICE054I 0 RECORDS - IN: xxx, OUT: yyy) ? Thanks in advance Kzafirop at gmail dot com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
ICETOOL question
Hi dear all, I would like to produce a statistic report using ICETOOL. This report should shown the percentage of records in the file according to their values e.g. Input: AAA BBB AAA CCC AAA BBB Output Percentages: AAA 50,0 BBB 33,0 CCC 16,7 Is there any ICETOOL operator (like OCCUR) to find out the above percentage? Do I have to use various INCLUDE COND and then read the DFSMSG to extract percentages (from ICE054I 0 RECORDS - IN: xxx, OUT: yyy) ? Thanks in advance Kzafirop at gmail dot com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ICETOOL question
Kzafirop wrote: I would like to produce a statistic report using ICETOOL. This report should shown the percentage of records in the file according to their values e.g. Is there any ICETOOL operator (like OCCUR) to find out the above percentage? Do I have to use various INCLUDE COND and then read the DFSMSG to extract percentages (from ICE054I 0 RECORDS - IN: xxx, OUT: yyy) ? I don't know if you can convert totals of items to percentage of full total, but you can use OCCUR like this and then work out the % yourself. OCCUR FROM(TEMP) LIST(PRINT) - PAGE - TITLE('COUNT OF RACF COMMANDS') - DATE(4MD/) - TIME(24:) - BLANK - ON(63,8,CH) HEADER('ISSUER') - ON(VALCNT) HEADER('COUNT') I don't have now access to the DFSORT books, but I'm very sure someone from DFSORT support can help you. HTH! Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ICETOOL question
K, The following DFSORT JCL will give you the desired results. The trick here is to use the same input file twice with Joinkeys. Looking at the your expected results, I also rounded the decimal. //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //IN1 DD * AAA BBB AAA CCC AAA BBB //IN2 DD * AAA BBB AAA CCC AAA BBB //SORTOUT DD SYSOUT=* //SYSINDD* JOINKEYS F1=IN1,FIELDS=(4,1,A),SORTED,NOSEQCK JOINKEYS F2=IN2,FIELDS=(1,1,A) REFORMAT FIELDS=(F1:1,4,F2:2,8) SORT FIELDS=(1,3,CH,A) OUTREC IFTHEN=(WHEN=GROUP,KEYBEGIN=(1,3),PUSH=(14:SEQ=8)), IFTHEN=(WHEN=INIT, OVERLAY=(25:(14,8,ZD,MUL,+1),DIV,5,8,ZD,EDIT=(IIT,TT))), IFTHEN=(WHEN=(30,1,ZD,GT,5),OVERLAY=(29:29,1,ZD,ADD,+1,EDIT=(T))) OUTFIL REMOVECC,NODETAIL,BUILD=(80X), SECTIONS=(1,3,TRAILER3=(1,4,25,5)) //* //JNF1CNTL DD * INREC FIELDS=(1,3,X) //* //JNF2CNTL DD * INREC FIELDS=(X,7C'0',C'1') SUM FIELDS=(2,8,ZD) //* The output from this job is AAA 50,0 BBB 33,3 CCC 16,7 Hope this helps... Kolusu DFSORT Development IBM Corporation IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu wrote on 05/10/2013 06:53:40 AM: From: K kzafi...@gmail.com To: IBM-MAIN@listserv.ua.edu, Date: 05/10/2013 07:01 AM Subject: ICETOOL question Sent by: IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu Hi dear all, I would like to produce a statistic report using ICETOOL. This report should shown the percentage of records in the file according to their values e.g. Input: AAA BBB AAA CCC AAA BBB Output Percentages: AAA 50,0 BBB 33,0 CCC 16,7 Is there any ICETOOL operator (like OCCUR) to find out the above percentage? Do I have to use various INCLUDE COND and then read the DFSMSG to extract percentages (from ICE054I 0 RECORDS - IN: xxx, OUT: yyy) ? Thanks in advance Kzafirop at gmail dot com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN