Recursively copy an object into a component. This means that the complete object (including its components and its components’ s components, etc.) is copied, not just the top level.

This routine is exactly like DAT_COPY except that it will copy array slices, which DAT_COPY will not.

CALL KPG1_DATCP( LOC1, LOC2, NAME, STATUS )

LOC1 = CHARACTER $\ast$ ( $\ast$ ) (Given)

LOC2 = CHARACTER $\ast$ ( $\ast$ ) (Given)

NAME = CHARACTER $\ast$ ( $\ast$ ) (Given)

STATUS = INTEGER (Given and Returned)