сорри, вот протестированный пример
Code:
REPORT Z1.
DATA: RETTAB LIKE DDSHRETVAL OCCURS 0 WITH HEADER LINE.
DATA: R_REPID LIKE SY-REPID,
DYN LIKE DYNPREAD OCCURS 0 WITH HEADER LINE.
SELECTION-SCREEN BEGIN OF BLOCK BLOCK1 WITH FRAME TITLE TEXT-002.
PARAMETERS KE LIKE CCR1S-KOKRS OBLIGATORY VALUE CHECK.
PARAMETERS MVZ LIKE CSKSZ-KOSTL OBLIGATORY VALUE CHECK.
PARAMETERS GOD TYPE GJAHR OBLIGATORY VALUE CHECK.
PARAMETERS HI TYPE PERBL OBLIGATORY VALUE CHECK.
PARAMETERS LOW TYPE PERBL OBLIGATORY VALUE CHECK.
PARAMETERS VOLUME LIKE RKSK1-STAGR OBLIGATORY VALUE CHECK.
SELECTION-SCREEN END OF BLOCK BLOCK1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR VOLUME.
R_REPID = SY-REPID.
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
DYNAME = R_REPID
DYNUMB = SY-DYNNR
REQUEST = 'A'
TABLES
DYNPFIELDS = DYN
EXCEPTIONS
OTHERS = 99.
READ TABLE DYN WITH KEY FIELDNAME = 'KE'.
SET PARAMETER ID 'CAC' FIELD DYN-FIELDVALUE.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
EXPORTING
TABNAME = 'TKA03'
FIELDNAME = 'STAGR'
SEARCHHELP = 'ZH_TKA03'
TABLES
RETURN_TAB = RETTAB
EXCEPTIONS
OTHERS = 99.
READ TABLE RETTAB INDEX 1.
VOLUME = RETTAB-FIELDVAL.
START-OF-SELECTION.
* текст программы
правда для него еще нужно кое-что сделать:
скопировать через SE11 средство поиска H_TKA03
в свое: ZH_TKA03
в этом, своем, изменить:
1. Значение по умполчанию для KOKRS : CAC (без кавычек)
2. Снять ВСЕ галочки IMP / EXP
3. Поставить галочку EXP у поля STAGR
4. Активировать средство поиска