vpalanivelu
New User
Joined: 24 Feb 2009
Posts: 14
Location: chennai
|
|
|
|
Input File 1:
| Code: |
//IN1 DD *
AAAXYXYXYXYXYXY XYXYXYXY SSSSSSSSSS
BBBYZYZYZYZYZYZ YZYZYZYZ PPPPPPPPPP
CCCFGFGFGFGFGFG BCDABCDP PPPPPPPPPP
DDDRTRTRTRTRTRT BCDABCDS SSSSSSSSSS
/*
|
Input File 2:
| Code: |
//IN2 DD *
AAAXYXYXYXYXYXY
BBBYZYZYZYZYZYZ
CCCFGFGFGFGFGFG
|
Output File 1:
| Code: |
AAAXYXYXYXYXYXY XYXYXYXY SSSSSSSSSS
BBBYZYZYZYZYZYZ YZYZYZYZ PPPPPPPPPP
|
First It should match (1,15,CH) key position from file1 and file2.
Second the file-1 (17,8,CH) and file-2 (4,8,CH) should get matched
--- if both gets matched , it should written to Output File -1 ------- |
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
Here's a DFSORT/ICETOOL job that will do what you asked for:
| Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD *
AAAXYXYXYXYXYXY XYXYXYXY SSSSSSSSSS
BBBYZYZYZYZYZYZ YZYZYZYZ PPPPPPPPPP
CCCFGFGFGFGFGFG BCDABCDP PPPPPPPPPP
DDDRTRTRTRTRTRT BCDABCDS SSSSSSSSSS
/*
//IN2 DD *
AAAXYXYXYXYXYXY XYXYXYXY SSSSSSSSSS
BBBYZYZYZYZYZYZ YZYZYZYZ PPPPPPPPPP
/*
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(MOD,PASS)
//OUT DD SYSOUT=*
//TOOLIN DD *
COPY FROM(IN1) TO(T1)
COPY FROM(IN2) TO(T1) USING(CTL1)
SELECT FROM(T1) TO(OUT) ON(1,15,CH) ON(17,8,CH) FIRSTDUP
/*
//CTL1CNTL DD *
INREC BUILD=(1,15,17:4,8,80:X)
/*
|
|
|
