19 lines
528 B
Rexx
19 lines
528 B
Rexx
/* Rexx ***************************************************************
|
|
* 16.05.2013 Walter Pachl
|
|
**********************************************************************/
|
|
|
|
s1 = 'This is a Rexx string'
|
|
s2 = s1 /* does not copy the string */
|
|
|
|
Say 's1='s1
|
|
Say 's2='s2
|
|
i1=s1~identityhash; Say 's1~identityhash='i1
|
|
i2=s2~identityhash; Say 's2~identityhash='i2
|
|
|
|
s2 = s2~changestr('*', '*') /* creates a modified copy */
|
|
|
|
Say 's1='s1
|
|
Say 's2='s2
|
|
i1=s1~identityhash; Say 's1~identityhash='i1
|
|
i2=s2~identityhash; Say 's2~identityhash='i2
|