M
marian.edu
Guest
oh man, how the heck are those 4gl apps working? 
if you use a find statement the record is there, even the can-find sees it… if you remove the find then can-find goes blind 
DEFINE TEMP-TABLE tt NO-UNDO FIELD i AS INTEGER INITIAL 1 INDEX i i. PROCEDURE CreateTT: CREATE tt. ASSIGN tt.i = 1. END PROCEDURE. RUN CreateTT. FIND FIRST tt NO-ERROR. /* somehow find is better than can-find */ MESSAGE available(tt) SKIP CAN-FIND(FIRST tt) VIEW-AS ALERT-BOX. the for statement can also see the record wether or not a named buffer is used. RUN CreateTT. FOR EACH tt: DISPLAY tt. END.
Continue reading...
if you use a find statement the record is there, even the can-find sees it… if you remove the find then can-find goes blind DEFINE TEMP-TABLE tt NO-UNDO FIELD i AS INTEGER INITIAL 1 INDEX i i. PROCEDURE CreateTT: CREATE tt. ASSIGN tt.i = 1. END PROCEDURE. RUN CreateTT. FIND FIRST tt NO-ERROR. /* somehow find is better than can-find */ MESSAGE available(tt) SKIP CAN-FIND(FIRST tt) VIEW-AS ALERT-BOX. the for statement can also see the record wether or not a named buffer is used. RUN CreateTT. FOR EACH tt: DISPLAY tt. END.Continue reading...