Date:         Mon, 18 Feb 2002 11:26:27 -0500
Reply-To:     Gerhard Hellriegel <ghellrieg@T-ONLINE.DE>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         Gerhard Hellriegel <ghellrieg@T-ONLINE.DE>
Subject:      Re: AF Problem still

On Mon, 18 Feb 2002 15:42:43 +0000, Graeme Kirton <gkirton@FILCS.COM> wrote:

>My passing the parms now works, thanks ALL.  Symget did the trick.  Now my
code
>only WORKS locally.  I need to rsubmit it, but when I do I get
this............
>Bold is line.  Any ideas, we've not got AF licenced on the server, its
local
>could this be it. If so Im gunna have to do loads of extra work.......
>
>NOTE: Remote submit to SERVER commencing.
>2807     %Let checkfile = Testrun;
>2808     %Let access = U;
>2809     %let typeaccess = 2;
>2810      proc display cat=getad3.development.check_base.SCL /*batch*/;
>2811      run;
>
>*** Line 38: [ERROR:  #64]  Calling function WHERE.  Invalid dataset id
>Arguments passed to WHERE:
>  1 lockingid = 0
>  2 (Character Expression $T4) = 'DATASET="Testrun" AND LEVEL IN ("U","R")'
>Program returning prematurely at line 38
>AF Program: GETAD3.DEVELOPMENT.CHECK_BASE.SCL
>NOTE: PROCEDURE DISPLAY used:
>      real time           0.00 seconds
>      cpu time            0.00 seconds
>
>/*****************************************
>CODE
>
>RDATESET:
>
>
>      lockingid=open("SHRadmin.locking(write=&a)",'U');
>
>
>      do until (re=0 /*or i=10*/);
>
>
>         rc = where (lockingid,'DATASET='!!quote(dset)!!' AND LEVEL IN
>("U","R")');
>
>         re = attrn (lockingid,'any');
>
>
>         rc = unlock(lockingid);
>
>
>         *if re then rc = mcipislp(4);
>
>
>         if re then call /*wait*/ sleep(4);
>
>         /*i +1;*/
>
>
>      end;
>
>
>      rc = close(lockingid);
>
>
>RETURN;
>___________________________________________________________________________
_________________________________
>
>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

No the license is not the reason! You need the license only to compile a
program, not to run it. The reason is in the dataset, you are opening! The
open does not work. Are you sure that the dataset is on your remote
machine?

and the syntax is not known to me:

lockingid=open("SHRadmin.locking(write=&a)",'U');

what do you mean with ...(write=&a) ???
In open I know only the ds-name as first parameter and the open mode as
second,
e.g.

lockingid=open("shradmin.locking","U");

???