18 lines
394 B
Text
18 lines
394 B
Text
|
CLASS-ID. Camera.
|
||
|
|
*> ...
|
||
|
|
END CLASS Camera.
|
||
|
|
|
||
|
|
CLASS-ID. Mobile-Phone.
|
||
|
|
*> ...
|
||
|
|
END CLASS Mobile-Phone.
|
||
|
|
|
||
|
|
CLASS-ID. Camera-Phone INHERITS Camera, Mobile-Phone.
|
||
|
|
ENVIRONMENT DIVISION.
|
||
|
|
CONFIGURATION SECTION.
|
||
|
|
REPOSITORY.
|
||
|
|
CLASS Camera
|
||
|
|
CLASS Mobile-Phone.
|
||
|
|
|
||
|
|
*> ...
|
||
|
|
END CLASS Camera-Phone.
|