Reg Dialog Prog..

Question

Hi,
   Any one can send me the sample dialog program..I created one DP it contains 2 text field and one push button, when i press the button it ll not work.

Answer 1

Hi,
plz go through the following example-----
T A B L E D E C L E R A T I O N
TABLES : Z8T024E.
C O N S T A N T S
DATA : ok_code_501(20).
DATA : A1(20).
DATA: D_FIRST VALUE 'Y'. " DECLEARING A FLAG
data: dyname like d020s-prog value 'Z8VIJAY_T024E_RIV',
dynumb like d020s-dnum value '0501'.
data: begin of dynpfields occurs 3.
include structure dynpread.
data: end of dynpfields.
C O N T R O L S
CONTROLS : TAB_CONTROL TYPE TABLEVIEW USING SCREEN 501.
I N T E R N A L T A B L E
DATA : BEGIN OF I_TAB OCCURS 0,
z8_ekorg TYPE z8ekorg, "purchasing organization
z8_ekotx TYPE z8ekotx, "description
z8_bukrs TYPE z8bukrs, "company code
END OF I_TAB.
*& Module USER_COMMAND_0501 INPUT
text
module USER_COMMAND_0501 input.
OK_CODE_501 = SY-UCOMM.
CASE OK_CODE_501.
*-for save--
WHEN 'SAV1'.
LOOP AT I_TAB.
SELECT SINGLE * FROM Z8T024E
WHERE Z8_EKORG = I_TAB-Z8_EKORG
AND Z8_BUKRS = I_TAB-Z8_BUKRS.
****IF DATA EXITS THEN UPDATE.....
IF SY-SUBRC = 0.
UPDATE Z8T024E SET Z8_EKOTX = I_TAB-Z8_EKOTX
WHERE Z8_EKORG = I_TAB-Z8_EKORG AND Z8_BUKRS = I_TAB-Z8_BUKRS.
ENDIF.
ENDLOOP.
D_FIRST = 'Y'.
CLEAR OK_CODE_501.
**-for exit-
WHEN 'EX01'.
SET SCREEN 0.
LEAVE SCREEN.
ENDCASE.
ENDMODULE. " USER_COMMAND_0501 INPUT
*& Module STATUS_0501 OUTPUT
text
module STATUS_0501 output.
SET PF-STATUS 'Z8VIJAY'.
SET TITLEBAR 'TABLE CONTROL FOR Z8T024E'.
IF D_FIRST = 'Y'.
REFRESH I_TAB.
SELECT
z8_ekorg
z8_ekotx
z8_bukrs
INTO CORRESPONDING FIELDS OF TABLE i_tab
FROM z8t024e
WHERE Z8_BUKRS = '5504'.
D_FIRST = 'N'.
ENDIF.
TAB_CONTROL-LINES = 200.
endmodule. " STATUS_0501 OUTPUT
*& Module ADD_ENTRIES OUTPUT
text
module ADD_ENTRIES output.
CLEAR I_TAB.
READ TABLE I_TAB INDEX tab_control-current_line.
TAB_CONTROL-V_SCROLL = 'X'.
*TAB_CONTROL-H_GRID = 'X'.
*TAB_CONTROL-V_GRID = 'X'.
IF I_TAB-Z8_EKORG = '' OR I_TAB-Z8_BUKRS = ''.
LOOP AT SCREEN.
IF SCREEN-NAME = 'I_TAB-Z8_EKOTX'.
SCREEN-OUTPUT = 1.
SCREEN-INPUT = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF..
endmodule. " ADD_ENTRIES OUTPUT
*& Module READ_ENTRIES INPUT
text
module READ_ENTRIES input.
MODIFY I_TAB INDEX tab_control-current_line.
IF I_TAB-z8_bukrs IS INITIAL.
ENDIF.
endmodule. " READ_ENTRIES INPUT
*& Module DISPLAY OUTPUT
text
module DISPLAY output.
*when display-
IF SY-UCOMM = 'DISP'.
IF I_TAB-Z8_EKORG <> ''.
LOOP AT SCREEN.
SCREEN-INPUT = 0.
SCREEN-OUTPUT = 1.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
ENDIF.
*when change-
IF SY-UCOMM = 'CH01'.
IF I_TAB-Z8_EKORG = '' OR I_TAB-Z8_BUKRS = ''.
LOOP AT SCREEN.
SCREEN-INPUT = 0.
SCREEN-OUTPUT = 1.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
ENDIF.
*when create-
IF SY-UCOMM = 'CR01'.
LOOP AT SCREEN.
CLEAR I_TAB.
REFRESH I_TAB.
SCREEN-INPUT = 1.
SCREEN-OUTPUT = 1.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
endmodule. " DISPLAY OUTPUT
**& Module help INPUT
text
*module help input.
*CALL FUNCTION 'HELP_OBJECT_SHOW_FOR_FIELD'
EXPORTING
DOKLANGU = SY-LANGU
DOKTITLE = ' '
CALLED_BY_TCODE =
CALLED_BY_PROGRAM =
CALLED_BY_DYNP =
CALLED_FOR_TAB = 'Z8T024E'
CALLED_FOR_FIELD = 'Z8_EKORG'
CALLED_FOR_TAB_FLD_BTCH_INPUT =
CALLED_BY_CUAPROG =
CALLED_BY_CUASTAT =
MERGE_DZ_IF_AVAILABLE =
MEMORYID =
EXPLICIT_MEMORYID = ' '
TABLES
LINKS =
EXCLUDEFUN =
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.
*endmodule. " help INPUT
*& Module help INPUT
text
module help input.
if sy-subrc = 0.
endif.
REFRESH dynpfields.
move '0001' to dynpfields-fieldname.
append dynpfields.
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
dyname = dyname
dynumb = dynumb
TRANSLATE_TO_UPPER = ' '
REQUEST = ' '
PERFORM_CONVERSION_EXITS = ' '
PERFORM_INPUT_CONVERSION = ' '
DETERMINE_LOOP_INDEX = ' '
tables
dynpfields = dynpfields
EXCEPTIONS
INVALID_ABAPWORKAREA = 1
INVALID_DYNPROFIELD = 2
INVALID_DYNPRONAME = 3
INVALID_DYNPRONUMMER = 4
INVALID_REQUEST = 5
NO_FIELDDESCRIPTION = 6
INVALID_PARAMETER = 7
UNDEFIND_ERROR = 8
DOUBLE_CONVERSION = 9
STEPL_NOT_FOUND = 10
OTHERS = 11
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
endmodule. " help INPUT
*& Module HELP1 INPUT
text
module HELP1 input.
endmodule. " HELP1 INPUT
*& Module HELP2 INPUT
text
module HELP2 input.
endmodule. " HELP2 INPUT
What is Dialog Progrmming.
http://help.sap.com/saphelp_nw2004s/helpdata/en/fc/eb2d40358411d1829f0000e829fbfe/content.htm
This link Give you all details about Modulepool
http://sap.mis.cmich.edu/sap-abap/abap09/index.htm
Regards,
Priyanka.