Steps
- Go to transaction code SE24.
- The initial screen of Class Builder looks like this.
- Enter the Object Type (class name ), start's with YCL_ or ZCL_ <class name >, and click on create button.
- Enter the short description and click on the SAVE button.
- Save it in either Package or Local Package.
- Class Interface looks like this.
- Click on the attributes Tab,
- Enter the attribute name.
- Click on Level and press F4 help.
- Select the Level ( instance ) of the attribute.
- Click on Visibility and press F4 help.
- Select the Visibility of the attribute.
- Enter the Associated type( data type ).
- Enter the Description.
- Enter the initial value ( optional ).
- Note: N1 is known as the Instance Public attribute.
- To Add a static public attribute follow the following steps.
- Enter attribute name.
- Enter the initial value.
- Go to transaction code SE38.
- We can call static attribute using,
<object name >-><attribute name>.
or
<Class name >=><attribute name>.
- Save -> Check->Activate.
- Execute.
- Change the values of instance and static public attributes.
Source Code.
DATA : OBJ TYPE REF TO ZCL_FIRST_CLASS,
OBJ2 TYPE REF TO ZCL_FIRST_CLASS.
START-OF-SELECTION.
CREATE OBJECT: OBJ , OBJ2.
"Call attributes default values
WRITE : / ' N1 INSTANCE PUBLIC ATTRIBUTE : ' , OBJ->N1.
WRITE : / ' N2 INSTANCE PUBLIC ATTRIBUTE : ' , OBJ->N2.
ULINE.
" CHANGE THE VALUES OF INSTANCE AND STATIC PUBLIC ATTRIBUTE VALUE
OBJ->N1 = 76.
OBJ->N2 = 34.
WRITE : / ' N1 INSTANCE PUBLIC ATTRIBUTE : ' , OBJ->N1.
WRITE : / ' N2 INSTANCE PUBLIC ATTRIBUTE : ' , OBJ->N2.
" Now call the object 2.
uline .
WRITE : / ' N1 INSTANCE PUBLIC ATTRIBUTE : ' , OBJ2->N1.
WRITE : / ' N2 INSTANCE PUBLIC ATTRIBUTE : ' , OBJ2->N2.
ULINE.
OBJ2 TYPE REF TO ZCL_FIRST_CLASS.
START-OF-SELECTION.
CREATE OBJECT: OBJ , OBJ2.
"Call attributes default values
WRITE : / ' N1 INSTANCE PUBLIC ATTRIBUTE : ' , OBJ->N1.
WRITE : / ' N2 INSTANCE PUBLIC ATTRIBUTE : ' , OBJ->N2.
ULINE.
" CHANGE THE VALUES OF INSTANCE AND STATIC PUBLIC ATTRIBUTE VALUE
OBJ->N1 = 76.
OBJ->N2 = 34.
WRITE : / ' N1 INSTANCE PUBLIC ATTRIBUTE : ' , OBJ->N1.
WRITE : / ' N2 INSTANCE PUBLIC ATTRIBUTE : ' , OBJ->N2.
" Now call the object 2.
uline .
WRITE : / ' N1 INSTANCE PUBLIC ATTRIBUTE : ' , OBJ2->N1.
WRITE : / ' N2 INSTANCE PUBLIC ATTRIBUTE : ' , OBJ2->N2.
ULINE.
No comments:
Post a Comment