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.