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:
  1.      p myProc...
  2.      p                 b
  3.      d                 pi            10i 0
  4.      d  parm1                         8a   const
  5.  
  6.      d MAGIC_NUMBER1   c                   -1
  7.      d MAGIC_NUMBER2   c                   -2
  8.      d MAGIC_NUMBER3   c                    0
  9.       /free
  10.  
  11.        select;
  12.        // Oops - an error is found.  We gotta get out.
  13.        when oops;
  14.          return MAGIC_NUMBER1;
  15.        when oopsToo;
  16.          return MAGIC_NUMBER2;
  17.        other;
  18.          return MAGIC_NUMBER3;
  19.        endSl;
  20.  
  21.       /end-free
  22.      p                 e                        
© 2004-2019 by midrange.com generated in 0.007s valid xhtml & css