louiscklaw/004_comission
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

update,

Browse Source
This commit is contained in:
louiscklaw
2025-01-31 19:15:17 +08:00
parent 09adae8c8e
commit 6c60a73f30
1546 changed files with 286918 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
_resources/it114105/itp4512/Lab08/README.md.original Normal file
View File

@@ -0,0 +1,37 @@
#### Function Group Z_08_FG_B
| Package | |
|---------|---|
and use Local Object
#### Function Z_FM_DIVIDE_B
Import
| Parameter Name | Type... | Associated Type |
|----------------|---------|-----------------|
| N1 | TYPE | I |
| N2 | TYPR | I |
Export
| Parameter Name | Type... | Associated Type |
|----------------|---------|-----------------|
| R1 | TYPE | F |
#### Function module Z_FM_DIVIDE_CHECK_B
Import
| Parameter Name | Type... | Associated Type |
|----------------|---------|-----------------|
| N1 | TYPE | I |
| N2 | TYPR | I |
Export
| Parameter Name | Type... | Associated Type |
|----------------|---------|-----------------|
| R1 | TYPE | F |
Exception
| Exception | Short text |
|-------------|----------------|
| ZERO_NUMBER | Number is zero |

28
_resources/it114105/itp4512/Lab08/Z_08_FM_DIVIDE.abap Normal file
View File

@@ -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.

31
_resources/it114105/itp4512/Lab08/Z_08_FM_DIVIDE_CHECK.abap Normal file
View File

@@ -0,0 +1,31 @@
*&---------------------------------------------------------------------*
*& Report  Z_08_FM_DIVIDE_CHECK *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT Z_08_FM_DIVIDE
PARAMETER NUMBER1 TYPE I.
PARAMETER NUMBER2 TYPE I.
DATA RESULT TYPE F.
DATA P_RESULT TYPE P DECIMALS 2.
CALL FUNCTION 'Z_FM_DIVIDE_B'
EXPORTING
N1 = NUMBER1
N2 = NUMBER2
IMPORTING
R1 = REUSLT
EXCEPTION
ZERO_NUMBER = 1
OTHER = 2.
IF SY-SUBRC = 1.
MESSAGE I005(Z_MESSAGE_B) DISPLAY LIKE 'E'.
ELSE.
MOVE RESULT TO P_RESULT.
WRITE: / 'Result:', P_RESULT.
ENDIF.

15
_resources/it114105/itp4512/Lab08/Z_FM_DIVIDE_B.abap Normal file
View 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.

19
_resources/it114105/itp4512/Lab08/Z_FM_DIVIDE_CHECK_B.abap Normal file
View File

@@ -0,0 +1,19 @@
FUNCTION Z_FM_DIVIDE_B.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" REFERENCE(N1) TYPE I
*" REFERENCE(N2) TYPE I
*" EXPORTING
*" REFERENCE(R1) TYPE F
*" EXCEPTION
*" ZERO_NUMBER
*"----------------------------------------------------------------------
IF N2 <> 0.
R1 = N1 / N2.
ELSE.
RAISE ZERO_NUMBER.
ENDIF.
ENDFUNCTION.