some code

Getting Runtime

GET RUN TIME FIELD var_start.

PERFORM f_calculation.

GET RUN TIME FIELD var_end.

var_diff = var_end - var_start.

* Declare var_start.var_end as type 'i'. var_start would be 0 initially.

Getting the -ve number to the starting

var_csign TYPE /BIC/OITDATASOU .

CLEAR:var_csign.

var_csign = var_tranamt.

SEARCH var_csign FOR ‘-‘.

IF sy-subrc EQ 0 AND sy-fdpos NE 0.

SPLIT var_csign AT ‘-‘ INTO var_csign var_sign.

CONDENSE var_csign.

CONCATENATE ‘-‘ var_csign INTO var_csign.

ELSE.

CONDENSE var_csign.

ENDIF.

Notes: Change the datatype to CHAR

Hash Table

DATA :int_target TYPE HASHED TABLE OF y_target

WITH UNIQUE KEY

COMPANYCODE

CCTXTLG

ACCOUNT

ATXTLG

ERPID

ICP

ICPTXTLG

TRANSCURR

DATASOU

LCURR,

wa_target TYPE y_target. * Moving values to Hash Table to use Collect.

LOOP AT it_target INTO ls_target CLEAR:wa_target.

MOVE-CORRESPONDING ls_target TO wa_target.

Moving Field Symbol value to variable

data f1(4) value ‘ABC’.

DATA: v_val TYPE char4 VALUE ‘XYZA’.

field-symbols <f>.

assign f1 to <f>.

write<f>.
<f> = ‘ABD’.

Getting Source System
SOURCE_SYSTEM  = p_r_request->get_logsys( ).

Enabling/Disabling 3.X content
we made the value of one of the filed blank in RSADMINC table Value of field RSAWBN_HIDE_FUNC = ‘X’ in the table rsadminc table we made the value blank for that field this will enable the 3.x functionality