     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

     d fact            s             30  0 inz(1)


      /Free
             if n <= 0;
                return 0;
             endif;

             dow  n > 1;
               fact = fact * n;
               n -= 1;
             enddo;

             return fact;

      /End-Free
     p Factorial       E
 