If you're using Datatel's Colleague, you may want to check their subrs
for opening/closing/reading, etc. sequential files:
S.OPEN.SEQ
S.READ.SEQ
S.WRITE.SEQ
S.CLOSE.SEQ


-----Original Message-----
From: Chauhan, Savita [mailto:[EMAIL PROTECTED] 
Sent: Monday, September 20, 2004 3:37 PM
To: [EMAIL PROTECTED]
Subject: RE: [U2][UD] Create file/record if it does not exist


This is how I open my file. 
X.EXT.FILE = '_HOLD_/XHR.PLINK.BENDED.EXTRACT'
OPENSEQ X.EXT.FILE TO f.xhr.plink.bended.extract ELSE
        ERR.MSG = "Error Opening XHR.PLINK.BENDED.EXTRACT. Error code
":STATUS()
        CRT ERR.MSG
        RETURN
END

This code aborts with a status() of 0 if the file/record doesn't exist
under the _HOLD_ dicrecotry. The successful read is 0 too. 

So I don't know how to check the existence or non-existence of this
file/record.

Please help.
Thanks.
-------
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/

Reply via email to