Using Return-Value in internal procedures

25Mai09

Hi,

This post is about another function… Return-Value.
It’s very useful and quite simple to use.

Function – source ABL HandBook
The RETURN-VALUE function provides the value returned by the most recently executed RETURN statement.

Sample
RUN piTest(INPUT 5
,INPUT 6).

IF RETURN-VALUE <> “” THEN
MESSAGE RETURN-VALUE VIEW-AS ALERT-BOX.

PROCEDURE piTest:
DEFINE INPUT PARAMETER pNumber1 AS INTEGER.
DEFINE INPUT PARAMETER pNumber2 AS INTEGER.

IF pNumber1 = pNumber2 THEN
RETURN STRING(pNumber1) + ” = ” + STRING(pNumber2).
ELSE IF pNumber1 > pNumber2 THEN
RETURN STRING(pNumber1) + ” > ” + STRING(pNumber2).
ELSE
RETURN STRING(pNumber1) + ” < ” + STRING(pNumber2).
END PROCEDURE.

With Return-Value function your code can be more dinamic.

Filed under: Progress   |  Leave a Comment
Tags: 4gl, abl, code, example, internal, openedge, Procedure, Progress, Return, return-value, Syntax, value