update,

it114105/itp4512/Lab05/Z_05_INT_TABLE.abap

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

it114105/itp4512/Lab05/Z_05_SELECT.abap

@@ -0,0 +1,27 @@
+*&---------------------------------------------------------------------*
+*& Report  Z_05_SELECT                                                 *
+*&                                                                     *
+*&---------------------------------------------------------------------*
+*&                                                                     *
+*&                                                                     *
+*&---------------------------------------------------------------------*
+
+REPORT Z_05_SELECT
+
+DATA WA TYPE ZCUST.
+DATA ITAB TYPE TABLE OF ZCUST.
+
+WRITE:  /5(5) 'Cust ID',
+        20 'First Name',
+        40 'Last Name'.
+        60 'Sales Val'.
+
+SELECT * FROM ZCUST INTO TABLE ITAB
+         WHERE VIP_FLAG <> 'X'
+
+LOOP AT ITAB INTO WA.
+    WRITE: / WA-KUNNR UNDER 'Cust ID',
+             WA-FNAME UNDER 'First Name',
+             WA-LNAME UNDER 'Last Name',
+             WA-SALES_VAL UNDER 'Sales Val'.
+ENDLOOP.

it114105/itp4512/Lab05/Z_05_UPDATE.abap

@@ -0,0 +1,27 @@
+*&---------------------------------------------------------------------*
+*& Report  Z_05_UPDATE                                                 *
+*&                                                                     *
+*&---------------------------------------------------------------------*
+*&                                                                     *
+*&                                                                     *
+*&---------------------------------------------------------------------*
+
+REPORT Z_05_UPDATE
+
+DATA WA TYPE ZCUST.
+WA-KUNNR = '0000012345'.
+
+SELECT * FROM ZCUST INTO WA WHERE KUNNR = WA-KUNNR.
+    WRITE: / WA-KUNNR, WA-MOD_DATE, WA-SALES_VAL.
+ENDSELECT.
+
+WA-MOD_DATE = SY-DATUM.
+WA-SALES_VAL = 123456.
+
+UPDATE ZCUST SET MOD_DATE = WA-MOD_DATE 
+                 SALES_VAL = WA-SALES_VAL
+             WHERE KUNNR = WA-KUNNR.
+            
+SELECT * FROM ZCUST INTO WA WHERE KUNNR = WA-KUNNR.
+    WRITE: / WA-KUNNR, WA-MOD_DATE, WA-SALES_VAL.
+ENDSELECT.