Search found 805 matches

by Frank Yaeger
Thu Feb 16, 2012 10:50 pm
Forum: JCL
Topic: sort cond
Replies: 1
Views: 1735

Yes, you can use an INCLUDE statement with OPTION COPY. For example: OPTION COPY INCLUDE COND=(11,5,CH,EQ,C'12345') If you're not familiar with DFSORT and DFSORT's ICETOOL, I'd suggest reading through "z/OS DFSORT: Getting Started". It's an excellent tutorial, with lots of examples, that wil...
by Frank Yaeger
Wed Feb 15, 2012 11:21 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: sorting trailer to header
Replies: 2
Views: 2418

Is there anything that identifies the trailer record (e.g. 'T' in position 1) other than it being the last record in the file?

What is the RECFM and LRECL of your input file?
by Frank Yaeger
Tue Feb 14, 2012 12:08 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Comparing Date with current date
Replies: 4
Views: 7002

You can use a DFSORT/ICETOOL job like the following to do what you asked for: //S1 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //SYMNAMES DD * CURDATE,S'&YR4.-&MON.-&DAY' //SYMNOUT DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN DD * H2012-02-13 D RECORD 01 D RECORD 02 D RECORD 03 //TOOLIN DD * COUNT FROM(IN&#...
by Frank Yaeger
Wed Feb 08, 2012 11:10 pm
Forum: JCL
Topic: How to compare two ps files having millions of records ?
Replies: 9
Views: 12147

That syntax is still invalid - it should be: SELECT FROM(INDD) TO(OUTDD) ON(1,7,PD) ON(8,2,BI) ON(10,1,CH) NODUPS Frank, sorry for posting wrong syntax..i can't post anything from my office thats why i posted what i remembered. All of the DFSORT books are available at: http://www.ibm.com/support/doc...
by Frank Yaeger
Wed Feb 08, 2012 12:05 am
Forum: JCL
Topic: How to compare two ps files having millions of records ?
Replies: 9
Views: 12147

Ok. The syntax for a job to get RC=12 for an empty data set would be quite different (SELECT? COUNT?) so hopefully you got it right.

In the future, please don't post syntax guesses as it just confuses people.
by Frank Yaeger
Tue Feb 07, 2012 12:07 am
Forum: JCL
Topic: How to compare two ps files having millions of records ?
Replies: 9
Views: 12147

That syntax is NOT valid for the ICETOOL COPY operator. The cc=12 would be the result of the syntax error. It would have nothing to do with whether the files were the same.

For complete details on correct DFSORT/ICETOOL syntax, see:

http://www.ibm.com/support/docview.wss? ... g3T7000080
by Frank Yaeger
Tue Jan 31, 2012 12:07 am
Forum: DFSORT , ICETOOL & Utilities
Topic: How to split file by multiple dup recs into multiple files.
Replies: 4
Views: 3805

You can find details on DFSORT's KEYBEGIN function at:

http://www.ibm.com/support/docview.wss? ... g3T7000242

KEYBEGIN is also documented in "z/OS V1R12 DFSORT Application Programming Guide" at:

http://www.ibm.com/support/docview.wss? ... g3T7000242
by Frank Yaeger
Fri Jan 27, 2012 3:34 am
Forum: DFSORT , ICETOOL & Utilities
Topic: How to split file by multiple dup recs into multiple files.
Replies: 4
Views: 3805

If I understand correctly what you want to do, you can use a DFSORT job like the following. I assumed your input file has RECFM=FB and LRECL=80, but the job can be changed appropriately for other attributes. I also assumed your records were already in sorted order by the key (if not, use SORT and OU...
by Frank Yaeger
Tue Jan 24, 2012 12:03 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Matching record counts using SORT and setting a RC
Replies: 7
Views: 6638

Here's a DFSORT/ICETOOL job that will give you RC=0 if the counts match or RC=8 if they don't match. If you want RC=4 instead of RC=8, change RC8 to RC4. If you want RC=12 instead of RC=8, change RC8 to RC12. //S1 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //RCDS DD DSN=... input fi...
by Frank Yaeger
Wed Jan 18, 2012 10:25 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Need to replcae hexadecimal value in FB format file
Replies: 2
Views: 3107

It's not at all clear what you mean by Now i need to replace a hexadecimal value in the same file from 41 to 40. at any position in the file. What are PD'41' and PD'40' supposed to represent? If you mean packed values of 41 and 40, that would be X'041C' and X'040C' and you could use those hex values...
by Frank Yaeger
Wed Jan 18, 2012 4:43 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Matching record counts using SORT and setting a RC
Replies: 7
Views: 6638

Again:

What is the starting position, length and format of the count field in the second input file?
by Frank Yaeger
Wed Jan 18, 2012 4:03 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Matching record counts using SORT and setting a RC
Replies: 7
Views: 6638

What is the RECFM and LRECL of each input file?

What is the starting position, length and format of the count field in the second input file? Does it just contain one record with the count?
by Frank Yaeger
Tue Jan 03, 2012 5:56 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Addition using DFsort
Replies: 1
Views: 1545

You can use a DFSORT job like the following: //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * 1501 1588 1598 1600 //SORTOUT DD SYSOUT=* //SYSIN DD * OPTION COPY INREC IFTHEN=(WHEN=INIT, BUILD=(1,1,ZD,ADD,2,1,ZD,ADD,3,1,ZD,ADD,4,1,ZD,TO=ZD,LENGTH=2)), IFTHEN=(WHEN=INIT, BUILD...
by Frank Yaeger
Tue Dec 27, 2011 1:29 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Need help with sort/icetool - Update the header Record
Replies: 2
Views: 2159

Here's a DFSORT/ICETOOL job that will do what you asked for: //S1 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN DD DSN=... input file (FB/350) //OUT DD DSN=... output file (FB/350) //TOOLIN DD * SELECT FROM(IN) TO(OUT) ON(1,350,CH) FIRST USI...
by Frank Yaeger
Sat Dec 24, 2011 11:10 pm
Forum: Suggestions & Feedback
Topic: changing post to another place
Replies: 1
Views: 3660

Ask the Moderator of the Forum to move it.

I saw your post and moved it for you.