| Date: | Wed, 15 Oct 1997 17:47:42 +0200 |
|---|
| Reply-To: | Svend Bang <Svend.Bang@IBT.KU.DK> |
|---|
| Sender: | "SAS(r) Discussion" <SAS-L@UGA.CC.UGA.EDU> |
|---|
| From: | Svend Bang <Svend.Bang@IBT.KU.DK> |
|---|
| Subject: | Program name, Unix, Macro - ONE MORE CORRECTION |
|---|
| Content-Type: | text/plain; charset="us-ascii" |
|---|
An unlucky hand I have had. In the Unix-version there was a wrong
spelling:
%sysfunc(lowcase(%sysfunc(getoptin(SYSIN))));
Sorry!
Svend
Unix version:
%Macro pname;
%* Pname.SAS;
%*
971014, SB: Use of %getopt dropped
%sysfunc replaces macros.
961127, SB: Design changed to use of %getopt
UNIX, Ver 6.11 ->
Svend.Bang@ibt.ku.dk
If you correct errors or enhance the macro,
PLS let me know!
;
%* pname - small case
pnameU - Upper case
pnameL - Long name, ie the path
;
%Global pname pnameu pnamel;
%Let pnameu=%sysfunc(upcase(%sysfunc(getoption(SYSIN))));
%Let pname=%sysfunc(lowcase(%sysfunc(getoption(SYSIN))));
%Let pnamel=%sysget(PWD)/&pname;
%Mend pname;
|
