submit абап код

Алия

добрый день коллеги.
я абап не очень хорошо знаю, поэтому прошу помощи. хочу вызвать программу J_3RMOBVED через SUBMIT.

types: test type J_3RMLISTMAT.

DATA: gt_test TYPE STANDARD TABLE OF test.

fREE MEMORY ID 'J_3RMOBVED_RESULT'.

SUBMIT J_3RMOBVED
WITH PA_BUKRS EQ '2000'
WITH SO_BUDAT EQ SO_BUDAT
WITH SO_LGORT EQ SO_LGORT
WITH SO_MATNR IN SO_MATNR
WITH SO_WERKS EQ SO_WERKS
EXPORTING LIST TO MEMORY
AND RETURN.

IMPORT gt_test[] FROM MEMORY ID 'J_3RMOBVED_RESULT'.

у меня gt_test[] пустой. в чем может быть проблема.

thebestsaper

а при чем здесь ветка ММ? Есть же отдельная АБАП ветка, я бы там спросил

Алия

ММ по умолчанию кажется, я не ставила.

thebestsaper

вам сюда
viewforum.php?f=13

LKU

Перенес тему в правильный форум.

divnull

А где вы нашли что выгружается в MEMORY ID 'J_3RMOBVED_RESULT', я увидел там строку concatenate sy-repid 'REFILL' sy-uname into g_key_memory. в J_3RMOBVED, так что MEMORY ID типа 'J_3RMOBVEDREFILLимя_пользователя' должно быть

Алия

concatenate 'J_3RMOBVED' 'REFILL' sy-uname into memid. поставила. но IMPORT gt_test[] FROM MEMORY ID memid. все равно пусто. скажите пожалуйста gt_test[] определена правильно ?

определила так:

types: test type J_3RMLISTMAT.

DATA: gt_test TYPE STANDARD TABLE OF test,

Алия

пришла мысль, что J_3RMOBVED вообще не выгружает в экспорт, поэтому сделали так. Пишу сюда, вдруг пригодится кому нибудь.
в инклуде j_3rmobvedf04 прописали экспорт.

concatenate 'ZJ_3RMOBVED' 'REP' sy-uname into memid.

export listmat to memory ID memid.

потом в своей программе

DATA: gt_test TYPE STANDARD TABLE OF test,
memid(40) type c.

concatenate 'ZJ_3RMOBVED' 'REP' sy-uname into memid.

SUBMIT ZJ_3RMOBVED_2
WITH PA_BUKRS EQ '2000'
WITH SO_BUDAT EQ SO_BUDAT
WITH SO_LGORT EQ SO_LGORT
WITH SO_MATNR IN SO_MATNR
WITH SO_WERKS EQ SO_WERKS
EXPORTING LIST TO MEMORY
AND RETURN.

IMPORT listmat to gt_test FROM MEMORY ID memid.

Ruax

я делал так. может кому поможет. стандарт ломать не надо будет.

Code:

data: gt_3rmobved     type standard table of j_3rmlistmatw.

*по данным селекционного экрана получаем таблицу
*c запасом на дату из отчета J_3RMOBVED
    field-symbols:   <lt_3rmobved> type any table
                         , <l_3rmobved> type any.
    data: lr_3rmobved type ref to data.

    data: ls_3rmobved type j_3rmlistmatw.

    cl_salv_bs_runtime_info=>set(
      exporting display = abap_false
                metadata = abap_false
                data = abap_true ).

    submit j_3rmobved
                      with so_budat in so_date
                      with pa_lock = ' '
                      with so_sobkz = 'Q'
                      and return
                      .

    try.
        cl_salv_bs_runtime_info=>get_data_ref(
          importing r_data = lr_3rmobved ).
        assign lr_3rmobved->* to <lt_3rmobved>.
      catch cx_salv_bs_sc_runtime_info.
        message 'Нет данных' type 'E'.
    endtry.
    cl_salv_bs_runtime_info=>clear_all( ).

    loop at <lt_3rmobved> assigning <l_3rmobved>.
      move-corresponding <l_3rmobved> to ls_3rmobved.
      append ls_3rmobved to gt_3rmobved.
    endloop.

Правила форума

submit абап код

Кто сейчас на конференции