ABAP development project, sometimes need to jump out of the screen automatically implement jump and refresh function, the implementation of the function needs to invoke the corresponding event execution in the screen PBO.
The key code is:
SET titlebar 'Screen Automation Program'. IFG_contine_no is INITIAL. CREATE OBJECTGr_timer. CREATE OBJECTGr_app_timer. SET HANDLERGr_app_timer->handle_get_brgew forGr_timer. "0.5S Refresh one timeGr_timer->interval ='0.5'. Pager METHODGr_timer->run. "counter, refresh 6 times get weightG_count = G_count +1. IFG_count GE6. G_contine_no='X'. "Stop refreshing identityG_refresh_no ='X'. ENDIF. ENDIF. IFSy-ucomm <>'ENTER'. CREATE OBJECTGr_timer. CREATE OBJECTGr_app_timer. SET HANDLERGr_app_timer->handle_callback forGr_timer. Gr_timer->interval ='1'. Pager METHODGr_timer->run. ENDIF.
A full applet source code: Automatically refresh the screen applet
ABAP implements self-refresh and jump functions on the screen