That did it! Thank you very much.
Al DeWitt -----Original Message----- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Colin Alfke Sent: Friday, October 28, 2011 5:01 PM To: 'U2 Users List' Subject: Re: [U2] OPENSEQ and the LOCKED Option 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 U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users _______________________________________________ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
