SAP-ABAP-实例第4章-面向对象程序设计

SAP-ABAP-实例第4章-面向对象程序设计打 *CLASScallobjDEFINITION **类的申明：* *CLASScallobjDEFINITION.PUBLICSECTION.CLASS-DATA:para(30)typeCVALUE'thestaticclassparameter!'.DATAcountTYPEI.METHODS:showdata1,showdata2.PROTECTEDSECTION.PRIVATESECTION.METHODS:showdata3.ENDCLASS."callobjDEFINITIONENDCLASS.* *CLASScallobjIMPLEMENTATION **类的实现：* *CLASScallobjIMPLEMENTATION.METHODshowdata1.WRITE:/,'showdata1:Hellosap'.ENDMETHOD. "showdata1METHODshowdata2.count=1.WRITE:/,'showdata2:',count.CALLMETHODshowdata3.ENDMETHOD. "showdata1METHODshowdata3.Write:/,'showdata3:theprivatemethod!'.ENDMETHOD. "showdata3ENDCLASS. "callobjIMPLEMENTATION* *CLASScallobj2DEFINITION **类2的声明：* *CLASScallobj2DEFINITION.PUBLICSECTION.CLASS-METHODS:call_static_class.ENDCLASS. "callobj2DEFINITION *CLASScallobj2IMPLEMENTATION **类2的实现：* *CLASScallobj2implementation.METHODcall_static_class.WRITE:/,callobj=>para.ENDMETHOD. "call_static_classENDCLASS. "callobj2IMPLEMENTATIONdataobjtypereftocallobj.data:methnametypestring.CREATEOBJECTobj.methname='showdata2'.CALLMETH0D:obj->showdata1."obj—〉（methname）.CALLMETHOD:obj->showdata2.CALLMETHOD:callobj2=>call_static_class.* *CLASSDemoDEFINITION **步骤一：声明变量：* *CLASSDemoDEFINITION.PUBLICSECTION.Class-METHODs:Display.PROTECTEDSECTION.PRIVATESECTION.ENDCLASS."DemoDEFINITIONENDCLASS. * *CLASSDemoIMPLEMENTATION **步骤二：实现变量：* *CLASSDemoIMPLEMENTATION.METHODDisplay.WRITE:'asdfasdf'.ENDMETHOD."DemoENDCLASS."DemoIMPLEMENTATION"步骤三：开始START-OF-SELECTION."步骤四：声明对象：Data/