John,
We converted from jBASE about 6 months ago and had to deal with this.
Here's a user-defined function which performs just like the jBASE
GETENV() function.
FUNCTION GETENV(VARNAME, VALUE)
!
* INITIALIZE *
IF ASSIGNED(VARNAME) ELSE VARNAME = ''
FOUND = 0
VALUE = ''
!
* GET THE VALUE *
EXECUTE 'ENV' CAPTURING ENV
IDX = 1
LOOP
FINDSTR VARNAME:'=' IN ENV,IDX SETTING AMC ELSE EXIT
PZ = INDEX(ENV<AMC>, '=', 1)
IF ENV<AMC>[1,PZ-1] = VARNAME THEN
VALUE = ENV<AMC>[PZ+1, LEN(ENV<AMC>)]
FOUND = 1
EXIT
END
IDX += 1
REPEAT
RETURN(FOUND)
Hope this helps.
Perry Taylor
Zirmed, Inc.
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of John
Castilletti
Sent: Thursday, January 26, 2006 7:05 AM
To: [email protected]
Subject: [U2] Converting Jbase Code into Universe
Do you know how to get the environment variable through Universe? The
jBase code to get them is:
DUMMY=GETENV('CONTENT_LENGTH',Content_Length)
DUMMY=GETENV('QUERY_STRING',Query_String)
DUMMY=GETENV('REQUEST_METHOD', Request_Method)
DUMMY=GETENV('SERVER_NAME',WebServerName)
and create one is:
Dummy=PUTENV('JEDIFILENAME_MD=':SwitchWebHome:'\MD')
Any help on this would be greatly appreciated.
Thanks,
John
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
CONFIDENTIALITY NOTICE: This e-mail message, including any attachments, is for
the sole use of the intended recipient(s) and may contain confidential and
privileged information. Any unauthorized review, use, disclosure or
distribution is prohibited. ZirMed, Inc. has strict policies regarding the
content of e-mail communications, specifically Protected Health Information,
any communications containing such material will be returned to the originating
party with such advisement noted. If you are not the intended recipient, please
contact the sender by reply e-mail and destroy all copies of the original
message.
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
