FILEISOPEN, ISOPEN v17

FILEISOPEN (<file_loc> IN BFILE) RETURN NUMBER

ISOPEN (<file_loc> IN BFILE) RETURN NUMBER

DECLARE
   /* Initialize the BFILE locator: */
   File_loc1       BFILE := BFILENAME('ANOTHER_DIR', 'a.txt');
   ret             NUMBER;
BEGIN
   DBMS_LOB.OPEN(File_loc1, DBMS_LOB.LOB_READONLY);
   ret = DBMS_LOB.FILEISOPEN(File_loc);
   IF (RetVal = 1) THEN
       DBMS_OUTPUT.PUT_LINE('BFile is now open');
   ELSE
       DBMS_OUTPUT.PUT_LINE('BFile is not open');
   END IF;
   /* Close the BFILEs: */
   DBMS_LOB.FILECLOSE(File_loc1);
END;