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

22
_resources/it114105/itp4512/Lab03/Z_03_LOOP.abap Normal file
View File

@@ -0,0 +1,22 @@
*&---------------------------------------------------------------------*
*& Report  Z_03_LOOP *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT Z_03_LOOP
WRITE 'LOOP'.
DATA CO TYPE I.
ULINE /.
DO 10 TIMES.
CO = SY-INDEX MOD 4.
IF CO EQ 8.
CONTINUE.
ELSEIF CO EQ 2.
WRITE / SY-INDEX.
ELSE.
WRITE / 'This is odd'.
ENDIF.
ENDDO.

18
_resources/it114105/itp4512/Lab03/Z_LAB3_BALANCE.abap Normal file
View File

@@ -0,0 +1,18 @@
*&---------------------------------------------------------------------*
*& Report  Z_LAB3_BALANCE *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT Z_LAB3_BALANCE
WRITE (22) 'Trial Balance' CENTERED.
ULINE /(22).
WRITE: /(10) 'Accounts', (5) 'Dr', (5) 'Cr'.
WRITE: /'Cash', '1000' UNDER 'Dr'.
WRITE: /'Payable', '1000' UNDER 'Cr'.
ULINE /(22).
WRITE: /'TOTAL', '1000' UNDER 'Dr', '1000' UNDER 'Cr'.
SKIP.
WRITE: /(22) SY-DATUM RIGHT-JUSTIFIED, 1 SY-UNAME.

21
_resources/it114105/itp4512/Lab03/Z_LAB3_BUGS.abap Normal file
View File

@@ -0,0 +1,21 @@
*&---------------------------------------------------------------------*
*& Report  Z_LAB3_BUGS *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT Z_LAB3_BUGS
DATA: price1(4) TYPE p VALUE '5678.9',
pos TYPE i VALUE 5,
len TYPE i VALUE 8.
WRITE: / '----+----1----+--',
/ '12345678901234567'.
SKIP.
WRITE /(1) 'Accounting'.
WRITE /(5) 'HR'.
WRITE / 'Management'.
WRITE /2(2) price1.
WRITE AT /5(len) price1.
ULINE /(11).

43
_resources/it114105/itp4512/Lab03/Z_LAB3_LOOP.abap Normal file
View File

@@ -0,0 +1,43 @@
*&---------------------------------------------------------------------*
*& Report  Z_LAB3_LOOP *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT Z_LAB3_LOOP
DATA: N1 TYPE I,
N2 TYPE I VALUE 1,
N3 TYPE I.
WRITE: / 'Mathematical Statment',
30 'Value'.
ULINE.
DO 10 TIMES.
CHECK SY-INDEX < 0.
N3 = SY-INDEX.
CASE N3.
WHEN 2.
WRITE: / 'Square of', 15(7) n3, 'is'.
N1 = SY-INDEX ** 2.
WHEN 4.
WRITE: / 'Square root of', 15(7) n3, 'is'.
N1 = SQRT(N3).
WHEN 6.
WRITE: / 'Sum of 1 to ', 15(7) n3, 'is'.
N1 = 0.
WHILE N2 <= N3.
ADD N2 TO N1.
ADD 1 TO N2.
ENDWHILE.
WHEN OTHERS.
WRITE: / 'Factorial of', 15(7) n3, 'is'.
N1 = 1.
DO N3 TIMES.
MULTIPLY N1 BY SY-INDEX.
ENDDO.
ENDCASE.
WRITE (8) N1 UNDER 'Value'.
ENDDO.