midrange.com code scratchpad |
Name:
Short circuit test
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
11/25/2008 01:41:21 pm
|
IP:
Logged
|
|
Description:
Tests short circuiting evaluation in a logical expression
|
Code:
- D*--------------------------------------------------
- D* Procedure name: sub1
- D* Purpose:
- D* Returns:
- D* Parameter: value
- D*--------------------------------------------------
- D sub1 PR N
- D value 5A CONST
-
- D*--------------------------------------------------
- D* Procedure name: sub1
- D* Purpose:
- D* Returns:
- D* Parameter: value
- D*--------------------------------------------------
- D sub2 PR N
- D value 5A CONST
-
- D ind S N
-
- /free
- ind = sub1('FALSE') and sub2('TRUE');
- /end-free
-
-
-
- P*--------------------------------------------------
- P* Procedure name: sub1
- P* Purpose:
- P* Returns:
- P* Parameter: value
- P*--------------------------------------------------
- P sub1 B
- D sub1 PI N
- D value 5A CONST
-
-
- /FREE
-
- if (value = 'TRUE');
- return *ON;
- endif;
-
- return *OFF;
- /END-FREE
- P sub1 E
-
- P*--------------------------------------------------
- P* Procedure name: sub1
- P* Purpose:
- P* Returns:
- P* Parameter: value
- P*--------------------------------------------------
- P sub2 B
- D sub2 PI N
- D value 5A CONST
-
-
- /FREE
-
- return sub1(value);
- /END-FREE
- P sub2 E
-
-
|
|
|