This commit is contained in:
louiscklaw
2025-02-01 01:58:47 +08:00
parent b3da7aaef5
commit 04dbefcbaf
1259 changed files with 280657 additions and 0 deletions

View File

@@ -0,0 +1,47 @@
*&---------------------------------------------------------------------*
*& Report  Z_05_INT_TABLE *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT Z_05_INT_TABLE
TYPES: BEGIN OF INT_REC.
CUSTOMER TYPE C LENGTH 5,
LNAME TYPE C LENGTH 9,
FNAME TYPE C LENGTH 9,
END OF INT_REC.
DATA: WA TYPE INT_REC,
ITABLE TYPE TABLE OF INT_REC.
WA-CUSTOMER = '12345'
WA-LNAME = 'Porter'.
WA-FNAME = 'John'.
APPEND WA TO ITABLE.
WA-CUSTOMER = '12346'.
WA-LNAME = 'Porter'.
WA-FNAME = 'May'.
APPEND WA TO ITABLE.
WA-CUSTOMER = '12347'.
WA-LNAME = 'Carter'.
WA-FNAME = 'John'.
APPEND WA TO ITABLE.
WA-CUSTOMER = '12348'.
WA-LNAME = 'Porter'.
WA-FNAME = 'Peter'.
APPEND WA TO ITABLE.
WRITE: / 'Customer', 'Last Name', 'First Name'.
ULINE / (29).
LOOP AT ITABLE INTO WA.
WRITE: / WA-CUSTOMER UNDER 'Customer'.
WA-LNAME UNDER 'Last Name',
WA-FNAME UNDER 'First Name'.
ENDLOOP.