RosettaCodeData/Task/Pointers-and-references/COBOL/pointers-and-references-5.cobol

SET ptr1 TO ptr2            *> ptr1 points to where ptr2 points
SET ptr2 TO ADDRESS OF ptr3 *> ptr2 points to ptr3