victorizbitskiy

REPORT ztest.

PERFORM nonexistent_subroutine IN PROGRAM standard_report IF FOUND.

ASSIGN ('(STANDARD_REPORT)GV_NAME') TO FIELD-SYMBOL(<gs_name>).
IF sy-subrc = 0.
  <gs_name> = 'Petya'.
ENDIF.

PERFORM greeting IN PROGRAM standard_report IF FOUND.

victorizbitskiy

REPORT standard_report.

DATA gv_name TYPE string.

FORM greeting.
  WRITE |Hello, { gv_name }!|.
ENDFORM.

victorizbitskiy

REPORT ZSPEADTEST_READ.

CLASS lcl_read_spead_test DEFINITION FINAL.
  PUBLIC SECTION.

    TYPES ty_itab TYPE pa0002.
    TYPES ty_t_itab TYPE STANDARD TABLE OF ty_itab WITH KEY primary_key COMPONENTS pernr subty objps sprps endda begda seqnr.
*    TYPES ty_t_itab TYPE SORTED TABLE OF ty_itab WITH UNIQUE KEY primary_key COMPONENTS pernr subty objps sprps endda begda seqnr.
*    TYPES ty_t_itab TYPE HASHED TABLE OF ty_itab WITH UNIQUE KEY primary_key COMPONENTS pernr subty objps sprps endda begda seqnr.

victorizbitskiy

  ...    
  DATA mt_itab TYPE ty_t_itab.
  ...
    
  SELECT * FROM pa0002 INTO TABLE mt_itab UP TO 1000 ROWS.

victorizbitskiy

    TYPES ty_itab TYPE pa0002.
    TYPES ty_t_itab TYPE STANDARD TABLE OF ty_itab WITH KEY primary_key COMPONENTS pernr subty objps sprps endda begda seqnr.
*    TYPES ty_t_itab TYPE SORTED TABLE OF ty_itab WITH UNIQUE KEY primary_key COMPONENTS pernr subty objps sprps endda begda seqnr.
*    TYPES ty_t_itab TYPE HASHED TABLE OF ty_itab WITH UNIQUE KEY primary_key COMPONENTS pernr subty objps sprps endda begda seqnr.

victorizbitskiy

*&---------------------------------------------------------------------*
*& Report  ZSPEADTEST_APPEND
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZSPEADTEST_APPEND.

CLASS lcl_append_opera_spead_test DEFINITION FINAL.

victorizbitskiy

CLEAR ls_acc.
ls_acc-full_name = |John Doe|.
ls_acc-birthday = sy-datum.
ls_acc-age = 30.
APPEND ls_acc TO lt_acc.

victorizbitskiy

lt_foo = VALUE ty_t_foo( BASE lt_foo ( full_name = |John Doe|
                                       birthday = sy-datum
                                       age = 30 ) ).

victorizbitskiy

APPEND INITIAL LINE TO lt_foo ASSIGNING FIELD-SYMBOL(<lfs_foo>).
<lfs_foo>-full_name = |John Doe|.
<lfs_foo>-birthday = sy-datum.
<lfs_foo>-age = 30.

victorizbitskiy

 APPEND VALUE ty_foo( full_name = |John Doe|
                      birthday = sy-datum
                      age = 30 ) TO lt_foo.