topic Re: dialog program in Application Development and Automation Discussions

dialog program

Former Member — Fri, 06 Jul 2007 05:44:37 GMT

wot is tcode for dialog program

also i want a sample code for the same

kidly help

rahul

Re: dialog program

Former Member — Fri, 06 Jul 2007 05:48:53 GMT

Hi,

T-code is SE51. or else u can do in SE80 also.

Regards,

Re: dialog program

sreeramkumar_madisetty — Fri, 06 Jul 2007 05:50:44 GMT

Hi Rahul

<b>SE51 is the tcode for Screen Painter.

You can develop module pool programs using SE80(Object Navigator) also.</b>

Regards,

Sree

Re: dialog program

Former Member — Fri, 06 Jul 2007 05:51:33 GMT

hi rahul

tcode for dialog program is se80.

for example just refer to the link below

http://www.sapmaterial.com/?gclid=CN322K28t4sCFQ-WbgodSGbK2g

regards

ravish

<b>plz dont forget to reward points if helpful</b>

Re: dialog program

Former Member — Fri, 06 Jul 2007 05:52:42 GMT

Hi,

You can create Dialog Program in SE80.

There give program name in the box and create.

It should start with SAPZXXXXX.

check this

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.

Re: dialog program

Former Member — Fri, 06 Jul 2007 05:53:26 GMT

Hi,

tcode is --- se51

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.

*~~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.

*~~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

****do rewards if usefull

vijay

Re: dialog program

Former Member — Fri, 06 Jul 2007 06:58:47 GMT

Hi Ragul,

T-Code for Dialog Programing -SE80,SE51,SE41.

SE51 is used only for Screen Parinter.

SE41 is used only for Menu Painter,

So the both operation can do in SE80.

SAMPLE PROGRAM FOR MODULE POOL IS ADDITION AND SUBRACTION OF TWO NUMBERS.

********MAIN PROGRAM****************

&----

*& Module pool ZADD *

*& *

&----

*& *

&----

PROGRAM ZADD.

TABLES: ZADD,SCREEN.

DATA: OK_CODE LIKE SY-UCOMM.

DATA: ITAB LIKE ZADD OCCURS 0 WITH HEADER LINE.

DATA : FIELD1(10) TYPE C,

FIELD2(10) TYPE C,

FIELD3(10) TYPE C,

FIELD4(10) TYPE C,

R1(5),

R2(5).

INCLUDE ZADD_PBO.

INCLUDE ZADD_PAI.

*****MAIN PROGRAM OVER**********

PROCESS BEFORE OUTPUT.

MODULE STATUS_1000.

PROCESS AFTER INPUT.

MODULE USER_COMMAND_1000.

----

***INCLUDE ZADD_PBO .

----

&----

*& Module STATUS_1000 OUTPUT

&----

text

----

MODULE STATUS_1000 OUTPUT.

SET PF-STATUS 'PF01'.

SET TITLEBAR 'xxx'.

ENDMODULE. " STATUS_1000 OUTPUT

&----

*& Module USER_COMMAND_1000 INPUT

&----

text

----

MODULE USER_COMMAND_1000 INPUT.

CASE OK_CODE.

WHEN 'ADDITION'.

ZADD-ADD1 = ZADD-NUMBER1 + ZADD-NUMBER2.

WHEN 'SUBTRACT'.

ZADD-SUB = ZADD-NUMBER1 - ZADD-NUMBER2.

WHEN 'SAVE'.

ITAB-NUMBER1 = ZADD-NUMBER1.

APPEND ITAB.

INSERT ZADD.

WHEN 'RA' .

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'RA'.

IF R2 = 'X'.

IF SCREEN-NAME = 'FIELD3'. " OR SCREEN-NAME = 'FIELD4'.

SCREEN-ACTIVE = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDCASE.

ENDMODULE. " USER_COMMAND_1000 INPUT

IF USEFULL REWARD

Re: dialog program

Former Member — Fri, 06 Jul 2007 08:10:42 GMT

U can create a dialog program using SE80.

To execute the same u should create ur own transaction zxxx ...........