08-03-2006 5:05 PM
Hi all,
how to deal with DIAGNOSE_OBJECT parameter in FM POPUP_TO_CONFIRM to get the text with SE61.
thanx in advance
Rakesh
08-03-2006 6:30 PM
Hai Rakesh
Go through the following Code
Create 'ZDIALOG_TEXT' Element at SE61
and give &name& as text element
then execute the following Code
data parameters like spar occurs 0 with header line.
data Name(75) type c.
name = ' '.
Data : v_ecc6_text type string,
v_ecc6_title type string.
DATA: L_SVAR(1).
concatenate
'1'
'2'
'3'
into Name separated by space.
move Name to parameters-value.
move 'NAME' to parameters-param.
append parameters.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
TITLEBAR = 'Hai'
DIAGNOSE_OBJECT = 'ZDIALOG_TEXT'
TEXT_QUESTION = 'Hello'
DEFAULT_BUTTON = '1'
IMPORTING
ANSWER = L_SVAR
TABLES
PARAMETER = parameters
EXCEPTIONS
TEXT_NOT_FOUND = 1
OTHERS = 2.
if sy-subrc <> 0.
L_SVAR = 'A'.
else.
case L_SVAR.
when '1'.
L_SVAR = 'J'.
when '2'.
L_SVAR = 'N'.
when others.
L_SVAR = 'A'.
endcase.
endif.
write : L_SVAR.
Regards
Sreeni
08-03-2006 5:11 PM
hi,
Usually, you can leave a space for this export parameter. Like ' '.
i hope it helps
08-03-2006 5:14 PM
If you want to display the documentation, I would think you would enter the object name as it appears in table DOKHL (field OBJECT).
08-03-2006 5:18 PM
08-03-2006 6:30 PM
Hai Rakesh
Go through the following Code
Create 'ZDIALOG_TEXT' Element at SE61
and give &name& as text element
then execute the following Code
data parameters like spar occurs 0 with header line.
data Name(75) type c.
name = ' '.
Data : v_ecc6_text type string,
v_ecc6_title type string.
DATA: L_SVAR(1).
concatenate
'1'
'2'
'3'
into Name separated by space.
move Name to parameters-value.
move 'NAME' to parameters-param.
append parameters.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
TITLEBAR = 'Hai'
DIAGNOSE_OBJECT = 'ZDIALOG_TEXT'
TEXT_QUESTION = 'Hello'
DEFAULT_BUTTON = '1'
IMPORTING
ANSWER = L_SVAR
TABLES
PARAMETER = parameters
EXCEPTIONS
TEXT_NOT_FOUND = 1
OTHERS = 2.
if sy-subrc <> 0.
L_SVAR = 'A'.
else.
case L_SVAR.
when '1'.
L_SVAR = 'J'.
when '2'.
L_SVAR = 'N'.
when others.
L_SVAR = 'A'.
endcase.
endif.
write : L_SVAR.
Regards
Sreeni