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.