Search found 805 matches

by Frank Yaeger
Wed Nov 08, 2006 2:20 am
Forum: JCL
Topic: SORT query
Replies: 3
Views: 9634

rahul, Your "solution" makes no sense. SUM FIELDS=NONE is ignored with SORT FIELDS=COPY. You must use SORT or MERGE with a key in order for SUM FIELDS=NONE to eliminate records. The key determines the duplicates to be eliminated. If you sorted on positions 1-7 to try to keep only one Header and one ...
by Frank Yaeger
Tue Nov 07, 2006 11:29 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Controlling Return Codes of SORT
Replies: 1
Views: 4203

Here's a DFSORT/ICETOOL job that will do what you asked for. //S1 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //CON DD DSN=... input file1 (FB/10) // DD DSN=... input file2 (FB/10) //T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,PASS) //TO...
by Frank Yaeger
Fri Oct 27, 2006 8:33 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: A Sort question
Replies: 1
Views: 3732

The following DFSORT/ICETOOL job will do what you asked for: //S1 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN DD DSN=... input file //OUT DD DSN=... output file //TOOLIN DD * SELECT FROM(IN) TO(OUT) ON(1,3,CH) FIRST USING(CTL1) /* //CTL1CNTL DD * ...
by Frank Yaeger
Wed Oct 11, 2006 8:45 pm
Forum: JCL
Topic: how to concatenate the datasets
Replies: 2
Views: 17917

It's not clear what exactly you're asking. If you want to concatenate input data sets for some program, you'd use DD statements like this: //ddname DD DSN=... file1 // DD DSN=... file2 // DD DSN=... file3 ... If you want to do something else, explain clearly what it is you want to do.
by Frank Yaeger
Mon Oct 09, 2006 10:13 pm
Forum: JCL
Topic: SORT query
Replies: 3
Views: 9634

Is there something unique about the header that identifies it (e.g. 'HDR' in positions 1-3) or is it just the first record of every file? Is there something unique about the trailer that identifies it (e.g. 'TRL' in positions 1-3) or is it just the last record of every file? Is the header and traile...
by Frank Yaeger
Fri Sep 29, 2006 8:40 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: SORT JCL - SORTING A VB FILE - INREC OUTREC PARSE BUILD
Replies: 7
Views: 48765

This version of the DFSORT job will work for a VB file. Remember that you need the April, 2006 DFSORT PTF. The job won't work without it. //S1 EXEC PGM=ICEMAN //SYSOUT DD SYSOUT=* //SORTIN DD DSN=... input file (VB) //SORTOUT DD DSN=... output file (VB) //SYSIN DD * INREC PARSE=(...
by Frank Yaeger
Fri Sep 29, 2006 8:30 pm
Forum: Admin Announcements
Topic: STAR MEMBER AWARD - FOR SEPTEMBER 2006
Replies: 3
Views: 10725

STAR MEMBER AWARD - FOR SEPTEMBER 2006

Thanks, Krishna. Actually, I'm already a moderator of the DFSORT Forum. :) >Gift Coupon worth of Rs. 1000/- How much is that in U.S. dollars? Seriously, as an IBMer, it's probably better if I don't accept gifts but I appreciate the thought. I'm happy to answer questions on DFSORT and DFSORT's ICETOOL.
by Frank Yaeger
Thu Sep 28, 2006 9:12 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: SORT JCL - SORTING A VB FILE - INREC OUTREC PARSE BUILD
Replies: 7
Views: 48765

Actually, this is a comma separated value (CSV) file. It has fields with variable positions. It might also be a VB file but I'm guessing it's really an FB file. You can use the following DFSORT job to do what you asked for. However, you'll need z/OS DFSORT V1R5 PTF UK90007 or DFSORT R14 PTF UK90006 ...
by Frank Yaeger
Fri Sep 22, 2006 12:45 am
Forum: DFSORT , ICETOOL & Utilities
Topic: DFSORT article in z/Journal (Aug/Sept)
Replies: 0
Views: 2737

DFSORT article in z/Journal (Aug/Sept)

FYI, the Aug/Sept issue of z/Journal has a DFSORT article I wrote (with a picture of me and my pet rat Gracie, for those of you who are curious). You can access the article directly from: http://www.zjournal.com/index.cfm?section=article&aid=560 The z/Journal homepage is at: http://www.zjournal.com/
by Frank Yaeger
Wed Sep 20, 2006 9:07 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Query in dfsort / icetool
Replies: 2
Views: 4909

Krishna,

I answer numerous DFSORT/ICETOOL questions on other help boards every day (this is the least active board I participate in). I'm curious - why did you chose this one question and response to post here?
by Frank Yaeger
Tue Sep 19, 2006 9:19 pm
Forum: JCL
Topic: How get totals at bottom of the files
Replies: 1
Views: 4617

You didn't give any details, so I can only give you a general answer. You can use a DFSORT control statement like this to get the total of your ZD fields. For the example, I assumed your ZD field is in positions 11-15. OUTFIL REMOVECC, TRAILER1=('TOTAL:',11:TOT=(11,5,ZD,TO=ZD,LENGTH=5)&#...
by Frank Yaeger
Mon Aug 21, 2006 9:01 pm
Forum: JCL
Topic: How to count the no of records through JCL
Replies: 1
Views: 7761

See the "Display the number of input or output records" Smart DFSORT Trick at:

http://www.ibm.com/servers/storage/supp ... vs/tricks/
by Frank Yaeger
Wed Jul 26, 2006 8:54 pm
Forum: JCL
Topic: ICETOOL & DFSORT
Replies: 1
Views: 15469

It is known that DFsort + added functionalities -> ICETOOL No, that's not the right way to describe it. DFSORT's ICETOOL has its own set of functions, some of which can be done directly by DFSORT and many of which can't. ICETOOL actually uses its own code and logic along with calls to DFSORT. What ...
by Frank Yaeger
Tue Jul 04, 2006 9:00 pm
Forum: JCL
Topic: Help required for a sort step.
Replies: 5
Views: 10952

wanted to know where does this code takes care of having maximum of those (count-9) records date field? Well, it's rather tricky. Let's just take the Cereals records for an example. T1 will have: Cereals 04 T2 will have: Cereals 3/14/2001 225 225 Cereals 01 Cereals 3/17/2001 3 3 Cereals 02 Cereals ...
by Frank Yaeger
Mon Jul 03, 2006 8:32 pm
Forum: JCL
Topic: SORTD OUTREC Reformatting Query
Replies: 3
Views: 13599

The following DFSORT job will do what I think you asked for: //S1 EXEC PGM=ICEMAN //SYSOUT DD SYSOUT=* //SORTIN DD DSN=... input file //SORTOUT DD SYSOUT=* //SYSIN DD * OPTION COPY OUTREC FIELDS=(1,8,HEX) /* If you're not familiar with DFSORT and DFSORT's ICETOOL, I'd suggest reading through...