REPORT  z03_026                                                     .
DATA: BEGIN OF fs1,
  int TYPE i VALUE 5,
  pack TYPE p DECIMALS 3 VALUE '2.261',
  text(10) TYPE c VALUE 'Fine text',
  float TYPE f VALUE '1.234e+05',
  date TYPE d VALUE '19950916',
END OF fs1.
      
DATA: BEGIN OF fs2,
  int TYPE i VALUE 3,
  pack TYPE p DECIMALS 2 VALUE '72.34',
  text(5) TYPE c VALUE 'Hello',
END OF fs2.

WRITE: / fs1-int, fs1-pack, fs1-text.   
MOVE fs1 TO fs2.

WRITE: / fs2-int, fs2-pack, fs2-text.