SAP Database

ABAP Programs: Copying fields

Print This Post Email This Post Written by admin on Nov 6th, 2007 | Filed under: ABAP Programs

REPORT ZSOURCE0701.

* move fields
DATA: NAME(25),
COUNTER TYPE I.
DATA: SOURCE LIKE NAME,
TARGET LIKE SOURCE.
MOVE: ‘Edison’ TO NAME,
17 TO COUNTER.
MOVE SOURCE TO TARGET.

* Using the compute command (keyword can be omitted)
COMPUTE TARGET = SOURCE.
TARGET = SOURCE.

* Concatenating compute commands
DATA: PHONE_1 LIKE SOURCE,
PHONE_2 LIKE PHONE_1,
PHONE_3 LIKE PHONE_2,
PHONE_4 LIKE PHONE_3.
PHONE_4 = PHONE_3 = PHONE_2 = PHONE_1 = SOURCE.
———————
ABAPer, mail: abap.community@gmail.com http://abaplearner.blogspot.com

If you like this post, you may as well like these too:

  1. ABAP Programs: Copying structured objects * Using move-corresponding to copy fields with the same nameDATA: BEGIN OF MY_CUSTOMER, ID(8) TYPE N, NAME(25), CITY(25), END OF MY_CUSTOMER, BEGIN OF CITY_OF_CUSTOMER, CITY LIKE MY_CUSTOMER-CITY, TEXT(30), ID...
  2. ABAP Programs: Using system fields REPORT ZSOURCE0409. WRITE: / ‘Current date’, SY-DATUM, / ‘Current table index’, SY-TABIX, / ‘Loop counter’, SY-INDEX, / ‘System return code’, SY-SUBRC.———————ABAPer, mail: abap.community@gmail.com http://abaplearner.blogspot.com ...
  3. ABAP Programs: Converting character fields REPORT ZSOURCE0703. * Truncating fields or padding with blanksDATA: SHORT_NAME(8), LONG_NAME(16).MOVE ‘Washington’ TO: SHORT_NAME, LONG_NAME.WRITE: / SHORT_NAME, LONG_NAME. * Take care of intermediate stepsLONG_NAME = SHORT_NAME = ‘Washington’.WRITE: /...
  4. ABAP Programs: Selecting Single Fields REPORT ZSOURCE1106.* Work area for a database tableTABLES CUSTOMERS.* Selecting single fieldsDATA: CID LIKE CUSTOMERS-ID, CNAME LIKE CUSTOMERS-NAME.SELECT ID NAME INTO (CID,CNAME) FROM CUSTOMERS. WRITE: / CID, CNAME.ENDSELECT. ~~~...
  5. ABAP Programs: Converting date fields * Using the built-in calendarDATA: RECEIVING_DATE TYPE D, LAST_ADMISSIBLE_DATE TYPE D. RECEIVING_DATE = ‘19980223′.LAST_ADMISSIBLE_DATE = RECEIVING_DATE + 10.WRITE / LAST_ADMISSIBLE_DATE. RECEIVING_DATE = ‘19980305′.LAST_ADMISSIBLE_DATE = RECEIVING_DATE + 10.WRITE / LAST_ADMISSIBLE_DATE....



Leave a Reply

  • Help Support CRY