Search help through standard tcodeCreated by Zero Li.docx

Search help through standard tcodeCreated by Zero Li.docx

《Search help through standard tcodeCreated by Zero Li.docx》由会员分享，可在线阅读，更多相关《Search help through standard tcodeCreated by Zero Li.docx（8页珍藏版）》请在冰豆网上搜索。

SearchhelpthroughstandardtcodeCreatedbyZeroLi

REPORT Z_ZEROTEST1111.

tables:

 mseg.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-f01.

SELECT-OPTIONS   s_matdoc  FOR mseg-mblnr.

SELECTION-SCREEN END OF BLOCK b2.

*&---------------------------------------------------------------------*

* at selection screen - get help for material doc

*&---------------------------------------------------------------------*

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_matdoc-low.

  DATA flag TYPE c VALUE 'X'.

  EXPORT flag TO MEMORY ID 'MB51_FLAG'.

  CALL TRANSACTION 'MB51'.

  GET PARAMETER ID 'MBN' FIELD s_matdoc-low.

*&---------------------------------------------------------------------*

* at selection screen - get help for material doc

*&---------------------------------------------------------------------*

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_matdoc-high.

  DATA flag TYPE c VALUE 'X'.

  EXPORT flag TO MEMORY ID 'MB51_FLAG'.

  CALL TRANSACTION 'MB51'.

  GET PARAMETER ID 'MBN' FIELD s_matdoc-high.