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);

1 - Arguments

 persona

    OpenVMS usage:persona
    type:         longword (unsigned)
    access:       write only
    mechanism:    by reference
    Address of a longword into which the persona identification
    handle is written.

 input

    OpenVMS usage:persona
    type:         longword (unsigned)
    access:       write only
    mechanism:    by reference
    Address of a longword containing the persona identification of
    the persona to be cloned. If this argument is 0, null, or absent,
    the currently active persona is cloned.