Anonymous user
Inheritance/Single: Difference between revisions
→{{header|COBOL}}: Added sugar; revert if necessary.
imported>Acediast (→{{header|COBOL}}: Added sugar; revert if necessary.) |
|||
Line 317:
=={{header|COBOL}}==
<syntaxhighlight lang="cobol">
CLASS-ID. Animal.
*> ...
END CLASS Animal.
CLASS-ID. Dog
INHERITS FROM Animal.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
Line 330 ⟶ 333:
END CLASS Dog.
CLASS-ID. Cat
INHERITS FROM Animal.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
Line 339 ⟶ 344:
END CLASS Cat.
CLASS-ID. Lab
INHERITS FROM Dog.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
Line 348 ⟶ 355:
END CLASS Lab.
CLASS-ID. Collie
INHERITS FROM Dog.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
| |||