On Alpha and Integrity server systems, creates a copy of an
    existing persona within the context of the current process. The
    service returns the assigned persona identification for the new
    persona in the persona argument. This persona can be assumed
    using the $PERSONA_ASSUME service.

    Format

      SYS$PERSONA_CLONE  persona ,[input]

    C Prototype

      int sys$persona_clone  (unsigned int *persona, unsigned int

                             *input);