midrange.com code scratchpad |
Name:
Anonymous
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
03/03/2010 12:45:25 pm
|
IP:
Logged
|
|
Description:
The user was to lazy to give a description
|
Code:
- p myProc...
- p b
- d pi 10i 0
- d parm1 8a const
-
- d MAGIC_NUMBER1 c -1
- d MAGIC_NUMBER2 c -2
- d MAGIC_NUMBER3 c 0
- /free
-
- select;
- // Oops - an error is found. We gotta get out.
- when oops;
- return MAGIC_NUMBER1;
- when oopsToo;
- return MAGIC_NUMBER2;
- other;
- return MAGIC_NUMBER3;
- endSl;
-
- /end-free
- p e
|
|
|