Code: Alles auswählen.
'###############
PROCESS BEFORE OUTPUT.
PROCESS AFTER INPUT.
MODULE CANCEL AT EXIT-COMMAND.
MODULE USER_COMMAND_100.
'###############
Code: Alles auswählen.
*#####################
*&---------------------------------------------------------------------*
*& Report ZSKZUGRFALLNR
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
REPORT ZSKZUGRFALLNR.
DATA: name TYPE vrm_id,
list TYPE vrm_values,
value LIKE LINE OF list.
DATA: wa_ZSKFNRACCESS TYPE ZSKFNRACCESS.
TABLES ZSKFNRACCESS.
name = 'ZSKFNRACCESS-E_FALLNUMMER'.
CALL SCREEN 0100 STARTING AT 10 10.
*#####################################################################
MODULE cancel INPUT.
LEAVE PROGRAM.
ENDMODULE.
MODULE init_listbox OUTPUT.
CLEAR: ZSKFNRACCESS-E_FALLNUMMER,
list.
SELECT E_FALLNUMMER
FROM zskfnraccess
INTO CORRESPONDING FIELDS OF wa_ZSKFNRACCESS.
value-key = wa_ZSKFNRACCESS-FALLID.
value-text = wa_ZSKFNRACCESS-E_FALLNUMMER.
APPEND value TO list.
ENDSELECT.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = name
values = list.
ENDMODULE.
*#####################################################################
Folgende Benutzer bedankten sich beim Autor a-dead-trousers für den Beitrag:
82kolu1bma
Code: Alles auswählen.
MODULE init_listbox OUTPUT.
CLEAR: ZSKFNRACCESS-E_FALLNUMMER,
list.
SELECT E_FALLNUMMER
FROM zskfnraccess
INTO CORRESPONDING FIELDS OF wa_ZSKFNRACCESS.
value-key = wa_ZSKFNRACCESS-E_FALLNUMMER.
value-text = wa_ZSKFNRACCESS-E_FALLNUMMER.
APPEND value TO list.
ENDSELECT.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = name
values = list.
ENDMODULE.