![]() | ![]() | ![]() | ![]() | ![]() |
This is a rexx function provided by PPWIZARD. This routine (like all PPWIZARD extensions) can be used with any operating system supported by PPWIZARD.
This function returns the value of an operating system environment variable. An empty string is returned if the variable is unknown.
The parameters are as follows:
;--- Lets keep all WORK/HOME conditional logic here ------------------------- #define AtHome translate(GetEnv("PRJSRCDIR", 'Y')) = "E:\DB\PROJECTS\HOMEPAGE\HTML" #define AtWork translate(GetEnv("PRJSRCDIR", 'Y')) <> "E:\DB\PROJECTS\HOMEPAGE\HTML" ... ... ;--- External Links --------------------------------------------------------- #if <$AtHome> #define ExtLink <A TARGET=_top HREF="{$URL}">{$VISIBLE=`{$URL}`}</A> #elseif #define ExtLink {$VISIBLE=`{$URL}`}{$URL-} #endif
![]() | ![]() | ![]() | ![]() | ![]() |