Synthax to increase line size of report :
(To be specified at begining of report with report name declaration)
REPORT zreport_name LINE-SIZE 130.
Synthax to increase line size of report :
(To be specified at begining of report with report name declaration)
REPORT zreport_name LINE-SIZE 130.
Calculate runtime in microseconds :
DATA: lw_t1 TYPE i,
lw_t2 TYPE i,
lw_elapsed TYPE i.
* Get the time and put in lw_t1.
GET RUN TIME FIELD lw_t1.
* Wait 3 seconds.
CALL FUNCTION 'ENQUE_SLEEP'
EXPORTING
SECONDS = 3.
* Get the time and put in lw_t2.
GET RUN TIME FIELD lw_t2.
* Calculate the different between lw_t2 and lw_t1.
lw_elapsed = lw_t2 - lw_t1. " In microseconds.
lw_elapsed = ELAPSED / 1000000. " In seconds.
* Display the runtime.
WRITE:/ ' Runtime =', lw_elapsed, 'seconds'.
If your measure may overload 36 min, do not store the run time in a type i (integer) variable.
You should use a type numeric, like :
DATA: lw_t1(200) TYPE n,
If you want to add the mandant in your where clause (to force use of an index for instance), you have to add statement CLIENT SPECIFIED.
SELECT * FROM table_name CLIENT SPECIFIED INTO TABLE gi_table_name
FOR ALL ENTRIES IN li_table
WHERE mandt = sy-mandt " To force Index 001
AND field1 = li_table-field1
AND field1 = li_table-field2.
CALL FUNCTION 'C14ALD_BAPIRET2_SHOW'
TABLES
I_BAPIRET2_TAB = T_RETURN_MESSAGE. " T_RETURN with type BAPIRET2_TAB
FORM add_message USING pw_type TYPE sy-msgty
pw_id TYPE sy-msgid
pw_num TYPE sy-msgno
pw_v1 "TYPE sy-msgv1
pw_v2 "TYPE sy-msgv2
pw_v3 "TYPE sy-msgv3
pw_v4. "TYPE sy-msgv4.
DATA ls_bapiret2 TYPE bapiret2.
ls_bapiret2-type = pw_type .
ls_bapiret2-id = pw_id .
ls_bapiret2-number = pw_num .
ls_bapiret2-message_v1 = pw_v1 .
ls_bapiret2-message_v2 = pw_v2 .
ls_bapiret2-message_v3 = pw_v3 .
ls_bapiret2-message_v4 = pw_v4 .
IF ls_bapiret2-type IS INITIAL.
ls_bapiret2-type = 'S'.
ENDIF.
IF ls_bapiret2-id IS INITIAL.
ls_bapiret2-id = '0H'.
ENDIF.
IF ls_bapiret2-number IS INITIAL.
ls_bapiret2-number = '000'.
ENDIF.
MESSAGE ID ls_bapiret2-id
TYPE ls_bapiret2-type
NUMBER ls_bapiret2-number
WITH ls_bapiret2-message_v1
ls_bapiret2-message_v2
ls_bapiret2-message_v3
ls_bapiret2-message_v4
INTO ls_bapiret2-message.
APPEND ls_bapiret2 TO gi_user_message.
ENDFORM.
Use FMs :
Search tag: TO, Transport order, ordre de transport, OT
Use method : cl_gui_frontend_services=>directory_browse.
Read MoreCreate spool to display it later in SP01, SP02…
With code below, you can easily add lines in spool like that :
ls_text-color = c_color_jaune.
CONCATENATE 'Error on PN' lw_matnr INTO ls_text-text SEPARATED BY space.
APPEND ls_text TO gt_text.
CLEAR ls_text.
ls_text-color = c_color_rouge.
APPEND ls_text TO gt_text.