AT USER-COMMAND.
CASE sy-ucomm.
WHEN 'B1'.
PERFORM write_list2.
WHEN 'B2'.
PERFORM write_list.
ENDCASE.
AT LINE-SELECTION.
CASE sy-ucomm.
WHEN 'XTAB-MATNR'.
submit zppr119
with p_matnr = xtab-matnr
WITH s_budat IN s_budat
and return.
endcase.
*&---------------------------------------------------------------------*
*& Form WRITE_LIST
*&---------------------------------------------------------------------*
FORM write_list .
SORT xtab DESCENDING BY a.
LOOP AT xtab.
WRITE : /01 '|',
02(08) xtab-arbpl CENTERED NO-GAP,
10 '|',
11(08) xtab-matnr HOTSPOT CENTERED NO-GAP,
19 '|',
20(16) xtab-maktx LEFT-JUSTIFIED NO-GAP,
36 '|'
.
.
.
HIDE : xtab-matnr.
WRITE : /01(277) sy-uline.
ENDLOOP.
ENDFORM. " WRITE_LIST
위와 같은 구문에서..matnr을 하이드를 하여 다른 프로그램을 불러 오도록 하는 Summit을 하였습니다..
그런데 왜 못 불러오는지 궁급합니다..
화면에 먼저 PERFORM write_list2.로 뿌려주고..B2이라는 엑션을 취해줌으로써 PERFORM write_list.를 뿌려주게 됩니다..
at line-selection 단에서...
case sy-ucomm 부분이... 잘못된듯합니다.
아래와 같이 해보시겠어요?
AT LINE-SELECTION.
DATA GET_FIELD(30).
GET CURSOR FIELD GET_FIELD.
CASE GET_FIELD.
.
.
.