#! /usr/bin/nawk -f
#
#      dclpindex file_name para=paameter_name
#
NR == 1 {
    if ( para == "" ) {
        print "error in dclpindex : parameter name is empty."
        exit
    }
}
$0 ~ para && $0 ~ /DATA/ {
    n1 = index( $0, "(" )
    n2 = index( $0, ")" )
    print substr( $0, n1+1, n2-n1-1 )
}
