nguyenh Beginner
Joined: 09 Mar 2004 Posts: 52 Topics: 6
|
Posted: Mon Feb 27, 2006 4:48 pm Post subject: How to splice header file records with detail records |
|
|
Hi Frank and all,
I am looking for a way to splice the Header file records with the Detail file records (See HEADER FILE & DETAIL FILE) so that the output file also contains member name in header file that is missing the detail records (leading with blank, See EXPECTED OUTPUT)
HEADER FILE
Code: |
************************FILE01*****************
************************FILE02*****************
************************FILE03*****************
************************FILE04*****************
************************FILE05*****************
************************FILE06*****************
************************FILE07*****************
************************FILE08*****************
|
DEATAIL FILE:
Code: |
P03K6099J D5550000020020D3 FILE02
P03K6099J D5550000020020D3 FILE02
P03K6099J D5550000020020D3 FILE02
P03K6099J D5550000020020D3 FILE03
P03K6099J D5550000020020D3 FILE05
P03K6099J D5550000020020D3 FILE05
P03K6099J D5550000020020D3 FILE06
P03K6099J D5550000020020D3 FILE07
|
EXPECTED OUTPUT:
Code: |
FILE01
P03K6099J D5550000020020D3 FILE02
P03K6099J D5550000020020D3 FILE02
P03K6099J D5550000020020D3 FILE02
P03K6099J D5550000020020D3 FILE03
FILE04
P03K6099J D5550000020020D3 FILE05
P03K6099J D5550000020020D3 FILE05
P03K6099J D5550000020020D3 FILE06
P03K6099J D5550000020020D3 FILE07
FILE08
|
Thank you very very much for your helps!
Nguyenh |
|
Frank Yaeger Sort Forum Moderator

Joined: 02 Dec 2002 Posts: 1618 Topics: 31 Location: San Jose
|
Posted: Mon Feb 27, 2006 6:07 pm Post subject: |
|
|
Nguyehn,
You can use a DFSORT/ICETOOL job like the following to do what you asked for. I assumed your input files have RECFM=FB and LRECL=47, but the job can be changed appropriately for other attributes.
Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//HDR DD DSN=... header file (FB/47)
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
//CON DD DSN=*.T1,VOL=REF=*.T1,DISP=(OLD,PASS)
// DD DSN=... detail file (FB/47)
//OUT DD DSN=... output file (FB/47)
//TOOLIN DD *
COPY FROM(HDR) TO(T1) USING(CTL1)
SPLICE FROM(CON) TO(OUT) ON(42,6,CH) -
KEEPNODUPS WITHALL WITH(1,47)
/*
//CTL1CNTL DD *
OUTREC FIELDS=(42:25,6)
/*
|
_________________ 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 |
|