ABAP Editor/Workbench Custom Dynamic Patterns

Posted by -
In my last post ABAP Editor dynamic patterns, We saw how we can use the patterns to our advantage.

Today, I wanted to expand upon further features of dynamic patterns, which is the ability to write and add your own dynamic patterns.

Let's say you want to define a template for the generation of DB validation code and provide your table name as input.

Creating the Pattern.

From the ABAP editor,
Select Utilities > More Utilities > Edit Pattern > Create Pattern and enter a name for your pattern.


ABAP Editor Create new Custom Pattern

Type name for the pattern:

ABAP Editor Create new custom pattern Name

You will be presented with a text editor screen, Add the following code:
*$&$MUSTER
The above code tells the runtime to call a function module with the naming convention:
<pattern_name>_editor_exit. >ABAP Editor Create new custom pattern Code

The next obvious step is to create the FM with the above-discussed name.
The FM has a defined interface of a TABLES parameter BUFFER of type RSWSOURCET.
The table is used to pass back the code to the editor.

ABAP Editor Create new custom pattern FM
Insert Below code in the source code tab.
DATA lt_sval TYPE STANDARD TABLE OF sval.
DATA ls_sval TYPE sval.
DATA:
lv_ret TYPE char1,
lv_buffer TYPE LINE OF rswsourcet.
"Get tablename using Popup.
ls_sval-tabname = 'DD02L'.
ls_sval-fieldname = 'TABNAME'.
ls_sval-field_attr = '00'.
APPEND ls_sval TO lt_sval.
CALL FUNCTION 'POPUP_GET_VALUES_DB_CHECKED'
EXPORTING popup_title = 'Table Name'
IMPORTING returncode = lv_ret
TABLES fields = lt_sval
EXCEPTIONS OTHERS = 2.
IF sy-subrc <> 0.
RETURN.
ENDIF.
READ TABLE lt_sval INTO ls_sval INDEX 1.
IF syst-subrc <> 0.
RETURN.
ENDIF.
"Create COde..
lv_buffer = '"Validate Input against Table:' && ` ` && ls_sval-value.
APPEND lv_buffer TO buffer.
APPEND 'Select COUNT(*)' TO buffer.
APPEND ' UPTO 1 ROWS' TO buffer.
lv_buffer = | FROM { to_upper( ls_sval-value ) } |.
APPEND lv_buffer TO buffer.
APPEND ' WHERE col_name = p_inp.' TO buffer.
APPEND '"Error Handling.' TO buffer.
APPEND 'IF SYST-DBCNT <> 1.' TO buffer.
APPEND ' MESSAGE E000(DB) WITH ''No data fround for input.''.' TO buffer.
APPEND 'ENDIF.' TO buffer.
view raw zdb_validate_editor_Exit.abap hosted with ❤ by GitHub

Call the new pattern:

ABAP Editor Call custom pattern

Input table name:ABAP Editor Call custom pattern

Generated Code:

ABAP Editor Call custom pattern
So there you have it, Your own Dynamic pattern to help you out with writing DB Existence check.

Offcourse, You can expand upon it or create your own pattern with extra functionalities.
As always, Hope you like the post and use the information in your day-to-day work.

Popular posts from this blog

ABAP convert internal table to excel (.xlsx) format and Send email or download

Posted by -
Reporting is incomplete without file interfacing. Sometimes the requirement is to send a file via email or download it to a PC. but what to do when the user requests the file in XLSX format? In today's post, I am sharing how to convert an internal table to .xlsx format and then send it to a PC or email. One of the quickest ways I found it been done is using SALV classes. Below is the Code snippet Now once you have the xstring with you, simply pass it to relevant libraries to handle the output. Downloading to PC: Sending via Email It's that simple. Hope you like the post and use it in your day to day work.
Read more

ABAP read excel(.XLSX) file to internal table in ABAP using CL_FDT_XL_SPREADSHEET

Posted by -
You are given a requirement to upload data to a custom DB table where the user provides you with the file path of the excel on his PC and the report loads the data from it to the Custom table. For experienced Abapers, the requirement is quite straightforward, except that the user wants to upload an XLSX file. There are not many options to read data from XLSX/XLS file. The TEXT_CONVERT_XLS_TO_SAP  function module is one of them but is a performance killer and uses OLE. In this post, I wanted to showcase How we can read data from the XLSX files using CL_FDT_SPOREADSHEET class. Let's start with uploading the file. Now that we have the file in xstring table, let's pass it to CL_FDT_XL_SPREADSHEET to get its object reference. From the object reference, we can retrieve each worksheet data. The data is returned in the form of an anonymous data object which can be dereferenced into a field symbol and passed to the target internal table. Below is the co...
Read more

Use CL_BCS library to send email with ABAP

Posted by -
Many a time you need a report for which the output needs to be an email. SO_NEW_DOCUMENT_SEND_API1 is heavily used to achieve the task but let's explore another way of achieving the same using CL_BCS. This post talks about how to use the CL_BCS library provided by SAP to easily send emails. CL_BCS Library The class serves as the interface from BCS to the applications. The methods of the class cater for the send functions. Using CL_BCS, You can: – Attach files to email – Build the HTML/raw of the body. – Set email’s Senders & Receiver – Send an email, etc. Let's see the steps one by one: Initiating CL_BCS: The first thing you need is to initiate a persistent send request. Creating BCS Document: Create the BCS document object which will be sent with the CL_BCS interface to BCS. In this case the Email. SET_DOCUMENT Once we have the document, It needs to be set to the send request. SET_SENDER Assign the sender to the send request. ADD_RECIPIENT Pass ...
Read more