Batch Input with Objects

Some times, we get such a requirement that forces us to use batch input for creation/changing of some SAP object/document. Usually, the resulting code isn't that elegant. In this post, I'll show how to use a ABAP Class to process call transaction and allow to future improvements that afects every program that uses it, without the need to change those same programs.
Those improvements could be:

• Create Batch input in DB for latter processing
• Create Enhanced Logs
• Start Workflows
• Etc

1 - Create an ABAP Class in transaction SE24, select an apropriate package:

2 - Create the following attributes:

3 - Create these methods:

4 - Pick the relevant code for the each method:

method CONSTRUCTOR. clear: w_options, w_transaction, wt_bdcdata, wt_bdcdata[], wt_messages, wt_messages[]. w_options-dismode = im_dismode. w_options-updmode = im_updmode. w_options-defsize = im_defsize. w_options-racommit = im_racommit. w_transaction = im_tcode. endmethod. method SET_CURSOR. data: l_bdcdata like line of wt_bdcdata. clear: l_bdcdata. l_bdcdata-fnam = 'BDC_CURSOR'. l_bdcdata-fval = im_field. append l_bdcdata to wt_bdcdata. clear: l_bdcdata. endmethod. method SET_FIELD. data: l_bdcdata like line of wt_bdcdata. clear: l_bdcdata. l_bdcdata-fnam = im_field. l_bdcdata-fval = im_value. append l_bdcdata to wt_bdcdata. clear: l_bdcdata. endmethod. method SET_OKCODE. data: l_bdcdata like line of wt_bdcdata. clear: l_bdcdata. l_bdcdata-fnam = 'BDC_OKCODE'. l_bdcdata-fval = im_okcode. append l_bdcdata to wt_bdcdata. clear: l_bdcdata. endmethod. method SET_SCREEN. data: l_bdcdata like line of wt_bdcdata. clear: l_bdcdata. l_bdcdata-program = im_program. l_bdcdata-dynpro = im_screen. l_bdcdata-dynbegin = 'X'. append l_bdcdata to wt_bdcdata. clear: l_bdcdata. endmethod. method START. field-symbols: <l_message> like line of wt_messages. call transaction w_transaction using wt_bdcdata options from w_options messages into wt_messages. if sy-subrc is initial. loop at wt_messages assigning <l_message> where msgtyp ca 'AXE'. exit. endloop. if sy-subrc is initial. re_success = ' '. else. re_success = 'X'. endif. else. re_success = ' '. endif. endmethod.

5 - Save and activate the class.

6 - To help generate the code, the following program can be used:
*&---------------------------------------------------------------------* *& Report Y_CREATE_BATCH_INPUT *&---------------------------------------------------------------------* report zds_create_batch_input. constants: c_data(132) value 'data: & type ref to zdsbc_batch_input.', c_clear(132) value ' clear: &.', c_free(132) value ' free: &.', c_create1(132) value ' create object &1 exporting im_tcode = ''&2''.', c_create2(132) value '* im_dismode = ''N''', c_create3(132) value '* im_updmode = ''S''', c_create4(132) value '* im_defsize = ''X''', c_create5(132) value '* im_racommit = ''X''', c_screen(132) value ' &1->set_screen( exporting im_program = ''&2'' im_screen = ''&3'' ).', c_okcode(132) value ' &1->set_okcode( exporting im_okcode = ''&2'' ).', c_cursor(132) value ' &1->set_cursor( exporting im_field = ''&2'' ).', c_field(132) value ' &1->set_field( exporting im_field = ''&2'' im_value = ''&3'' ).', c_run1(132) value ' if &->start( ) = ''X''.', c_run2(132) value '* Success!!!', c_run3(132) value ' else.', c_run4(132) value '* Error!!!', c_run5(132) value ' endif.', c_info(132) value '* messages in &->wt_messages[].'. data: begin of wt_data occurs 0, line(132), end of wt_data. data: wt_bdcdata type table of bdcdata. parameters: p_record type apqi-groupid obligatory, p_object type char30 obligatory lower case. start-of-selection. data: l_qid type apqi-qid, l_value like line of wt_data, l_length type i. field-symbols: <l_bdcdata> like line of wt_bdcdata. select single qid into l_qid from apqi where datatyp = '%BDC' and mandant = sy-mandt and groupid = p_record. if sy-subrc is initial. call function 'BDC_OBJECT_READ' exporting queue_id = l_qid tables dynprotab = wt_bdcdata exceptions not_found = 1 system_failure = 2 invalid_datatype = 3 others = 4. if sy-subrc is initial. l_length = strlen( p_object ). l_value = c_data. replace '&' with p_object(l_length) into l_value. append l_value to wt_data. clear: l_value. append l_value to wt_data. l_length = strlen( p_object ). l_value = c_clear. replace '&' with p_object(l_length) into l_value. append l_value to wt_data. l_length = strlen( p_object ). l_value = c_free. replace '&' with p_object(l_length) into l_value. append l_value to wt_data. clear: l_value. append l_value to wt_data. loop at wt_bdcdata assigning <l_bdcdata>. if <l_bdcdata>-dynbegin = 'T'. l_value = c_create1. l_length = strlen( p_object ). replace '&1' with p_object(l_length) into l_value. l_length = strlen( <l_bdcdata>-fnam ). replace '&2' with <l_bdcdata>-fnam(l_length) into l_value. append l_value to wt_data. l_value = c_create2. append l_value to wt_data. l_value = c_create3. append l_value to wt_data. l_value = c_create4. append l_value to wt_data. l_value = c_create5. append l_value to wt_data. elseif <l_bdcdata>-dynbegin = 'X'. l_value = c_screen. l_length = strlen( p_object ). replace '&1' with p_object(l_length) into l_value. l_length = strlen( <l_bdcdata>-program ). replace '&2' with <l_bdcdata>-program(l_length) into l_value. l_length = strlen( <l_bdcdata>-dynpro ). replace '&3' with <l_bdcdata>-dynpro(l_length) into l_value. append l_value to wt_data. elseif <l_bdcdata>-fnam = 'BDC_OKCODE'. l_value = c_okcode. l_length = strlen( p_object ). replace '&1' with p_object(l_length) into l_value. l_length = strlen( <l_bdcdata>-fval ). replace '&2' with <l_bdcdata>-fval(l_length) into l_value. append l_value to wt_data. elseif <l_bdcdata>-fnam = 'BDC_CURSOR'. l_value = c_cursor. l_length = strlen( p_object ). replace '&1' with p_object(l_length) into l_value. l_length = strlen( <l_bdcdata>-fval ). replace '&2' with <l_bdcdata>-fval(l_length) into l_value. append l_value to wt_data. elseif <l_bdcdata>-fnam <> 'BDC_SUBSCR'. shift <l_bdcdata>-fval left deleting leading space. l_value = c_field. l_length = strlen( p_object ). replace '&1' with p_object(l_length) into l_value. l_length = strlen( <l_bdcdata>-fnam ). replace '&2' with <l_bdcdata>-fnam(l_length) into l_value. l_length = strlen( <l_bdcdata>-fval ). replace '&3' with <l_bdcdata>-fval(l_length) into l_value. append l_value to wt_data. endif. endloop. l_value = c_run1. l_length = strlen( p_object ). replace '&' with p_object(l_length) into l_value. append l_value to wt_data. l_value = c_run2. append l_value to wt_data. l_value = c_run3. append l_value to wt_data. l_value = c_run4. append l_value to wt_data. l_value = c_run5. append l_value to wt_data. l_value = c_info. l_length = strlen( p_object ). replace '&' with p_object(l_length) into l_value. append l_value to wt_data. clear: l_value. append l_value to wt_data. l_length = strlen( p_object ). l_value = c_clear. replace '&' with p_object(l_length) into l_value. append l_value to wt_data. l_length = strlen( p_object ). l_value = c_free. replace '&' with p_object(l_length) into l_value. append l_value to wt_data. editor-call for wt_data display-mode. endif. else. endif.


The input for this program is the SHDB record and the program variable name.

7 - Example:

• SHDB Record:

8 - Program Input

9 - Generated Code:
data: l_batch_input type ref to zdsbc_batch_input. clear: l_batch_input. free: l_batch_input. create object l_batch_input exporting im_tcode = 'VL_COMPLETE'. * im_dismode = 'N' * im_updmode = 'S' * im_defsize = 'X' * im_racommit = 'X' l_batch_input->set_screen( exporting im_program = 'SHP_DELIVERY_COMPLETE' im_screen = '1000' ). l_batch_input->set_cursor( exporting im_field = 'S_ERDAT-HIGH' ). l_batch_input->set_okcode( exporting im_okcode = '=ONLI' ). l_batch_input->set_field( exporting im_field = 'S_VBELN-LOW' im_value = '2102001998' ). l_batch_input->set_field( exporting im_field = 'S_ERDAT-LOW' im_value = '01.07.2013' ). l_batch_input->set_field( exporting im_field = 'S_ERDAT-HIGH' im_value = '31.07.2013' ). l_batch_input->set_field( exporting im_field = 'P_AEDAT' im_value = 'X' ). l_batch_input->set_screen( exporting im_program = 'SAPMSSY0' im_screen = '0120' ). l_batch_input->set_cursor( exporting im_field = '04/03' ). l_batch_input->set_okcode( exporting im_okcode = '=&ALL' ). l_batch_input->set_screen( exporting im_program = 'SAPMSSY0' im_screen = '0120' ). l_batch_input->set_cursor( exporting im_field = '04/03' ). l_batch_input->set_okcode( exporting im_okcode = '=COMP' ). l_batch_input->set_screen( exporting im_program = 'SAPLSPO1' im_screen = '0500' ). l_batch_input->set_okcode( exporting im_okcode = '=OPT1' ). if l_batch_input->start( ) = 'X'. * Success!!! else. * Error!!! endif. * messages in l_batch_input->wt_messages[]. clear: l_batch_input. free: l_batch_input.

Final remarks:
As you can see, the code is more understable and simplier to use.
The SHDB record name, must be unique, since it is selected by name.
With the generated code, you must add the coding for variable selection and remove unecessary inputs. The program only creates code for the relevant batch input lines.