Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
just look at this code...may be its help u...
also look at this fm code.
<b>RS_DYNPRO_DOWNLOAD</b>
FORM save_dynpro USING p_dyns TYPE t_dynpro.
DATA: l_filename TYPE rlgrap-filename.
DATA: BEGIN OF DYNP_ID, "Identifika. eines Dynpros für IMPORT
PROG TYPE PROGNAME,
DNUM LIKE D020S-DNUM,
END OF DYNP_ID.
DATA: header TYPE D020S,
fields TYPE TABLE OF D021S WITH HEADER LINE,
flow TYPE TABLE OF D022S WITH HEADER LINE,
params TYPE TABLE OF D023S WITH HEADER LINE.
* From dynpro painter :)
CONSTANTS:
STARS(64) VALUE
'****************************************************************',
"#EC NOTEXT
COMMENT1(64) VALUE
'* THIS FILE IS GENERATED BY THE SCREEN PAINTER. *',
"#EC NOTEXT
COMMENT2(64) VALUE
'* NEVER CHANGE IT MANUALLY, PLEASE ! *',
"#EC NOTEXT
DYNPRO_TEXT(8) VALUE '%_DYNPRO', "#EC NOTEXT
HEADER_TEXT(8) VALUE '%_HEADER', "#EC NOTEXT
PARAMS_TEXT(8) VALUE '%_PARAMS', "#EC NOTEXT
DESCRIPT_TEXT(13) VALUE '%_DESCRIPTION', "#EC NOTEXT
FIELDS_TEXT(8) VALUE '%_FIELDS', "#EC NOTEXT
KREUZ(1) VALUE 'x', "#EC NOTEXT
FLOWLOGIC_TEXT(11) VALUE '%_FLOWLOGIC'. "#EC NOTEXT
DATA HEADER_CHAR LIKE SCR_CHHEAD.
DATA FIELDS_CHAR LIKE SCR_CHFLD OCCURS 0 WITH HEADER LINE.
DATA DYNP_CHAR LIKE SCR_CHFLD OCCURS 0 WITH HEADER LINE.
DATA PROG_LEN TYPE P.
DATA l_d020t_prog TYPE d020t-prog.
* Load dynpro from DB.
MOVE: p_dyns-prog TO dynp_id-prog,
p_dyns-dynp TO dynp_id-dnum.
IMPORT DYNPRO header fields flow params ID dynp_id.
CHECK sy-subrc = 0.
* Spracovanie.
*--------------------------------------------------
* From dynpro painter R3 4.6c :)
CALL FUNCTION <b>'RS_SCRP_HEADER_RAW_TO_CHAR'</b>
EXPORTING
HEADER_INT = HEADER
IMPORTING
HEADER_CHAR = HEADER_CHAR
EXCEPTIONS
OTHERS = 1.
REFRESH DYNP_CHAR.
* Comment
DYNP_CHAR = STARS. APPEND DYNP_CHAR.
DYNP_CHAR = COMMENT1. APPEND DYNP_CHAR.
DYNP_CHAR = COMMENT2. APPEND DYNP_CHAR.
DYNP_CHAR = STARS. APPEND DYNP_CHAR.
* Identification
DYNP_CHAR = DYNPRO_TEXT. APPEND DYNP_CHAR. " '%_DYNPRO'
DYNP_CHAR = HEADER_CHAR-PROG. APPEND DYNP_CHAR.
DYNP_CHAR = HEADER_CHAR-DNUM. APPEND DYNP_CHAR.
DYNP_CHAR = SY-SAPRL. APPEND DYNP_CHAR.
DESCRIBE FIELD l_d020t_prog LENGTH PROG_LEN IN BYTE MODE.
DYNP_CHAR(16) = PROG_LEN. APPEND DYNP_CHAR.
* Header
DYNP_CHAR = HEADER_TEXT. APPEND DYNP_CHAR. " '%_HEADER'
APPEND HEADER_CHAR TO DYNP_CHAR.
* Description
DYNP_CHAR = DESCRIPT_TEXT. APPEND DYNP_CHAR. " '%_DESCRIPTION'
APPEND p_dyns-text TO DYNP_CHAR.
* Fieldlist
DYNP_CHAR = FIELDS_TEXT. " '%_FIELDS'
APPEND DYNP_CHAR.
CALL FUNCTION 'RS_SCRP_FIELDS_RAW_TO_CHAR'
TABLES
FIELDS_INT = FIELDS
FIELDS_CHAR = FIELDS_CHAR
EXCEPTIONS
OTHERS = 1.
LOOP AT FIELDS_CHAR.
APPEND FIELDS_CHAR TO DYNP_CHAR.
ENDLOOP.
* Flowlogic
DYNP_CHAR = FLOWLOGIC_TEXT. " '%_FLOWLOGIC'
APPEND DYNP_CHAR.
LOOP AT FLOW.
APPEND FLOW TO DYNP_CHAR.
ENDLOOP.
** refresh flowlogic. "vjb 25.06.98
* Dynpro Parameters "vjb ab 4.6A (01.07.98)
DYNP_CHAR = PARAMS_TEXT.
APPEND DYNP_CHAR.
LOOP AT PARAMS.
APPEND PARAMS TO DYNP_CHAR.
ENDLOOP.
I have to read the table <b>BALDAT</b>. In this table there are a field called CLUSTD. Its of type LRAW. I want to see the actual text stored in that <b>field</b>.
Bluesky
