You need to change line 6 to END ELSE (to end the locked clause)
-----Original Message-----
From: Al DeWitt
Here is my admittedly simple test program and the results:
001: IMPORT.FILE = "FILE_IN.CSV"
002: CLOSE.IT = 1
003: OPENSEQ "DELTAIMPORT",IMPORT.FILE TO FILEIN
004: LOCKED
005: CRT 'FILE IS LOCKED BY SOMEONE ELSE' ; DUMMY='' ; INPUT DUMMY
006: ELSE
007: ERR.CD = STATUS()
008: CRT 'ERROR CODE=':ERR.CD ; DUMMY='' ; INPUT DUMMY
009: CLOSE.IT = 0
010: END
011: IF CLOSE.IT THEN
012: CRT 'HOORAY, FILE_IN IS OPENED' ; DUMMY='' ; INPUT DUMMY
013: CLOSESEQ FILEIN
014: END
015: END
*--: FIB
Filed "ALD1" in file "BP".
Compiling Unibasic: ..\..\..\FLOPROGS\DEV\DEV.IIBASE8\BP8.0\ALD1 in mode
'p'.
main program: syntax error at or before
<line 16> <EOF>
^
Expecting: ELSE
compilation failed
It works fine if I take out lines 4 - 5.
Al DeWitt
_______________________________________________
U2-Users mailing list
[email protected]
http://listserver.u2ug.org/mailman/listinfo/u2-users
