Re: ICETOOL - Question regarding a statement in the ICETOOL Guide

2017-10-27 Thread George, William@FTB
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

2017-10-27 Thread Sri h Kolusu
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

2017-10-26 Thread George, William@FTB
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

2017-10-26 Thread retired mainframer
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

2017-10-26 Thread George, William@FTB
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

2017-10-26 Thread Sri h Kolusu
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

2017-10-26 Thread George, William@FTB
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

2017-10-26 Thread Lizette Koehler
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

2017-10-26 Thread Steve Smith
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
 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


ICETOOL - Question regarding a statement in the ICETOOL Guide

2017-10-25 Thread George, William@FTB
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

2016-10-14 Thread Lizette Koehler
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

2016-10-14 Thread Bill Woodger
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

2016-10-14 Thread Mark Jacobs - Listserv
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

2013-05-16 Thread retired mainframer
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

2013-05-16 Thread Sri h Kolusu
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

2013-05-13 Thread k Zaf
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

2013-05-10 Thread K
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

2013-05-10 Thread Elardus Engelbrecht
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

2013-05-10 Thread Sri h Kolusu
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