Interested to Buy Any Domain ? << Click Here >> for more details...
Answer Posted / vam
CHECK
Conditional termination of a loop pass or a processing block.
Syntax
CHECK <logexp>.
If the logical expression <logexp> is true, the program
continues at the next statement. If, however, <logexp> is
false, the current loop pass terminates and the next begins.
If the program is not currently processing a loop, the
current processing block terminates. There are special forms
of the CHECK statement for use with selection tables and in
GET event blocks.
In loop structures like
DO ... ENDDO
WHILE ... ENDWHILE
LOOP ... ENDLOOP
SELECT ... ENDSELECT
CHECK with a negative outcome terminates the current loop
pass and goes back to the beginning of the loop to start the
next pass, if there is one.
In structures like
FORM ... ENDFORM
FUNCTION ... ENDFUNCTION
MODULE ... ENDMODULE
AT
CHECK with a negative outcome terminates the routine or
modularization unit.
If CHECK is not in a loop or a routine or a modularization
unit, a negative logical expression terminates the current
event. In contrast, the statement REJECT terminates the
current event, even from loops or subroutines.
If a CHECK produces a negative result in a GET event , the
GET events in subordinate tables of the logical database are
not processed either.
CHECK - special for reports with logical databases
1. CHECK sel.
2. CHECK SELECT-OPTIONS.
CHECK sel.
Effect
Checks the selection criterion requested by the statement
SELECT-OPTIONS sel ... .
This statement is equivalent to f IN sel , if sel was
defined by SELECT-OPTIONS sel FOR f and can be used anywhere
in logical expressions
If the result of this check is negative, the processing in
this event is terminated and the GET events for any
subordinate database tables are not processed either.
This variant of the CHECK statement should be used only if
the logical database for the corresponding table does not
support dynamic selections (see CHECK SELECT-OPTIONS ), or
SELECT-OPTIONS with the addition NO DATABASE SELECTION .
Otherwise, the relevant record is not read from the database
and made available to the program.
CHECK SELECT-OPTIONS.
Effect
Called only after a GET event.
This statement checks all the selections for SELECT-OPTIONS
where the reference field after FOR belongs to the current
table dbtab (specified after GET . However, this applies
only if the logical database for dbtab does not support
dynamic selections . Otherwise, the selections are passed
directly to the logical database (with the exception:
addition " NO DATABASE SELECTION " to SELECT-OPTIONS ).
This variant of the CHECK statement only makes sense if the
logical database does not support dynamic selections for the
corresponding table or SELECT-OPTIONS are defined with the
addition " NO DATABASE SELECTION ".
You can determine from the ABAP/4 Development Workbench
whether dynamic selections are defined and, if so, for which
logical database tables by selecting Development ->
Programming environ. -> Logical databases followed by Extras
-> Dynamic selections .
| Is This Answer Correct ? | 4 Yes | 0 No |
Post New Answer View All Answers
Explain the differences between se01, se09 and se10?
What is the use of 'for all entries'?
When a function module is activated syntax checking is performed automatically. State yes or no. : abap modularization
Exception handling and how does it transfer from called method to calling method?
Give examples of transparent table?
what is sales order confirmation and how can do design it in webdynpro. what is Tcode for the same?
What are the different software packets available in the market? : sap abap hr
What are the fields in a bdc_tab table? : abap bdc
Why do we need to code a loop statement in both the pbo and pai events for each table in the screen?
What are null values?
correct all performance problem without changing any functionality REPORT z_assignment_01. DATA: gt_user TYPE TABLE OF usr02 WITH HEADER LINE, gt_user_role TYPE TABLE OF agr_users WITH HEADER LINE, ********** DO NOT CHANGE THIS SECTION ********** g_begintime TYPE i, g_endtime TYPE i, g_tottime TYPE i. DATA: BEGIN OF gt_output OCCURS 0, bname LIKE usr02-bname, name_text LIKE adrp-name_text, agr_name LIKE agr_users-agr_name, text LIKE agr_texts-text, role_count TYPE i, END OF gt_output. TYPE-POOLS: slis. START-OF-SELECTION. GET RUN TIME FIELD g_begintime. ********** END NO CHANGE ********** SELECT * INTO TABLE gt_user FROM usr02 WHERE class > 'E'. SELECT * INTO TABLE gt_user_role FROM agr_users FOR ALL ENTRIES IN gt_user WHERE uname = gt_user-bname. PERFORM combine_tables. PERFORM get_addl_data. ********** DO NOT CHANGE THIS SECTION ********** GET RUN TIME FIELD g_endtime. g_tottime = ( g_endtime / 1000000 ) - ( g_begintime / 1000000 ). MESSAGE s398(00) WITH g_tottime. PERFORM output. ********** END NO CHANGE ********** *&---------------------------------------------------------------------* *& Form combine_tables *&---------------------------------------------------------------------* * Combine user and role tables *----------------------------------------------------------------------* FORM combine_tables. DATA: ls_usr21 TYPE usr21, ls_adrp TYPE adrp, ls_texts TYPE agr_texts. LOOP AT gt_user. * Get user name SELECT * INTO ls_usr21 FROM usr21 WHERE bname = gt_user-bname. SELECT * INTO ls_adrp FROM adrp WHERE persnumber = ls_usr21-persnumber. gt_output-name_text = ls_adrp-name_text. ENDSELECT. ENDSELECT. LOOP AT gt_user_role WHERE uname = gt_user-bname. * Only process roles that are currently active CHECK gt_user_role-from_dat <= sy-datum AND gt_user_role-to_dat >= sy-datum. * Get role text SELECT * INTO ls_texts FROM agr_texts WHERE agr_name = gt_output-agr_name AND spras = sy-langu AND line = 0. gt_output-text = ls_texts-text. ENDSELECT. gt_output-bname = gt_user-bname. gt_output-agr_name = gt_user_role-agr_name. APPEND gt_output. ENDLOOP. ENDLOOP. ENDFORM. " combine_tables *&---------------------------------------------------------------------* *& Form get_addl_data *&---------------------------------------------------------------------* * Get extra fields *----------------------------------------------------------------------* FORM get_addl_data. DATA: l_count TYPE i. * Count number of roles per user SORT gt_user_role BY uname. LOOP AT gt_user_role. ADD 1 TO l_count. AT END OF uname. LOOP AT gt_output WHERE bname = gt_user_role-uname. gt_output-role_count = l_count. MODIFY gt_output. CLEAR l_count. ENDLOOP. ENDAT. ENDLOOP. ENDFORM. " get_addl_data *&---------------------------------------------------------------------* *& Form output *&---------------------------------------------------------------------* * Output report *----------------------------------------------------------------------* FORM output. DATA: lt_fieldcat TYPE slis_t_fieldcat_alv, ls_fieldcat TYPE slis_fieldcat_alv, l_repid LIKE sy-repid, ls_layout TYPE slis_layout_alv, ls_variant TYPE disvariant. l_repid = sy-repid. CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE' EXPORTING i_program_name = l_repid i_internal_tabname = 'GT_OUTPUT' i_inclname = l_repid CHANGING ct_fieldcat = lt_fieldcat EXCEPTIONS inconsistent_interface = 1 program_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. ls_fieldcat-seltext_l = 'Role Count'. ls_fieldcat-seltext_m = 'Role Count'. ls_fieldcat-seltext_s = 'Role Count'. ls_fieldcat-reptext_ddic = 'Role Count'. MODIFY lt_fieldcat FROM ls_fieldcat TRANSPORTING seltext_l seltext_m seltext_s reptext_ddic WHERE fieldname = 'ROLE_COUNT'. ls_layout-zebra = 'X'. ls_layout-colwidth_optimize = 'X'. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING is_layout = ls_layout it_fieldcat = lt_fieldcat i_save = 'A' is_variant = ls_variant TABLES t_outtab = gt_output EXCEPTIONS program_error = 1 OTHERS = 2. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. ENDFORM. " output
What are the basic functions of database utility?
What is the difference between refresh and free statements?
How to read 5th record from Hash Internal Table?
What is the max no of match code id's that can be defined for one match code object? : abap data dictionary
