Reading Part of the Strings

REPORT ZFMS_TEST_CODE.

data: c TYPE string VALUE 'this is string',
      INUTN TYPE ZFMS_TRHR-INUTN VALUE '41002013000122',
      c1(3),
      len TYPE i,
      DT TYPE ZFMS_TRHR-HYEAR.

len = STRLEN( c ).
len = len - 3.
c1 = c+len(3).
*WRITE / c1.
*WRITE INUTN+4(4).
DT = INUTN+4(4).
WRITE DT.


*41002013000122