Shell Programming and Scripting

awk '
        {
                for ( i = 1; i <= NF; i++ )
                {
                        if ( $i == "FROM" )
                                F = 1
                        if ( ( F && $i ~ /SELECT/ ) || $i ~ /WHERE/ )
                                F = 0
                        if ( ( F && $i !~ /SELECT/ ) && $i !~ /FROM/ )
                        {
                                sub ( /,/, X, $i )
                                !T[$i]
                        }
                        if ( $i ~ /\./ )
                        {
                                split ( $i, A, "." )
                                TA[A[1]] = A[1]
                        }
                }
        }
        END {
                for ( k in T )
                {
                        if ( !(TA[k]) )
                                print k
                }
        }
' file.pc

tr [:lower:] [:upper:]

awk '
        {
                for ( i = 1; i <= NF; i++ )
                {
                        if ( $i ~ /[Ff][Rr][Oo][Mm]/ )
                                F = 1
                        if ( ( F && $i ~ /[Ss][Ee][Ll][Ee][Cc][Tt]/ ) || $i ~ /[Ww][Hh][Ee][Rr][Ee]/ )
                                F = 0
                        if ( ( F && $i !~ /[Ss][Ee][Ll][Ee][Cc][Tt]/ ) && $i !~ /[Ff][Rr][Oo][Mm]/ )
                        {
                                sub ( /,/, X, $i )
                                !T[$i]
                        }
                        if ( $i ~ /\./ )
                        {
                                split ( $i, A, "." )
                                TA[A[1]] = A[1]
                        }
                }
        }
        END {
                for ( k in T )
                {
                        if ( !(TA[k]) )
                                print k
                }
        }
' file.pc

$ cat file.pc
EXEC SQL SELECT t1.field1, t1.field2
INTO :w_field
FROM TABLE1 t1, TABLE2 t2
WHERE t1.field1 = t2.field1
AND   t1.ID     = :wl_id;

EXEC SQL SELECT t3.field1, t4.field2
INTO :w_field
FROM TABLE3 t3, TABLE4 t4
WHERE t3.field1 = t4.field1
AND   t3.ID     = :wl_id;

EXEC SQL SELECT ID
INTO :twl_partition
FROM (SELECT (ROWNUM-1) ID FROM PERIODE WHERE ROWNUM  <= :wl_nb_partition)
WHERE :dlg_no_process = MOD(ID, :dlg_nb_process );

TABLE1
TABLE2
TABLE3
TABLE4
PERIODE