;
; SET WHERE=$$GETPOS^%ZTFS1(FILE)
; Makes the named file the current device and returns the
; current file position as the function value.
OPENRAN(FILE,ACC,WHERE)
;
; SET DEVICE=$$OPENRAN^%ZTFS1(FILE,ACCESS,WHERE)
; Opens the sequential file identified by FILE and
; returns the identifier to be used for the file as
; the function value.
; Default file access is 'read from beginning'.
READSEQ(FILE)
;
; SET LINE=$$READSEQ(FILE)
; reads a line from the specified sequential file and
; returns the text of this line as the function value.
; The device identifier is preferably obtained through
; SET FILE=$$OPENSEQ(...) in this module.
; *** As a side effect, local variable EOF is **********
; *** set to 0 when a line could be successfully **********
; *** read, or to 1 when end of file is reached. **********
PARSE(FILE,EXIST,SHOWMSG)
; Parse a file spec.
POSSEQ(FILE,WHERE)
;
; DO POSSEQ(FILE,WHERE)
; Changes the file position of the named file to the spefified
; location.
OPENSEQ(FILE,ACC,XFILEDEF)
;
; SET DEVICE=$$OPENSEQ^%ZTFS1(FILE,ACCESS)
; Opens the sequential file identified by FILE and
; returns the identifier to be used for the file as
; the function value.
; Default file access is 'read from beginning'.
CLOSESEQ(FILE,DISPOSE)
;
; SET STATUS=$$CLOSESEQ^%ZTFS1(FILE[,DISPOSE])
; Closes the sequential file identified by FILE and
; optionally performs a special close-disposition.
; The device identifier is preferably obtained through
; SET FILE=$$OPENSEQ(...) in this module.
; Possible close-dispositions are:
; "DELETE"
; "PRINT/QUEUE=queuename"
; "SUBMIT/QUEUE=queuename"