|
View previous topic :: View next topic
|
| Author |
Message |
rally
New User
Joined: 28 Jul 2005
Posts: 37
|
|
|
|
I have some requirement need splice 2 input files to 1 file.
File A
A1
A2
B3
B4
B5
C6
File B
Aa
Bb
Cc
desired ouput should be
A1a
A2a
B3b
B4b
B5b
C6c
Is SPLICE can complete this function?
I can only get the below result use SPLICE+WITHALL:
A1
A2a
B3
B4
B5b
C6c |
|
| Back to top |
|
 |
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
| Why don't you post your DFSORT job code, and then maybe we can offer a suggestion? |
|
| Back to top |
|
|
rally
New User
Joined: 28 Jul 2005
Posts: 37
|
|
|
|
| rally wrote: |
I have some requirement need splice 2 input files to 1 file.
File A
A1
A2
B3
B4
B5
C6
File B
Aa
Bb
Cc
desired ouput should be
A1a
A2a
B3b
B4b
B5b
C6c
Is SPLICE can complete this function?
I can only get the below result use SPLICE+WITHALL:
A1
A2a
B3
B4
B5b
C6c |
Please help review my test code below
| Code: |
//FILEA DD DSN=...,
//FILEB DD DSN=...,
//TMP1 DD DSN=&&TEMP1,DISP=(MOD,PASS),SPACE=&SPSM
//OUTPUT DD DSN=...
//TOOLIN DD *
COPY FROM(FILEA) TO(TMP1) USING(CTL1)
COPY FROM(FILEB) TO(TMP1) USING(CTL2)
SPLICE FROM(TMP1) TO(OUTPUT) ON(1,1,CH) WITH(3,1) WITHALL -
USING(CTL3)
//CTL1CNTL DD *
OUTREC FIELDS=(1,2,3:X)
//CTL2CNTL DD *
OUTREC FIELDS=(1,1,2:X,2,1)
//CTL3CNTL DD *
OUTFIL FNAMES=OUTPUT,OUTREC=(1,3) |
|
|
| Back to top |
|
|
harish3201
New User
Joined: 06 May 2007
Posts: 1
Location: india
|
|
|
|
U could use this
| Code: |
//DFSORT EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//IN2 DD *
AA
BB
CC
/*
//TMP1 DD DSN=&&TEMP1,
// DISP=(MOD,PASS),
// UNIT=SYSDA,
// SPACE=(CYL,(5,5),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=24000)
//IN1 DD DSN=*.TMP1,VOL=REF=*.TMP1,DISP=(MOD,PASS)
// DD *
A1
A2
B3
B4
B5
C6
/*
//OUT DD SYSOUT=*
//TOOLIN DD *
COPY FROM(IN2) TO(TMP1) USING(CPY1)
SPLICE FROM(IN1) TO(OUT) ON(1,1,CH) WITHALL -
WITH(2,1) KEEPNODUPS
/*
//CPY1CNTL DD *
INREC BUILD=(1:1,1,2:X,3:2,1)
/*
|
Output :
| Code: |
A1A
A2A
B3B
B4B
B5B
C6C
|
|
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
rally,
Here's a DFSORT/ICETOOL job that will do what you asked for:
| Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//FILEA DD DSN=... input fileA
//FILEB DD DSN=... input fileB
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(MOD,PASS)
//OUT DD DSN=... output file
//TOOLIN DD *
COPY FROM(FILEB) TO(T1) USING(CTL1)
COPY FROM(FILEA) TO(T1) USING(CTL2)
SPLICE FROM(T1) TO(OUT) ON(1,1,CH) WITH(2,1) WITHALL
/*
//CTL1CNTL DD *
INREC BUILD=(1,1,3:2,1)
/*
//CTL2CNTL DD *
INREC BUILD=(1,2,X)
/*
|
|
|
| Back to top |
|
|
|
|
|
