     H NoMain


     d Factorial       pr            30  0
     d  n                             3  0 value



     p Factorial       B                   Export

     d Factorial       pi            30  0
     d  n                             3  0 value


      /Free
             select;
               when n <= 0;
                  return 0;
               when n = 1;
                  return 1;
               other;
                  return  n * Factorial(n-1);
             endSl;

      /End-Free
     p Factorial       E
 