|
View previous topic :: View next topic
|
| Author |
Message |
karthikr44
Active User
Joined: 25 Aug 2007
Posts: 235
Location: Chennai
|
|
|
|
Hi,
My input file,
| Code: |
DRGDU600 X
DRGDU700 X
DRGDU700 X
DRGDU600 X
DRGDU600 X
DRGDU800 X
|
Required output:
| Code: |
DRGDU600 X X
DRGDU700 X X
DRGDU800 X
|
I tried following JCL, but it wont work fine.
| Code: |
//IN1 DD DSN=DEV2.RK.TEST.REC80,DISP=SHR
//OUT DD DSN=DEV2.RK.TEST.REC80.US,DISP=SHR
//TOOLIN DD *
SPLICE FROM(IN1) TO(OUT) ON(1,8,CH) WITHEACH WITH(10,1) -
WITH(12,1) WITH(14,1)
/*
//*
|
O/p I got:
| Code: |
DRGDU600 X X
DRGDU700 X
|
Please let me know how to achieve this requirement.
Thanks in advance
R KARTHIK |
|
| Back to top |
|
 |
Arun Raj
Moderator
Joined: 17 Oct 2006
Posts: 2481
Location: @my desk
|
|
|
|
Is this a business requirement? What does 'X' represent here?
Out of the below duplicates, which value you want in output?
| Code: |
DRGDU600 X
DRGDU600 X |
|
|
| Back to top |
|
|
karthikr44
Active User
Joined: 25 Aug 2007
Posts: 235
Location: Chennai
|
|
|
|
Hi,
X represents a field is present or not.
So we can select any duplicates. No condition in that.
Regards
R KARTHIK |
|
| Back to top |
|
|
Arun Raj
Moderator
Joined: 17 Oct 2006
Posts: 2481
Location: @my desk
|
|
|
|
Karthik,
Here's a SyncSort job which does the same. I have assumed FB files of LRECL=80.
| Code: |
//STEP1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN= Input file (FB/80)
//SORTOUT DD DSN= Output file (FB/80)
//SYSIN DD *
INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:C'000')),
IFTHEN=(WHEN=(10,1,CH,EQ,C'X'),OVERLAY=(81:C'1')),
IFTHEN=(WHEN=(12,1,CH,EQ,C'X'),OVERLAY=(82:C'1')),
IFTHEN=(WHEN=(14,1,CH,EQ,C'X'),OVERLAY=(83:C'1'))
SORT FIELDS=(1,8,CH,A)
SUM FIELDS=(81,1,ZD,82,1,ZD,83,1,ZD)
OUTFIL IFOUTLEN=80,
IFTHEN=(WHEN=(81,1,ZD,GT,0),OVERLAY=(10:C'X'),HIT=NEXT),
IFTHEN=(WHEN=(82,1,ZD,GT,0),OVERLAY=(12:C'X'),HIT=NEXT),
IFTHEN=(WHEN=(83,1,ZD,GT,0),OVERLAY=(14:C'X')) |
|
|
| Back to top |
|
|
karthikr44
Active User
Joined: 25 Aug 2007
Posts: 235
Location: Chennai
|
|
|
|
Hey Arun,
Thank u very much. It is working fine. 
Regards
R KARTHIK |
|
| Back to top |
|
|
|
|
|
