Help with join fields from two files record-by-record

[fazillatheef]

I am new to mainframes and i want to find a method using utilties to copy one record from one sequential file and another record from a second sequenntial file to a new sequential file.

Eg,
sequntial file A contains fields

Sno: ,Name

sequential file B contains fields as follows

Balance , credit

then the utility should produce a sequential file using one field from file A and one field from File B
producing a new sequential file C containing fields like

Sno , Credit



Please help

[arunprasad.k]

I do not understand your requirement. Answer the following.

#1 How can you match File A and File B without a common field?
#2 Do the common fields has duplicates in any files? If yes tell me which file or files.
#3 Post some sample inputs and intended outputs.
#4 Also the file definitions if possible

Arun.

[fazillatheef]

An example can be

file A contains

Code: Select all

id          name
001         Fazil
002         San
003         Sanjay


file B contains

Code: Select all

credit      debit
10            100
32             70
340           239


the utility should make a file c

Code: Select all

id          debit
001           100
002            70
340           239


[fazillatheef]

i dont need any kind of checking or anything like that(that is the first record in the first file is cooresponding to the first record in the second file) ...I just need to make a file that contains the first field in the first file and second field in the second file .
you can assume any length for the fields

[Frank Yaeger]

You can use a DFSORT/ICETOOL job like the following to do what you asked for.

Code: Select all

//S1    EXEC  PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG  DD SYSOUT=*
//IN1 DD *
001         Fazil
002         San
003         Sanjay
/*
//IN2 DD *
10            100
32             70
340           239
/*
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(MOD,PASS)
//OUT DD SYSOUT=*
//TOOLIN DD *
COPY FROM(IN1) TO(T1) USING(CTL1)
COPY FROM(IN2) TO(T1) USING(CTL2)
SPLICE FROM(T1) TO(OUT) ON(81,8,ZD) WITH(13,5) USING(CTL3)
/*
//CTL1CNTL DD *
  INREC BUILD=(1,10,81:SEQNUM,8,ZD)
/*
//CTL2CNTL DD *
  INREC BUILD=(13:13,5,81:SEQNUM,8,ZD)
/*
//CTL3CNTL DD *
  OUTFIL FNAMES=OUT,BUILD=(1,80)
/*


For more details, see the "Join fields from two files record-by-record" Smart DFSORT Trick at:

http://www.ibm.com/servers/storage/supp ... vs/tricks/

[fazillatheef]

Can I do the same using Syncsort?
I dont have DFsort installed on my mainframe.

[Alissa Margulies]

Can I do the same using Syncsort?

YES. With SyncSort, you can either execute PGM=ICETOOL or PGM=SYNCTOOL.

[CICS Guy]

With SyncSort, you can either execute PGM=ICETOOL or PGM=SYNCTOOL.

Alissa, welcome to this forum and thank you for your response.....grin.....

[fazillatheef]

thank you