SSXAS

/* Main program */
do n=1 to 5
    say 'The factorial of' n 'is:' factorial( n )
    end
return

/* Function to get factorial */
factorial : procedure
    n = arg(1)
    if n = 1 then
      return 1
    return n * factorial( n - 1 )
   
    /*scrivo quello che voglio quando vogliooooooo                           */
    signal on novalue NAME E1000_GEST_ERR_NOVALUE
    
    WS_RIGA =""
    WS_RIGA =SOURCELINE(6+1)
    SAY WS_CONTATORE
    
    EXIT
    /**************************************************************************/
    E1000_GEST_ERR_NOVALUE
    /**************************************************************************/
    SAY "VARIABILE NON UTILIZZATA ALLA SEGUENTE RIGA: " WS_RIGA
    
    RETURN