具体产品类：
*OK, now we can concrete product
class nystylepizza1 definition
inheriting from pizza.
public section.
methods:
constructor.
endclass.
class nystylepizza1 implementation.
method constructor.
call method super->constructor.
name = 'NY style Sauce and Cheese Pizza'.
dough = 'Thin Crust Dough'.
sauce = 'Marinara Sauce'.
rtab-str = 'Grated Reggiano Cheese'.
append rtab to itab.
endmethod.
endclass.
class chistylepizza1 definition
inheriting from pizza.
public section.
methods:
constructor,
cut redefinition.
endclass.
class chistylepizza1 implementation.
method constructor.
call method super->constructor.
name = 'Chicago Style Deep Dish Cheese Pizza'.
dough = 'Extra Thick Crust Dough'.
sauce = 'Plum Tomato Sauce'.
rtab-str = 'Shredded Mozzarella Cheese'.
append rtab to itab.
endmethod.
method cut.
write: / 'Cutting the pizza into square slices'.
endmethod.
endclass.
class nystylepizza1 definition
inheriting from pizza.
public section.
methods:
constructor.
endclass.
class nystylepizza1 implementation.
method constructor.
call method super->constructor.
name = 'NY style Sauce and Cheese Pizza'.
dough = 'Thin Crust Dough'.
sauce = 'Marinara Sauce'.
rtab-str = 'Grated Reggiano Cheese'.
append rtab to itab.
endmethod.
endclass.
class chistylepizza1 definition
inheriting from pizza.
public section.
methods:
constructor,
cut redefinition.
endclass.
class chistylepizza1 implementation.
method constructor.
call method super->constructor.
name = 'Chicago Style Deep Dish Cheese Pizza'.
dough = 'Extra Thick Crust Dough'.
sauce = 'Plum Tomato Sauce'.
rtab-str = 'Shredded Mozzarella Cheese'.
append rtab to itab.
endmethod.
method cut.
write: / 'Cutting the pizza into square slices'.
endmethod.
endclass.
