MVSFORUMS.com

[hisavitha]

In our shop, the management wanted to convert all the ICETOOL logic to a Normal SORT (PGM=SORT) logic or any equivalent generic SORT. The requirement is as follows,

We have 2 files, Current file is called File-A and Previous file is File-B. Now we wanted to compare File A&B and prepare 3 different files (New records, Deleted Records and Changed records). The Record length is 900 and both the file layout are same.

1. Compare File A & File B

[kolusu]

Hisavita,

You need to provide more details. What is the position and format of the key you are trying to match?

How do you check if a record is modified? Show us a sample of input from both files and desired output.

Last but not least run the following job and show us the entire sysout which would help us determine the level of DFSORT you have.

[hisavitha]

Thank you Kolusu for your quick response in the weekend. I

[hisavitha]

Hi Kolusu -

Could you pls. see the 2 response. I have run the same job which you have given, and the SPOOL messages. Pls. help me to fix this issue. Thanks in advance.


ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 11:38 ON MON MAY
SORT FIELDS=COPY
END
ICE201I F RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K90013 C6-K90013 C7-K90000 C8-K42135 E9-K90013 C9-BASE E5-K35433
ICE193I 0 ICEAM1 ENVIRONMENT IN EFFECT - ICEAM1 INSTALLATION MODULE SELECTED
ICE088I 0 SORTCOND.PS010 . , INPUT LRECL = 80, BLKSIZE = 80, TYPE = FB
ICE093I 0 MAIN STORAGE = (MAX,6291456,6278238)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (6211910,6211910)
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,
ICE128I 0 OPTIONS: SIZE=6291456,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ERE
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=NO ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=
ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=
ICE131I 0 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW=
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXITC
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMI
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE084I 0 EXCP ACCESS METHOD USED FOR SORTOUT
ICE084I 0 BSAM ACCESS METHOD USED FOR SORTIN
ICE751I 1 EF-K10929 F0-K30362 E8-K90013
ICE090I 0 OUTPUT LRECL = 92, BLKSIZE = 27968, TYPE = FB
ICE171I 0 SORTOUT LRECL OF 92 IS DIFFERENT FROM SORTIN(NN) LRECL OF 80 - RC=0
ICE055I 0 INSERT 0, DELETE 0
ICE054I 0 RECORDS - IN: 1, OUT: 1
ICE052I 0 END OF DFSORT

Regards,
Savitha

[Frank Yaeger]

[hisavitha]

Frank -

Thanks. Pls. ignore that NOTE which I have stated earlier because today morning we had a call with the client and they wanted to maintain this SYSTEM with their FOLKS due to budget. Also, they can only support if the legacy should contain with simple SORT instead of with any ICETOOL.

The purpose of the CR is to reduce any complicated SORT logic to simplified SORT step. ICETOOL is the one of the major components that we need to convert. Pls. do NOT take other way around, since you & Kolusu are doing tremendously helping us. I don

[Frank Yaeger]

Sorry. I don't understand why ICETOOL code would be considered more complex than Sort code in all cases. This just doesn't make any sense. ICETOOL has been a part of DFSORT since 1991 - ICETOOL is fully documented with the doc available online so I don't see what budget has to do with it.

It is true that DFSORT JOINKEYS code can be simpler than ICETOOL SPLICE/SELECT code, but in many other instances ICETOOL code is, in fact, simpler than Sort code.

If you want to replace ICETOOL with SORT for whatever reason, be our guest, but Kolusu and I really don't consider helping with that effort a good use of our time. We've provided many, many examples of Sort jobs here, including JOINKEYS, and the documentation is fully available, so if you really need to do this, I suggest you start reading up on it.

Anyway, if we do it for you, how will that make the jobs more supportable by you or your client?
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

[hisavitha]

Frank -

I completely agree and What ever you are suggesting that is 100% true and sensible. But i'm NOT the deciding person to continue with ICETOOL, since i already told them in today's call that the advantages of the ICETOOL and fwded your docs to my management. So far i didn

[kolusu]

[papadi]

[hisavitha]

Thanks Kolus, Frank & Papadi-

I'm trying this approch, have a question -

Any other alternate way to find NODUPS records. (Simplified SORT Step)

SELECT FROM(IN) TO(TDIFF) ON(1,5,CH) NODUPS

For eg: (REcord length is 5)
11111
22222
33333
44444
55555
66666
55555
33333
22222

NODUPS - output
11111
44444
66666

Thanks,
Savitha.

[kolusu]

[hisavitha]

Awesome Kolusu. Good logic. Thanks for that.

[Frank Yaeger]

Savitha,

Note that the ICETOOL method will work for any input LRECL whereas the DFSORT method requires you to know the LRECL so you can add the counter at the end (that is, the control statements will be different for different LRECLs).

Try showing your PHBs this ICETOOL statement:

[hisavitha]

Sure Sir. Will do that.

Thanks,
Savitha.
_________________
"Effort Never Fails"

Savitha.