would something like the following work?
OPENSEQ IN.PATH TO IN.FILE ELSE ABORT 201, IN.PATH
LOOP
READSEQ IN.LINE FROM IN.FILE ELSE IN.LINE = @AM
UNTIL IN.LINE = @AM DO
IN.LINE[SPOS,EPOS] = WHATEVER
BYTES = (LEN(IN.LINE) * -1) -1
SEEK IN.FILE, MANY, 1 THEN
WRITESEQ IN.LINE ON IN.FILE ELSE ABORT
END ELSE
PRINT 'UNABLE TO MOVE POINTER FOR SOME REASON'
END
REPEAT
WEOFSEQ IN.FILE
CLOSESEQ IN.FILE
-------------- Original message --------------
From: [EMAIL PROTECTED]
> We have a need to overwrite/update the first record of a sequential file.
> Sure I could write 2 sequential files and 'cat' them or make 2 passes
> through the data extract to get the totals but I thought I has seen a way
> to resent the pointer (thereby overwriting the first record).
>
> Any ideas?
>
> Vance Alspach
> J & L Industrial Supply
> -------
> u2-users mailing list
> [email protected]
> To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
