On Tue, 30 Apr 2019 14:08:10 -0500, Ron Thomas wrote:
>Here is the actual production files data ,
>
>102,3522850,15,FF,9
>202,3522850,15,FF,9
>102016,3522850,15,FF,9
>104152,3522850,15,FF,7
>104152,3522850,15,FF,9
>104760,3521499,15,FF,9
>104760,3521499,15,FF,9
>106735,3507181,15,FF,9
>989898989,3507181,15,FF,9
>989898989,3507181,15,FF,9
>
OK. Since I don't know DFSORT, here's a non-DFSORT, more procedural, approach:
#! /bin/sh
{ cat <<Does-not-occur
102,3522850,15,FF,9
202,3522850,15,FF,9
102016,3522850,15,FF,9
104152,3522850,15,FF,7
104152,3522850,15,FF,9
104760,3521499,15,FF,9
104760,3521499,15,FF,9
106735,3507181,15,FF,9
989898989,3507181,15,FF,9
989898989,3507181,15,FF,9
Does-not-occur
} |
awk 'BEGIN {
FS=","
Prev = "Never a key." }
$1!=Prev { N = 0 }
{ N += 1
Prev = $1
print( N","$0 ) }'
... and its output:
1,102,3522850,15,FF,9
1,202,3522850,15,FF,9
1,102016,3522850,15,FF,9
1,104152,3522850,15,FF,7
2,104152,3522850,15,FF,9
1,104760,3521499,15,FF,9
2,104760,3521499,15,FF,9
1,106735,3507181,15,FF,9
1,989898989,3507181,15,FF,9
2,989898989,3507181,15,FF,9
There are many tools in the box.
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
