problem in pr

[Former Member]

Error description: No entries are made in the ZRKILOG for the repeated time for the

company code 1001.

Carry out an extensive test for ABAP, as the operation is massively affected.

here the report :ZRKILOG

and the table name :ZRKILOG

PROGRAM ZRKILOG.

DATA: OK_CODE LIKE SY-UCOMM,

GT_ZRKILOG TYPE TABLE OF ZRKILOG,

G_CONTAINER TYPE SCRFNAME VALUE 'BCALV_GRID_DEMO_0100_CONT1',

GRID1 TYPE REF TO CL_GUI_ALV_GRID,

G_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER.

tables: zrkilog.

• Selektionsbildschirm

selection-screen begin of block 3 with frame.

selection-screen begin of block 1 with frame title text-002.

selection-screen begin of block 2 with frame title text-001.

select-options: s_kostl for zrkilog-kostl,

s_bukrs for zrkilog-bukrs.

selection-screen end of block 2.

selection-screen end of block 1.

selection-screen end of block 3.

----

---

• MAIN *

----

---

SELECT * FROM ZRKILOG INTO TABLE gt_ZRKILOG where kostl in s_kostl

and bukrs in s_bukrs

and sperrkz ne 'X'.

CALL SCREEN 100.

----

---

• MODULE PBO OUTPUT *

----

---

MODULE PBO OUTPUT.

SET PF-STATUS 'MAIN100'.

IF G_CUSTOM_CONTAINER IS INITIAL.

CREATE OBJECT G_CUSTOM_CONTAINER

EXPORTING CONTAINER_NAME = G_CONTAINER.

CREATE OBJECT GRID1

EXPORTING I_PARENT = G_CUSTOM_CONTAINER.

CALL METHOD GRID1->SET_TABLE_FOR_FIRST_DISPLAY

EXPORTING I_STRUCTURE_NAME = 'ZRKILOG_A'

CHANGING IT_OUTTAB = GT_ZRKILOG.

ENDIF.

ENDMODULE.

----

---

• MODULE PAI INPUT *

----

---

MODULE PAI INPUT.

• to react on oi_custom_events:

call method cl_gui_cfw=>dispatch.

ETHOD DISPATCH .

• ...

• FCODE: %_GC<ID><EV><Cargo>

• ( 4)( 4)( 4)(60)

• !! SPACEs must be in between here

• ignore ok_code

• ignore is_systemdispatch

CLASS CL_GUI_OBJECT DEFINITION LOAD.

DATA DUMMY TYPE REF TO CL_GUI_OBJECT. CREATE OBJECT DUMMY."Workaround

data: l_event type event_stck_line_type,

l_event_object type ref to lcl_event,

l_event_tab type cntl_events,

l_one_event type cntl_event.

RETURN_CODE = CL_GUI_CFW=>RC_NOEVENT.

FIELD-SYMBOLS: <F> type any.

DATA: EVENTID TYPE I,

IS_SHELLEVENT TYPE CHAR1,

CARGO TYPE SYUCOMM,

MY_SHELL TYPE I.

DATA: SLEN TYPE I.

DATA: F TYPE SYUCOMM, F1(10), F2(10), F3(20).

• Check if Control-Event

SLEN = STRLEN( SAVE_OK_CODE ).

IF SLEN <= 4.

EXIT. "// RC_NOEVENT

ENDIF.

ASSIGN SAVE_OK_CODE+0(4) TO <F>.

CASE <F>.

WHEN '%_GC'.

• Ocx Event

WHEN '%_GS'.

• Shell Event

IS_SHELLEVENT = TRUE.

*... Create as many dynpro proxies as necessary (ShellId 10...19)

CALL METHOD LCL_DYNPRO_PROXY=>INIT.

WHEN OTHERS.

EXIT. "// RC_NOEVENT

ENDCASE.

SLEN = SLEN - 4.

• Parse the Parameters

ASSIGN SAVE_OK_CODE+4(SLEN) TO <F>.

F = <F>.

CONDENSE F.

SPLIT F AT ' ' INTO F1 F2 F3.

• Shellid

IF F1 CO ' -0123456789'.

MY_SHELL = F1.

ELSE.

EXIT. "// RC_NOEVENT

ENDIF.

• Eventid

IF F2 CO ' -0123456789'.

EVENTID = F2.

ELSE.

EXIT. "// RC_NOEVENT

ENDIF.

• Cargo

CLEAR CARGO.

CARGO = F3.

• Find the object (Unique)

READ TABLE CFW_SUBSCRIBERLIST INTO CFW_SUBSCRIBER

WITH KEY SHELLID = MY_SHELL

binary search.

IF SY-SUBRC NE 0.

• exit with 'not found, not subsribed

RETURN_CODE = CL_GUI_CFW=>RC_UNKNOWN.

EXIT. "// RC_unknown

ENDIF.

• if the entry is not found, the event my come from a control

• created by the function module based framework

• Check for systemevents.

DATA: CURRENT_EVENT TYPE CNTL_EVENT.

READ TABLE CFW_SYSTEMEVENTS INTO CURRENT_EVENT WITH KEY

EVENTID = EVENTID

SHELLID = MY_SHELL

IS_SHELLEVENT = IS_SHELLEVENT.

IF SY-SUBRC = 0.

• the event is known as a systemevent.

RETURN_CODE = CL_GUI_CFW=>RC_NODISPATCH.

EXIT.

ELSE.

call method lcl_friend_of_gui_control=>get_reg_events_internal

exporting control = CFW_SUBSCRIBER-REF

importing events = l_event_tab

exceptions others = 1.

if sy-subrc ne 0.

RETURN_CODE = CL_GUI_CFW=>RC_UNKNOWN.

EXIT. "// RC_unknown

ENDIF.

read table l_event_tab with key eventid = eventid

into l_one_event.

if sy-subrc ne 0 or not l_one_event-is_systemevent is initial.

RETURN_CODE = CL_GUI_CFW=>RC_UNKNOWN.

EXIT. "// RC_unknown

endif.

• the event is a 'normal' event

RETURN_CODE = CL_GUI_CFW=>RC_FOUND.

• GL 8.1.99

• the dispatch method might create a new stacklevel

• => clear SY-UCOMM and SAVE_OK_CODE first

CLEAR SAVE_OK_CODE.

• G.Loff 5.1.99 / W.Schuster

• Clear, Sy-Ucomm would be restored on next 'schlapp' otherwise

clear sy-ucomm.

• Create event object

create object l_event_object

exporting event_object = cl_gui_control=>cur_event.

l_event-event_object = l_event_object.

SYSTEM-CALL KERNEL_INFO 'DYNPRO_STACK_POS' l_event-stackpos.

call method push_event

exporting current_event = l_event.

CLEAR SYSTEM_STATE. " Kompatibilitaet

• Special treadment for drag & drop events !

• ShellEvent Drag Drop !

if IS_SHELLEVENT = 'X' and eventid = 15.

call method handle_dragdrop_event

exporting

SHELLID = MY_SHELL

CARGO = CARGO.

else.

• Notify object

CALL METHOD CFW_SUBSCRIBER-REF->DISPATCH

EXPORTING

EVENTID = EVENTID

IS_SHELLEVENT = IS_SHELLEVENT

CARGO = CARGO

IS_SYSTEMDISPATCH = SPACE.

endif.

call method pop_event

exporting current_event = l_event.

ENDIF.

ENDMETHOD.

CASE OK_CODE.

WHEN 'EXIT'.

PERFORM EXIT_PROGRAM.

WHEN OTHERS.

• do nothing

ENDCASE.

CLEAR OK_CODE.

ENDMODULE.

----

---

• FORM EXIT_PROGRAM *

----

---

FORM EXIT_PROGRAM.

• CALL METHOD G_CUSTOM_CONTAINER->FREE.

METHOD FREE.

DATA L_CHILD TYPE REF TO CL_GUI_CONTROL.

LOOP AT CHILDREN INTO L_CHILD.

CALL METHOD L_CHILD->FREE

exceptions others = 1.

ENDLOOP.

CLEAR CHILDREN.

CALL METHOD SUPER->FREE

exceptions cntl_error = 1

cntl_system_error = 2

others = 3.

case sy-subrc.

when 0.

when 1.

raise cntl_error.

when others.

raise cntl_system_error.

endcase.

ENDMETHOD.

• CALL METHOD CL_GUI_CFW=>FLUSH.

METHOD FLUSH .

• ...

data: rc like sy-subrc, msgli like sy-msgli.

CALL FUNCTION 'AC_FLUSH_CALL'

EXPORTING

SYSTEM_FLUSH = ' '

IMPORTING

MESSAGE_NR = rc

MESSAGE_TEXT = msgli.

sy-subrc = rc.

sy-msgli = msgli.

CASE SY-SUBRC.

WHEN 0.

WHEN 1.

• system_error

MESSAGE ID 'CNDP' TYPE 'X' NUMBER 007 RAISING CNTL_SYSTEM_ERROR.

WHEN 2.

• method_call_error

MESSAGE ID 'CNDP' TYPE 'X' NUMBER 006 RAISING CNTL_ERROR.

WHEN 3.

• property_set_error

MESSAGE ID 'CNDP' TYPE 'X' NUMBER 006 RAISING CNTL_ERROR.

WHEN 4.

• property_get_error

MESSAGE ID 'CNDP' TYPE 'X' NUMBER 006 RAISING CNTL_ERROR.

WHEN OTHERS.

RAISE CNTL_ERROR.

ENDCASE.

ENDMETHOD.

LEAVE PROGRAM.

ENDFORM.

[Former Member]

Suresh,

could you please explain what exactly you are trying to achieve in this program?

regards

Ravi