hier nen kleines beispiel

fhspbo if e k disk usropn

/Free

open(e) hspbo;
if not %error;
zaehler = 0;
read hspbo1;
dow not %eof(hspbo);
........ HIER NE VERARBEITUNG .........
read hspbo1;
enddo;
close hspbo;
endif;

*inlr = *on;
/End-Free

gruß ronald



[Dieser Beitrag wurde von malzusrex am 10. März 2003 editiert.]