# OPPOSITE ARGUMENTS IN TWO SEPARATE STRING
# arg1 is the field to display in
# arg2 is the field to have opposite args of

set SOP = `oppwd()`
set node = ""

foreach noder (`run("opls $OBJECTCONTAINER")`)

    set node = $node $noder

end

opparm $SOP $arg1 ("$node")

set wanted = `chs("$SOP/$arg2")`
set check = `chs("$SOP/$arg1")`
set checknum = `argc($check)` 


for i = 0 to `evals(argc($wanted)-1)`

    # sets $wnew for checking    

    set wnew = `arg($wanted,$i)`

        for x = 0 to `evals(argc($check)-1)`

            # sets $cnew for checking
            set cnew = `arg($check,$x)`
            set matchme = `strmatch($cnew,$wnew)`

            if "$matchme" == "1" then

                set matched = $matched $cnew

            endif

        end
end



for r = 0 to `evals(argc($matched)-1)`
    set rcheck = `arg($matched,$r)`
    set nvar = `strreplace($check,${rcheck},"")`
    set check = $nvar
end

opparm -C $SOP $arg1 ("$nvar")