Dave, Thanks for prompt response. It is always good to have your back.
Chris, Here is an optimized JCL which will sort and also eliminate duplicate records in the same step. I removed your JCL sortwork datasets and chose Dynamic Allocation. I also the removed the unwanted DD statements. //STEP45 EXEC PGM=ICETOOL,REGION=0M //TOOLMSG DD SYSOUT=X //DFSMSG DD SYSOUT=X //IN DD DISP=(OLD,DELETE),DSN=&&UNIQSTOK //OUT DD SYSOUT=X //TOOLIN DD * SORT FROM(IN) TO(OUT) USING(TOOL) //TOOLCNTL DD * OPTION NOEQUALS,DYNALLOC=(SYSDA,8) SORT FIELDS=(104,4088,A),FORMAT=CH SUM FIELDS=NONE //* Further if you have any questions please let me know Thanks, Kolusu DFSORT Development IBM Corporation IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on 09/19/2017 04:23:08 PM: > From: Chris Hoelscher <choelsc...@humana.com> > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 09/19/2017 04:23 PM > Subject: Re: z/os 2.2 - help with sort/icetool > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > My goal is to delete any dups - so getting this far was just the first step > > Chris Hoelscher > Technology Architect, Database Infrastructure Services > Technology Solution Services > > 123 East Main Street > Louisville, KY 40202 > Humana.com > (502) 476-2538 or 407-7266 > > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU > ] On Behalf Of David Betten > Sent: Tuesday, September 19, 2017 6:16 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: [IBM-MAIN] z/os 2.2 - help with sort/icetool > > Glad it worked. Just to be clear, EQUALS is specified if you want > to maintain the original order of records with the same key. With > NOEQUALS, records with the same key value may or may not end up in > the original order. So be sure you are ok with that before going > with NOEQUALS. > > > Have a nice day, > Dave Betten > z/OS Performance Specialist > Cloud and Systems Performance > IBM Corporation > email: bet...@us.ibm.com > > > IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on > 09/19/2017 06:02:10 PM: > > > From: Chris Hoelscher <choelsc...@humana.com> > > To: IBM-MAIN@LISTSERV.UA.EDU > > Date: 09/19/2017 06:02 PM > > Subject: Re: z/os 2.2 - help with sort/icetool Sent by: IBM Mainframe > > Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > > > NOEQUALS made it work - thanks to all > > > > Chris Hoelscher > > Technology Architect, Database Infrastructure Services Technology > > Solution Services > > > > 123 East Main Street > > Louisville, KY 40202 > > Humana.com > > (502) 476-2538 or 407-7266 > > > > > > -----Original Message----- > > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU ] > > On Behalf Of David Betten > > Sent: Tuesday, September 19, 2017 5:40 PM > > To: IBM-MAIN@LISTSERV.UA.EDU > > Subject: Re: [IBM-MAIN] z/os 2.2 - help with sort/icetool > > > > Is it possible your installation default is EQUALS=YES? This causes > > extra bytes to be added to the sort field internally. Try adding > > OPTION NOEQUALS after your SORT statement. > > > > > > Have a nice day, > > Dave Betten > > z/OS Performance Specialist > > Cloud and Systems Performance > > IBM Corporation > > email: bet...@us.ibm.com > > > > > > IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on > > 09/19/2017 05:20:05 PM: > > > > > From: Chris Hoelscher <choelsc...@humana.com> > > > To: IBM-MAIN@LISTSERV.UA.EDU > > > Date: 09/19/2017 05:20 PM > > > Subject: Re: z/os 2.2 - help with sort/icetool Sent by: IBM > > > Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > > > > > the LRECL, RECFM, DSORG and BLCKSIZE of &&UNIQSTOK? > > > > > > Here is where the ds was created > > > //OFA DD DSN=&&UNIQSTOK, > > > // DISP=(NEW,PASS), > > > // SPACE=(CYL,(010,010),RLSE), > > > // UNIT=SYSDA, > > > // BLKSIZE=25600, > > > // LRECL=25600, > > > // RECFM=FB > > > > > > You may need to ensure your input is really that long, 4088 chars at > > least? > > > > > > Yes - the rows are space-filled before being populated - at least > > > 25502 bytes have data > > > > > > > > > Chris Hoelscher > > > Technology Architect, Database Infrastructure Services Technology > > > Solution Services > > > > > > 123 East Main Street > > > Louisville, KY 40202 > > > Humana.com > > > (502) 476-2538 or 407-7266 > > > > > > > > > -----Original Message----- > > > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU > > > ] On Behalf Of Elardus Engelbrecht > > > Sent: Tuesday, September 19, 2017 5:03 PM > > > To: IBM-MAIN@LISTSERV.UA.EDU > > > Subject: Re: [IBM-MAIN] z/os 2.2 - help with sort/icetool > > > > > > Chris Hoelscher wrote: > > > > > > >//IN DD DSN=&&UNIQSTOK, > > > >// DISP=(OLD,DELETE) > > > ... > > > > SORT FIELDS=(104,4088,A),FORMAT=CH > > > ... > > > > > > > > > > ICE201I A RECORD TYPE IS F - DATA STARTS IN POSITION 1 > > > > > > > > Is that RECFM correct? > > > > > > > ICE189A 0 BLOCKSET REQUIRED BUT COULD NOT BE USED - REASON CODE IS > > > 63 > > > > ICE052I 3 END OF DFSORT > > > > > >63 > > > >Too many control fields were specified or control fields were too > > > large. > > > > > > >I have only 1 control field and I *thought* 4088 was acceptable > > > >Where have I gone wrong?? > > > > > > Let us start at the beginning. What is the LRECL, RECFM, DSORG and > > > BLCKSIZE of &&UNIQSTOK? > > > > > > You may need to ensure your input is really that long, 4088 chars at > > least? > > > > > > 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 > > > > > > The information transmitted is intended only for the person or > > > entity to which it is addressed and may contain CONFIDENTIAL > > > material. If you receive this material/information in error, please > > > contact the sender and delete or destroy the material/information. > > > > > > Humana Inc. and its subsidiaries comply with applicable Federal > > > civil rights laws and do not discriminate on the basis of race, > > > color, national origin, age, disability or sex. Humana Inc. and its > > > subsidiaries do not exclude people or treat them differently because > > > of race, color, national origin, age, disability or sex. > > > > > > English: ATTENTION: If you do not speak English, language assistance > > > services, free of charge, are available to you. Call 1‐877‐320‐ 1235 > > > (TTY: 711). > > > > > > Español (Spanish): ATENCIÓN: Si habla español, tiene a su > > > disposición servicios gratuitos de asistencia lingüística. Llame al > > > 1‐877‐320‐1235 > > > (TTY: 711). > > > > > > 繁體中文(Chinese)：注意：如果您使用繁體中文，您可以免費獲得語言援助 > > > 服務。請致電 1‐877‐320‐1235 (TTY: 711)。 > > > > > > Kreyòl Ayisyen (Haitian Creole): ATANSION: Si w pale Kreyòl Ayisyen, > > > gen sèvis èd pou lang ki disponib gratis pou ou. Rele 1‐877‐320‐ 1235 > > > (TTY: 711). > > > > > > Polski (Polish): UWAGA: Jeżeli mówisz po polsku, możesz skorzystać > > zbezpłatnej > > > pomocy językowej. Zadzwoń pod numer 1‐877‐320‐1235 (TTY: 711). > > > > > > 한국어 (Korean): 주의: 한국어를 사용하시는 경우, 언어 지원 서비스를 무 > 료 > > 로 > > > 이용하실 수 있습니다. 1‐877‐320‐1235 (TTY: 711)번으로 전화해 주십 시오. > > > > > > > > > -------------------------------------------------------------------- > > > -- 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 > > > > The information transmitted is intended only for the person or entity > > to which it is addressed and may contain CONFIDENTIAL material. If > > you receive this material/information in error, please contact the > > sender and delete or destroy the material/information. > > > > Humana Inc. and its subsidiaries comply with applicable Federal civil > > rights laws and do not discriminate on the basis of race, color, > > national origin, age, disability or sex. Humana Inc. and its > > subsidiaries do not exclude people or treat them differently because > > of race, color, national origin, age, disability or sex. > > > > English: ATTENTION: If you do not speak English, language assistance > > services, free of charge, are available to you. Call 1‐877‐320‐1235 > > (TTY: 711). > > > > Español (Spanish): ATENCIÓN: Si habla español, tiene a su disposición > > servicios gratuitos de asistencia lingüística. Llame al 1‐877‐320‐ 1235 > > (TTY: 711). > > > > 繁體中文(Chinese)：注意：如果您使用繁體中文，您可以免費獲得語言援助 > > 服務。請致電 1‐877‐320‐1235 (TTY: 711)。 > > > > Kreyòl Ayisyen (Haitian Creole): ATANSION: Si w pale Kreyòl Ayisyen, > > gen sèvis èd pou lang ki disponib gratis pou ou. Rele 1‐877‐320‐ 1235 > > (TTY: 711). > > > > Polski (Polish): UWAGA: Jeżeli mówisz po polsku, możesz skorzystać > zbezpłatnej > > pomocy językowej. Zadzwoń pod numer 1‐877‐320‐1235 (TTY: 711). > > > > 한국어 (Korean): 주의: 한국어를 사용하시는 경우, 언어 지원 서비스를 무 료 > 로 > > 이용하실 수 있습니다. 1‐877‐320‐1235 (TTY: 711)번으로 전화해 주십시 오. > > > > > > ---------------------------------------------------------------------- > > 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 > > The information transmitted is intended only for the person or > entity to which it is addressed > and may contain CONFIDENTIAL material. If you receive this > material/information in error, > please contact the sender and delete or destroy the material/information. > > Humana Inc. and its subsidiaries comply with applicable Federal > civil rights laws and > do not discriminate on the basis of race, color, national origin, > age, disability or > sex. Humana Inc. and its subsidiaries do not exclude people or treat > them differently > because of race, color, national origin, age, disability or sex. > > English: ATTENTION: If you do not speak English, language assistance > services, free > of charge, are available to you. Call 1‐877‐320‐1235 (TTY: 711). > > Español (Spanish): ATENCIÓN: Si habla español, tiene a su > disposición servicios > gratuitos de asistencia lingüística. Llame al 1‐877‐320‐1235 (TTY: 711). > > 繁體中文(Chinese)：注意：如果您使用繁體中文，您可以免費獲得語言援助 > 服務。請致電 1‐877‐320‐1235 (TTY: 711)。 > > Kreyòl Ayisyen (Haitian Creole): ATANSION: Si w pale Kreyòl Ayisyen, > gen sèvis èd > pou lang ki disponib gratis pou ou. Rele 1‐877‐320‐1235 (TTY: 711). > > Polski (Polish): UWAGA: Jeżeli mówisz po polsku, możesz skorzystać zbezpłatnej > pomocy językowej. Zadzwoń pod numer 1‐877‐320‐1235 (TTY: 711). > > 한국어 (Korean): 주의: 한국어를 사용하시는 경우, 언어 지원 서비스를 무료 로 > 이용하실 수 있습니다. 1‐877‐320‐1235 (TTY: 711)번으로 전화해 주십시오 . > > > ---------------------------------------------------------------------- > 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
