I think you need to include the write= statement in the quotes, like this

lockingid=open('admin.locking(write=&a)','n');

Untested, so I hope it works!

Bri

> -----Original Message----- > From: Graeme Kirton [SMTP:gkirton@FILCS.COM] > Sent: Monday, July 09, 2001 11:31 AM > To: SAS-L@LISTSERV.UGA.EDU > Subject: Unbalanced Quotes > > Really annoying, error.............................. Can someone see???? > > Thanx. > > SAFC: > > > call symput('a','mypass'); /* Data Set Write Passwords */ > > > > Usage=trim(symget('SYSUSERID')); > > > > > if exist('admin.locking') = 0 then do; > > > lockingid=open('admin.locking'(write=&a),'n'); /*When I remove > the > (write=&a), it works*/ > > if lockingid ne 0 then do; > > rc=newvar(lockingid,'Usage','c',15); > > > rc=newvar(lockingid,'Dataset','c',15); > > > rc=newvar(lockingid,'Level','c',1); > > > if lockingid then lockingid=close(lockingid); > > end; > > > end; > __________________________________________________________________________ > __________________________________ > > Disclaimer > > This email may contain privileged/confidential information and/or > copyright > material. It is intended only for the use of the person(s) to whom it is > addressed and any unauthorised use may be unlawful. If you receive this > email > by mistake, please advise the sender immediately by using the reply > facility on > your email software and delete the material from your computer. > > Opinions, conclusions and other information in this email that do not > relate to > the official business of this organisation shall be understood as neither > given > nor endorsed by it. > > If this message forms part of a quotation, the quotation is an invitation > to > treat only. No contract subsists until Filtronic Plc (or its subsidiary > companies) accepts your order. Acceptance of your order is made subject > to our > standard Terms and Conditions. > > Website Address http://www.filtronic.com