b.santos/abap-cheat-sheets
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove comments

Browse Source
This commit is contained in:
Dan
2023-01-05 17:27:09 +01:00
committed by GitHub
parent 58af51f4a0
commit 38e2a145b3
1 changed files with 3 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files

79
src/zcl_demo_abap_prog_flow_logic.clas.abap
View File

@@ -344,7 +344,7 @@ CLASS zcl_demo_abap_prog_flow_logic IMPLEMENTATION.
"CASE statements are used for case distinctions. If the content of an operand "CASE statements are used for case distinctions. If the content of an operand
"specified after WHEN matches the content specified after CASE, the statement "specified after WHEN matches the content specified after CASE, the statement
"block is executed. Constant values should be specified as operands. "block is executed. Constant values should be specified as operands.
"The example is basically the same as "The example is basically the same as above.
DATA(op) = '-'. DATA(op) = '-'.
@@ -1203,7 +1203,7 @@ CLASS zcl_demo_abap_prog_flow_logic IMPLEMENTATION.
"DATA(zero_division) = 1 / 0. "DATA(zero_division) = 1 / 0.
"DATA(nope) = str_table[ 12345 ]. "DATA(nope) = str_table[ 12345 ].
"Not handling predefined exception classes "Not handling self-defined exception classes
"Causes runtime error UNCAUGHT_EXCEPTION "Causes runtime error UNCAUGHT_EXCEPTION
"DATA(is_email_valid) = validate_email( email = `john.doe@email.c##` ). "DATA(is_email_valid) = validate_email( email = `john.doe@email.c##` ).
@@ -1226,26 +1226,16 @@ CLASS zcl_demo_abap_prog_flow_logic IMPLEMENTATION.
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
METHOD addition. METHOD addition.
res = num1 + num2. res = num1 + num2.
ENDMETHOD. ENDMETHOD.
METHOD calc. METHOD calc.
"purposely without TRY ENDTRY block for simple example
DATA calc_if TYPE string. DATA calc_if TYPE string.
DATA calc_case TYPE string. DATA calc_case TYPE string.
DATA calc_cond TYPE string. DATA calc_cond TYPE string.
DATA calc_switch TYPE string. DATA calc_switch TYPE string.
"DATA overall_results type string.
* IF operator = '+'
* OR operator = '-'
* OR operator = '*'
* OR operator = '/'.
"IF statements "IF statements
@@ -1266,28 +1256,8 @@ CLASS zcl_demo_abap_prog_flow_logic IMPLEMENTATION.
calc_if = |Operator { operator } not possible.|. calc_if = |Operator { operator } not possible.|.
ENDIF. ENDIF.
prep_calc_result( CHANGING res = calc_if ). prep_calc_result( CHANGING res = calc_if ).
* FIND PCRE `-$` IN calc_if. "trailing minus
* "negative number since it's string
* IF sy-subrc = 0.
* SHIFT calc_if BY 1 PLACES RIGHT CIRCULAR.
* ENDIF.
"add result to itab
* TYPES: BEGIN OF calc_results_struc,
* calculation TYPE string,
* result TYPE string,
* END OF calc_results_struc.
*
*data calc_result type table of calc_results_struc with empty key.
"overall_results = overall_results && `IF: ` && result && ` / `.
"CASE "CASE
CASE operator. CASE operator.
@@ -1310,23 +1280,10 @@ CLASS zcl_demo_abap_prog_flow_logic IMPLEMENTATION.
calc_case = |Check the operator { operator }.|. calc_case = |Check the operator { operator }.|.
ENDCASE. ENDCASE.
* FIND PCRE `-$` IN calc_case. "trailing minus
* "negative number since it's string
* IF sy-subrc = 0.
* SHIFT calc_case BY 1 PLACES RIGHT CIRCULAR.
* ENDIF.
prep_calc_result( CHANGING res = calc_case ). prep_calc_result( CHANGING res = calc_case ).
"overall_results = overall_results && `CASE: ` && result && ` / `.
"COND "COND
"message = COND #( ).
calc_cond = COND #( WHEN operator = '+' calc_cond = COND #( WHEN operator = '+'
THEN num1 + num2 THEN num1 + num2
WHEN operator = '-' WHEN operator = '-'
@@ -1340,15 +1297,6 @@ CLASS zcl_demo_abap_prog_flow_logic IMPLEMENTATION.
prep_calc_result( CHANGING res = calc_cond ). prep_calc_result( CHANGING res = calc_cond ).
* FIND PCRE `-$` IN calc_cond. "trailing minus
* "negative number since it's string
* IF sy-subrc = 0.
* SHIFT calc_cond BY 1 PLACES RIGHT CIRCULAR.
* ENDIF.
"overall_results = overall_results && `COND: ` && result && ` / `.
"SWITCH "SWITCH
calc_switch = SWITCH #( operator calc_switch = SWITCH #( operator
@@ -1360,17 +1308,6 @@ CLASS zcl_demo_abap_prog_flow_logic IMPLEMENTATION.
prep_calc_result( CHANGING res = calc_switch ). prep_calc_result( CHANGING res = calc_switch ).
* FIND PCRE `-$` IN calc_switch. "trailing minus
* "negative number since it's string
* IF sy-subrc = 0.
* SHIFT calc_switch BY 1 PLACES RIGHT CIRCULAR.
* ENDIF.
"overall_results = overall_results && `SWITCH: ` && result && ` / `.
res = VALUE #( calculation = |{ num1 } { operator } { num2 }| res = VALUE #( calculation = |{ num1 } { operator } { num2 }|
res_if = calc_if res_if = calc_if
res_case = calc_case res_case = calc_case
@@ -1378,11 +1315,6 @@ CLASS zcl_demo_abap_prog_flow_logic IMPLEMENTATION.
res_switch = calc_switch res_switch = calc_switch
). ).
* ELSE.
* result = |Hmmm... nothing was flagged in how_to_calc.|.
* ENDIF.
ENDMETHOD. ENDMETHOD.
@@ -1398,7 +1330,6 @@ CLASS zcl_demo_abap_prog_flow_logic IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD validate_email. METHOD validate_email.
IF matches( val = email IF matches( val = email
@@ -1409,13 +1340,11 @@ CLASS zcl_demo_abap_prog_flow_logic IMPLEMENTATION.
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
METHOD whats_my_user. METHOD whats_my_user.
IF get_name = abap_true. IF get_name = abap_true.
name = sy-uname. name = sy-uname.
ELSE. ELSE.
@@ -1432,10 +1361,8 @@ CLASS zcl_demo_abap_prog_flow_logic IMPLEMENTATION.
METHOD prep_calc_result. METHOD prep_calc_result.
"condense res no-gaps.
FIND PCRE `-$` IN res. "trailing minus FIND PCRE `-$` IN res. "trailing minus
"negative number since it's string
IF sy-subrc = 0. IF sy-subrc = 0.
SHIFT res BY 1 PLACES RIGHT CIRCULAR. SHIFT res BY 1 PLACES RIGHT CIRCULAR.
ENDIF. ENDIF.