Code: Alles auswählen.
"perform open_group.
DATA: BDCDATA TYPE TABLE OF BDCDATA.
DATA: WA_BDCDATA TYPE BDCDATA.
*
CLEAR BDCDATA.
*
WA_BDCDATA-PROGRAM = 'SAPMSSY0'.
WA_BDCDATA-DYNPRO = '0120'.
WA_BDCDATA-DYNBEGIN = 'X'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-FNAM = 'BDC_OKCODE'.
WA_BDCDATA-FVAL = '=&RNT'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-PROGRAM = 'SAPLSPRI'.
WA_BDCDATA-DYNPRO = '0100'.
WA_BDCDATA-DYNBEGIN = 'X'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-FNAM = 'PRI_PARAMS-PDEST'.
WA_BDCDATA-FVAL = 'LOCL'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-FNAM = 'PRI_PARAMS-PRCOP'.
WA_BDCDATA-FVAL = '1'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-FNAM = 'PRI_PARAMS-PRCOP'.
WA_BDCDATA-FVAL = '1'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-FNAM = 'PRIPAR_DYN-ALVST'.
WA_BDCDATA-FVAL = ''.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-FNAM = 'PRI_PARAMS-LINCT'.
WA_BDCDATA-FVAL = '90'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-FNAM = 'PRI_PARAMS-PAART'.
WA_BDCDATA-FVAL = 'X_90_120'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-FNAM = 'BDC_OKCODE'.
WA_BDCDATA-FVAL = '=PRIN'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-PROGRAM = 'SAPMSSY0'.
WA_BDCDATA-DYNPRO = '0120'.
WA_BDCDATA-DYNBEGIN = 'X'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-FNAM = 'BDC_OKCODE'.
WA_BDCDATA-FVAL = '=&F12'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
CALL TRANSACTION 'ZDEMO' USING BDCDATA ."MODE 'E'.
Handelt es sich um einen Report? Evtl. mit Selection-Screen?stony007_de hat geschrieben:Ziel ist es, dieses programm als job zu hinterlegen und kontinuierlich laufen zu lassen?
Code: Alles auswählen.
FORM display_alv_report . " Anzeigen des ALV GRID's
DATA:
l_program TYPE sy-repid.
l_program = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = l_program
i_callback_html_top_of_page = 'TOP_OF_PAGE'
IS_LAYOUT = gd_layout
IT_FIELDCAT = int_fcat
I_GRID_TITLE = lv_title
TABLES
t_outtab = IT_DATA_ALV
EXCEPTIONS
program_error = 1
OTHERS = 2.
ENDFORM.
*-----------------------------------
* Ende ausgeben des ALV's via Function
*-----------------------------------
*-------------------------------------------------------------------------------------*
* Form TOP-OF-PAGE
*-------------------------------------------------------------------------------------*
FORM top_of_page USING cl_dd TYPE REF TO cl_dd_document.
DATA: lv_per(255).
* to add text in heading
CALL METHOD cl_dd->add_text
EXPORTING
text = LV_TITLE_STR
sap_style = cl_dd_document=>heading
sap_fontsize = cl_dd_document=>medium
sap_emphasis = cl_dd_document=>strong.
ENDFORM. "top_of_page
Code: Alles auswählen.
report ZSKPATHBEF_AUTOPRINT.
"perform open_group.
DATA: BDCDATA TYPE TABLE OF BDCDATA.
DATA: WA_BDCDATA TYPE BDCDATA.
*
CLEAR BDCDATA.
*
WA_BDCDATA-PROGRAM = 'SAPMSSY0'.
WA_BDCDATA-DYNPRO = '0120'.
WA_BDCDATA-DYNBEGIN = 'X'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-FNAM = 'BDC_OKCODE'.
WA_BDCDATA-FVAL = '=&RNT'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-PROGRAM = 'SAPLSPRI'.
WA_BDCDATA-DYNPRO = '0100'.
WA_BDCDATA-DYNBEGIN = 'X'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-FNAM = 'PRI_PARAMS-PDEST'.
WA_BDCDATA-FVAL = 'LOCL'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-FNAM = 'PRI_PARAMS-PRCOP'.
WA_BDCDATA-FVAL = '1'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-FNAM = 'PRI_PARAMS-PRCOP'.
WA_BDCDATA-FVAL = '1'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-FNAM = 'PRIPAR_DYN-ALVST'.
WA_BDCDATA-FVAL = ''.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-FNAM = 'PRI_PARAMS-LINCT'.
WA_BDCDATA-FVAL = '90'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-FNAM = 'PRI_PARAMS-PAART'.
WA_BDCDATA-FVAL = 'X_90_120'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-FNAM = 'BDC_OKCODE'.
WA_BDCDATA-FVAL = '=PRIN'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-PROGRAM = 'SAPMSSY0'.
WA_BDCDATA-DYNPRO = '0120'.
WA_BDCDATA-DYNBEGIN = 'X'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-FNAM = 'BDC_OKCODE'.
WA_BDCDATA-FVAL = '=&F12'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
CALL TRANSACTION 'ZDEMO' USING BDCDATA ."MODE 'E'.
Sorry Wolfgang, das greife ich so kurz gehaten nicht.wreichelt hat geschrieben:X
Code: Alles auswählen.
REPORT ZALVTOPTEST.
TABLES:t001.
"Types
TYPES:
BEGIN OF t_1001,
bukrs TYPE t001-bukrs,
butxt TYPE t001-butxt,
ort01 TYPE t001-ort01,
land1 TYPE t001-land1,
END OF t_1001.
"Work area
DATA:
w_t001 TYPE t_1001.
"Internal table
DATA:
i_t001 TYPE STANDARD TABLE OF t_1001.
*&---------------------------------------------------------------------*
" ALV Declarations
*----------------------------------------------------------------------*
* Types Pools
TYPE-POOLS:
slis.
* Types
TYPES:
t_fieldcat TYPE slis_fieldcat_alv,
t_events TYPE slis_alv_event,
t_layout TYPE slis_layout_alv.
* Workareas
DATA:
w_fieldcat TYPE t_fieldcat,
w_events TYPE t_events,
w_layout TYPE t_layout.
* Internal Tables
DATA:
i_fieldcat TYPE STANDARD TABLE OF t_fieldcat,
i_events TYPE STANDARD TABLE OF t_events.
*&---------------------------------------------------------------------*
*& start of selection
*&---------------------------------------------------------------------*
START-OF-SELECTION.
PERFORM get_data.
*&---------------------------------------------------------------------*
*& end-of-selection.
*&---------------------------------------------------------------------*
END-OF-SELECTION.
PERFORM build_fieldcatlog.
"PERFORM buid_events.
PERFORM build_layout.
PERFORM list_display.
*&---------------------------------------------------------------------*
*& Form get_data
*&---------------------------------------------------------------------*
FORM get_data .
SELECT bukrs
butxt
ort01
land1
FROM t001
INTO TABLE i_t001
UP TO 30 ROWS.
ENDFORM. " get_data
*&---------------------------------------------------------------------*
*& Form build_fieldcatlog
*&---------------------------------------------------------------------*
FORM build_fieldcatlog .
CLEAR:w_fieldcat,i_fieldcat[].
PERFORM build_fcatalog USING:
'BUKRS' 'I_T001' 'BUKRS',
'BUTXT' 'I_T001' 'BUTXT',
'ORT01' 'I_T001' 'ORT01',
'LAND1' 'I_T001' 'LAND1'.
ENDFORM. "BUILD_FIELDCATLOG
*&---------------------------------------------------------------------*
*& Form BUILD_FCATALOG
*&---------------------------------------------------------------------*
FORM build_fcatalog USING l_field l_tab l_text.
w_fieldcat-fieldname = l_field.
w_fieldcat-tabname = l_tab.
w_fieldcat-seltext_m = l_text.
APPEND w_fieldcat TO i_fieldcat.
CLEAR w_fieldcat.
ENDFORM. " build_fieldcatlog
*&---------------------------------------------------------------------*
*& Form build_layout
*&---------------------------------------------------------------------*
FORM build_layout .
w_layout-colwidth_optimize = 'X'.
w_layout-zebra = 'X'.
ENDFORM. " build_layout
*&---------------------------------------------------------------------*
*& Form list_display
*&---------------------------------------------------------------------*
FORM list_display .
DATA:
l_program TYPE sy-repid.
l_program = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = l_program
i_callback_html_top_of_page = 'HTML_TOP_OF_PAGE'
is_layout = w_layout
it_fieldcat = i_fieldcat
it_events = i_events
TABLES
t_outtab = i_t001
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc NE 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. " list_display
*-----------------------------------------------------------------*
* FORM html_top_of_page *
*-----------------------------------------------------------------*
FORM html_top_of_page USING top TYPE REF TO cl_dd_document.
DATA: l_text(255) TYPE c.
DO 180 TIMES.
l_text+sy-index(1) = '*'.
ENDDO.
CALL METHOD top->add_text
EXPORTING
text = 'Here you can write long text.but when use TOP_OF_PAGE its length only 60 Chars.'
sap_style = 'heading'.
CALL METHOD top->add_gap
EXPORTING
width = 200.
* CALL METHOD top->add_picture
* EXPORTING
* picture_id = 'ENJOYSAP_LOGO'.
CALL METHOD top->new_line( ).
CALL METHOD top->add_text
EXPORTING
text = l_text.
ENDFORM. "html_top_of_page
Code: Alles auswählen.
report ZALVAUTOPRINT.
"perform open_group.
DATA: BDCDATA TYPE TABLE OF BDCDATA.
DATA: WA_BDCDATA TYPE BDCDATA.
*
CLEAR BDCDATA.
*
WA_BDCDATA-PROGRAM = 'SAPMSSY0'.
WA_BDCDATA-DYNPRO = '0120'.
WA_BDCDATA-DYNBEGIN = 'X'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-FNAM = 'BDC_OKCODE'.
WA_BDCDATA-FVAL = '=&RNT'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-PROGRAM = 'SAPLSPRI'.
WA_BDCDATA-DYNPRO = '0100'.
WA_BDCDATA-DYNBEGIN = 'X'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-FNAM = 'PRI_PARAMS-PDEST'.
WA_BDCDATA-FVAL = 'LOCL'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-FNAM = 'PRI_PARAMS-PRCOP'.
WA_BDCDATA-FVAL = '1'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-FNAM = 'PRI_PARAMS-PRCOP'.
WA_BDCDATA-FVAL = '1'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-FNAM = 'PRIPAR_DYN-ALVST'.
WA_BDCDATA-FVAL = ''.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-FNAM = 'PRI_PARAMS-LINCT'.
WA_BDCDATA-FVAL = '90'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-FNAM = 'PRI_PARAMS-PAART'.
WA_BDCDATA-FVAL = 'X_90_120'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-FNAM = 'BDC_OKCODE'.
WA_BDCDATA-FVAL = '=PRIN'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-PROGRAM = 'SAPMSSY0'.
WA_BDCDATA-DYNPRO = '0120'.
WA_BDCDATA-DYNBEGIN = 'X'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
WA_BDCDATA-FNAM = 'BDC_OKCODE'.
WA_BDCDATA-FVAL = '=&F12'.
APPEND WA_BDCDATA TO BDCDATA. CLEAR WA_BDCDATA.
*
CALL TRANSACTION 'ZAUTOALV' USING BDCDATA MODE 'E'.
Code: Alles auswählen.
CALL TRANSACTION 'ZSKPATHBEF' USING BDCDATA MODE 'E'.
Code: Alles auswählen.
USING BDCDATA MODE 'E'.
Die ist nur notwendig wenn du direkt mit einem Dynpro und der CL_GUI_ALV_GRID-Klasse arbeitest. Beim REUSE-Baustein übernimmt der das alles.stony007_de hat geschrieben:Weiterhin würde mich die Abfrage zur sy-batch zur Abfrage interessieren. Hab ich noch nicht gemacht und würde ich gern implementieren.