Search found 805 matches

by Frank Yaeger
Mon Sep 26, 2011 10:10 pm
Forum: JCL
Topic: sorting using jcl
Replies: 5
Views: 6169

The trailer of each file has the seq number and record count in different position . example : in File 1 : This is too vague! Show me an example of each of the 6 input files and what you expect for output. Also, tell me the RECFM and LRECL of each input file. I'm happy to help, but you have to give...
by Frank Yaeger
Mon Sep 26, 2011 10:04 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Join on keys and replace when matched
Replies: 6
Views: 19022

My job works fine with DFSORT. If you are getting syntax errors, then I suspect you are using Syncsort (WER messages), not DFSORT (ICE messages). DFSORT supports JOINKEYS syntax that Syncsort does not support. I'm a DFSORT developer. DFSORT and Syncsort are competitive products. I'm happy to answer ...
by Frank Yaeger
Sat Sep 24, 2011 2:53 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Join on keys and replace when matched
Replies: 6
Views: 19022

SORTD is just a SORT PROC. You can use PGM=SORT. Try it. Or if you want, use SORTD which will do the same thing. //S1 EXEC SORTD //IN1 DD DSN=... input file1 (FB/1578) //IN2 DD DSN=... input file2 (FB/279) //SORTOUT DD DSN=... output file (FB/1578) //SYSIN DD * JOINKEYS F1=IN...
by Frank Yaeger
Sat Sep 24, 2011 2:47 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Count number of duplicate records
Replies: 6
Views: 10581

You can use a DFSORT job like the following: //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=... input file (FB/279) //SORTOUT DD DSN=... output file (FB/28) //SYSIN DD * SORT FIELDS=(7,23,CH,A) OUTFIL REMOVECC,NODETAIL, BUILD=(28X), SECTIONS=(7,23, TRAILE...
by Frank Yaeger
Fri Sep 23, 2011 10:37 pm
Forum: JCL
Topic: sorting using jcl
Replies: 5
Views: 6169

but how can i eliminate those lines in the output .. I don't know which lines you're talking about. I see a header and trailer record, but I don't know if those are in the original input file or not. And I don't know if you want them in the output file or not. Please clarify what exactly is in the ...
by Frank Yaeger
Fri Sep 23, 2011 10:31 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Count number of duplicate records
Replies: 6
Views: 10581

If you don't want the headers, you can suppress them: OCCUR FROM(INFILE) LIST(OUTFILE) - NOHEADER NOCC- ON(7,12,CH) - ON(19,11,CH) - ON(VALCNT,N05) However, this will result in an output file with RECFM=FB and LRECL=120. If you really need your output to be RE...
by Frank Yaeger
Fri Sep 23, 2011 12:54 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Join on keys and replace when matched
Replies: 6
Views: 19022

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/1578) //IN2 DD DSN=... input file2 (FB/279) //SORTOUT DD DSN=... output file (FB/1578) //SYSIN DD * JOINKEYS F1=IN1,FIELDS=(254,10,A)...
by Frank Yaeger
Thu Sep 22, 2011 9:49 pm
Forum: JCL
Topic: sorting using jcl
Replies: 5
Views: 6169

You can use a DFSORT job like the following to do what you asked for: //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * FILE1 9002 000000010 FILE2 9003 000000020 FILE3 9004 000000030 FILE4 9005 000000040 FILE5 9006 000000050 FILE6 9007 000000010 //SORTOUT DD SYSOUT=* //SYSIN DD * OPTION COPY OUT...
by Frank Yaeger
Wed Sep 21, 2011 10:21 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Finding smallest value for a field in a file
Replies: 9
Views: 10460

The job I gave you works fine with DFSORT. But you changed: BUILD=(80X), to BUILD=(3000X), which is incorrect. I don't know if fixing that will allow your job to run with Syncsort, but it is certainly necessary. You might want to check your complete job against my complete job to see...
by Frank Yaeger
Tue Sep 20, 2011 9:54 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Finding smallest value for a field in a file
Replies: 9
Views: 10460

That's a simple change to the previous DFSORT job (you'll learn more if you try to figure these things out yourself): //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * COURSE1-------------20110101----20111212 COURSE2-------------20110501----20110512 COURSE3-------------20091109----20111212 COURS...
by Frank Yaeger
Fri Sep 16, 2011 10:31 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Finding smallest value for a field in a file
Replies: 9
Views: 10460

You can use a DFSORT job like the following to do what you asked for: //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * COURSE1-------------20110101----20111212 COURSE2-------------20110501----20110512 COURSE3-------------20091109----20111212 COURSE4-------------20110508----20110815 //SORTOUT DD...
by Frank Yaeger
Thu Sep 15, 2011 10:03 pm
Forum: JCL
Topic: Need your help ....compare 2 files using ICETOOL and SPLICE
Replies: 33
Views: 31516

Create a symbol for each sum you want. Use ICETOOL's COUNT operator with an INCLUDE for the file count vs the symbol. Set the COUNT return code based on whether the output file is empty (file count EQ symbol) or not empty (file count NE symbol). Something like this: Create a symbol for Sum1 and Sum2...
by Frank Yaeger
Wed Sep 14, 2011 10:44 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: concacenate strings
Replies: 2
Views: 2961

Here's a simpler way to do what you want with DFSORT for the 61 byte string: OUTREC IFTHEN=(WHEN=(71,59,CH,EQ,C' ',AND,130,2,CH,EQ,C'0?'), OVERLAY=(71:C'?',59X,C'?')) For the 11 byte string, it would be: OUTREC IFTHEN=(WHEN=(71,9,CH,EQ,C' ',AND,80,2,CH,EQ,C'0?'), ...
by Frank Yaeger
Tue Sep 13, 2011 10:12 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Splitting the Numbers alone from a given variable
Replies: 1
Views: 2244

You can use a DFSORT job like the following to do what you asked for. Adjust FIXLEN accordingly for the maximum length of the two fields to be split. //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * 123456789 velan nagar chennai12345 123456453 mahalakshmi st delhi5678 012345653 brindhavan nagar...
by Frank Yaeger
Mon Sep 12, 2011 11:02 pm
Forum: JCL
Topic: DCB parameter
Replies: 8
Views: 10532

You SHOULD NOT specify any attributes for the sort work data sets. DFSORT will set the needed attributes automatically.