Wie definierst du den Parameter auf dem SelScreen?mofis hat geschrieben:Da diese Datei aber ein bestimmtes Format und einen genauen Aufbau bedarf, möchte ich eine F1-Hilfe anbieten.
Code: Alles auswählen.
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
PARAMETERS: pa_telnr TYPE telenr DEFAULT '+41 61 715',
filename(128) DEFAULT 'H:\Laden_IT_105.txt'.
SELECTION-SCREEN END OF BLOCK blk1.
...
AT SELECTION-SCREEN ON VALUE-REQUEST FOR filename.
PERFORM explorer CHANGING filename.
...
*&---------------------------------------------------------------------*
*& Form explorer
*&---------------------------------------------------------------------*
FORM explorer CHANGING p_filename.
* DATA DEFINITIONS
DATA: mask(20) TYPE c VALUE ',*.*,*.*.',
mode(1) TYPE c VALUE 'O'.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
mask = mask
mode = mode
IMPORTING
filename = p_filename
EXCEPTIONS
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
OTHERS = 5.
IF sy-subrc <> 0.
ENDIF.
ENDFORM. " explorer
Code: Alles auswählen.
AT SELECTION-SCREEN ON HELP-REQUEST FOR filename.
PERFORM file_help.
Code: Alles auswählen.
*&---------------------------------------------------------------------*
*& Form file_help
*&---------------------------------------------------------------------*
FORM file_help .
DATA: links TYPE TABLE OF tline.
CALL FUNCTION 'HELP_OBJECT_SHOW'
EXPORTING
dokclass = 'DE'
* DOKLANGU = SY-LANGU
dokname = 'STZHELP_FILE_IT0105'
* DOKTITLE = ' '
* CALLED_BY_PROGRAM = ' '
* CALLED_BY_DYNP = ' '
* CALLED_FOR_TAB = ' '
* CALLED_FOR_FIELD = ' '
* CALLED_FOR_TAB_FLD_BTCH_INPUT = ' '
* MSG_VAR_1 = ' '
* MSG_VAR_2 = ' '
* MSG_VAR_3 = ' '
* MSG_VAR_4 = ' '
* CALLED_BY_CUAPROG = ' '
* CALLED_BY_CUASTAT =
* SHORT_TEXT = ' '
* CLASSIC_SAPSCRIPT = ' '
TABLES
links = links
EXCEPTIONS
object_not_found = 1
sapscript_error = 2
OTHERS = 3.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " file_help
Code: Alles auswählen.
WENN Dokumentenklasse = 'DE'.
Name des Dokuments = 'DATENELEMENT'