Search found 805 matches

by Frank Yaeger
Fri Dec 02, 2011 11:41 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Find and Replace @ Diff positions.
Replies: 1
Views: 2134

You can use STARTPOS=x and ENDPOS=y with FINDREP to limit the columns it searches. Something like: OPTION COPY INREC IFTHEN=(WHEN=INIT,FINDREP=(STARTPOS=10,ENDPOS=16, IN=(X'D5',X'4B',X'2B'),OUT=X'40'),HIT=NEXT), IFTHEN=(WHEN=INIT,FINDREP=(STARTPOS=70,ENDPOS=86, IN=...
by Frank Yaeger
Fri Dec 02, 2011 11:29 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Comaprison of PS files with different records length(ICETOOL
Replies: 3
Views: 3275

Suchita, It's easier to show you how to do it correctly then to figure out what you did wrong. Here's a DFSORT JOINKEYS job that will do what you asked for: //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //IN1 DD DSN=... input file1 (FB/113) //IN2 DD DSN=... input file2 (FB/261) //SORTOUT D...
by Frank Yaeger
Thu Dec 01, 2011 10:57 pm
Forum: JCL
Topic: Assign numeric value of count to a variable
Replies: 4
Views: 4630

karentina,

An if statement? Do you mean a DFSORT IFTHEN statement or something else? What exactly?

You need to do a better job of explaining what you're trying to do. Show and explain exactly how you want to use this numeric value.
by Frank Yaeger
Wed Nov 16, 2011 11:15 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Need Sort JCL
Replies: 9
Views: 7795

I want to find out all such records where ZZ is followed by FDR records. But I am expecting a output where ZZ record comes immidiate after FDR record. These statements are exact opposites. Please try a little harder to state your requirement clearly the first time. I would have thought you could wo...
by Frank Yaeger
Tue Nov 15, 2011 11:30 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Need Sort JCL
Replies: 9
Views: 7795

If you want the records where ZZ is followed by FDR, then you have the logic backwards. Here's the DFSORT job you need: //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=... input file (FB/80) //SORTOUT DD DSN=... output file (FB/80) //SYSIN DD * OPTION COPY INREC IFTHEN=(W...
by Frank Yaeger
Mon Nov 14, 2011 11:57 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Need Sort JCL
Replies: 9
Views: 7795

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 will show you how to use DFSORT, DFSORT's ICETOOL and DFSORT Symbols. You can access it online, along with all of the other DFS...
by Frank Yaeger
Fri Nov 11, 2011 11:23 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Need Sort JCL
Replies: 9
Views: 7795

You can use a DFSORT job like the following to do what you asked for: //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=... input file (FB/80) //SORTOUT DD DSN=... output file (FB/80) //SYSIN DD * OPTION COPY INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,1,CH,EQ,C'A'), RECORDS=...
by Frank Yaeger
Fri Nov 11, 2011 1:31 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Need Sort JCL
Replies: 9
Views: 7795

Will there only be one occurrence of A followed by B, or could there be more? If more, do you want all of the A followed by B pairs of records in the output data set or just the first pair?

What is the RECFM and LRECL of your input file?
by Frank Yaeger
Wed Nov 09, 2011 10:32 pm
Forum: JCL
Topic: JCL to get only selected records from a ds --- without key
Replies: 6
Views: 6046

bhargavi_ns, You can use the SUBSET operator of DFSORT's ICETOOL to do that: //S1 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN DD DSN=... input file //OUT DD DSN=... output file //TOOLIN DD * SUBSET FROM(IN) TO(OUT) KEEP INPUT RRN(7) RRN(11) RRN...
by Frank Yaeger
Wed Nov 09, 2011 10:27 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Sort to convert PD to numeric
Replies: 6
Views: 7291

You switched EDIT from a trailing sign to a leading sign, but you didn't fix SIGNS. For a leading sign, you need SIGNS=(+,-). If you don't want leading zeros, then use I instead of T. So you want something like this: 559,9,PD,EDIT=(SIIIIIIIIIIIIIT.TT),SIGNS=(,,+,-), This is all docum...
by Frank Yaeger
Tue Nov 08, 2011 11:26 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Sort to convert PD to numeric
Replies: 6
Views: 7291

archup20,

You can use a DFSORT OUTREC statement like this:

Code: Select all

  OUTREC FIELDS=(1,558,                                            
              559,9,PD,EDIT=(TTTTTTTTTTTTTTT.TTS),SIGNS=(,,+,-),   
              568,33)                                              
by Frank Yaeger
Tue Oct 25, 2011 11:14 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Sort and line spacing
Replies: 13
Views: 12891

blkraven1,

FYI: I'm a DFSORT developer. DFSORT and Syncsort are competitive products. I'm happy to answer questions on DFSORT and DFSORT's ICETOOL, but I don't answer questions on Syncsort.
by Frank Yaeger
Tue Oct 25, 2011 10:03 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Sort and line spacing
Replies: 13
Views: 12891

>If I am using Syncsort will it still work?

Done correctly, it should work.
Really? RESIZE is a "newish" DFSORT/ICETOOL operator. Have you checked to see if Syncsort actually supports the RESIZE operator?
by Frank Yaeger
Mon Oct 24, 2011 10:29 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Sort and line spacing
Replies: 13
Views: 12891

blkraven1, If you need more specific help, you need to state your requirement more clearly. What is the RECFM and LRECL of your input file and expected output file? What is the starting position and length of each field in the input records and expected output records? Why do the output records have...
by Frank Yaeger
Tue Oct 18, 2011 11:05 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Create files with matching and non matching records- SPLICE?
Replies: 4
Views: 5804

You can use a DFSORT job like the following to do what you asked for: //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //IN1 DD DSN=... input file1 (FB/266) //IN2 DD DSN=... input file2 (FB/266) //MATCHED DD DSN=... output file1 (FB/266) //NOMATCH1 DD DSN=... output file2 (FB/266&...