Joined: 17 Oct 2007 Posts: 5 Location: Central Illinois
I have 2 copies of one file. File A is yesterday mornings version of the file and File B is current mornings version of the file. Both have LRECL of 224. Key is position 2 for length of 9. I need to keep all records from file B that have a value change in position 71 from an "A" in file A to a "T" in file B. The only time a record should appear in both files is when the value in position 71 has changed to a "T"
File A:
Code:
----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
8666666660100 Mickey Mouse 820723060814 A0
8777777770100 Donald Duck 500924060201 A0
8888888880100 HUNTSMAN THOMAS 680731000228 A0
8999999990100 Goofey Dog 620805901015 A9
File B :
Code:
----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
8666666660100 Minnie Mouse 820723060814 T0
8777777770100 Donald Duck 500924060201 T0
8888888880100 HUNTSMAN THOMAS 680731000228 T0
I expect to find 8888888880100 Huntsman Thomas in file. The output should be that the key position 2 thru 9 is in both records and position 71 has changed from an "A" to a "T".
Here is what I have tried that does not give me what I want:
any and all help is appreciated. It has been a couple of years since I have tooled around in DFSORT so it is probably great risk to me that I have things confused.
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
Tom Huntsman,
Quote:
Key is position 2 for length of 9. I need to keep all records from file B that have a value change in position 71 from an "A" in file A to a "T" in file B. The only time a record should appear in both files is when the value in position 71 has changed to a "T"
I expect to find 8888888880100 Huntsman Thomas in file. The output should be that the key position 2 thru 9 is in both records and position 71 has changed from an "A" to a "T".
Why only "8888888880100 Huntsman" Thomas record? Both 8666666660100 MICKEY MOUSE &
8777777770100 DONALD DUCK have a 'T' in file 2 and they have an 'A' in file 1 , so why didn't you pick them?
If your intention is to pick all records from current file which has 'T' and a matching 'A' in yesterday's file, the following DFSORT JCL will give you the desired results.
Concatenate both files to sortin and make sure that the current day file is FIRST in the concatenation list. A brief explanation of the job. We add a +1 in packed decimal format for records initially and we flip that to -1 when the 71st byte is a 'T' and we sort on the key and sum on this additional byte at the end. if there is a matching T record for a record the sum will be zero. We use an Include cond on OUTFIL to inlucde only such records.
Joined: 17 Oct 2007 Posts: 5 Location: Central Illinois
CICS guy --- with that JCL I posted I get all terminated records even if they did not exist in FILE A.
Skolusu ----- I should see all three records as you mentioned I tried to changed the mouse record from Mickey to Minnie but in fact I did not change the Key of 866666666 so yes in fact I should return all three records. I will try the job stream you provided and let you know how it works.
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
Just for the record.
Quote:
with that JCL I posted I get all terminated records even if they did not exist in FILE A.
I don't see how you would get all of the file2 records in OUT1, if that's what you're saying here.
The way you set it up, you are doing a NODUPS on position 2-9. All of the records have matches on 2-9 except for the Goofey Dog record, so that's the only record without a duplicate and the only one SELECT would output with NODUPS. Since that record is from file1, you then remove it with the OUTFIL statement, so you'd end up with no records in OUT1. That's what I got when I used your job and input with DFSORT's ICETOOL.
Joined: 17 Oct 2007 Posts: 5 Location: Central Illinois
Frank and CICS Guy
I apologize. I have confused my self with having to change data before posting for Confidentiality reasons. I am sure that what Frank states is true the data that I have in my real issue is more convoluted than the four records of examples I came up with and in my haste I had forgotten that I at one time utilized a different file trying to figure out a solution and that is where I got records from both files in my output. That trial was a poor one and will not be shown here. sorry about the misinformation.
Joined: 17 Oct 2007 Posts: 5 Location: Central Illinois
kolusu
I have ran the files thru your job stream and from all tests I have done it appears to have worked like I needed it to work. Thank you for your assistance.
