Question Legacy Program : How Can I Fix It ?

[LarryD]

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:

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"
... }

 

[Jonathan]

Just wondering, if I build me temp-table and buffer, what would be the way to change those statements :

Find First {1} {11} NO-LOCK NO-ERROR.
IF AVAILABLE ({1}) THEN
DO:
recno = recid({1}).
END.

FORM {1}.{2} {1}.{3}
With Frame {5} Row {7} Column {8} Overlay {6} Down
Title "{9}" no-labels no-attr-space.