Michael S 2012-06-02 19:52

/* */

ansi_filein = "H:\test_file.dat"

rc = open_file()

/* This SHOULD reset the pointer to the first byte ... */
temp = CHARIN(ansi_filein, 1) 
/* ... and read 72 bytes from byte 1. In fact it skips byte 1 and starts with 2 */
line = CHARIN(ansi_filein, , 72)
SAY '§§§'line'§§§'

/* Here we close the file and reopen it */
temp = STREAM(ansi_filein, 'C', 'CLOSE')
temp = open_file(ansi_filein)
/* NOW we get bytes 1-72 */
line = CHARIN(ansi_filein, , 72)
SAY '§§§'line'§§§'

RETURN 0

open_file:

DO
	STREAM(ansi_filein, 'C', 'OPEN READ SHARED')
	CATCH NOTREADY
		temp = STREAM(ansi_filein, 'D')
		RETURN '0001' || temp
END	

total_bytes = STREAM(ansi_filein, "C", "QUERY SIZE")

RETURN 0

Michael S 2012-06-02 19:52