topic Re: events in Application Development and Automation Discussions

events

Former Member — Wed, 13 Jun 2007 11:27:08 GMT

can anybody give me a simple example which i could understand on every event in abap

regards,

send2me

Re: events

Former Member — Wed, 13 Jun 2007 12:25:01 GMT

hi,

i m sending all events used in classical and interactive reporting .jus copy and paste it and get the use of that.

classical...................................................................................

REPORT ZVIJ_TEST1 LINE-SIZE 100 LINE-COUNT 20(4).

TABLES: MARA.

DATA: BEGIN OF ITAB OCCURS 0,

MATNR LIKE MARA-MATNR,

ERNAM LIKE MARA-ERNAM,

MTART LIKE MARA-MTART,

END OF ITAB.

SELECT-OPTIONS: MTYPE FOR MARA-MTART.

write: ' this will be printed second after top of page'.

initialization.

write: ' write will not b executed if selection screen is there'.

START-OF-SELECTION.

SELECT MATNR ERNAM MTART FROM MARA INTO corresponding fields of TABLE

ITAB

WHERE MTART IN MTYPE.

WRITE:/ 'THIS IS FETCHING PROCESS'.

PERFORM WRITE.

TOP-OF-PAGE.

WRITE:/ 'THIS IS TOP OF PAGE'.

END-OF-PAGE.

WRITE:/ 'THIS IS END OF PAGE'.

END-OF-SELECTION.

WRITE:/ 'THIS IS END OF SELECTION'.

FORM WRITE.

LOOP AT ITAB.

WRITE:/ ITAB-MATNR,ITAB-ERNAM,ITAB-MTART.

ENDLOOP.

ENDFORM.

interactive..........................

REPORT ZVIJ_TEST_INTREC1 LINE-COUNT 20(3) LINE-SIZE 130.

TABLES: MARA,MARC,MARD.

DATA: BEGIN OF ITAB_MARA OCCURS 0,

MATNR LIKE MARA-MATNR,

ERNAM LIKE MARA-ERNAM,

MTART LIKE MARA-MTART,

END OF ITAB_MARA.

DATA: BEGIN OF ITAB_MARC OCCURS 0,

MATNR LIKE MARC-MATNR,

WERKS LIKE MARC-WERKS,

LVORM LIKE MARC-LVORM,

END OF ITAB_MARC.

DATA: BEGIN OF ITAB_MARD OCCURS 0,

MATNR LIKE MARD-MATNR,

LGORT LIKE MARD-LGORT,

END OF ITAB_MARD.

DATA: BEGIN OF NTAB OCCURS 0,

MATNR LIKE MBEW-MATNR,

BWKEY LIKE MBEW-BWKEY,

BKLAS LIKE MBEW-BKLAS,

END OF NTAB.

DATA: BEGIN OF PTAB OCCURS 0,

MATNR LIKE MARM-MATNR,

MEINH LIKE MARM-MEINH,

GEWEI LIKE MARM-GEWEI,

END OF PTAB.

DATA: BEGIN OF RTAB OCCURS 0,

ESTKZ LIKE EBAN-ESTKZ,

MATNR LIKE EBAN-MATNR,

MATKL LIKE EBAN-MATKL,

END OF RTAB.

SELECT-OPTIONS: MTART FOR MARA-MTART.

INITIALIZATION.

MTART-LOW = 'HALB'.

MTART-HIGH = 'HAWA'.

MTART-OPTION = 'BT'.

APPEND MTART.

START-OF-SELECTION.

SELECT MATNR ERNAM MTART FROM MARA INTO TABLE ITAB_MARA WHERE MTART IN

MTART.

PERFORM DISPLAY.

TOP-OF-PAGE.

WRITE:/2(15) 'MATERIAL NO',20(20) 'CREATED BY',45(15) 'MATERIAL TYPE'.

*END-OF-PAGE.

*DO SY-LSIND TIMES.

*WRITE:/ 'LIST INDEX',SY-LSIND.

*ENDDO.

FORM DISPLAY.

LOOP AT ITAB_MARA.

WRITE:/ ITAB_MARA-MATNR UNDER 'MATERIAL NO' HOTSPOT ON,ITAB_MARA-ERNAM

UNDER

'CREATED BY',ITAB_MARA-MTART UNDER 'MATERIAL TYPE'.

HIDE: ITAB_MARA-MATNR.

ENDLOOP.

ENDFORM.

*SET PF-STATUS 'VIJ'.

AT USER-COMMAND.

CASE SY-UCOMM.

WHEN 'LIST1'.

SY-LSIND = '1'.

WHEN 'LIST2'.

SY-LSIND = '2'.

WHEN 'LIST3'.

SY-LSIND = '3'.

WHEN 'LIST4'.

SY-LSIND = '4'.

ENDCASE.

************************************************************************

AT LINE-SELECTION.

CASE SY-LSIND.

WHEN 1.

SELECT MATNR WERKS LVORM FROM MARC INTO TABLE ITAB_MARC WHERE MATNR =

ITAB_MARA-MATNR.

PERFORM DISPLAY1.

WHEN 2.

SELECT MATNR LGORT FROM MARD INTO TABLE ITAB_MARD WHERE MATNR =

ITAB_MARC-MATNR.

PERFORM DISPLAY2.

*sy-lsind = 0.

WHEN 3.

SELECT MATNR BWKEY BKLAS FROM MBEW INTO TABLE NTAB WHERE MATNR =

ITAB_MARD-MATNR.

PERFORM DISPLAY3.

WHEN 4.

SELECT MATNR MEINH GEWEI FROM MARM INTO TABLE PTAB WHERE MATNR =

NTAB-MATNR.

PERFORM DISPLAY4.

WHEN 5.

SELECT ESTKZ MATNR MATKL FROM EBAN INTO CORRESPONDING FIELDS OF TABLE

RTAB WHERE MATNR =

PTAB-MATNR.

PERFORM DISPLAY5.

when 6.

WRITE:/ SY-LSIND HOTSPOT ON.

when 7.

WRITE:/ SY-LSIND HOTSPOT ON.

when 8.

WRITE:/ SY-LSIND HOTSPOT ON.

when 9.

WRITE:/ SY-LSIND HOTSPOT ON.

when 10.

WRITE:/ SY-LSIND HOTSPOT ON.

when 11.

WRITE:/ SY-LSIND HOTSPOT ON.

when 12.

WRITE:/ SY-LSIND HOTSPOT ON.

when 13.

WRITE:/ SY-LSIND HOTSPOT ON.

when 14.

WRITE:/ SY-LSIND HOTSPOT ON.

*sy-lsind = 17.

when 15.

WRITE:/ SY-LSIND HOTSPOT ON.

when 16.

WRITE:/ SY-LSIND HOTSPOT ON.

when 17.

WRITE:/ SY-LSIND HOTSPOT ON.

when 18.

WRITE:/ SY-LSIND HOTSPOT ON.

when 19.

WRITE:/ SY-LSIND HOTSPOT ON.

*sy-lsind = 10.

when 20.

WRITE:/ SY-LSIND HOTSPOT ON.

if sy-lsind = 20.

submit ZVIJ_INTREC2.

endif.

*write:/ 'sytem index', sy-lsind.

ENDCASE.

FORM DISPLAY1.

LOOP AT ITAB_MARC.

WRITE:/ ITAB_MARC-MATNR HOTSPOT ON, ITAB_MARC-WERKS,ITAB_MARC-LVORM.

HIDE: ITAB_MARC-MATNR.

ENDLOOP.

WRITE:/ SY-LSIND.

ENDFORM.

FORM DISPLAY2.

LOOP AT ITAB_MARD.

WRITE:/ ITAB_MARD-MATNR HOTSPOT ON, ITAB_MARD-LGORT.

HIDE: ITAB_MARD-MATNR.

ENDLOOP.

WRITE:/ SY-LSIND.

ENDFORM.

FORM DISPLAY3.

LOOP AT NTAB.

WRITE:/ NTAB-MATNR HOTSPOT ON,NTAB-BWKEY,NTAB-BKLAS.

HIDE: NTAB-MATNR.

ENDLOOP.

WRITE:/ SY-LSIND.

ENDFORM.

FORM DISPLAY4.

LOOP AT PTAB.

WRITE:/ PTAB-MATNR HOTSPOT ON,PTAB-MEINH,PTAB-GEWEI.

HIDE: PTAB-MATNR.

ENDLOOP.

WRITE:/ SY-LSIND.

ENDFORM.

FORM DISPLAY5.

LOOP AT RTAB.

WRITE:/ RTAB-MATNR HOTSPOT ON,RTAB-ESTKZ,RTAB-MATKL.

HIDE: PTAB-MATNR.

ENDLOOP.

WRITE:/ SY-LSIND.

*SY-LSIND = 0.

ENDFORM.

regards

vijay dwivedi

rewards point if usefull to you

Message was edited by:

vijay dwivedi

Re: events

S0025444845 — Wed, 13 Jun 2007 12:26:21 GMT

Hi,

Refer to this report,

&----

*& Report YPLAY2 *

*& *

&----

*& *

&----

REPORT yplay2

NO STANDARD PAGE HEADING

LINE-COUNT 20(3) .

TABLES : sflight, sscrfields.

DATA : tfl TYPE TABLE OF sflight WITH HEADER LINE.

DATA : v_low TYPE sy-datum,

v_high TYPE sy-datum,

v_carrid TYPE scarr-carrid,

v_ucomm TYPE sscrfields-ucomm,

flag.

SELECTION-SCREEN : BEGIN OF BLOCK x WITH FRAME TITLE text-001.

PARAMETERS : p_carr TYPE sflight-carrid DEFAULT 'AA'.

SELECT-OPTIONS : s_conn FOR sflight-connid.

SELECTION-SCREEN : END OF BLOCK x.

SELECTION-SCREEN : BEGIN OF BLOCK y WITH FRAME TITLE text-002.

SELECTION-SCREEN : BEGIN OF line,

COMMENT 5(10) TEXT-003.

PARAMETERS : P_DEP TYPE SPFLI-CITYFROM.

SELECTION-SCREEN :

COMMENT 45(6) TEXT-004.

PARAMETERS : P_ARR TYPE SPFLI-CITYTO .

SELECTION-SCREEN : END OF line,

skip 2.

SELECT-OPTIONS :

s_date FOR sflight-fldate

NO-EXTENSION.

PARAMETERS : c1 AS CHECKBOX USER-COMMAND ch,

p_rows TYPE i.

SELECTION-SCREEN : END OF BLOCK y.

at selection-screen ON P_CARR.

SELECT * FROM SFLIGHT UP TO 1 ROWS WHERE CARRID = P_CARR.

ENDSELECT.

START-OF-SELECTION.

IF c1 = 'X'.

SELECT * FROM sflight INTO TABLE tfl

UP TO p_rows ROWS

WHERE carrid = p_carr

AND connid IN s_conn

AND fldate IN s_date

ELSE.

SELECT * FROM sflight INTO TABLE tfl

WHERE carrid = p_carr

AND connid IN s_conn

AND fldate IN s_date.

ENDIF.

END-OF-SELECTION.

LOOP AT tfl .

WRITE:/ tfl-carrid,

10 tfl-connid,

20 tfl-fldate,

35 tfl-seatsocc.

ENDLOOP.

INITIALIZATION.

flag = 'X'.

v_low = sy-datum - 1.

v_high = sy-datum .

PERFORM putdate TABLES s_date USING v_low v_high.

AT SELECTION-SCREEN OUTPUT.

IF v_ucomm = 'CH' OR flag = 'X'.

flag = ' '.

IF c1 = 'X'.

LOOP AT SCREEN.

IF screen-name = 'P_ROWS'.

screen-input = '1'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ELSE.

LOOP AT SCREEN.

IF screen-name = 'P_ROWS'.

screen-input = '0'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

AT SELECTION-SCREEN.

v_ucomm = sscrfields-ucomm.
CHECK sscrfields-ucomm NE 'CH'.

SELECT SINGLE carrid FROM scarr INTO v_carrid WHERE carrid = p_carr.

IF sy-subrc NE 0.

MESSAGE e000(ycl_00) WITH p_carr.

ENDIF.

AT SELECTION-SCREEN ON s_date.

CHECK sscrfields-ucomm NE 'CH'.

IF s_date-high > sy-datum.

MESSAGE e002(ycl_00).

ENDIF.

TOP-OF-PAGE.

writE:/ 'Carrier',

10 'Conn',

20 'Date',

35 'Seats occupied'.

uline.

END-OF-PAGE.

WRITE:/ 'PAGE # :' , SY-PAGNO.

&----

*& Form PUTDATE

&----

text

----

-->P_S_DATE text
-->P_V_LOW text
-->P_V_HIGH text

----

FORM putdate TABLES ps_date STRUCTURE s_date

USING pv_low

pv_high.

ps_date-sign = 'I'.

ps_date-option = 'BT'.

ps_date-low = pv_low.

ps_date-high = pv_high.

APPEND ps_date.

ENDFORM. " PUTDATE

regards,

sudha

Re: events

Former Member — Wed, 13 Jun 2007 12:49:31 GMT

hi,

report zreport.

*tables work area

tables: kna1.

internal table

data: begin of it_kna1 occurs 0,

kunnr type kna1-kunnr,

name1 type kna1-name1,

endof it_kna1.

selection-screen logic

parameters: p_kunnr type kna1-kunnr.

intialization event used for providing default values

INITIALIZATION.

p_kunnr = 1010.

event used for perform validations.

AT SELECTION-SCREEN.

if p_kunnr is initial.

message e.

*event used for reading data.

START-OF-SELECTION.

select kunnr name1 from kna1 into table it_kna1 where kunnr = p_kunnr.

loop at it_kna1.

write:/ it_kna1-kunnr,

it_kna1-name1.

endloop.

*event used for page heading.

TOP-OF-PAGE.

write:/ ' customer details'.

*event used for page footer

END-OF-PAGE

write:/ 'page number is', sy-pagno.

GET and GET LATE events will be triggered only the program reads data from Logical Data Base.

regards,

Ashokreddy.