Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Siva,
Here's an example of a DFSORT/ICETOOL job that will do what you want.
I assumed the largest input file has LRECL=100, but you can change the job appropriately. Do NOT use USING(CTL1) for the input file(s) with LRECL=100 (unless input position 100 has a blank). If you want more specific help, give more specific information about the RECFM and LRECL of each input file.
Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=... input file (FB/100)
//IN2 DD DSN=... input file (FB/50)
//IN3 DD DSN=... input file (FB/70)
//IN4 DD DSN=... input file (FB/100)
//IN5 DD DSN=... input file (FB/60)
//IN6 DD DSN=... input file (FB/20)
//IN7 DD DSN=... input file (FB/70)
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(MOD,PASS)
//OUT DD DSN=... output file (FB/100)
//TOOLIN DD *
COPY FROM(IN1) TO(T1)
COPY FROM(IN2) TO(T1) USING(CTL1)
COPY FROM(IN3) TO(T1) USING(CTL1)
COPY FROM(IN4) TO(T1)
COPY FROM(IN5) TO(T1) USING(CTL1)
COPY FROM(IN6) TO(T1) USING(CTL1)
COPY FROM(IN7) TO(T1) USING(CTL1)
SORT FROM(T1) TO(OUT) USING(CTL2)
/*
//CTL1CNTL DD *
INREC OVERLAY=(100:X)
/*
//CTL2CNTL DD *
SORT FIELDS=(1,5,CH,A)
/*
|
|
|