*&---------------------------------------------------------------------*
*& Include Z17_011_CLASS *
*&---------------------------------------------------------------------*
* Definition part
******************************************
CLASS lcl_airplane DEFINITION.
*------------------------------
* Public section
*------------------------------
PUBLIC SECTION.
TYPES: t_name(25) TYPE c.
METHODS:
constructor,
set_attributes IMPORTING p_name TYPE t_name
p_planetype TYPE saplane-planetype,
display_attributes,
display_n_o_airplanes.
*------------------------------
* Private section
*------------------------------
PRIVATE SECTION.
* Private attributes
DATA: name(25) TYPE c,
planetype TYPE saplane-planetype.
* Private static attribute
CLASS-DATA n_o_airplanes TYPE i.
ENDCLASS.
******************************************
* Implementation part
******************************************
CLASS lcl_airplane IMPLEMENTATION.
METHOD constructor.
* Counts number of instances
n_o_airplanes = n_o_airplanes + 1.
ENDMETHOD.
METHOD set_attributes.
name = p_name.
planetype = p_planetype.
ENDMETHOD.
METHOD display_attributes.
WRITE:/ 'Name:', name, 'Planetype:', planetype.
ENDMETHOD.
METHOD display_n_o_airplanes.
WRITE: / 'No. planes:', n_o_airplanes.
ENDMETHOD.
ENDCLASS.
*& Include Z17_011_CLASS *
*&---------------------------------------------------------------------*
* Definition part
******************************************
CLASS lcl_airplane DEFINITION.
*------------------------------
* Public section
*------------------------------
PUBLIC SECTION.
TYPES: t_name(25) TYPE c.
METHODS:
constructor,
set_attributes IMPORTING p_name TYPE t_name
p_planetype TYPE saplane-planetype,
display_attributes,
display_n_o_airplanes.
*------------------------------
* Private section
*------------------------------
PRIVATE SECTION.
* Private attributes
DATA: name(25) TYPE c,
planetype TYPE saplane-planetype.
* Private static attribute
CLASS-DATA n_o_airplanes TYPE i.
ENDCLASS.
******************************************
* Implementation part
******************************************
CLASS lcl_airplane IMPLEMENTATION.
METHOD constructor.
* Counts number of instances
n_o_airplanes = n_o_airplanes + 1.
ENDMETHOD.
METHOD set_attributes.
name = p_name.
planetype = p_planetype.
ENDMETHOD.
METHOD display_attributes.
WRITE:/ 'Name:', name, 'Planetype:', planetype.
ENDMETHOD.
METHOD display_n_o_airplanes.
WRITE: / 'No. planes:', n_o_airplanes.
ENDMETHOD.
ENDCLASS.
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
511 | PROGRAM z13_05. | sapjoy | 2012.08.01 | 1160 |
510 | REPORT z15_21. | sapjoy | 2012.08.01 | 1160 |
509 | REPORT z15_04. | sapjoy | 2012.08.01 | 1165 |
508 | PROGRAM z13_03. | sapjoy | 2012.08.01 | 1171 |
507 | REPORT z05_01. [3] | sapjoy | 2012.07.30 | 1174 |
506 | Report Z15_02 | sapjoy | 2012.08.01 | 1174 |
505 | REPORT z15_15. | sapjoy | 2012.08.01 | 1175 |
504 | REPORT z15_03. | sapjoy | 2012.08.01 | 1188 |
503 | REPORT z16_05. | sapjoy | 2012.08.01 | 1188 |
502 | REPORT z16_10. | sapjoy | 2012.08.01 | 1189 |
501 | PROGRAM z13_02. | sapjoy | 2012.08.01 | 1190 |
500 | REPORT z15_13. | sapjoy | 2012.08.01 | 1190 |
499 | REPORT z15_25. [1] | sapjoy | 2012.08.01 | 1198 |
498 | report Z12_33 | sapjoy | 2012.07.30 | 1200 |
497 | REPORT z15_20. | sapjoy | 2012.08.01 | 1211 |
496 | REPORT z12_27. | sapjoy | 2012.07.30 | 1214 |
495 | REPORT z15_23. [1] | sapjoy | 2012.08.01 | 1220 |
494 | REPORT z15_17. [1] | sapjoy | 2012.08.01 | 1227 |
493 | REPORT Z12_22 | sapjoy | 2012.07.30 | 1228 |
492 | REPORT z16_04. | sapjoy | 2012.08.01 | 1246 |