12 lines
307 B
Text
12 lines
307 B
Text
FUNCTION testLogical RETURNS CHAR (
|
|
i_l1 AS LOGICAL,
|
|
i_l2 AS LOGICAL
|
|
):
|
|
|
|
RETURN
|
|
SUBSTITUTE( '&1 and &2: &3', i_l1, i_l2, i_l1 AND i_l2 ) + '~n' +
|
|
SUBSTITUTE( '&1 or &2: &3', i_l1, i_l2, i_l1 OR i_l2 ) + '~n' +
|
|
SUBSTITUTE( 'not &1: &2', i_l1, NOT i_l1 )
|
|
.
|
|
|
|
END FUNCTION.
|