4gl function

Yahoo Archive
1
Never mind,
The function definition must appear before the function call. Sorry, I
don't think straight before my morning chocolate :)
Mark

-----Original Message-----
From: Mark Dupuis [mailto:dupuism@...]
Sent: Thursday, August 01, 2002 7:51 AM
To: Vantage Users Group
Subject: [Vantage] 4gl function


Good morning group,
Could someone show me a simple function call in 4gl. Here is what I have
but the call does not work. I tried using assign but I get an error.

Procedure myPro:
define var mysize as character.
assign mysize = myfunct(2).
end procedure.

function Myfunct returns character(input num1 as integer).

case num1:
when 1 then
return "Small".
when 2 then
return "Medium".
when 3 then
return "Large".
otherwise
return "N/A".
end case.
end function.

TIA
Mark



Useful links for the Yahoo!Groups Vantage Board are: ( Note: You must have
already linked your email address to a yahoo id to enable access. )
(1) To access the Files Section of our Yahoo!Group for Report Builder and
Crystal Reports and other 'goodies', please goto:
http://groups.yahoo.com/group/vantage/files/.
(2) To search through old msg's goto:
http://groups.yahoo.com/group/vantage/messages
(3) To view links to Vendors that provide Vantage services goto:
http://groups.yahoo.com/group/vantage/links

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
2
Good morning group,
Could someone show me a simple function call in 4gl. Here is what I have
but the call does not work. I tried using assign but I get an error.

Procedure myPro:
define var mysize as character.
assign mysize = myfunct(2).
end procedure.

function Myfunct returns character(input num1 as integer).

case num1:
when 1 then
return "Small".
when 2 then
return "Medium".
when 3 then
return "Large".
otherwise
return "N/A".
end case.
end function.

TIA
Mark