update,

2025-02-01 01:58:47 +08:00
parent b3da7aaef5
commit 04dbefcbaf
1259 changed files with 280657 additions and 0 deletions
--- a/it114105/itp4512/Lab08/Z_08_FM_DIVIDE.abap
+++ b/it114105/itp4512/Lab08/Z_08_FM_DIVIDE.abap
@@ -0,0 +1,28 @@
+*&---------------------------------------------------------------------*
+*& Report  Z_08_FM_DIVIDE                                              *
+*&                                                                     *
+*&---------------------------------------------------------------------*
+*&                                                                     *
+*&                                                                     *
+*&---------------------------------------------------------------------*
+
+REPORT Z_08_FM_DIVIDE
+
+PARAMETER NUMBER1 TYPE I.
+PARAMETER NUMBER2 TYPE I.
+DATA RESULT TYPE F.
+DATA P_RESULT TYPE P DECIMALS 2.
+
+IF NUMBER2 = 0.
+    MESSAGE I004(Z_MESSAGE_B).
+ELSE.
+    CALL FUNCTION 'Z_FM_DIVIDE_B'
+     EXPORTING
+        N1 = NUMBER1
+        N2 = NUMBER2
+     IMPORTING
+        R1 = REUSLT.
+
+    MOVE RESULT TO P_RESULT.
+    WRITE: / 'Result:', P_RESULT.
+ENDIF.