one other thing if you insist on going down this path.... you can change the include code to be at least readable by doing the following:
Then in your calling program where the run statement is:
In your existing calling .p's change the run statment to:
{liste_trans..i &table = "table"
&where = "where something = somethingelse"
&field1 = "mydbfield1"
&field2 = "mydbfield2"
&vartoset = "oldsharedvar"
&frame = "myframe"
... }
Code:
Find {&table} {&where} NO-LOCK NO-ERROR.
if not available {&table}
then do:
.....
end.
else recno = rowid({&table}).
FORM {&table}.{&field1} {&table}.{&field2}
With Frame {&frame} Row {&row} Column {&col} Overlay {&whateverthis} Down
Title "{&title}" no-labels no-attr-space.
... and replace all the {#} with something meaningful ...
Then in your calling program where the run statement is:
In your existing calling .p's change the run statment to:
{liste_trans..i &table = "table"
&where = "where something = somethingelse"
&field1 = "mydbfield1"
&field2 = "mydbfield2"
&vartoset = "oldsharedvar"
&frame = "myframe"
... }