shift string1 by 3 places right.

code ->

data: string1(10) type c value 'abcdefghij',
      string2 like string1.

write:  / 'Before Manipulations : ',
        / 'string1 = ',string1,
        / 'string2 = ',string2.

string2 = string1.
shift string1.

write : / 'after one shift first letter is gone :-) (leftShift)',
          ' ', string1.

write : / 'after the shift operation there is a permanent change in',
          'the field value of string1'.
shift string1 by 3 places right.

write : / 'after shifting 3 places on the right-', string1,
        / 'DOUBT - only ij has gone, but hij should have gone right ?'.
        


write : / 'string2 also has same as string1 had initially-', string2.

shift string2 by 3 places right.

write : / 'after shifting 3 places on the right-', string2.

Doubt has been marked in the code itself. This is my first post. Please do explain me concept , in the above code,if i am wrong.