Search found 805 matches

by Frank Yaeger
Thu Aug 04, 2011 9:58 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: problem in sort
Replies: 7
Views: 6864

Sigh. How do you expect anyone to help you when you reject the answer to your problem with a statement like "I used this in the past, case was never a problem.". I don't know what you think you did in the past, but CASE MATTERS! DFSORT does NOT treat A (X'C1') and a (X'61') the same - they are NOT E...
by Frank Yaeger
Wed Aug 03, 2011 10:40 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: comparing files with icetool
Replies: 6
Views: 7561

Yes, it is possible with DFSORT's JOINKEYS. For complete information on DFSORT's JOINKEYS, see: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA50/5.0?DT=20100630155256 For specific examples, see the "Create files with matching and non-matching records" Smart DFSORT trick at: http:/...
by Frank Yaeger
Fri Jul 29, 2011 9:58 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Assigning values to fields using SORT
Replies: 2
Views: 3718

There are several ways to do this with DFSORT. One way is with DFSORT IFTHEN clauses. For example, if infield1/outfield1 is in position 1 and infield2/outfield2 11 is in position 11, you could use these DFSORT control statements: OPTION COPY INREC IFTHEN=(WHEN=(1,1,CH,EQ,C'0'),OVERLAY=&#...
by Frank Yaeger
Fri Jul 29, 2011 2:05 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Comparing Two Records in the same file & Replacing Value
Replies: 1
Views: 3073

Here's a DFSORT job that will do what you asked for. Notice that the input file is used twice (for IN1 and IN2). I assumed the input file has RECFM=FB and LRECL=80, but the job can be changed appropriately for other attributes. //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //IN1 DD DSN=... input file (...
by Frank Yaeger
Thu Jul 28, 2011 12:41 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Comapare Two Records in the same File
Replies: 27
Views: 30516

Sorry, but I don't understand your rules as described. Perhaps a larger set of input records (with different variations of two customer id records, three customer id records, four customer id records) and expected output records would help. At any rate, I'm locking this thread since you seem to be u...
by Frank Yaeger
Wed Jul 27, 2011 10:32 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Merging & Joining REcords in Five Files
Replies: 5
Views: 8044

Raul, If the ICE604A message marker is really pointing between TO(OUT) and USING(CTL1), then the character between them must not be a space (X'40'). Try typing a space over that character or look at it in hex. Same for the second ICE604A message. If that doesn't help, then please post the complete J...
by Frank Yaeger
Tue Jul 26, 2011 1:37 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Matrix logic using ICETOOL.
Replies: 1
Views: 2478

You can use a DFSORT job like the following to do what you asked for: //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //IN1 DD * 100 MUM-A 200 DEL-B 200 DEL-C 300 COI-A 300 COI-B 300 COI-C 400 KOL-P 400 KOL-Q 600 CHE-Z //IN2 DD * 100 MUM-P 100 MUM-Q 200 DEL-R 300 COI-S 300 COI-T 300 COI-U BECKY 300 COI-V 40...
by Frank Yaeger
Tue Jul 26, 2011 1:21 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Is it possible to add timestamp in the Header Record?
Replies: 11
Views: 14773

You can't use CTL as the symbol name in PARM. You have to use JPn (e.g. JP1). Here's a DFSORT/ICETOOL that will do what I think you're asking for: //STEP2 EXEC PGM=ICETOOL, // PARM='JP1"DPSIT4B.&MLQ..TAB002.D&ODATE..UNLOAD"' //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN DD DSN=DBRDB.ABPDB.RMS.TAB0...
by Frank Yaeger
Tue Jul 26, 2011 1:03 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Comapare Two Records in the same File
Replies: 27
Views: 30516

You can use a DFSORT/ICETOOL job something like this (I'm not sure if I understood the positions just right as you described them, but you can adjust as needed): //S1 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN1 DD DSN=... input file1 (FB/308) //IN2 DD DSN=... input file...
by Frank Yaeger
Fri Jul 22, 2011 10:32 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: SORT - Ifthen, when group question
Replies: 2
Views: 7523

You just need to use BEGIN for the XXX record. You don't need END. You can use a DFSORT job like the following. I assumed your input file has RECFM=FB and LRECL=80, but you can change the job appropriately for other attributes. //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * XXX 08 DATA1 DATA2...
by Frank Yaeger
Fri Jul 22, 2011 10:26 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Comapare Two Records in the same File
Replies: 27
Views: 30516

What is the starting position of Cust-id, Field-1 and Field-2 in file1?

What is the starting position of Cust-id, Field-1 and Field-2 in file2?

Do you just want to copy the file2 records after the file1 records in the output file (that's not a "merge", it's a MOD)?
by Frank Yaeger
Fri Jul 22, 2011 1:34 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Merge two files with no join keys
Replies: 1
Views: 4434

I hope I didn't make it to confusing It's confusing to me. Are you using DFSORT or Syncsort? Please show an example of the records in each input file (relevant fields only) and what you expect for output. Explain the "rules" for getting from input to output. Give the starting position, length and f...
by Frank Yaeger
Fri Jul 22, 2011 1:31 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Comapare Two Records in the same File
Replies: 27
Views: 30516

You are missing the DFSORT PTF that allows header fields greater than 256 bytes, so you'll need to use: HEADER3=(1,256,257,45) Ask your System Programmer to install PTF UK90025 for z/OS DFSORT V1R10 or PTF UK90026 for z/OS DFSORT V1R12 (Oct, 2010) so you can use the newest DFSORT/ICETOOL functions.
by Frank Yaeger
Thu Jul 21, 2011 12:28 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Is it possible to add timestamp in the Header Record?
Replies: 11
Views: 14773

If you can set up the dsname as a SET or PROC symbol, then you can use a DFSORT job like the following: // SET DSN1=data_set_name //S1 EXEC PGM=SORT,PARM='JP1"&DSN1"' //SYSOUT DD SYSOUT=* //SORTIN DD DSN=&DSN1,DISP=SHR //SORTOUT DD SYSOUT=* //SYSIN DD * OPTION COPY OUTFIL REMOVECC,NODETAIL, TRAILER1...
by Frank Yaeger
Wed Jul 20, 2011 10:27 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Comapare Two Records in the same File
Replies: 27
Views: 30516

You have several problems including a missing comma and incorrect SECTION fields - too large and too far out. If I understand what you want, you can use these DFSORT control statements: OPTION COPY OUTFIL REMOVECC,NODETAIL, SECTIONS=(20,256,276,26, HEADER3=(1,301))