diff --git a/abaplint.json b/abaplint.json index 8af6029..abb16ac 100644 --- a/abaplint.json +++ b/abaplint.json @@ -55,7 +55,7 @@ "slow_parameter_passing": true, "static_call_via_instance": true, "superfluous_value": true, - "unnecessary_chaining": false, + "unnecessary_chaining": true, "unnecessary_pragma": true, "unsecure_fae": true, "use_class_based_exceptions": true, diff --git a/src/integer/zcl_abappgp_binary_integer.clas.abap b/src/integer/zcl_abappgp_binary_integer.clas.abap index 45f86d7..da3f3eb 100644 --- a/src/integer/zcl_abappgp_binary_integer.clas.abap +++ b/src/integer/zcl_abappgp_binary_integer.clas.abap @@ -97,7 +97,7 @@ CLASS zcl_abappgp_binary_integer IMPLEMENTATION. METHOD constructor. - DATA: lo_int TYPE REF TO zcl_abappgp_integer. + DATA lo_int TYPE REF TO zcl_abappgp_integer. IF go_two IS INITIAL. CREATE OBJECT go_two @@ -131,7 +131,7 @@ CLASS zcl_abappgp_binary_integer IMPLEMENTATION. METHOD from_string. - DATA: lo_integer TYPE REF TO zcl_abappgp_integer. + DATA lo_integer TYPE REF TO zcl_abappgp_integer. lo_integer = zcl_abappgp_integer=>from_string( iv_string ). @@ -159,7 +159,7 @@ CLASS zcl_abappgp_binary_integer IMPLEMENTATION. METHOD mod_2. - DATA: lv_length TYPE i. + DATA lv_length TYPE i. lv_length = strlen( mv_data ) - 1. @@ -187,7 +187,7 @@ CLASS zcl_abappgp_binary_integer IMPLEMENTATION. METHOD shift_right. - DATA: lv_length TYPE i. + DATA lv_length TYPE i. ASSERT iv_times >= 1. diff --git a/src/integer/zcl_abappgp_binary_integer.clas.testclasses.abap b/src/integer/zcl_abappgp_binary_integer.clas.testclasses.abap index 7e48e6d..d680675 100644 --- a/src/integer/zcl_abappgp_binary_integer.clas.testclasses.abap +++ b/src/integer/zcl_abappgp_binary_integer.clas.testclasses.abap @@ -9,7 +9,7 @@ CLASS ltcl_and DEFINITION FOR TESTING and2 FOR TESTING, and3 FOR TESTING. - METHODS: + METHODS test IMPORTING iv_op1 TYPE string iv_op2 TYPE string RETURNING VALUE(rv_result) TYPE string. @@ -33,7 +33,7 @@ CLASS ltcl_and IMPLEMENTATION. METHOD and1. - DATA: lv_result TYPE string. + DATA lv_result TYPE string. lv_result = test( iv_op1 = '16' iv_op2 = '16' ). @@ -46,7 +46,7 @@ CLASS ltcl_and IMPLEMENTATION. METHOD and2. - DATA: lv_result TYPE string. + DATA lv_result TYPE string. lv_result = test( iv_op1 = '32' iv_op2 = '16' ). @@ -59,7 +59,7 @@ CLASS ltcl_and IMPLEMENTATION. METHOD and3. - DATA: lv_result TYPE string. + DATA lv_result TYPE string. lv_result = test( iv_op1 = '48' iv_op2 = '16' ). @@ -79,10 +79,10 @@ CLASS ltcl_mod DEFINITION FOR TESTING FINAL. PRIVATE SECTION. - METHODS: + METHODS mod1 FOR TESTING. - METHODS: + METHODS test IMPORTING iv_str TYPE string RETURNING VALUE(rv_result) TYPE i. @@ -92,7 +92,7 @@ CLASS ltcl_mod IMPLEMENTATION. METHOD test. - DATA: lo_binary TYPE REF TO zcl_abappgp_binary_integer. + DATA lo_binary TYPE REF TO zcl_abappgp_binary_integer. lo_binary = zcl_abappgp_binary_integer=>from_string( iv_str ). @@ -102,7 +102,7 @@ CLASS ltcl_mod IMPLEMENTATION. METHOD mod1. - DATA: lv_result TYPE i. + DATA lv_result TYPE i. lv_result = test( '3' ). @@ -121,10 +121,10 @@ CLASS ltcl_shift_right DEFINITION FOR TESTING FINAL. PRIVATE SECTION. - METHODS: + METHODS shift1 FOR TESTING. - METHODS: + METHODS test IMPORTING iv_str TYPE string RETURNING VALUE(rv_str) TYPE string. @@ -134,7 +134,7 @@ CLASS ltcl_shift_right IMPLEMENTATION. METHOD test. - DATA: lo_binary TYPE REF TO zcl_abappgp_binary_integer. + DATA lo_binary TYPE REF TO zcl_abappgp_binary_integer. lo_binary = zcl_abappgp_binary_integer=>from_string( iv_str ). @@ -145,7 +145,7 @@ CLASS ltcl_shift_right IMPLEMENTATION. METHOD shift1. - DATA: lv_result TYPE string. + DATA lv_result TYPE string. lv_result = test( '16' ). @@ -169,7 +169,7 @@ CLASS ltcl_identity DEFINITION FOR TESTING identity3 FOR TESTING, identity4 FOR TESTING. - METHODS: test IMPORTING iv_input TYPE string. + METHODS test IMPORTING iv_input TYPE string. ENDCLASS. "ltcl_Get @@ -177,7 +177,7 @@ CLASS ltcl_identity IMPLEMENTATION. METHOD test. - DATA: lo_binary TYPE REF TO zcl_abappgp_binary_integer. + DATA lo_binary TYPE REF TO zcl_abappgp_binary_integer. lo_binary = zcl_abappgp_binary_integer=>from_string( iv_input ). @@ -222,7 +222,7 @@ CLASS ltcl_to_binary_string DEFINITION FOR TESTING get7 FOR TESTING, get8 FOR TESTING. - METHODS: test IMPORTING iv_str TYPE string + METHODS test IMPORTING iv_str TYPE string RETURNING VALUE(rv_binary) TYPE string. ENDCLASS. "ltcl_Get @@ -231,7 +231,7 @@ CLASS ltcl_to_binary_string IMPLEMENTATION. METHOD test. - DATA: lo_binary TYPE REF TO zcl_abappgp_binary_integer. + DATA lo_binary TYPE REF TO zcl_abappgp_binary_integer. lo_binary = zcl_abappgp_binary_integer=>from_string( iv_str ). @@ -241,7 +241,7 @@ CLASS ltcl_to_binary_string IMPLEMENTATION. METHOD get1. - DATA: lv_binary TYPE string. + DATA lv_binary TYPE string. lv_binary = test( '16' ). @@ -253,7 +253,7 @@ CLASS ltcl_to_binary_string IMPLEMENTATION. METHOD get2. - DATA: lv_binary TYPE string. + DATA lv_binary TYPE string. lv_binary = test( '1234' ). @@ -265,7 +265,7 @@ CLASS ltcl_to_binary_string IMPLEMENTATION. METHOD get3. - DATA: lv_binary TYPE string. + DATA lv_binary TYPE string. lv_binary = test( '1' ). @@ -277,7 +277,7 @@ CLASS ltcl_to_binary_string IMPLEMENTATION. METHOD get4. - DATA: lv_binary TYPE string. + DATA lv_binary TYPE string. lv_binary = test( '8191' ). @@ -289,7 +289,7 @@ CLASS ltcl_to_binary_string IMPLEMENTATION. METHOD get5. - DATA: lv_binary TYPE string. + DATA lv_binary TYPE string. lv_binary = test( '8192' ). @@ -301,7 +301,7 @@ CLASS ltcl_to_binary_string IMPLEMENTATION. METHOD get6. - DATA: lv_binary TYPE string. + DATA lv_binary TYPE string. lv_binary = test( '8193' ). @@ -313,7 +313,7 @@ CLASS ltcl_to_binary_string IMPLEMENTATION. METHOD get7. - DATA: lv_binary TYPE string. + DATA lv_binary TYPE string. lv_binary = test( '9000' ). @@ -325,7 +325,7 @@ CLASS ltcl_to_binary_string IMPLEMENTATION. METHOD get8. - DATA: lv_binary TYPE string. + DATA lv_binary TYPE string. lv_binary = test( '10000' ). diff --git a/src/integer/zcl_abappgp_integer.clas.abap b/src/integer/zcl_abappgp_integer.clas.abap index a90413b..0912e85 100644 --- a/src/integer/zcl_abappgp_integer.clas.abap +++ b/src/integer/zcl_abappgp_integer.clas.abap @@ -195,7 +195,7 @@ CLASS zcl_abappgp_integer DEFINITION PROTECTED SECTION. TYPES ty_split TYPE i . - TYPES: + TYPES ty_split_tt TYPE STANDARD TABLE OF ty_split WITH DEFAULT KEY . DATA mv_negative TYPE abap_bool . @@ -413,7 +413,7 @@ CLASS ZCL_ABAPPGP_INTEGER IMPLEMENTATION. METHOD divide_by_10. - DATA: lv_int TYPE i. + DATA lv_int TYPE i. DO iv_times DIV gv_length TIMES. @@ -716,7 +716,7 @@ CLASS ZCL_ABAPPGP_INTEGER IMPLEMENTATION. METHOD from_high_length. - DATA: lv_str TYPE string. + DATA lv_str TYPE string. ASSERT iv_count >= 1. @@ -732,7 +732,7 @@ CLASS ZCL_ABAPPGP_INTEGER IMPLEMENTATION. METHOD from_low_length. - DATA: lv_str TYPE string. + DATA lv_str TYPE string. ASSERT iv_count >= 1. @@ -750,7 +750,7 @@ CLASS ZCL_ABAPPGP_INTEGER IMPLEMENTATION. METHOD from_string. - DATA: lv_str TYPE string. + DATA lv_str TYPE string. lv_str = iv_integer. @@ -810,7 +810,7 @@ CLASS ZCL_ABAPPGP_INTEGER IMPLEMENTATION. METHOD is_eq. - DATA: lv_index TYPE i. + DATA lv_index TYPE i. FIELD-SYMBOLS: LIKE LINE OF mt_split, LIKE LINE OF mt_split. @@ -945,7 +945,7 @@ CLASS ZCL_ABAPPGP_INTEGER IMPLEMENTATION. METHOD is_one. - DATA: lv_value LIKE LINE OF mt_split. + DATA lv_value LIKE LINE OF mt_split. IF lines( mt_split ) <> 1 OR mv_negative = abap_true. @@ -970,7 +970,7 @@ CLASS ZCL_ABAPPGP_INTEGER IMPLEMENTATION. METHOD is_two. - FIELD-SYMBOLS: LIKE LINE OF mt_split. + FIELD-SYMBOLS LIKE LINE OF mt_split. IF lines( mt_split ) <> 1 OR mv_negative = abap_true. @@ -986,7 +986,7 @@ CLASS ZCL_ABAPPGP_INTEGER IMPLEMENTATION. METHOD is_zero. - DATA: lv_value TYPE ty_split. + DATA lv_value TYPE ty_split. IF lines( mt_split ) <> 1. @@ -1135,7 +1135,7 @@ CLASS ZCL_ABAPPGP_INTEGER IMPLEMENTATION. METHOD mod_2. - DATA: lv_value TYPE ty_split. + DATA lv_value TYPE ty_split. * only the first digit is relevant for calculating MOD2 READ TABLE mt_split INDEX 1 INTO lv_value. "#EC CI_SUBRC @@ -1280,7 +1280,7 @@ CLASS ZCL_ABAPPGP_INTEGER IMPLEMENTATION. METHOD multiply_10. - DATA: lv_int TYPE i. + DATA lv_int TYPE i. ro_result = me. @@ -1314,7 +1314,7 @@ CLASS ZCL_ABAPPGP_INTEGER IMPLEMENTATION. METHOD multiply_int. - DATA: lv_str TYPE string. + DATA lv_str TYPE string. ASSERT iv_integer >= 0. @@ -1484,7 +1484,7 @@ CLASS ZCL_ABAPPGP_INTEGER IMPLEMENTATION. METHOD split_at. - DATA: lv_split TYPE ty_split. + DATA lv_split TYPE ty_split. CREATE OBJECT eo_low. @@ -1613,7 +1613,7 @@ CLASS ZCL_ABAPPGP_INTEGER IMPLEMENTATION. METHOD to_string. - DATA: lv_int TYPE string. + DATA lv_int TYPE string. LOOP AT mt_split INTO lv_int. CONDENSE lv_int. diff --git a/src/integer/zcl_abappgp_integer.clas.testclasses.abap b/src/integer/zcl_abappgp_integer.clas.testclasses.abap index 468d4a7..8c2f0c2 100644 --- a/src/integer/zcl_abappgp_integer.clas.testclasses.abap +++ b/src/integer/zcl_abappgp_integer.clas.testclasses.abap @@ -5,7 +5,7 @@ CLASS ltcl_from_hex DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FI METHODS test02 FOR TESTING RAISING cx_static_check. METHODS test03 FOR TESTING RAISING cx_static_check. - METHODS: + METHODS test IMPORTING iv_exp TYPE string iv_hex TYPE xstring. @@ -55,7 +55,7 @@ CLASS ltcl_to_hex DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINA test01 FOR TESTING, test02 FOR TESTING. - METHODS: + METHODS test IMPORTING iv_int TYPE string iv_exp TYPE xstring. @@ -101,7 +101,7 @@ CLASS ltcl_extended_gcd DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLES test1 FOR TESTING, test2 FOR TESTING. - METHODS: + METHODS test IMPORTING iv_a TYPE string iv_b TYPE string iv_coeff1 TYPE string @@ -192,7 +192,7 @@ CLASS ltcl_gcd DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. gcd3 FOR TESTING, gcd4 FOR TESTING. - METHODS: + METHODS test IMPORTING iv_a TYPE string iv_b TYPE string iv_exp TYPE string. @@ -253,7 +253,7 @@ CLASS ltcl_mod_inverse DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS mod_inverse2 FOR TESTING, mod_inverse3 FOR TESTING. - METHODS: + METHODS test IMPORTING iv_value TYPE string iv_mod TYPE string RETURNING VALUE(rv_result) TYPE string. @@ -277,7 +277,7 @@ CLASS ltcl_mod_inverse IMPLEMENTATION. METHOD mod_inverse1. - DATA: lv_result TYPE string. + DATA lv_result TYPE string. lv_result = test( iv_value = '42' iv_mod = '2017' ). @@ -290,7 +290,7 @@ CLASS ltcl_mod_inverse IMPLEMENTATION. METHOD mod_inverse2. - DATA: lv_result TYPE string. + DATA lv_result TYPE string. lv_result = test( iv_value = '40' iv_mod = '1' ). @@ -303,7 +303,7 @@ CLASS ltcl_mod_inverse IMPLEMENTATION. METHOD mod_inverse3. - DATA: lv_result TYPE string. + DATA lv_result TYPE string. lv_result = test( iv_value = '256' iv_mod = '25' ). @@ -325,7 +325,7 @@ CLASS ltcl_divide_by_2 DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS divide3 FOR TESTING, divide4 FOR TESTING. - METHODS: + METHODS test IMPORTING iv_value TYPE string RETURNING VALUE(ro_int) TYPE REF TO zcl_abappgp_integer. @@ -342,7 +342,7 @@ CLASS ltcl_divide_by_2 IMPLEMENTATION. METHOD divide1. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( '1' ). @@ -355,7 +355,7 @@ CLASS ltcl_divide_by_2 IMPLEMENTATION. METHOD divide2. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( '2' ). @@ -368,7 +368,7 @@ CLASS ltcl_divide_by_2 IMPLEMENTATION. METHOD divide3. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( '22' ). @@ -381,7 +381,7 @@ CLASS ltcl_divide_by_2 IMPLEMENTATION. METHOD divide4. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( '111222333' ). @@ -403,7 +403,7 @@ CLASS ltcl_modular_pow DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS modular_pow3 FOR TESTING, modular_pow4 FOR TESTING. - METHODS: + METHODS test IMPORTING iv_base TYPE string iv_exp TYPE string iv_mod TYPE string @@ -444,7 +444,7 @@ CLASS ltcl_modular_pow IMPLEMENTATION. METHOD modular_pow1. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_base = '1' @@ -459,7 +459,7 @@ CLASS ltcl_modular_pow IMPLEMENTATION. METHOD modular_pow2. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_base = '4' @@ -474,7 +474,7 @@ CLASS ltcl_modular_pow IMPLEMENTATION. METHOD modular_pow3. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_base = '3' @@ -489,7 +489,7 @@ CLASS ltcl_modular_pow IMPLEMENTATION. METHOD modular_pow4. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_base = '4578' @@ -515,7 +515,7 @@ CLASS ltcl_mod DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. mod5 FOR TESTING, mod6 FOR TESTING. - METHODS: + METHODS test IMPORTING iv_op1 TYPE string iv_op2 TYPE string RETURNING VALUE(ro_int) TYPE REF TO zcl_abappgp_integer. @@ -526,7 +526,7 @@ CLASS ltcl_mod IMPLEMENTATION. METHOD test. - DATA: lo_var2 TYPE REF TO zcl_abappgp_integer. + DATA lo_var2 TYPE REF TO zcl_abappgp_integer. ro_int = zcl_abappgp_integer=>from_string( iv_op1 ). @@ -538,7 +538,7 @@ CLASS ltcl_mod IMPLEMENTATION. METHOD mod1. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '1' @@ -552,7 +552,7 @@ CLASS ltcl_mod IMPLEMENTATION. METHOD mod2. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '5' @@ -566,7 +566,7 @@ CLASS ltcl_mod IMPLEMENTATION. METHOD mod3. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '9999' @@ -580,7 +580,7 @@ CLASS ltcl_mod IMPLEMENTATION. METHOD mod4. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '10009' @@ -594,7 +594,7 @@ CLASS ltcl_mod IMPLEMENTATION. METHOD mod5. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '10' @@ -608,7 +608,7 @@ CLASS ltcl_mod IMPLEMENTATION. METHOD mod6. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '30558784' @@ -642,7 +642,7 @@ CLASS ltcl_divide DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINA divide14 FOR TESTING, divide_generic FOR TESTING. - METHODS: + METHODS test IMPORTING iv_op1 TYPE string iv_op2 TYPE string RETURNING VALUE(ro_int) TYPE REF TO zcl_abappgp_integer. @@ -653,7 +653,7 @@ CLASS ltcl_divide IMPLEMENTATION. METHOD test. - DATA: lo_var2 TYPE REF TO zcl_abappgp_integer. + DATA lo_var2 TYPE REF TO zcl_abappgp_integer. ro_int = zcl_abappgp_integer=>from_string( iv_op1 ). lo_var2 = zcl_abappgp_integer=>from_string( iv_op2 ). @@ -664,7 +664,7 @@ CLASS ltcl_divide IMPLEMENTATION. METHOD divide1. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '1' @@ -678,7 +678,7 @@ CLASS ltcl_divide IMPLEMENTATION. METHOD divide2. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '123456' @@ -692,7 +692,7 @@ CLASS ltcl_divide IMPLEMENTATION. METHOD divide3. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '5' @@ -706,7 +706,7 @@ CLASS ltcl_divide IMPLEMENTATION. METHOD divide4. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '555555' @@ -720,7 +720,7 @@ CLASS ltcl_divide IMPLEMENTATION. METHOD divide5. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '5' @@ -734,7 +734,7 @@ CLASS ltcl_divide IMPLEMENTATION. METHOD divide6. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '1' @@ -748,7 +748,7 @@ CLASS ltcl_divide IMPLEMENTATION. METHOD divide7. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '30558784' @@ -762,7 +762,7 @@ CLASS ltcl_divide IMPLEMENTATION. METHOD divide8. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '30558784' @@ -776,7 +776,7 @@ CLASS ltcl_divide IMPLEMENTATION. METHOD divide9. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '1000' @@ -790,7 +790,7 @@ CLASS ltcl_divide IMPLEMENTATION. METHOD divide10. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '5827800983498960781124740512078744256512' @@ -804,7 +804,7 @@ CLASS ltcl_divide IMPLEMENTATION. METHOD divide11. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '7382888' @@ -818,7 +818,7 @@ CLASS ltcl_divide IMPLEMENTATION. METHOD divide12. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '91' @@ -832,7 +832,7 @@ CLASS ltcl_divide IMPLEMENTATION. METHOD divide13. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '1000' @@ -846,7 +846,7 @@ CLASS ltcl_divide IMPLEMENTATION. METHOD divide14. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '1000000' @@ -895,7 +895,7 @@ CLASS ltcl_eq DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. eq1 FOR TESTING, eq2 FOR TESTING. - METHODS: + METHODS test IMPORTING iv_op1 TYPE string iv_op2 TYPE string RETURNING VALUE(rv_bool) TYPE abap_bool. @@ -919,7 +919,7 @@ CLASS ltcl_eq IMPLEMENTATION. METHOD eq1. - DATA: lv_eq TYPE abap_bool. + DATA lv_eq TYPE abap_bool. lv_eq = test( iv_op1 = '7382888' @@ -933,7 +933,7 @@ CLASS ltcl_eq IMPLEMENTATION. METHOD eq2. - DATA: lv_eq TYPE abap_bool. + DATA lv_eq TYPE abap_bool. lv_eq = test( iv_op1 = '1112888' @@ -950,10 +950,10 @@ ENDCLASS. CLASS ltcl_ge DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: + METHODS ge1 FOR TESTING. - METHODS: + METHODS test IMPORTING iv_op1 TYPE string iv_op2 TYPE string RETURNING VALUE(rv_bool) TYPE abap_bool. @@ -977,7 +977,7 @@ CLASS ltcl_ge IMPLEMENTATION. METHOD ge1. - DATA: lv_ge TYPE abap_bool. + DATA lv_ge TYPE abap_bool. lv_ge = test( iv_op1 = '7382888' @@ -1005,7 +1005,7 @@ CLASS ltcl_gt DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. gt8 FOR TESTING, gt9 FOR TESTING. - METHODS: + METHODS test IMPORTING iv_op1 TYPE string iv_op2 TYPE string RETURNING VALUE(rv_bool) TYPE abap_bool. @@ -1029,7 +1029,7 @@ CLASS ltcl_gt IMPLEMENTATION. METHOD gt1. - DATA: lv_gt TYPE abap_bool. + DATA lv_gt TYPE abap_bool. lv_gt = test( iv_op1 = '0' @@ -1043,7 +1043,7 @@ CLASS ltcl_gt IMPLEMENTATION. METHOD gt2. - DATA: lv_gt TYPE abap_bool. + DATA lv_gt TYPE abap_bool. lv_gt = test( iv_op1 = '1' @@ -1057,7 +1057,7 @@ CLASS ltcl_gt IMPLEMENTATION. METHOD gt3. - DATA: lv_gt TYPE abap_bool. + DATA lv_gt TYPE abap_bool. lv_gt = test( iv_op1 = '10000' @@ -1071,7 +1071,7 @@ CLASS ltcl_gt IMPLEMENTATION. METHOD gt4. - DATA: lv_gt TYPE abap_bool. + DATA lv_gt TYPE abap_bool. lv_gt = test( iv_op1 = '10000' @@ -1085,7 +1085,7 @@ CLASS ltcl_gt IMPLEMENTATION. METHOD gt5. - DATA: lv_gt TYPE abap_bool. + DATA lv_gt TYPE abap_bool. lv_gt = test( iv_op1 = '30514335' @@ -1099,7 +1099,7 @@ CLASS ltcl_gt IMPLEMENTATION. METHOD gt6. - DATA: lv_gt TYPE abap_bool. + DATA lv_gt TYPE abap_bool. lv_gt = test( iv_op1 = '-30514335' @@ -1113,7 +1113,7 @@ CLASS ltcl_gt IMPLEMENTATION. METHOD gt7. - DATA: lv_gt TYPE abap_bool. + DATA lv_gt TYPE abap_bool. lv_gt = test( iv_op1 = '-44449' @@ -1127,7 +1127,7 @@ CLASS ltcl_gt IMPLEMENTATION. METHOD gt8. - DATA: lv_gt TYPE abap_bool. + DATA lv_gt TYPE abap_bool. lv_gt = test( iv_op1 = '-30514335' @@ -1141,7 +1141,7 @@ CLASS ltcl_gt IMPLEMENTATION. METHOD gt9. - DATA: lv_gt TYPE abap_bool. + DATA lv_gt TYPE abap_bool. lv_gt = test( iv_op1 = '7382888' @@ -1166,7 +1166,7 @@ CLASS ltcl_power DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL power5 FOR TESTING, power6 FOR TESTING. - METHODS: + METHODS test IMPORTING iv_op1 TYPE string iv_op2 TYPE string RETURNING VALUE(ro_int) TYPE REF TO zcl_abappgp_integer. @@ -1177,7 +1177,7 @@ CLASS ltcl_power IMPLEMENTATION. METHOD test. - DATA: lo_var2 TYPE REF TO zcl_abappgp_integer. + DATA lo_var2 TYPE REF TO zcl_abappgp_integer. ro_int = zcl_abappgp_integer=>from_string( iv_op1 ). @@ -1189,7 +1189,7 @@ CLASS ltcl_power IMPLEMENTATION. METHOD power1. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '0' @@ -1203,7 +1203,7 @@ CLASS ltcl_power IMPLEMENTATION. METHOD power2. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '1' @@ -1217,7 +1217,7 @@ CLASS ltcl_power IMPLEMENTATION. METHOD power3. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '100' @@ -1231,7 +1231,7 @@ CLASS ltcl_power IMPLEMENTATION. METHOD power4. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '100' @@ -1245,7 +1245,7 @@ CLASS ltcl_power IMPLEMENTATION. METHOD power5. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '99' @@ -1259,7 +1259,7 @@ CLASS ltcl_power IMPLEMENTATION. METHOD power6. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '99' @@ -1281,7 +1281,7 @@ CLASS ltcl_multiply_10 DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS multiply_10_2 FOR TESTING, multiply_10_3 FOR TESTING. - METHODS: + METHODS test IMPORTING iv_op1 TYPE string iv_op2 TYPE i iv_exp TYPE string. @@ -1292,7 +1292,7 @@ CLASS ltcl_multiply_10 IMPLEMENTATION. METHOD test. - DATA: lo_var1 TYPE REF TO zcl_abappgp_integer. + DATA lo_var1 TYPE REF TO zcl_abappgp_integer. lo_var1 = zcl_abappgp_integer=>from_string( iv_op1 ). @@ -1343,7 +1343,7 @@ CLASS ltcl_divide_knuth DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLES knuth14 FOR TESTING, knuth15 FOR TESTING. - METHODS: + METHODS test IMPORTING iv_op1 TYPE string iv_op2 TYPE string iv_exp TYPE string. @@ -1473,7 +1473,7 @@ CLASS ltcl_multiply_karatsuba DEFINITION FOR TESTING karatsuba7 FOR TESTING, karatsuba8 FOR TESTING. - METHODS: + METHODS test IMPORTING iv_op1 TYPE string iv_op2 TYPE string iv_exp TYPE string. @@ -1568,7 +1568,7 @@ CLASS ltcl_multiply DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FI multiply14 FOR TESTING, multiply15 FOR TESTING. - METHODS: + METHODS test IMPORTING iv_op1 TYPE string iv_op2 TYPE string iv_exp TYPE string. @@ -1711,7 +1711,7 @@ CLASS ltcl_subtract DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FI subtract11 FOR TESTING, subtract12 FOR TESTING. - METHODS: + METHODS test IMPORTING iv_op1 TYPE string iv_op2 TYPE string RETURNING VALUE(ro_int) TYPE REF TO zcl_abappgp_integer. @@ -1722,7 +1722,7 @@ CLASS ltcl_subtract IMPLEMENTATION. METHOD test. - DATA: lo_var2 TYPE REF TO zcl_abappgp_integer. + DATA lo_var2 TYPE REF TO zcl_abappgp_integer. ro_int = zcl_abappgp_integer=>from_string( iv_op1 ). @@ -1734,7 +1734,7 @@ CLASS ltcl_subtract IMPLEMENTATION. METHOD subtract1. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '1' @@ -1748,7 +1748,7 @@ CLASS ltcl_subtract IMPLEMENTATION. METHOD subtract2. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '0' @@ -1762,7 +1762,7 @@ CLASS ltcl_subtract IMPLEMENTATION. METHOD subtract3. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '10' @@ -1776,7 +1776,7 @@ CLASS ltcl_subtract IMPLEMENTATION. METHOD subtract4. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '10000' @@ -1790,7 +1790,7 @@ CLASS ltcl_subtract IMPLEMENTATION. METHOD subtract5. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '10000' @@ -1804,7 +1804,7 @@ CLASS ltcl_subtract IMPLEMENTATION. METHOD subtract6. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '5' @@ -1818,7 +1818,7 @@ CLASS ltcl_subtract IMPLEMENTATION. METHOD subtract7. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '-5' @@ -1832,7 +1832,7 @@ CLASS ltcl_subtract IMPLEMENTATION. METHOD subtract8. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '5' @@ -1846,7 +1846,7 @@ CLASS ltcl_subtract IMPLEMENTATION. METHOD subtract9. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '-5' @@ -1860,7 +1860,7 @@ CLASS ltcl_subtract IMPLEMENTATION. METHOD subtract10. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '5' @@ -1874,7 +1874,7 @@ CLASS ltcl_subtract IMPLEMENTATION. METHOD subtract11. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '-3' @@ -1888,7 +1888,7 @@ CLASS ltcl_subtract IMPLEMENTATION. METHOD subtract12. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '3' @@ -1917,7 +1917,7 @@ CLASS ltcl_add DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. add9 FOR TESTING, add10 FOR TESTING. - METHODS: + METHODS test IMPORTING iv_op1 TYPE string iv_op2 TYPE string RETURNING VALUE(ro_int) TYPE REF TO zcl_abappgp_integer. @@ -1928,7 +1928,7 @@ CLASS ltcl_add IMPLEMENTATION. METHOD test. - DATA: lo_var2 TYPE REF TO zcl_abappgp_integer. + DATA lo_var2 TYPE REF TO zcl_abappgp_integer. ro_int = zcl_abappgp_integer=>from_string( iv_op1 ). @@ -1940,7 +1940,7 @@ CLASS ltcl_add IMPLEMENTATION. METHOD add1. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '1' @@ -1954,7 +1954,7 @@ CLASS ltcl_add IMPLEMENTATION. METHOD add2. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '1' @@ -1968,7 +1968,7 @@ CLASS ltcl_add IMPLEMENTATION. METHOD add3. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '1111' @@ -1982,7 +1982,7 @@ CLASS ltcl_add IMPLEMENTATION. METHOD add4. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '111111' @@ -1996,7 +1996,7 @@ CLASS ltcl_add IMPLEMENTATION. METHOD add5. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '1111' @@ -2010,7 +2010,7 @@ CLASS ltcl_add IMPLEMENTATION. METHOD add6. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '1' @@ -2024,7 +2024,7 @@ CLASS ltcl_add IMPLEMENTATION. METHOD add7. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '99980001' @@ -2038,7 +2038,7 @@ CLASS ltcl_add IMPLEMENTATION. METHOD add8. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '-5' @@ -2052,7 +2052,7 @@ CLASS ltcl_add IMPLEMENTATION. METHOD add9. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '-5' @@ -2066,7 +2066,7 @@ CLASS ltcl_add IMPLEMENTATION. METHOD add10. - DATA: lo_res TYPE REF TO zcl_abappgp_integer. + DATA lo_res TYPE REF TO zcl_abappgp_integer. lo_res = test( iv_op1 = '10' @@ -2093,7 +2093,7 @@ CLASS ltcl_identity DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FI id6 FOR TESTING, id7 FOR TESTING. - METHODS: test IMPORTING iv_string TYPE string. + METHODS test IMPORTING iv_string TYPE string. ENDCLASS. "ltcl_Add diff --git a/src/integer/zcl_abappgp_integer2.clas.abap b/src/integer/zcl_abappgp_integer2.clas.abap index b16ff2e..714da9f 100644 --- a/src/integer/zcl_abappgp_integer2.clas.abap +++ b/src/integer/zcl_abappgp_integer2.clas.abap @@ -88,14 +88,14 @@ CLASS zcl_abappgp_integer2 DEFINITION PROTECTED SECTION. TYPES ty_split TYPE i . - TYPES: + TYPES ty_split_tt TYPE STANDARD TABLE OF ty_split WITH DEFAULT KEY . DATA mt_split TYPE ty_split_tt . CLASS-DATA gv_max TYPE i VALUE 8192. "#EC NOTEXT . . . " . CLASS-DATA gv_bits TYPE i VALUE 13. "#EC NOTEXT . . . " . CLASS-DATA go_max TYPE REF TO zcl_abappgp_integer . - CLASS-DATA: + CLASS-DATA gt_powers TYPE STANDARD TABLE OF REF TO zcl_abappgp_integer WITH DEFAULT KEY . CLASS-DATA go_two TYPE REF TO zcl_abappgp_integer2 . @@ -424,7 +424,7 @@ CLASS ZCL_ABAPPGP_INTEGER2 IMPLEMENTATION. METHOD is_one. - DATA: lv_split LIKE LINE OF mt_split. + DATA lv_split LIKE LINE OF mt_split. rv_bool = abap_false. @@ -439,7 +439,7 @@ CLASS ZCL_ABAPPGP_INTEGER2 IMPLEMENTATION. METHOD is_zero. - DATA: lv_split LIKE LINE OF mt_split. + DATA lv_split LIKE LINE OF mt_split. rv_bool = abap_false. @@ -639,7 +639,7 @@ CLASS ZCL_ABAPPGP_INTEGER2 IMPLEMENTATION. METHOD split_at. - DATA: lv_split TYPE ty_split. + DATA lv_split TYPE ty_split. CREATE OBJECT eo_low. diff --git a/src/integer/zcl_abappgp_integer2.clas.testclasses.abap b/src/integer/zcl_abappgp_integer2.clas.testclasses.abap index 629e35e..f1d95fa 100644 --- a/src/integer/zcl_abappgp_integer2.clas.testclasses.abap +++ b/src/integer/zcl_abappgp_integer2.clas.testclasses.abap @@ -7,7 +7,7 @@ CLASS ltcl_shift_left DEFINITION FOR TESTING shift2 FOR TESTING, shift3 FOR TESTING. - METHODS: + METHODS test IMPORTING iv_str TYPE string iv_exp TYPE string iv_times TYPE i DEFAULT 1. @@ -18,7 +18,7 @@ CLASS ltcl_shift_left IMPLEMENTATION. METHOD test. - DATA: lv_result TYPE string. + DATA lv_result TYPE string. lv_result = zcl_abappgp_integer2=>from_string( iv_str )->shift_left( iv_times )->to_string( ). @@ -57,7 +57,7 @@ CLASS ltcl_shift_right DEFINITION FOR TESTING shift4 FOR TESTING, shift5 FOR TESTING. - METHODS: + METHODS test IMPORTING iv_str TYPE string iv_exp TYPE string iv_times TYPE i DEFAULT 1. @@ -68,7 +68,7 @@ CLASS ltcl_shift_right IMPLEMENTATION. METHOD test. - DATA: lv_result TYPE string. + DATA lv_result TYPE string. lv_result = zcl_abappgp_integer2=>from_string( iv_str )->shift_right( iv_times )->to_string( ). @@ -118,7 +118,7 @@ CLASS ltcl_subtract DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FI subtract4 FOR TESTING, subtract5 FOR TESTING. - METHODS: + METHODS test IMPORTING iv_op1 TYPE string iv_op2 TYPE string RETURNING VALUE(ro_int) TYPE REF TO zcl_abappgp_integer2. @@ -129,7 +129,7 @@ CLASS ltcl_subtract IMPLEMENTATION. METHOD test. - DATA: lo_var2 TYPE REF TO zcl_abappgp_integer2. + DATA lo_var2 TYPE REF TO zcl_abappgp_integer2. ro_int = zcl_abappgp_integer2=>from_string( iv_op1 ). @@ -141,7 +141,7 @@ CLASS ltcl_subtract IMPLEMENTATION. METHOD subtract1. - DATA: lo_res TYPE REF TO zcl_abappgp_integer2. + DATA lo_res TYPE REF TO zcl_abappgp_integer2. lo_res = test( iv_op1 = '1' @@ -155,7 +155,7 @@ CLASS ltcl_subtract IMPLEMENTATION. METHOD subtract2. - DATA: lo_res TYPE REF TO zcl_abappgp_integer2. + DATA lo_res TYPE REF TO zcl_abappgp_integer2. lo_res = test( iv_op1 = '0' @@ -169,7 +169,7 @@ CLASS ltcl_subtract IMPLEMENTATION. METHOD subtract3. - DATA: lo_res TYPE REF TO zcl_abappgp_integer2. + DATA lo_res TYPE REF TO zcl_abappgp_integer2. lo_res = test( iv_op1 = '10' @@ -183,7 +183,7 @@ CLASS ltcl_subtract IMPLEMENTATION. METHOD subtract4. - DATA: lo_res TYPE REF TO zcl_abappgp_integer2. + DATA lo_res TYPE REF TO zcl_abappgp_integer2. lo_res = test( iv_op1 = '10000' @@ -197,7 +197,7 @@ CLASS ltcl_subtract IMPLEMENTATION. METHOD subtract5. - DATA: lo_res TYPE REF TO zcl_abappgp_integer2. + DATA lo_res TYPE REF TO zcl_abappgp_integer2. lo_res = test( iv_op1 = '10000' @@ -221,7 +221,7 @@ CLASS ltcl_gt DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. gt4 FOR TESTING, gt5 FOR TESTING. - METHODS: + METHODS test IMPORTING iv_op1 TYPE string iv_op2 TYPE string RETURNING VALUE(rv_bool) TYPE abap_bool. @@ -245,7 +245,7 @@ CLASS ltcl_gt IMPLEMENTATION. METHOD gt1. - DATA: lv_gt TYPE abap_bool. + DATA lv_gt TYPE abap_bool. lv_gt = test( iv_op1 = '0' @@ -259,7 +259,7 @@ CLASS ltcl_gt IMPLEMENTATION. METHOD gt2. - DATA: lv_gt TYPE abap_bool. + DATA lv_gt TYPE abap_bool. lv_gt = test( iv_op1 = '1' @@ -273,7 +273,7 @@ CLASS ltcl_gt IMPLEMENTATION. METHOD gt3. - DATA: lv_gt TYPE abap_bool. + DATA lv_gt TYPE abap_bool. lv_gt = test( iv_op1 = '10000' @@ -287,7 +287,7 @@ CLASS ltcl_gt IMPLEMENTATION. METHOD gt4. - DATA: lv_gt TYPE abap_bool. + DATA lv_gt TYPE abap_bool. lv_gt = test( iv_op1 = '10000' @@ -301,7 +301,7 @@ CLASS ltcl_gt IMPLEMENTATION. METHOD gt5. - DATA: lv_gt TYPE abap_bool. + DATA lv_gt TYPE abap_bool. lv_gt = test( iv_op1 = '30514335' @@ -333,7 +333,7 @@ CLASS ltcl_multiply DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FI multiply14 FOR TESTING, multiply15 FOR TESTING. - METHODS: + METHODS test IMPORTING iv_op1 TYPE string iv_op2 TYPE string RETURNING VALUE(ro_int) TYPE REF TO zcl_abappgp_integer2. @@ -344,7 +344,7 @@ CLASS ltcl_multiply IMPLEMENTATION. METHOD test. - DATA: lo_var2 TYPE REF TO zcl_abappgp_integer2. + DATA lo_var2 TYPE REF TO zcl_abappgp_integer2. ro_int = zcl_abappgp_integer2=>from_string( iv_op1 ). @@ -356,7 +356,7 @@ CLASS ltcl_multiply IMPLEMENTATION. METHOD multiply1. - DATA: lo_res TYPE REF TO zcl_abappgp_integer2. + DATA lo_res TYPE REF TO zcl_abappgp_integer2. lo_res = test( iv_op1 = '1' @@ -370,7 +370,7 @@ CLASS ltcl_multiply IMPLEMENTATION. METHOD multiply2. - DATA: lo_res TYPE REF TO zcl_abappgp_integer2. + DATA lo_res TYPE REF TO zcl_abappgp_integer2. lo_res = test( iv_op1 = '1' @@ -384,7 +384,7 @@ CLASS ltcl_multiply IMPLEMENTATION. METHOD multiply3. - DATA: lo_res TYPE REF TO zcl_abappgp_integer2. + DATA lo_res TYPE REF TO zcl_abappgp_integer2. lo_res = test( iv_op1 = '0' @@ -398,7 +398,7 @@ CLASS ltcl_multiply IMPLEMENTATION. METHOD multiply4. - DATA: lo_res TYPE REF TO zcl_abappgp_integer2. + DATA lo_res TYPE REF TO zcl_abappgp_integer2. lo_res = test( iv_op1 = '2' @@ -412,7 +412,7 @@ CLASS ltcl_multiply IMPLEMENTATION. METHOD multiply5. - DATA: lo_res TYPE REF TO zcl_abappgp_integer2. + DATA lo_res TYPE REF TO zcl_abappgp_integer2. lo_res = test( iv_op1 = '1111' @@ -426,7 +426,7 @@ CLASS ltcl_multiply IMPLEMENTATION. METHOD multiply6. - DATA: lo_res TYPE REF TO zcl_abappgp_integer2. + DATA lo_res TYPE REF TO zcl_abappgp_integer2. lo_res = test( iv_op1 = '9999' @@ -440,7 +440,7 @@ CLASS ltcl_multiply IMPLEMENTATION. METHOD multiply7. - DATA: lo_res TYPE REF TO zcl_abappgp_integer2. + DATA lo_res TYPE REF TO zcl_abappgp_integer2. lo_res = test( iv_op1 = '500' iv_op2 = '50000' ). @@ -453,7 +453,7 @@ CLASS ltcl_multiply IMPLEMENTATION. METHOD multiply8. - DATA: lo_res TYPE REF TO zcl_abappgp_integer2. + DATA lo_res TYPE REF TO zcl_abappgp_integer2. lo_res = test( iv_op1 = '30558784' iv_op2 = '44449' ). @@ -466,7 +466,7 @@ CLASS ltcl_multiply IMPLEMENTATION. METHOD multiply9. - DATA: lo_res TYPE REF TO zcl_abappgp_integer2. + DATA lo_res TYPE REF TO zcl_abappgp_integer2. lo_res = test( iv_op1 = '100000' iv_op2 = '0' ). @@ -479,7 +479,7 @@ CLASS ltcl_multiply IMPLEMENTATION. METHOD multiply10. - DATA: lo_res TYPE REF TO zcl_abappgp_integer2. + DATA lo_res TYPE REF TO zcl_abappgp_integer2. lo_res = test( iv_op1 = '7777777777' iv_op2 = '6666666666' ). @@ -493,7 +493,7 @@ CLASS ltcl_multiply IMPLEMENTATION. METHOD multiply14. - DATA: lo_res TYPE REF TO zcl_abappgp_integer2. + DATA lo_res TYPE REF TO zcl_abappgp_integer2. lo_res = test( iv_op1 = '999999999999999' iv_op2 = '999999999999999' ). @@ -506,7 +506,7 @@ CLASS ltcl_multiply IMPLEMENTATION. METHOD multiply15. - DATA: lo_res TYPE REF TO zcl_abappgp_integer2. + DATA lo_res TYPE REF TO zcl_abappgp_integer2. lo_res = test( iv_op1 = '9999999999999990' iv_op2 = '9999999999999990' ). @@ -533,7 +533,7 @@ CLASS ltcl_add DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. add8 FOR TESTING, add9 FOR TESTING. - METHODS: + METHODS test IMPORTING iv_op1 TYPE string iv_op2 TYPE string RETURNING VALUE(ro_int) TYPE REF TO zcl_abappgp_integer2. @@ -544,7 +544,7 @@ CLASS ltcl_add IMPLEMENTATION. METHOD test. - DATA: lo_var2 TYPE REF TO zcl_abappgp_integer2. + DATA lo_var2 TYPE REF TO zcl_abappgp_integer2. ro_int = zcl_abappgp_integer2=>from_string( iv_op1 ). @@ -556,7 +556,7 @@ CLASS ltcl_add IMPLEMENTATION. METHOD add1. - DATA: lo_res TYPE REF TO zcl_abappgp_integer2. + DATA lo_res TYPE REF TO zcl_abappgp_integer2. lo_res = test( iv_op1 = '1' @@ -570,7 +570,7 @@ CLASS ltcl_add IMPLEMENTATION. METHOD add2. - DATA: lo_res TYPE REF TO zcl_abappgp_integer2. + DATA lo_res TYPE REF TO zcl_abappgp_integer2. lo_res = test( iv_op1 = '1' @@ -584,7 +584,7 @@ CLASS ltcl_add IMPLEMENTATION. METHOD add3. - DATA: lo_res TYPE REF TO zcl_abappgp_integer2. + DATA lo_res TYPE REF TO zcl_abappgp_integer2. lo_res = test( iv_op1 = '1111' @@ -598,7 +598,7 @@ CLASS ltcl_add IMPLEMENTATION. METHOD add4. - DATA: lo_res TYPE REF TO zcl_abappgp_integer2. + DATA lo_res TYPE REF TO zcl_abappgp_integer2. lo_res = test( iv_op1 = '111111' @@ -612,7 +612,7 @@ CLASS ltcl_add IMPLEMENTATION. METHOD add5. - DATA: lo_res TYPE REF TO zcl_abappgp_integer2. + DATA lo_res TYPE REF TO zcl_abappgp_integer2. lo_res = test( iv_op1 = '1111' @@ -626,7 +626,7 @@ CLASS ltcl_add IMPLEMENTATION. METHOD add6. - DATA: lo_res TYPE REF TO zcl_abappgp_integer2. + DATA lo_res TYPE REF TO zcl_abappgp_integer2. lo_res = test( iv_op1 = '1' @@ -640,7 +640,7 @@ CLASS ltcl_add IMPLEMENTATION. METHOD add7. - DATA: lo_res TYPE REF TO zcl_abappgp_integer2. + DATA lo_res TYPE REF TO zcl_abappgp_integer2. lo_res = test( iv_op1 = '99980001' @@ -654,7 +654,7 @@ CLASS ltcl_add IMPLEMENTATION. METHOD add8. - DATA: lo_res TYPE REF TO zcl_abappgp_integer2. + DATA lo_res TYPE REF TO zcl_abappgp_integer2. lo_res = test( iv_op1 = '111111111111111111111' @@ -668,7 +668,7 @@ CLASS ltcl_add IMPLEMENTATION. METHOD add9. - DATA: lo_res TYPE REF TO zcl_abappgp_integer2. + DATA lo_res TYPE REF TO zcl_abappgp_integer2. lo_res = test( iv_op1 = '1' @@ -697,7 +697,7 @@ CLASS ltcl_multiply_karatsuba DEFINITION FOR TESTING karatsuba8 FOR TESTING, karatsuba9 FOR TESTING. - METHODS: + METHODS test IMPORTING iv_op1 TYPE string iv_op2 TYPE string iv_exp TYPE string. @@ -791,7 +791,7 @@ CLASS ltcl_and DEFINITION FOR TESTING and3 FOR TESTING, and4 FOR TESTING. - METHODS: + METHODS test IMPORTING iv_op1 TYPE string iv_op2 TYPE string RETURNING VALUE(rv_result) TYPE string. @@ -815,7 +815,7 @@ CLASS ltcl_and IMPLEMENTATION. METHOD and1. - DATA: lv_result TYPE string. + DATA lv_result TYPE string. lv_result = test( iv_op1 = '16' iv_op2 = '16' ). @@ -828,7 +828,7 @@ CLASS ltcl_and IMPLEMENTATION. METHOD and2. - DATA: lv_result TYPE string. + DATA lv_result TYPE string. lv_result = test( iv_op1 = '32' iv_op2 = '16' ). @@ -841,7 +841,7 @@ CLASS ltcl_and IMPLEMENTATION. METHOD and3. - DATA: lv_result TYPE string. + DATA lv_result TYPE string. lv_result = test( iv_op1 = '48' iv_op2 = '16' ). @@ -854,7 +854,7 @@ CLASS ltcl_and IMPLEMENTATION. METHOD and4. - DATA: lv_result TYPE string. + DATA lv_result TYPE string. lv_result = test( iv_op1 = '8191' iv_op2 = '8192' ). @@ -875,7 +875,7 @@ CLASS ltcl_binary_length DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLE length2 FOR TESTING, length3 FOR TESTING. - METHODS: test + METHODS test IMPORTING iv_string TYPE string iv_expected TYPE i. @@ -928,7 +928,7 @@ CLASS ltcl_identity DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FI id7 FOR TESTING, id8 FOR TESTING. - METHODS: test IMPORTING iv_string TYPE string. + METHODS test IMPORTING iv_string TYPE string. ENDCLASS. diff --git a/src/integer/zcl_abappgp_montgomery.clas.testclasses.abap b/src/integer/zcl_abappgp_montgomery.clas.testclasses.abap index 7491367..cbc118e 100644 --- a/src/integer/zcl_abappgp_montgomery.clas.testclasses.abap +++ b/src/integer/zcl_abappgp_montgomery.clas.testclasses.abap @@ -4,7 +4,7 @@ CLASS ltcl_multiply DEFINITION FOR TESTING RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: + METHODS test IMPORTING iv_x TYPE string iv_y TYPE string iv_mod TYPE string @@ -50,7 +50,7 @@ CLASS ltcl_multiply IMPLEMENTATION. METHOD multiply1. - DATA: lv_result TYPE string. + DATA lv_result TYPE string. lv_result = test( iv_x = '124' iv_y = '154' @@ -64,7 +64,7 @@ CLASS ltcl_multiply IMPLEMENTATION. METHOD multiply2. - DATA: lv_result TYPE string. + DATA lv_result TYPE string. lv_result = test( iv_x = '1334' iv_y = '1234' @@ -78,7 +78,7 @@ CLASS ltcl_multiply IMPLEMENTATION. METHOD multiply3. - DATA: lv_result TYPE string. + DATA lv_result TYPE string. lv_result = test( iv_x = '45454545' iv_y = '3232323' diff --git a/src/integer/zcl_abappgp_prime.clas.abap b/src/integer/zcl_abappgp_prime.clas.abap index f86881e..7334619 100644 --- a/src/integer/zcl_abappgp_prime.clas.abap +++ b/src/integer/zcl_abappgp_prime.clas.abap @@ -13,7 +13,7 @@ CLASS zcl_abappgp_prime DEFINITION VALUE(rv_bool) TYPE abap_bool . PROTECTED SECTION. - TYPES: + TYPES ty_integer_tt TYPE STANDARD TABLE OF REF TO zcl_abappgp_integer WITH DEFAULT KEY . CLASS-DATA gt_low TYPE ty_integer_tt. diff --git a/src/integer/zcl_abappgp_random.clas.abap b/src/integer/zcl_abappgp_random.clas.abap index 8e578f6..344d697 100644 --- a/src/integer/zcl_abappgp_random.clas.abap +++ b/src/integer/zcl_abappgp_random.clas.abap @@ -79,7 +79,7 @@ CLASS ZCL_ABAPPGP_RANDOM IMPLEMENTATION. METHOD random. - DATA: lv_str TYPE string. + DATA lv_str TYPE string. DO 100 TIMES. diff --git a/src/integer/zcl_abappgp_random.clas.testclasses.abap b/src/integer/zcl_abappgp_random.clas.testclasses.abap index aa15fcc..8def02b 100644 --- a/src/integer/zcl_abappgp_random.clas.testclasses.abap +++ b/src/integer/zcl_abappgp_random.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_random DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: + METHODS random FOR TESTING. ENDCLASS. diff --git a/src/pgp/zabappgp_dump.prog.abap b/src/pgp/zabappgp_dump.prog.abap index 3336a01..bac7e2a 100644 --- a/src/pgp/zabappgp_dump.prog.abap +++ b/src/pgp/zabappgp_dump.prog.abap @@ -105,7 +105,7 @@ ENDFORM. FORM sample01. - DATA: lv_text TYPE string. + DATA lv_text TYPE string. CONCATENATE @@ -139,7 +139,7 @@ ENDFORM. FORM sample02. - DATA: lv_text TYPE string. + DATA lv_text TYPE string. CONCATENATE '-----BEGIN PGP PRIVATE KEY BLOCK-----' @@ -189,7 +189,7 @@ ENDFORM. FORM sample03. - DATA: lv_text TYPE string. + DATA lv_text TYPE string. CONCATENATE '-----BEGIN PGP MESSAGE-----' @@ -216,7 +216,7 @@ ENDFORM. FORM sample04. - DATA: lv_text TYPE string. + DATA lv_text TYPE string. CONCATENATE '-----BEGIN PGP SIGNATURE-----' diff --git a/src/pgp/zabappgp_keys.prog.abap b/src/pgp/zabappgp_keys.prog.abap index ab6f210..56c93bd 100644 --- a/src/pgp/zabappgp_keys.prog.abap +++ b/src/pgp/zabappgp_keys.prog.abap @@ -9,7 +9,7 @@ CONSTANTS: BEGIN OF c_mode, display TYPE i VALUE 3, END OF c_mode. -DATA: gv_ok_code LIKE sy-ucomm. +DATA gv_ok_code LIKE sy-ucomm. START-OF-SELECTION. @@ -28,7 +28,7 @@ CLASS lcl_key DEFINITION. status. PRIVATE SECTION. - CLASS-METHODS: + CLASS-METHODS save. CLASS-DATA: @@ -93,7 +93,7 @@ CLASS lcl_overview IMPLEMENTATION. METHOD delete. - DATA: ls_key LIKE LINE OF gt_keys. + DATA ls_key LIKE LINE OF gt_keys. ls_key = get_selected( ). @@ -129,7 +129,7 @@ CLASS lcl_overview IMPLEMENTATION. METHOD call_key_screen. - DATA: ls_key LIKE LINE OF gt_keys. + DATA ls_key LIKE LINE OF gt_keys. ls_key = get_selected( ). @@ -226,7 +226,7 @@ CLASS lcl_key IMPLEMENTATION. METHOD save. - DATA: ls_key TYPE zabappgp_keys. + DATA ls_key TYPE zabappgp_keys. MOVE-CORRESPONDING zabappgp_keys_key TO ls_key. @@ -311,7 +311,7 @@ CLASS lcl_key IMPLEMENTATION. METHOD status. - DATA: lt_excluding TYPE TABLE OF sy-ucomm. + DATA lt_excluding TYPE TABLE OF sy-ucomm. IF gv_mode = c_mode-display. diff --git a/src/pgp/zcl_abappgp_armor.clas.abap b/src/pgp/zcl_abappgp_armor.clas.abap index ed4d8a0..cddcdca 100644 --- a/src/pgp/zcl_abappgp_armor.clas.abap +++ b/src/pgp/zcl_abappgp_armor.clas.abap @@ -176,7 +176,7 @@ CLASS zcl_abappgp_armor IMPLEMENTATION. METHOD to_string. - CONSTANTS: lc_length TYPE i VALUE 60. + CONSTANTS lc_length TYPE i VALUE 60. DATA: lv_header LIKE LINE OF mt_headers, lv_data TYPE string. diff --git a/src/pgp/zcl_abappgp_armor.clas.testclasses.abap b/src/pgp/zcl_abappgp_armor.clas.testclasses.abap index dd171ce..9b55669 100644 --- a/src/pgp/zcl_abappgp_armor.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_armor.clas.testclasses.abap @@ -2,7 +2,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: test FOR TESTING. + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_convert.clas.abap b/src/pgp/zcl_abappgp_convert.clas.abap index 7e73caf..2dc1e82 100644 --- a/src/pgp/zcl_abappgp_convert.clas.abap +++ b/src/pgp/zcl_abappgp_convert.clas.abap @@ -119,7 +119,7 @@ CLASS ZCL_ABAPPGP_CONVERT IMPLEMENTATION. METHOD string_to_utf8. - DATA: lo_obj TYPE REF TO cl_abap_conv_out_ce. + DATA lo_obj TYPE REF TO cl_abap_conv_out_ce. TRY. diff --git a/src/pgp/zcl_abappgp_message_01.clas.abap b/src/pgp/zcl_abappgp_message_01.clas.abap index d750434..bb2cb0a 100644 --- a/src/pgp/zcl_abappgp_message_01.clas.abap +++ b/src/pgp/zcl_abappgp_message_01.clas.abap @@ -35,7 +35,7 @@ CLASS ZCL_ABAPPGP_MESSAGE_01 IMPLEMENTATION. METHOD zif_abappgp_message~dump. - DATA: li_packet LIKE LINE OF mt_packet_list. + DATA li_packet LIKE LINE OF mt_packet_list. LOOP AT mt_packet_list INTO li_packet. diff --git a/src/pgp/zcl_abappgp_message_01.clas.testclasses.abap b/src/pgp/zcl_abappgp_message_01.clas.testclasses.abap index 80336bd..79f83f2 100644 --- a/src/pgp/zcl_abappgp_message_01.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_message_01.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test @@ -10,7 +10,7 @@ CLASS ltcl_test IMPLEMENTATION. METHOD test. - DATA: lv_message TYPE string. + DATA lv_message TYPE string. lv_message = zcl_abappgp_unit_test=>get_message( ). diff --git a/src/pgp/zcl_abappgp_message_02.clas.abap b/src/pgp/zcl_abappgp_message_02.clas.abap index 1f2b30f..09905e4 100644 --- a/src/pgp/zcl_abappgp_message_02.clas.abap +++ b/src/pgp/zcl_abappgp_message_02.clas.abap @@ -32,7 +32,7 @@ CLASS ZCL_ABAPPGP_MESSAGE_02 IMPLEMENTATION. METHOD zif_abappgp_message~dump. - DATA: li_packet LIKE LINE OF mt_packet_list. + DATA li_packet LIKE LINE OF mt_packet_list. LOOP AT mt_packet_list INTO li_packet. diff --git a/src/pgp/zcl_abappgp_message_02.clas.testclasses.abap b/src/pgp/zcl_abappgp_message_02.clas.testclasses.abap index 67d3efd..0478004 100644 --- a/src/pgp/zcl_abappgp_message_02.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_message_02.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_message_03.clas.abap b/src/pgp/zcl_abappgp_message_03.clas.abap index bbe5201..c2145f8 100644 --- a/src/pgp/zcl_abappgp_message_03.clas.abap +++ b/src/pgp/zcl_abappgp_message_03.clas.abap @@ -63,7 +63,7 @@ CLASS ZCL_ABAPPGP_MESSAGE_03 IMPLEMENTATION. METHOD from_store. - DATA: lv_key TYPE string. + DATA lv_key TYPE string. SELECT SINGLE private_key @@ -79,7 +79,7 @@ CLASS ZCL_ABAPPGP_MESSAGE_03 IMPLEMENTATION. METHOD zif_abappgp_message~dump. - DATA: li_packet LIKE LINE OF mt_packet_list. + DATA li_packet LIKE LINE OF mt_packet_list. LOOP AT mt_packet_list INTO li_packet. diff --git a/src/pgp/zcl_abappgp_message_03.clas.testclasses.abap b/src/pgp/zcl_abappgp_message_03.clas.testclasses.abap index 0819895..bec6bbe 100644 --- a/src/pgp/zcl_abappgp_message_03.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_message_03.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: + METHODS test FOR TESTING. ENDCLASS. diff --git a/src/pgp/zcl_abappgp_message_06.clas.abap b/src/pgp/zcl_abappgp_message_06.clas.abap index ae56fba..c9365bc 100644 --- a/src/pgp/zcl_abappgp_message_06.clas.abap +++ b/src/pgp/zcl_abappgp_message_06.clas.abap @@ -79,7 +79,7 @@ CLASS ZCL_ABAPPGP_MESSAGE_06 IMPLEMENTATION. METHOD zif_abappgp_message~dump. - DATA: li_packet LIKE LINE OF mt_packet_list. + DATA li_packet LIKE LINE OF mt_packet_list. LOOP AT mt_packet_list INTO li_packet. diff --git a/src/pgp/zcl_abappgp_message_06.clas.testclasses.abap b/src/pgp/zcl_abappgp_message_06.clas.testclasses.abap index e984d2e..d4cfa64 100644 --- a/src/pgp/zcl_abappgp_message_06.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_message_06.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test @@ -10,7 +10,7 @@ CLASS ltcl_test IMPLEMENTATION. METHOD test. - DATA: lv_signature TYPE string. + DATA lv_signature TYPE string. lv_signature = zcl_abappgp_unit_test=>get_signature( ). diff --git a/src/pgp/zcl_abappgp_packet_01.clas.testclasses.abap b/src/pgp/zcl_abappgp_packet_01.clas.testclasses.abap index b6f7dbe..ea489b6 100644 --- a/src/pgp/zcl_abappgp_packet_01.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_packet_01.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test @@ -10,7 +10,7 @@ CLASS ltcl_test IMPLEMENTATION. METHOD test. - DATA: lo_stream TYPE REF TO zcl_abappgp_stream. + DATA lo_stream TYPE REF TO zcl_abappgp_stream. CREATE OBJECT lo_stream. diff --git a/src/pgp/zcl_abappgp_packet_02.clas.abap b/src/pgp/zcl_abappgp_packet_02.clas.abap index 085ac3d..ef8f043 100644 --- a/src/pgp/zcl_abappgp_packet_02.clas.abap +++ b/src/pgp/zcl_abappgp_packet_02.clas.abap @@ -15,9 +15,9 @@ CLASS zcl_abappgp_packet_02 DEFINITION ALIASES to_stream FOR zif_abappgp_packet~to_stream . - TYPES: + TYPES ty_subpackets TYPE STANDARD TABLE OF REF TO zif_abappgp_subpacket WITH DEFAULT KEY . - TYPES: + TYPES ty_integers TYPE STANDARD TABLE OF REF TO zcl_abappgp_integer WITH DEFAULT KEY . CLASS-METHODS sign @@ -46,7 +46,7 @@ CLASS zcl_abappgp_packet_02 DEFINITION DATA mv_hash_algo TYPE zif_abappgp_constants=>ty_algorithm_hash . DATA mt_hashed TYPE ty_subpackets . DATA mt_unhashed TYPE ty_subpackets . - DATA: + DATA mv_left TYPE x LENGTH 2 . DATA mt_integers TYPE ty_integers . @@ -300,7 +300,7 @@ CLASS ZCL_ABAPPGP_PACKET_02 IMPLEMENTATION. METHOD zif_abappgp_packet~to_stream. - DATA: lo_integer TYPE REF TO zcl_abappgp_integer. + DATA lo_integer TYPE REF TO zcl_abappgp_integer. CREATE OBJECT ro_stream. diff --git a/src/pgp/zcl_abappgp_packet_02.clas.testclasses.abap b/src/pgp/zcl_abappgp_packet_02.clas.testclasses.abap index 30eeb59..9699112 100644 --- a/src/pgp/zcl_abappgp_packet_02.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_packet_02.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_sign DEFINITION FOR TESTING DURATION MEDIUM RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: + METHODS sign01 FOR TESTING RAISING zcx_abappgp_invalid_key. ENDCLASS. "ltcl_Test @@ -66,7 +66,7 @@ CLASS ltcl_test IMPLEMENTATION. METHOD test01. - DATA: lo_stream TYPE REF TO zcl_abappgp_stream. + DATA lo_stream TYPE REF TO zcl_abappgp_stream. CREATE OBJECT lo_stream. @@ -87,7 +87,7 @@ CLASS ltcl_test IMPLEMENTATION. METHOD test02. - DATA: lo_stream TYPE REF TO zcl_abappgp_stream. + DATA lo_stream TYPE REF TO zcl_abappgp_stream. CREATE OBJECT lo_stream. diff --git a/src/pgp/zcl_abappgp_packet_03.clas.testclasses.abap b/src/pgp/zcl_abappgp_packet_03.clas.testclasses.abap index 67d3efd..0478004 100644 --- a/src/pgp/zcl_abappgp_packet_03.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_packet_03.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_packet_04.clas.testclasses.abap b/src/pgp/zcl_abappgp_packet_04.clas.testclasses.abap index 67d3efd..0478004 100644 --- a/src/pgp/zcl_abappgp_packet_04.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_packet_04.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_packet_05.clas.abap b/src/pgp/zcl_abappgp_packet_05.clas.abap index 74169b3..035d5d1 100644 --- a/src/pgp/zcl_abappgp_packet_05.clas.abap +++ b/src/pgp/zcl_abappgp_packet_05.clas.abap @@ -78,7 +78,7 @@ CLASS ZCL_ABAPPGP_PACKET_05 IMPLEMENTATION. METHOD decrypt. - CONSTANTS: lc_hash_length TYPE i VALUE 20. + CONSTANTS lc_hash_length TYPE i VALUE 20. DATA: lv_key TYPE xstring, lv_hash TYPE xstring, diff --git a/src/pgp/zcl_abappgp_packet_06.clas.testclasses.abap b/src/pgp/zcl_abappgp_packet_06.clas.testclasses.abap index 616bfa7..3d71386 100644 --- a/src/pgp/zcl_abappgp_packet_06.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_packet_06.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test @@ -10,7 +10,7 @@ CLASS ltcl_test IMPLEMENTATION. METHOD test. - DATA: lo_stream TYPE REF TO zcl_abappgp_stream. + DATA lo_stream TYPE REF TO zcl_abappgp_stream. CREATE OBJECT lo_stream. diff --git a/src/pgp/zcl_abappgp_packet_07.clas.testclasses.abap b/src/pgp/zcl_abappgp_packet_07.clas.testclasses.abap index 67d3efd..0478004 100644 --- a/src/pgp/zcl_abappgp_packet_07.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_packet_07.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_packet_08.clas.testclasses.abap b/src/pgp/zcl_abappgp_packet_08.clas.testclasses.abap index 67d3efd..0478004 100644 --- a/src/pgp/zcl_abappgp_packet_08.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_packet_08.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_packet_09.clas.testclasses.abap b/src/pgp/zcl_abappgp_packet_09.clas.testclasses.abap index 67d3efd..0478004 100644 --- a/src/pgp/zcl_abappgp_packet_09.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_packet_09.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_packet_10.clas.testclasses.abap b/src/pgp/zcl_abappgp_packet_10.clas.testclasses.abap index 67d3efd..0478004 100644 --- a/src/pgp/zcl_abappgp_packet_10.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_packet_10.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_packet_11.clas.testclasses.abap b/src/pgp/zcl_abappgp_packet_11.clas.testclasses.abap index 67d3efd..0478004 100644 --- a/src/pgp/zcl_abappgp_packet_11.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_packet_11.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_packet_12.clas.testclasses.abap b/src/pgp/zcl_abappgp_packet_12.clas.testclasses.abap index 67d3efd..0478004 100644 --- a/src/pgp/zcl_abappgp_packet_12.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_packet_12.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_packet_13.clas.abap b/src/pgp/zcl_abappgp_packet_13.clas.abap index 7ed043c..c8862b2 100644 --- a/src/pgp/zcl_abappgp_packet_13.clas.abap +++ b/src/pgp/zcl_abappgp_packet_13.clas.abap @@ -46,7 +46,7 @@ CLASS ZCL_ABAPPGP_PACKET_13 IMPLEMENTATION. METHOD zif_abappgp_packet~from_stream. - DATA: lv_user TYPE string. + DATA lv_user TYPE string. lv_user = zcl_abappgp_convert=>utf8_to_string( io_stream->get_data( ) ). diff --git a/src/pgp/zcl_abappgp_packet_13.clas.testclasses.abap b/src/pgp/zcl_abappgp_packet_13.clas.testclasses.abap index 6a38fd6..5695069 100644 --- a/src/pgp/zcl_abappgp_packet_13.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_packet_13.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test @@ -10,7 +10,7 @@ CLASS ltcl_test IMPLEMENTATION. METHOD test. - DATA: lo_stream TYPE REF TO zcl_abappgp_stream. + DATA lo_stream TYPE REF TO zcl_abappgp_stream. CREATE OBJECT lo_stream. diff --git a/src/pgp/zcl_abappgp_packet_14.clas.testclasses.abap b/src/pgp/zcl_abappgp_packet_14.clas.testclasses.abap index ef3087a..21bd209 100644 --- a/src/pgp/zcl_abappgp_packet_14.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_packet_14.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test @@ -10,7 +10,7 @@ CLASS ltcl_test IMPLEMENTATION. METHOD test. - DATA: lo_stream TYPE REF TO zcl_abappgp_stream. + DATA lo_stream TYPE REF TO zcl_abappgp_stream. CREATE OBJECT lo_stream. diff --git a/src/pgp/zcl_abappgp_packet_17.clas.testclasses.abap b/src/pgp/zcl_abappgp_packet_17.clas.testclasses.abap index 67d3efd..0478004 100644 --- a/src/pgp/zcl_abappgp_packet_17.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_packet_17.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_packet_18.clas.testclasses.abap b/src/pgp/zcl_abappgp_packet_18.clas.testclasses.abap index 0f2b207..db1b424 100644 --- a/src/pgp/zcl_abappgp_packet_18.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_packet_18.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test @@ -10,7 +10,7 @@ CLASS ltcl_test IMPLEMENTATION. METHOD test. - DATA: lo_stream TYPE REF TO zcl_abappgp_stream. + DATA lo_stream TYPE REF TO zcl_abappgp_stream. CREATE OBJECT lo_stream. diff --git a/src/pgp/zcl_abappgp_packet_19.clas.testclasses.abap b/src/pgp/zcl_abappgp_packet_19.clas.testclasses.abap index 67d3efd..0478004 100644 --- a/src/pgp/zcl_abappgp_packet_19.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_packet_19.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_packet_list.clas.abap b/src/pgp/zcl_abappgp_packet_list.clas.abap index f81efd0..e67df0a 100644 --- a/src/pgp/zcl_abappgp_packet_list.clas.abap +++ b/src/pgp/zcl_abappgp_packet_list.clas.abap @@ -21,7 +21,7 @@ CLASS zcl_abappgp_packet_list DEFINITION binary TYPE string, tag TYPE i, END OF ty_map . - TYPES: + TYPES ty_map_tt TYPE STANDARD TABLE OF ty_map WITH DEFAULT KEY . CONSTANTS c_new_packet_format TYPE string VALUE '11' ##NO_TEXT. @@ -59,9 +59,9 @@ CLASS ZCL_ABAPPGP_PACKET_LIST IMPLEMENTATION. METHOD binary_to_tag. - DATA: lt_map TYPE ty_map_tt. + DATA lt_map TYPE ty_map_tt. - FIELD-SYMBOLS: LIKE LINE OF lt_map. + FIELD-SYMBOLS LIKE LINE OF lt_map. ASSERT strlen( iv_string ) = 6. @@ -161,7 +161,7 @@ CLASS ZCL_ABAPPGP_PACKET_LIST IMPLEMENTATION. -tag = &2. END-OF-DEFINITION. - FIELD-SYMBOLS: LIKE LINE OF rt_map. + FIELD-SYMBOLS LIKE LINE OF rt_map. _append '000001' zif_abappgp_constants=>c_tag-public_key_enc. @@ -187,7 +187,7 @@ CLASS ZCL_ABAPPGP_PACKET_LIST IMPLEMENTATION. METHOD read_packet_header. - DATA: lv_bits TYPE string. + DATA lv_bits TYPE string. lv_bits = zcl_abappgp_convert=>to_bits( io_stream->eat_octet( ) ). @@ -200,9 +200,9 @@ CLASS ZCL_ABAPPGP_PACKET_LIST IMPLEMENTATION. METHOD tag_to_binary. - DATA: lt_map TYPE ty_map_tt. + DATA lt_map TYPE ty_map_tt. - FIELD-SYMBOLS: LIKE LINE OF lt_map. + FIELD-SYMBOLS LIKE LINE OF lt_map. lt_map = get_tag_mapping( ). diff --git a/src/pgp/zcl_abappgp_packet_list.clas.testclasses.abap b/src/pgp/zcl_abappgp_packet_list.clas.testclasses.abap index ee1eed5..c582000 100644 --- a/src/pgp/zcl_abappgp_packet_list.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_packet_list.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: identity FOR TESTING. + METHODS identity FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_stream.clas.abap b/src/pgp/zcl_abappgp_stream.clas.abap index c11340e..782fa3f 100644 --- a/src/pgp/zcl_abappgp_stream.clas.abap +++ b/src/pgp/zcl_abappgp_stream.clas.abap @@ -142,7 +142,7 @@ CLASS zcl_abappgp_stream IMPLEMENTATION. METHOD eat_stream. - DATA: lv_data TYPE xstring. + DATA lv_data TYPE xstring. lv_data = eat_octets( iv_octets ). @@ -251,7 +251,7 @@ CLASS zcl_abappgp_stream IMPLEMENTATION. METHOD write_time. - DATA: lv_hex TYPE x LENGTH 4. + DATA lv_hex TYPE x LENGTH 4. lv_hex = iv_time. diff --git a/src/pgp/zcl_abappgp_stream.clas.testclasses.abap b/src/pgp/zcl_abappgp_stream.clas.testclasses.abap index 9d4cefc..d3a041b 100644 --- a/src/pgp/zcl_abappgp_stream.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_stream.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_length DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: + METHODS test IMPORTING iv_hex TYPE xstring @@ -77,7 +77,7 @@ ENDCLASS. CLASS ltcl_mpi DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: mpi01 FOR TESTING. + METHODS mpi01 FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_string_to_key.clas.abap b/src/pgp/zcl_abappgp_string_to_key.clas.abap index 97af2e4..a174eb1 100644 --- a/src/pgp/zcl_abappgp_string_to_key.clas.abap +++ b/src/pgp/zcl_abappgp_string_to_key.clas.abap @@ -154,7 +154,7 @@ CLASS ZCL_ABAPPGP_STRING_TO_KEY IMPLEMENTATION. METHOD to_stream. - DATA: lv_octet TYPE x LENGTH 1. + DATA lv_octet TYPE x LENGTH 1. CREATE OBJECT ro_stream. diff --git a/src/pgp/zcl_abappgp_string_to_key.clas.testclasses.abap b/src/pgp/zcl_abappgp_string_to_key.clas.testclasses.abap index a87e03d..7e13449 100644 --- a/src/pgp/zcl_abappgp_string_to_key.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_string_to_key.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_build_key DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: test01 FOR TESTING. + METHODS test01 FOR TESTING. ENDCLASS. "ltcl_Build_Key diff --git a/src/pgp/zcl_abappgp_subpacket_02.clas.abap b/src/pgp/zcl_abappgp_subpacket_02.clas.abap index 93da00f..92dd312 100644 --- a/src/pgp/zcl_abappgp_subpacket_02.clas.abap +++ b/src/pgp/zcl_abappgp_subpacket_02.clas.abap @@ -47,7 +47,7 @@ CLASS ZCL_ABAPPGP_SUBPACKET_02 IMPLEMENTATION. METHOD zif_abappgp_subpacket~from_stream. - DATA: lv_time TYPE i. + DATA lv_time TYPE i. lv_time = io_stream->eat_time( ). diff --git a/src/pgp/zcl_abappgp_subpacket_02.clas.testclasses.abap b/src/pgp/zcl_abappgp_subpacket_02.clas.testclasses.abap index 4784e66..4f5db29 100644 --- a/src/pgp/zcl_abappgp_subpacket_02.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_subpacket_02.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: test FOR TESTING. + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_subpacket_03.clas.testclasses.abap b/src/pgp/zcl_abappgp_subpacket_03.clas.testclasses.abap index be90beb..99f149d 100644 --- a/src/pgp/zcl_abappgp_subpacket_03.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_subpacket_03.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: test FOR TESTING. + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_subpacket_04.clas.testclasses.abap b/src/pgp/zcl_abappgp_subpacket_04.clas.testclasses.abap index be90beb..99f149d 100644 --- a/src/pgp/zcl_abappgp_subpacket_04.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_subpacket_04.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: test FOR TESTING. + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_subpacket_05.clas.testclasses.abap b/src/pgp/zcl_abappgp_subpacket_05.clas.testclasses.abap index be90beb..99f149d 100644 --- a/src/pgp/zcl_abappgp_subpacket_05.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_subpacket_05.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: test FOR TESTING. + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_subpacket_06.clas.testclasses.abap b/src/pgp/zcl_abappgp_subpacket_06.clas.testclasses.abap index be90beb..99f149d 100644 --- a/src/pgp/zcl_abappgp_subpacket_06.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_subpacket_06.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: test FOR TESTING. + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_subpacket_07.clas.testclasses.abap b/src/pgp/zcl_abappgp_subpacket_07.clas.testclasses.abap index be90beb..99f149d 100644 --- a/src/pgp/zcl_abappgp_subpacket_07.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_subpacket_07.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: test FOR TESTING. + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_subpacket_09.clas.testclasses.abap b/src/pgp/zcl_abappgp_subpacket_09.clas.testclasses.abap index be90beb..99f149d 100644 --- a/src/pgp/zcl_abappgp_subpacket_09.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_subpacket_09.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: test FOR TESTING. + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_subpacket_10.clas.testclasses.abap b/src/pgp/zcl_abappgp_subpacket_10.clas.testclasses.abap index be90beb..99f149d 100644 --- a/src/pgp/zcl_abappgp_subpacket_10.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_subpacket_10.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: test FOR TESTING. + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_subpacket_11.clas.abap b/src/pgp/zcl_abappgp_subpacket_11.clas.abap index 665473b..f042cbc 100644 --- a/src/pgp/zcl_abappgp_subpacket_11.clas.abap +++ b/src/pgp/zcl_abappgp_subpacket_11.clas.abap @@ -38,7 +38,7 @@ CLASS ZCL_ABAPPGP_SUBPACKET_11 IMPLEMENTATION. METHOD zif_abappgp_subpacket~dump. - DATA: lv_algorithm LIKE LINE OF mt_algorithms. + DATA lv_algorithm LIKE LINE OF mt_algorithms. rv_dump = |\tSub - { get_name( ) }(sub { get_type( ) })({ to_stream( )->get_length( ) } bytes)\n|. @@ -52,7 +52,7 @@ CLASS ZCL_ABAPPGP_SUBPACKET_11 IMPLEMENTATION. METHOD zif_abappgp_subpacket~from_stream. - DATA: lt_algorithms TYPE zif_abappgp_constants=>ty_algorithms. + DATA lt_algorithms TYPE zif_abappgp_constants=>ty_algorithms. WHILE io_stream->get_length( ) > 0. @@ -85,7 +85,7 @@ CLASS ZCL_ABAPPGP_SUBPACKET_11 IMPLEMENTATION. METHOD zif_abappgp_subpacket~to_stream. - DATA: lv_algorithm LIKE LINE OF mt_algorithms. + DATA lv_algorithm LIKE LINE OF mt_algorithms. CREATE OBJECT ro_stream. diff --git a/src/pgp/zcl_abappgp_subpacket_11.clas.testclasses.abap b/src/pgp/zcl_abappgp_subpacket_11.clas.testclasses.abap index f99e21a..3e9d124 100644 --- a/src/pgp/zcl_abappgp_subpacket_11.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_subpacket_11.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: test FOR TESTING. + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_subpacket_12.clas.testclasses.abap b/src/pgp/zcl_abappgp_subpacket_12.clas.testclasses.abap index be90beb..99f149d 100644 --- a/src/pgp/zcl_abappgp_subpacket_12.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_subpacket_12.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: test FOR TESTING. + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_subpacket_16.clas.testclasses.abap b/src/pgp/zcl_abappgp_subpacket_16.clas.testclasses.abap index c91d673..99ce13a 100644 --- a/src/pgp/zcl_abappgp_subpacket_16.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_subpacket_16.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: test FOR TESTING. + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_subpacket_20.clas.testclasses.abap b/src/pgp/zcl_abappgp_subpacket_20.clas.testclasses.abap index be90beb..99f149d 100644 --- a/src/pgp/zcl_abappgp_subpacket_20.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_subpacket_20.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: test FOR TESTING. + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_subpacket_21.clas.abap b/src/pgp/zcl_abappgp_subpacket_21.clas.abap index 3554185..75b019e 100644 --- a/src/pgp/zcl_abappgp_subpacket_21.clas.abap +++ b/src/pgp/zcl_abappgp_subpacket_21.clas.abap @@ -38,7 +38,7 @@ CLASS ZCL_ABAPPGP_SUBPACKET_21 IMPLEMENTATION. METHOD zif_abappgp_subpacket~dump. - DATA: lv_algorithm LIKE LINE OF mt_algorithms. + DATA lv_algorithm LIKE LINE OF mt_algorithms. rv_dump = |\tSub - { get_name( ) }(sub { get_type( ) })({ to_stream( )->get_length( ) } bytes)\n|. @@ -52,7 +52,7 @@ CLASS ZCL_ABAPPGP_SUBPACKET_21 IMPLEMENTATION. METHOD zif_abappgp_subpacket~from_stream. - DATA: lt_algorithms TYPE zif_abappgp_constants=>ty_algorithms. + DATA lt_algorithms TYPE zif_abappgp_constants=>ty_algorithms. WHILE io_stream->get_length( ) > 0. @@ -85,7 +85,7 @@ CLASS ZCL_ABAPPGP_SUBPACKET_21 IMPLEMENTATION. METHOD zif_abappgp_subpacket~to_stream. - DATA: lv_algorithm LIKE LINE OF mt_algorithms. + DATA lv_algorithm LIKE LINE OF mt_algorithms. CREATE OBJECT ro_stream. diff --git a/src/pgp/zcl_abappgp_subpacket_21.clas.testclasses.abap b/src/pgp/zcl_abappgp_subpacket_21.clas.testclasses.abap index 7374307..d9af8d6 100644 --- a/src/pgp/zcl_abappgp_subpacket_21.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_subpacket_21.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: test FOR TESTING. + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_subpacket_22.clas.abap b/src/pgp/zcl_abappgp_subpacket_22.clas.abap index 09895ae..5a88f94 100644 --- a/src/pgp/zcl_abappgp_subpacket_22.clas.abap +++ b/src/pgp/zcl_abappgp_subpacket_22.clas.abap @@ -38,7 +38,7 @@ CLASS ZCL_ABAPPGP_SUBPACKET_22 IMPLEMENTATION. METHOD zif_abappgp_subpacket~dump. - DATA: lv_algorithm LIKE LINE OF mt_algorithms. + DATA lv_algorithm LIKE LINE OF mt_algorithms. rv_dump = |\tSub - { get_name( ) }(sub { get_type( ) })({ to_stream( )->get_length( ) } bytes)\n|. @@ -52,7 +52,7 @@ CLASS ZCL_ABAPPGP_SUBPACKET_22 IMPLEMENTATION. METHOD zif_abappgp_subpacket~from_stream. - DATA: lt_algorithms TYPE zif_abappgp_constants=>ty_algorithms. + DATA lt_algorithms TYPE zif_abappgp_constants=>ty_algorithms. WHILE io_stream->get_length( ) > 0. @@ -85,7 +85,7 @@ CLASS ZCL_ABAPPGP_SUBPACKET_22 IMPLEMENTATION. METHOD zif_abappgp_subpacket~to_stream. - DATA: lv_algorithm LIKE LINE OF mt_algorithms. + DATA lv_algorithm LIKE LINE OF mt_algorithms. CREATE OBJECT ro_stream. diff --git a/src/pgp/zcl_abappgp_subpacket_22.clas.testclasses.abap b/src/pgp/zcl_abappgp_subpacket_22.clas.testclasses.abap index b42370f..1cddccc 100644 --- a/src/pgp/zcl_abappgp_subpacket_22.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_subpacket_22.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: test FOR TESTING. + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_subpacket_23.clas.testclasses.abap b/src/pgp/zcl_abappgp_subpacket_23.clas.testclasses.abap index be90beb..99f149d 100644 --- a/src/pgp/zcl_abappgp_subpacket_23.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_subpacket_23.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: test FOR TESTING. + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_subpacket_24.clas.testclasses.abap b/src/pgp/zcl_abappgp_subpacket_24.clas.testclasses.abap index be90beb..99f149d 100644 --- a/src/pgp/zcl_abappgp_subpacket_24.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_subpacket_24.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: test FOR TESTING. + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_subpacket_25.clas.testclasses.abap b/src/pgp/zcl_abappgp_subpacket_25.clas.testclasses.abap index 5a105a6..e914dad 100644 --- a/src/pgp/zcl_abappgp_subpacket_25.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_subpacket_25.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: test FOR TESTING. + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_subpacket_26.clas.testclasses.abap b/src/pgp/zcl_abappgp_subpacket_26.clas.testclasses.abap index be90beb..99f149d 100644 --- a/src/pgp/zcl_abappgp_subpacket_26.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_subpacket_26.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: test FOR TESTING. + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_subpacket_27.clas.abap b/src/pgp/zcl_abappgp_subpacket_27.clas.abap index b62f853..ddb40f7 100644 --- a/src/pgp/zcl_abappgp_subpacket_27.clas.abap +++ b/src/pgp/zcl_abappgp_subpacket_27.clas.abap @@ -112,7 +112,7 @@ CLASS ZCL_ABAPPGP_SUBPACKET_27 IMPLEMENTATION. METHOD zif_abappgp_subpacket~to_stream. - DATA: lv_octet TYPE x LENGTH 1. + DATA lv_octet TYPE x LENGTH 1. IF mv_certify_other = abap_true. diff --git a/src/pgp/zcl_abappgp_subpacket_28.clas.testclasses.abap b/src/pgp/zcl_abappgp_subpacket_28.clas.testclasses.abap index be90beb..99f149d 100644 --- a/src/pgp/zcl_abappgp_subpacket_28.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_subpacket_28.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: test FOR TESTING. + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_subpacket_29.clas.testclasses.abap b/src/pgp/zcl_abappgp_subpacket_29.clas.testclasses.abap index be90beb..99f149d 100644 --- a/src/pgp/zcl_abappgp_subpacket_29.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_subpacket_29.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: test FOR TESTING. + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_subpacket_30.clas.abap b/src/pgp/zcl_abappgp_subpacket_30.clas.abap index 395b6b1..e070048 100644 --- a/src/pgp/zcl_abappgp_subpacket_30.clas.abap +++ b/src/pgp/zcl_abappgp_subpacket_30.clas.abap @@ -47,7 +47,7 @@ CLASS ZCL_ABAPPGP_SUBPACKET_30 IMPLEMENTATION. METHOD zif_abappgp_subpacket~from_stream. - DATA: lv_flag TYPE abap_bool. + DATA lv_flag TYPE abap_bool. IF io_stream->eat_octet( ) = '01'. diff --git a/src/pgp/zcl_abappgp_subpacket_30.clas.testclasses.abap b/src/pgp/zcl_abappgp_subpacket_30.clas.testclasses.abap index e9db7cf..1dc4ecc 100644 --- a/src/pgp/zcl_abappgp_subpacket_30.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_subpacket_30.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: test FOR TESTING. + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_subpacket_31.clas.testclasses.abap b/src/pgp/zcl_abappgp_subpacket_31.clas.testclasses.abap index be90beb..99f149d 100644 --- a/src/pgp/zcl_abappgp_subpacket_31.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_subpacket_31.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: test FOR TESTING. + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_subpacket_32.clas.testclasses.abap b/src/pgp/zcl_abappgp_subpacket_32.clas.testclasses.abap index be90beb..99f149d 100644 --- a/src/pgp/zcl_abappgp_subpacket_32.clas.testclasses.abap +++ b/src/pgp/zcl_abappgp_subpacket_32.clas.testclasses.abap @@ -1,7 +1,7 @@ CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: test FOR TESTING. + METHODS test FOR TESTING. ENDCLASS. "ltcl_Test diff --git a/src/pgp/zcl_abappgp_subpacket_factory.clas.abap b/src/pgp/zcl_abappgp_subpacket_factory.clas.abap index 3499005..3b5f5d7 100644 --- a/src/pgp/zcl_abappgp_subpacket_factory.clas.abap +++ b/src/pgp/zcl_abappgp_subpacket_factory.clas.abap @@ -21,7 +21,7 @@ CLASS ZCL_ABAPPGP_SUBPACKET_FACTORY IMPLEMENTATION. METHOD create. - DATA: lo_data TYPE REF TO zcl_abappgp_stream. + DATA lo_data TYPE REF TO zcl_abappgp_stream. ASSERT xstrlen( iv_data ) > 0. diff --git a/src/pgp/zcl_abappgp_unit_test.clas.abap b/src/pgp/zcl_abappgp_unit_test.clas.abap index cbb10d5..5d5f651 100644 --- a/src/pgp/zcl_abappgp_unit_test.clas.abap +++ b/src/pgp/zcl_abappgp_unit_test.clas.abap @@ -167,7 +167,7 @@ CLASS ZCL_ABAPPGP_UNIT_TEST IMPLEMENTATION. METHOD message_identity. - DATA: lv_result TYPE string. + DATA lv_result TYPE string. ri_message = zcl_abappgp_message_factory=>create( iv_armor ). @@ -204,7 +204,7 @@ CLASS ZCL_ABAPPGP_UNIT_TEST IMPLEMENTATION. METHOD subpacket_identity. - DATA: lv_result TYPE xstring. + DATA lv_result TYPE xstring. ri_sub = zcl_abappgp_subpacket_factory=>create( diff --git a/src/rsa/zcl_abappgp_rsa.clas.abap b/src/rsa/zcl_abappgp_rsa.clas.abap index 705eb52..68b4ed0 100644 --- a/src/rsa/zcl_abappgp_rsa.clas.abap +++ b/src/rsa/zcl_abappgp_rsa.clas.abap @@ -177,7 +177,7 @@ CLASS zcl_abappgp_rsa IMPLEMENTATION. METHOD verify. - DATA: lo_result TYPE REF TO zcl_abappgp_integer. + DATA lo_result TYPE REF TO zcl_abappgp_integer. lo_result = io_s->clone( )->modular_pow_montgomery( diff --git a/src/rsa/zcl_abappgp_rsa.clas.testclasses.abap b/src/rsa/zcl_abappgp_rsa.clas.testclasses.abap index f399e55..0c3643b 100644 --- a/src/rsa/zcl_abappgp_rsa.clas.testclasses.abap +++ b/src/rsa/zcl_abappgp_rsa.clas.testclasses.abap @@ -8,7 +8,7 @@ CLASS ltcl_find_coprime DEFINITION FOR TESTING PRIVATE SECTION. - METHODS: test01 FOR TESTING. + METHODS test01 FOR TESTING. ENDCLASS. "ltcl_Generate_Keys @@ -44,7 +44,7 @@ CLASS ltcl_generate_keys DEFINITION FOR TESTING PRIVATE SECTION. - METHODS: + METHODS run IMPORTING iv_p TYPE string iv_q TYPE string @@ -62,7 +62,7 @@ CLASS ltcl_generate_keys IMPLEMENTATION. METHOD run. - DATA: lo_pair TYPE REF TO zcl_abappgp_rsa_key_pair. + DATA lo_pair TYPE REF TO zcl_abappgp_rsa_key_pair. lo_pair = zcl_abappgp_rsa=>generate_key_pair( @@ -149,7 +149,7 @@ CLASS ltcl_sign DEFINITION FOR TESTING RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: + METHODS test01 FOR TESTING. ENDCLASS. @@ -205,7 +205,7 @@ CLASS ltcl_encrypt DEFINITION FOR TESTING RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: + METHODS test01 FOR TESTING. ENDCLASS. diff --git a/src/zabappgp_generate_prime.prog.abap b/src/zabappgp_generate_prime.prog.abap index 516447b..b7eac17 100644 --- a/src/zabappgp_generate_prime.prog.abap +++ b/src/zabappgp_generate_prime.prog.abap @@ -83,16 +83,16 @@ ENDFORM. FORM output_integer USING io_value TYPE REF TO zcl_abappgp_integer. - CONSTANTS: lc_output TYPE i VALUE 200. + CONSTANTS lc_output TYPE i VALUE 200. - DATA: lv_str TYPE string. + DATA lv_str TYPE string. lv_str = io_value->to_string( ). WHILE strlen( lv_str ) > lc_output. - WRITE: / lv_str(lc_output). + WRITE / lv_str(lc_output). lv_str = lv_str+lc_output. ENDWHILE. - WRITE: / lv_str. + WRITE / lv_str. ENDFORM. diff --git a/src/zabappgp_sign.prog.abap b/src/zabappgp_sign.prog.abap index 6ab5fba..ef3ce2a 100644 --- a/src/zabappgp_sign.prog.abap +++ b/src/zabappgp_sign.prog.abap @@ -1,8 +1,8 @@ REPORT zabappgp_sign. -TABLES: zabappgp_sign. +TABLES zabappgp_sign. -DATA: gv_ok_code LIKE sy-ucomm. +DATA gv_ok_code LIKE sy-ucomm. CLASS lcl_screen_2000 DEFINITION. @@ -19,7 +19,7 @@ CLASS lcl_screen_2000 DEFINITION. go_result TYPE REF TO cl_gui_textedit, go_message TYPE REF TO cl_gui_textedit. - CLASS-METHODS: + CLASS-METHODS call_sign RAISING zcx_abappgp_invalid_key. @@ -69,7 +69,7 @@ CLASS lcl_screen_2000 IMPLEMENTATION. METHOD user_command. - DATA: lx_error TYPE REF TO zcx_abappgp_invalid_key. + DATA lx_error TYPE REF TO zcx_abappgp_invalid_key. CASE gv_ok_code. WHEN 'BACK'. diff --git a/src/zabappgp_test1.prog.abap b/src/zabappgp_test1.prog.abap index 8afe381..761209c 100644 --- a/src/zabappgp_test1.prog.abap +++ b/src/zabappgp_test1.prog.abap @@ -1,6 +1,6 @@ REPORT zabappgp_test1. -PARAMETERS: p_gname TYPE rfcgr MATCHCODE OBJECT serv_group DEFAULT 'parallel_generators'. +PARAMETERS p_gname TYPE rfcgr MATCHCODE OBJECT serv_group DEFAULT 'parallel_generators'. START-OF-SELECTION. PERFORM run. @@ -33,6 +33,6 @@ FORM run. WRITE: / lv_max, lv_free. - WRITE: / 'Done'. + WRITE / 'Done'. ENDFORM. diff --git a/src/zcl_abappgp_encode.clas.abap b/src/zcl_abappgp_encode.clas.abap index c5bca4c..edb69f1 100644 --- a/src/zcl_abappgp_encode.clas.abap +++ b/src/zcl_abappgp_encode.clas.abap @@ -24,7 +24,7 @@ CLASS zcl_abappgp_encode IMPLEMENTATION. METHOD hash_prefix. - DATA: lv_hex TYPE x LENGTH 1. + DATA lv_hex TYPE x LENGTH 1. DEFINE _add. lv_hex = &1. diff --git a/src/zcl_abappgp_encode.clas.testclasses.abap b/src/zcl_abappgp_encode.clas.testclasses.abap index 1143cac..a1bbad1 100644 --- a/src/zcl_abappgp_encode.clas.testclasses.abap +++ b/src/zcl_abappgp_encode.clas.testclasses.abap @@ -2,7 +2,7 @@ CLASS ltcl_pkcs1_emse DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: pkcs1_emse FOR TESTING. + METHODS pkcs1_emse FOR TESTING. ENDCLASS. "ltcl_Pkcs1_Emse diff --git a/src/zcl_abappgp_hash.clas.abap b/src/zcl_abappgp_hash.clas.abap index f31df98..b794b33 100644 --- a/src/zcl_abappgp_hash.clas.abap +++ b/src/zcl_abappgp_hash.clas.abap @@ -21,7 +21,7 @@ CLASS zcl_abappgp_hash DEFINITION VALUE(rv_hash) TYPE xstring . PROTECTED SECTION. - TYPES: + TYPES ty_table_tt TYPE STANDARD TABLE OF xstring WITH DEFAULT KEY . CLASS-METHODS crc24_init diff --git a/src/zcl_abappgp_hash.clas.testclasses.abap b/src/zcl_abappgp_hash.clas.testclasses.abap index 06f7552..3f42ff1 100644 --- a/src/zcl_abappgp_hash.clas.testclasses.abap +++ b/src/zcl_abappgp_hash.clas.testclasses.abap @@ -24,11 +24,11 @@ ENDCLASS. CLASS ltcl_sha256 DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: test + METHODS test IMPORTING iv_input TYPE string iv_expected TYPE xstring. - METHODS: test01 FOR TESTING. + METHODS test01 FOR TESTING. ENDCLASS. "ltcl_Sha256 @@ -36,7 +36,7 @@ CLASS ltcl_sha256 IMPLEMENTATION. METHOD test. - DATA: lv_hash TYPE xstring. + DATA lv_hash TYPE xstring. lv_hash = zcl_abappgp_hash=>sha256( zcl_abappgp_convert=>string_to_utf8( iv_input ) ). @@ -59,7 +59,7 @@ ENDCLASS. CLASS ltcl_crc24 DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. PRIVATE SECTION. - METHODS: test + METHODS test IMPORTING iv_input TYPE xstring iv_expected TYPE xstring. @@ -73,7 +73,7 @@ CLASS ltcl_crc24 IMPLEMENTATION. METHOD test. - DATA: lv_hash TYPE xstring. + DATA lv_hash TYPE xstring. lv_hash = zcl_abappgp_hash=>crc24( iv_input ). @@ -93,7 +93,7 @@ CLASS ltcl_crc24 IMPLEMENTATION. METHOD test02. - DATA: lo_stream TYPE REF TO zcl_abappgp_stream. + DATA lo_stream TYPE REF TO zcl_abappgp_stream. CREATE OBJECT lo_stream. diff --git a/src/zcl_abappgp_symmetric.clas.testclasses.abap b/src/zcl_abappgp_symmetric.clas.testclasses.abap index fa98663..19e2de5 100644 --- a/src/zcl_abappgp_symmetric.clas.testclasses.abap +++ b/src/zcl_abappgp_symmetric.clas.testclasses.abap @@ -75,10 +75,10 @@ CLASS ltcl_aes256 IMPLEMENTATION. METHOD encrypt01. - CONSTANTS: + CONSTANTS lc_exp TYPE xstring VALUE '1462EE073B051AA7212254B7333BBAA65723C3FCFE414E'. - DATA: lv_plain TYPE xstring. + DATA lv_plain TYPE xstring. lv_plain = zcl_abappgp_convert=>string_to_utf8( 'hello' ). @@ -91,11 +91,11 @@ CLASS ltcl_aes256 IMPLEMENTATION. METHOD encrypt02. - CONSTANTS: + CONSTANTS lc_exp TYPE xstring VALUE '1462EE073B051AA7212254B7333BBAA65723C3FCFE414E0EA7F6929EC7662A432B1E61461565'. - DATA: lv_plain TYPE xstring. + DATA lv_plain TYPE xstring. lv_plain = zcl_abappgp_convert=>string_to_utf8( 'hellohellohellohello' ). @@ -112,7 +112,7 @@ CLASS ltcl_aes256 IMPLEMENTATION. lc_empty TYPE xstring VALUE '', lc_hex TYPE x LENGTH 1 VALUE 'AA'. - DATA: lv_plain TYPE xstring. + DATA lv_plain TYPE xstring. DO 304 TIMES. @@ -127,10 +127,10 @@ CLASS ltcl_aes256 IMPLEMENTATION. METHOD encrypt04. - CONSTANTS: + CONSTANTS lc_exp TYPE xstring VALUE '1462EE073B051AA7212254B7333BBAA65723F9D0E3FED2'. - DATA: lv_plain TYPE xstring. + DATA lv_plain TYPE xstring. lv_plain = zcl_abappgp_convert=>string_to_utf8( 'hello' ). @@ -143,11 +143,11 @@ CLASS ltcl_aes256 IMPLEMENTATION. METHOD encrypt05. - CONSTANTS: + CONSTANTS lc_exp TYPE xstring VALUE '1462EE073B051AA7212254B7333BBAA65723F9D0E3FED2D9E27B93A69213806C50C7DD969B3F'. - DATA: lv_plain TYPE xstring. + DATA lv_plain TYPE xstring. lv_plain = zcl_abappgp_convert=>string_to_utf8( 'hellohellohellohello' ). diff --git a/src/zcl_abappgp_time.clas.abap b/src/zcl_abappgp_time.clas.abap index c109d96..eb911d3 100644 --- a/src/zcl_abappgp_time.clas.abap +++ b/src/zcl_abappgp_time.clas.abap @@ -38,7 +38,7 @@ CLASS ZCL_ABAPPGP_TIME IMPLEMENTATION. METHOD get_unix. - CONSTANTS: lc_epoch TYPE datum VALUE '19700101'. + CONSTANTS lc_epoch TYPE datum VALUE '19700101'. DATA: lv_i TYPE i, lv_tz TYPE tznzone, diff --git a/src/zcl_abappgp_time.clas.testclasses.abap b/src/zcl_abappgp_time.clas.testclasses.abap index 892f177..fc98a3d 100644 --- a/src/zcl_abappgp_time.clas.testclasses.abap +++ b/src/zcl_abappgp_time.clas.testclasses.abap @@ -3,7 +3,7 @@ CLASS ltcl_format_unix DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS PRIVATE SECTION. - METHODS: format_unix FOR TESTING. + METHODS format_unix FOR TESTING. ENDCLASS. "ltcl_Format_Unix @@ -12,7 +12,7 @@ CLASS ltcl_format_unix IMPLEMENTATION. METHOD format_unix. - DATA: lv_formatted TYPE string. + DATA lv_formatted TYPE string. lv_formatted = zcl_abappgp_time=>format_unix( 1479483416 ).