update,
This commit is contained in:
15
it114105/itp4512/Lab08/Z_FM_DIVIDE_B.abap
Normal file
15
it114105/itp4512/Lab08/Z_FM_DIVIDE_B.abap
Normal file
@@ -0,0 +1,15 @@
|
||||
FUNCTION Z_FM_DIVIDE_B.
|
||||
*"----------------------------------------------------------------------
|
||||
*"*"Local interface:
|
||||
*" IMPORTING
|
||||
*" REFERENCE(N1) TYPE I
|
||||
*" REFERENCE(N2) TYPE I
|
||||
*" EXPORTING
|
||||
*" REFERENCE(R1) TYPE F
|
||||
*"----------------------------------------------------------------------
|
||||
|
||||
IF N2 <> 0.
|
||||
R1 = N1 / N2.
|
||||
ENDIF.
|
||||
|
||||
ENDFUNCTION.
|
Reference in New Issue
Block a user