SSL calculate.cob   Interaktion und
PortierbarkeitCobol

       identification division.
       program-id. calculate.
      *-------------------------------- 
      * aus Spillner /Linz S.41
      * Berechnung eines Gesamtpreises 
      *-------------------------------- 
       author. "JD".
       date-written. 2.12.2005.
       date-compiled.
       data division.
       working-storage section.
       77 addon-discount pic 9(8)V99.
       77 result         pic 9(8)V99.
       linkage section.
      * Grundpreis des Fahrzeuges  
       77 baseprice      pic 9(8)V99.
      * Sondermodellaufschlag 
       77 specialprice   pic 9(8)V99.
      * Preis der Zusatzausstattung 
       77 extraprice     pic 9(8)V99.
      * Anzahl der Zusatzausstattungen 
       77 extras         pic 9(4)V99.
      * Händlerrabatt 
       77 discount       pic 9(8)V99.
       procedure division using baseprice,
                                specialprice,
                                extraprice,
                                extras,
                                discount.
      * ermittle den Gesamtpreis 
         if      extras >= 3 then move 10   to addon-discount
         else if extras >= 5 then move 15   to addon-discount
         else                     move 0    to addon-discount.
         
         if discount > addon-discount then
           move discount to addon-discount.
           
         compute result =
             baseprice / 100 * (100 - discount)
           + specialprice
           + extraprice/100*(100 - addon-discount).
         
         display "Gesamtpreis des Fahrzeuges ="result.
         
        end-program calculate.