MVSFORUMS.com

ta0010274 · Beginner Joined: 08 Jan 2008 Posts: 8 Topics: 3

Hi All,

I need to write the records of File1 to a new output file if the account of File2 matches with file1 account and I need all duplicates as well. Can anyone help me in this issue please.

File1: Record length is 260 FB and account number is stating from 16th position.

ta0010274 · Beginner Joined: 08 Jan 2008 Posts: 8 Topics: 3

Please anyone provide me the JCL, its very urgent.

Thanks in Advance
Thiru

maxisnowhere · Beginner Joined: 25 May 2005 Posts: 59 Topics: 20

Hi Thitu,

i think I had the similar problem, maybe that help you:
http://www.mvsforums.com/helpboards/viewtopic.php?t=8492&highlight=
_________________
Maxisnowhere

ta0010274 · Beginner Joined: 08 Jan 2008 Posts: 8 Topics: 3

I have used belwo JCL but not getting any record to OUT file.

//IN1 DD DSN=TR2695.CRISC.DE52011A.DATASVCS.DUMP,DISP=SHR
//IN2 DD DSN=TR2695.CRISC.DE52011A.DIFAJUN(+1),DISP=SHR
//T1 DD DSN=&T1,DISP=(MOD,PASS),SPACE=(CYL,(1,1),RLSE)
//OUT DD DSN=TR2695.CRISC.DE52011A.DIFFAOUT(+1),
// DISP=(MOD,CATLG,DELETE),
// SPACE=(CYL,(10,75),RLSE),
// RECFM=FB,LRECL=260
//TOOLIN DD *
COPY FROM(IN2) TO(T1) USING(CTL2)
COPY FROM(IN1) TO(T1) USING(CTL1)
SPLICE FROM(T1) TO(OUT) ON(16,13,CH) WITH(1,260) WITHALL -
USING(CTL3)
//CTL1CNTL DD *
INREC BUILD=(01,260,13X)
//CTL2CNTL DD *
INREC BUILD=(16,13,260:X,16,13)
//CTL3CNTL DD *
OUTFIL FNAMES=OUT,
INCLUDE=(16,13,CH,EQ,261,13,CH),
BUILD=(01,260)

Frank Yaeger · Posted: Tue Jan 08, 2008 11:34 am Post subject:

It would have helped if you'd showed a better example with records that should and shouldn't be included in the output file, as well as showing the expected output records. But this DFSORT/ICETOOL job will give you what I'm guessing you want. Note that input file2 must be concatenated before input file1.

ta0010274 · Beginner Joined: 08 Jan 2008 Posts: 8 Topics: 3

Thank you very much Frank. Its working fine.

n.kirankumar · Beginner Joined: 15 Jan 2008 Posts: 1 Topics: 0

Frank Yaeger,
Hi Frank,

Please help me with the below issue(***Urgent):

I have 2 input files with FB:

Data in file1 :

Name SSN Total
Jim 0001 876
Kim 0003 987
Joe 0004 787
Hen 0002 098
Loe 0005 876

Data in file2:

Name SSN Total M1 M2 Mtl D1 D2
Jim 0001 876 34 76 110 43 45
Joe 0004 787 65 35 100 32 21
Kim 0003 987 55 45 100 41 43

Output file needs to be like below:

Name SSN Total M1 Mtl D1
Jim 0001 876 34 76 43
Hen 0002 098
Kim 0003 987 55 45 41
Joe 0004 787 65 35 32
Loe 0005 876

The above 2 input files are not in sorted order.

Please let me know the solution for the above issue at the earliest.
_________________
Kiran

Nic Clouston · Posted: Fri Feb 15, 2008 4:12 am Post subject:

1 - we do not 'do' urgent requests - we reply as and when we have time
2 - you are not fully describing the problem
3 - looks like homework - how can it be urgent if you started it on time?
4 - you should have started a new thread
5 - I suspect you want to BUILD your output record from the input so you should be looking for that

that is for starters
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

Frank Yaeger · Posted: Fri Feb 15, 2008 2:00 pm Post subject:

Kiran,

You posted this on another help board and it was answered there so I won't bother to answer it here.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort