hola amigos de foro, tengo un gran problema con la sentencia SUBMIT ... estoy intentando ejecutar el programa de la transaccion MC.9 pero no me regresa ningun valor alguien sabra porque .. de antemano les agradesco la ayuda que puedan darme ..
saludos !!
REPORT ZSUBMIT2 LINE-SIZE 185 LINE-COUNT 63 NO STANDARD PAGE HEADING.
tables : S031.
DATA: ABAPLIST LIKE ABAPLIST OCCURS 0.
DATA: BEGIN OF vlist OCCURS 0,
filler1(01) TYPE c,
field1(06) TYPE c,
filler(08) TYPE c,
field2(10) TYPE c,
filler3(01) TYPE c,
field3(10) TYPE c,
filler4(01) TYPE c,
field4(3) TYPE c,
filler5(02) TYPE c,
field5(15) TYPE c,
filler6(02) TYPE c,
field6(30) TYPE c,
filler7(43) TYPE c,
field7(10) TYPE c,
END OF vlist.
select-options: sl_werks for s031-werks.
select-options: sl_lgort for s031-lgort.
SUBMIT RMCB0300 EXPORTING LIST TO MEMORY and return
WITH SL_WERKS in sl_werks "Plant
WITH SL_LGORT in sl_lgort "Storage Location
WITH VA EQ 'X' .
* recover YVREE025 report and display
CALL FUNCTION 'LIST_FROM_MEMORY'
TABLES
LISTOBJECT = ABAPLIST
EXCEPTIONS
NOT_FOUND = 1
OTHERS = 2.
*CALL FUNCTION 'LIST_TO_ASCI'
* EXPORTING
* list_index = -1
* TABLES
* listasci = vlist
* listobject = ABAPLIST
* EXCEPTIONS
* empty_list = 1
* list_index_invalid = 2
* OTHERS = 3.
*
**if sy-batch = space.
CALL FUNCTION 'DISPLAY_LIST'
EXPORTING
FULLSCREEN = 'X'
* CALLER_HANDLES_EVENTS =
IMPORTING
USER_COMMAND = SY-UCOMM
TABLES
LISTOBJECT = ABAPLIST
EXCEPTIONS
EMPTY_LIST = 1
OTHERS = 2.
