standard code REPORT RCNMASSCHANGE

[Former Member]

Hello forum,

it seemed easy.

I have to find descriptions of the fields in a dynpro (not they are in ) where they are?

Also when I give the F8 I get a pop-up (with a subscreen with tabs) : I must to disable this .

Any suggestions? THANKS FOR ADVANCE

I give the code (excuse the long code) is not as simple as finding the term popup or event start-of-selection

 

REPORT RCNMASSCHANGE

AT SELECTION-SCREEN OUTPUT.

START-OF-SELECTION.
IF NOT P_MASCNG[] IS INITIAL.
PERFORM MASSENAENDERUNG USING CON_NO.
LEAVE PROGRAM.
ENDIF.
" START-OF-SELECTION .


if not sy-batch is initial.
macro_import_tcndb_for_batch.
l_maspar[] = p_maspar[].
loop at l_maspar where not abap_prog is initial.
clear l_maspar-abap_prog.
modify l_maspar index sy-tabix.
endloop.
p_maspar[] = l_maspar[].
endif.

IF P_MASCNG[] IS INITIAL.
* set/delete Icon-Okay in Pushbutton
PERFORM DRUCKTASTEN_ICON USING P_MASPAR CHANGING B_MASPAR.
* hide test indicator
IF P_MASPAR[] IS INITIAL.
LOOP AT SCREEN.
CHECK SCREEN-GROUP1 = 'TST'.
SCREEN-ACTIVE = '0'.
MODIFY SCREEN.
ENDLOOP.
ENDIF.

[Former Member]

Hello forum,

it seemed easy.

I have to find descriptions of the fields in a dynpro (not they are in ) where they are?

Also when I give the F8 I get a pop-up (with a subscreen with tabs) : I must to disable this .

Any suggestions? THANKS FOR ADVANCE

I give the code (excuse the long code) is not as simple as finding the term popup or event start-of-selection

 

REPORT RCNMASSCHANGE

AT SELECTION-SCREEN OUTPUT.

START-OF-SELECTION.
IF NOT P_MASCNG[] IS INITIAL.
PERFORM MASSENAENDERUNG USING CON_NO.
LEAVE PROGRAM.
ENDIF.
" START-OF-SELECTION .


if not sy-batch is initial.
macro_import_tcndb_for_batch.
l_maspar[] = p_maspar[].
loop at l_maspar where not abap_prog is initial.
clear l_maspar-abap_prog.
modify l_maspar index sy-tabix.
endloop.
p_maspar[] = l_maspar[].
endif.

IF P_MASCNG[] IS INITIAL.
* set/delete Icon-Okay in Pushbutton
PERFORM DRUCKTASTEN_ICON USING P_MASPAR CHANGING B_MASPAR.
* hide test indicator
IF P_MASPAR[] IS INITIAL.
LOOP AT SCREEN.
CHECK SCREEN-GROUP1 = 'TST'.
SCREEN-ACTIVE = '0'.
MODIFY SCREEN.
ENDLOOP.
ENDIF.

[Former Member]

MODE CODE:

IMPORT FLG_CALL_POPUP CURRENT_TABNAME
FROM MEMORY ID 'RCNMASSCHANGE_POPUP'.
FREE MEMORY ID 'RCNMASSCHANGE_POPUP'.


IF FLG_CALL_POPUP = CON_YES.
* call popup for parameter input
FLG_CALL_POPUP = CON_NO.
SSCRFIELDS-UCOMM = 'MASP2'.
SY-UCOMM = 'MASP2'.
SUPPRESS DIALOG.
ENDIF.

ELSEIF SY-BATCH IS INITIAL.
IF FLG_FIRST_BATCH = CON_NO.
* leave report
LEAVE PROGRAM.
ELSE.
* call background processing (Popup)
FLG_FIRST_BATCH = CON_NO.
IF SY-BATCH IS INITIAL.
macro_export_tcndb_for_batch.
SSCRFIELDS-UCOMM = 'SJOB'.
SY-UCOMM = 'SJOB'.
FLG_SJOB = CON_YES.
ENDIF.
SUPPRESS DIALOG.
ENDIF.

ELSE.
* background call with transfered single changes
FLG_NO_STOP_INFO = CON_YES.
ENDIF.
"AT SELECTION-SCREEN OUTPUT .


*---------------------------------------------------------------------*
* AT SELECTION-SCREEN *
*---------------------------------------------------------------------*
* Selection Screen PAI (Process After Input) *
*---------------------------------------------------------------------*
AT SELECTION-SCREEN.
IF FLG_SJOB = CON_YES.
* execute report in background
FLG_SJOB = CON_NO.
macro_export_tcndb_for_batch.
SSCRFIELDS-UCOMM = 'SJOB'.
SY-UCOMM = 'SJOB'.
ENDIF.

CASE SSCRFIELDS-UCOMM.
WHEN 'MASP'.
* parameter input for mass data change

* call Input-Popup again later
EXPORT FLG_CALL_POPUP FROM CON_YES CURRENT_TABNAME
TO MEMORY ID 'RCNMASSCHANGE_POPUP'.
ENDIF.
ENDFORM. "MASSENAENDERUNG .