IBM Mainframe Forum

by **Tina_campbell** » Tue Apr 27, 2010 11:11 pm

I have 2 Input Files with no matching keys .

FileA (FB format)
Customer_id (max 4 characters)
A001
A002
A003
A004

FileB(FB Format) - It has only one row always
Gift_amount - always 4 digits only
1000

Output
Customer_id Gift_Amount
A001 | 1000
A002 | 1000
A003 | 1000
A004 | 1000

Can someone please help me achieve this join using syncsort ?

by **Alissa Margulies** » Tue Apr 27, 2010 11:59 pm

Here is a SyncSort for z/OS job that will do what you asked:

Select all

//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=FILE.B
//SORTOUT DD DSN=SYMBOLS.DATA,DISP=(NEW,PASS),
// UNIT=SYSDA,SPACE=(TRK,1)
//SYSIN DD *
SORT FIELDS=COPY
OUTREC FIELDS=(C'APPEND,C',C'''',1,4,C'''',80:X)
/*
//S2 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=FILE.A
//SORTOUT DD SYSOUT=*
//SYMNOUT DD SYSOUT=*
//SYMNAMES DD DSN=SYMBOLS.DATA,DISP=SHR
//SYSIN DD *
SORT FIELDS=COPY
OUTREC BUILD=(1,4,C' | ',APPEND)
/*

by **mainframe_novice** » Wed Apr 28, 2010 12:47 am

Thank you very much .
You help is appreciated

It's working as expected .

IBM Mainframe Forum

join files with no matching keys

join files with no matching keys

Re: join files with no matching keys

Re: join files with no matching keys