Programming

Working with the ABAP Prototype Design Pattern

When it comes to cloning items in an ABAP system, you might use a prototype design pattern to accomplish the copying.

 

In this example, we will work on an imaginary purchase requisition application where the user has to enter the vendor code (LIFNR), material number (MATNR), unit price (PREIS and WAERS), and quantity (MENGE and MEINS) into the GUI. We will want it to be possible to enter multiple line items.

 

Brand-New Instances

Below demonstrates what the model class of such an application would roughly look like.

 

CLASS zcl_purchase DEFINITION

PUBLIC FINAL CREATE PUBLIC.

 

PUBLIC SECTION.

“ Some type definitions

 

METHODS add_line IMPORTING !is_line TYPE t_line.

METHODS load_from_db IMPORTING !iv_docno TYPE zdocno.

METHODS save_to_db.

 

PRIVATE SECTION.

“ Some hidden variables

“ Some boring methods

PROTECTED SECTION.

ENDCLASS.

 

CLASS zcl_purchase IMPLEMENTATION.

 

METHOD add_line.

APPEND VALUE #(

obj_material = NEW zcl_material( is_line-matnr )

lifnr = is_line-lifnr

matnr = is_line-matnr

price = VALUE #(

preis = is_line-preis

waers = is_line-waers )

quan = VALUE #(

menge = is_line-menge

meins = is_line-meins )

) TO gt_line.

ENDMETHOD.

 

METHOD load_from_db.

“ Some boring code containing SELECT, etc.

ENDMETHOD.

 

METHOD save_to_db.

“ Some boring code containing MODIFY, etc.

ENDMETHOD.

 

ENDCLASS.

 

So far, so good. As you see, GT_LINE is a nested internal table with five fields: one object (OBJ_MATERIAL); two variables (LIFNR, MATNR); and two work areas (PRICE, QUAN). At this point, we will assume that creating a new CL_MATERIAL has a high runtime cost, which means that CL_MATERIAL~CONSTRUCTOR contains costly code snippets that take quite some time to execute.

 

Below demonstrates what the CL_MATERIAL class looks like.

 

CLASS zcl_material DEFINITION

PUBLIC FINAL CREATE PUBLIC.

 

PUBLIC SECTION.

“ Some type definitions

 

METHODS constructor IMPORTING !iv_matnr TYPE matnr.

“ Some further methods

 

PRIVATE SECTION.

“ Some hidden methods

PROTECTED SECTION.

ENDCLASS.

 

CLASS zcl_material IMPLEMENTATION.

 

METHOD constructor.

“ Some very slow but unavoidable code

ENDMETHOD.

 

“ Some more methods

ENDCLASS.

 

If the user enters a new line item containing a brand new material, we must call ADD_LINE again. Thus, because we will be creating a new instance of CL_MATERIAL we will have to endure high runtime cost. On the other hand, what if the user enters a material number that he/she had entered before? Would we still create a brand new instance of CL_MATERIAL? With our current code, we would. So we must ask ourselves, “Is there a better way?”

 

Luckily there is! What we will do is clone an existing material object instead of creating a new one—the core logic of the prototype design pattern.

 

Item Clone

Let’s look at the Unified Modeling Language (UML) diagram below to see what this should look like.

 

Item Clone

 

The UML diagram has only one extra method: CLONE. This method will do exactly what it says: clone the object. That’s the easy part; the relatively tricky part will transpire in CL_PURCHASE. Let’s start simple and see what CL_MATERIAL looks like below.

 

CLASS zcl_material DEFINITION

PUBLIC FINAL CREATE PUBLIC.

 

PUBLIC SECTION.

“ Some type definitions

 

METHODS constructor IMPORTING !iv_matnr TYPE matnr.

METHODS clone RETURNING VALUE(ro_material) TYPE REF TO zcl_material.

“ Some further methods

 

PRIVATE SECTION.

“ Some hidden methods

PROTECTED SECTION.

ENDCLASS.

 

CLASS zcl_material IMPLEMENTATION.

 

METHOD constructor.

“ Some very slow but unavoidable code

ENDMETHOD.

 

METHOD clone.

SYSTEM-CALL OBJMGR CLONE me TO ro_material.

ENDMETHOD.

 

“ Some more methods

ENDCLASS.

 

Normally, within the CLONE method, we would create the object RO_MATERIAL (avoiding the slow code in the constructor using flag variables and conditions) and copy the entire state of ME to RO_MATERIAL. However, we used a cheat code. What you see is a system call to clone ME, which is not meant for external use. No one gets hurt by little hacks like this, as long as the unit tests are done well.

 

Now, back to CL_PURCHASE. Instead of creating a new CL_MATERIAL object every time ADD_LINE is called, we will clone an existing material object whenever possible. The code to do so can be seen below.

 

METHOD add_line.

DATA lo_material TYPE REF TO zcl_material.

 

ASSIGN gt_line[ matnr = is_line-matnr ]

TO FIELD-SYMBOL(<ls_line>).

IF sy-subrc EQ 0.

lo_material = <ls_line>-obj_material->clone( ).

ELSE.

lo_material = NEW zcl_material( is_line-matnr ).

ENDIF.

 

APPEND VALUE #(

obj_material = lo_material

lifnr = is_line-lifnr

matnr = is_line-matnr

price = VALUE #(

preis = is_line-preis

waers = is_line-waers )

quan = VALUE #(

menge = is_line-menge

meins = is_line-meins )

) TO gt_line.

ENDMETHOD.

 

Conclusion

Brilliant, isn’t it? Instead of re-calling the constructor every time the same material is added, we simply cloned an existing object and avoided the initialization runtime cost. This trick to using prototype design patterns in your ABAP programs should save you quite a bit of time.

 

Editor’s note: This post has been adapted from a section of the book Design Patterns in ABAP Objects by Kerem Koseoglu.

Recommendation

Design Patterns in ABAP Objects
Design Patterns in ABAP Objects

Use design patterns to step up your object-oriented ABAP game, starting with MVC! Want to create objects only when needed? Call objects only when required, minimizing runtime and memory costs? Reduce errors and effort by only coding an object once? Future-proof your code with a flexible design? Design patterns are the answer! With this guide, you'll get practical examples for every design pattern that will have you writing readable, flexible, and reusable code in no time!

Learn More
SAP PRESS
by SAP PRESS

SAP PRESS is the world's leading SAP publisher, with books on ABAP, SAP S/4HANA, SAP CX, intelligent technologies, SAP Business Technology Platform, and more!

Comments