Why not? You said you wanted "an algorithm (whatever language suche a
C/C++/Java) to make a Passticket". The page has such an algorithm, though I
don't recognize what language it's written in:

<quote>
* PASSTICKET GENERATION
GEN      DS     0H
        SETAMOD 31
        MODESET KEY=ZERO,MODE=SUP
        L      R15,16                 Get pointer to CVT
        USING  CVT,R15                Make CVT addressable
        L      R15,CVTRAC             Get pointer to RACF CVT (RCVT)
        USING  RCVT,R15               Make RCVT addressable
        L      R15,RCVTPTGN           Get pointer to PassTicket rtn
        CALL   (15),(USERID,APPNAME)  Call PassTicket generator
        ST     R15,RC                          SAVE RETURN-CODE
        STM    R0,R1,PTKTFLD         Store PassTicket in PTKTFLD
        MODESET KEY=NZERO,MODE=PROB
        SETAMOD 24
* DATA
        DS    0D
PTKTFLD  DS    CL8
USERID   DS    0CL9            Userid Structure:
USERIDL  DS    AL1(7)          ->   NUMBER OF USERID CHARACTER
USERIDN  DS    CL8'IBMUSER '
APPNAME  DS    0CL9            APPL Name Structure:
APPNAMEL DS    AL1(4)          ->   NUMBER OF APPNAME CHARACTER
APPNAMEN DS    CL8'IMS1    '
RC       DS    F               Return Code
        LTORG
        CVT DSECT=YES,LIST=NO
        ICHPRCVT

*----------------------------------------------------------------------*
* Return Code     +       Description                                  *
*-----------------+----------------------------------------------------*
* 0                 Successful completion. The resulting session key is*
*                   contained in general purpose registers 0 and 1.    *
*-----------------+----------------------------------------------------*
* 4                 Incorrect PassTicket                               *
*-----------------+----------------------------------------------------*
* 8                 No PTKTDATA profile found for the application      *
*-----------------+----------------------------------------------------*
* C                 No task or address space ACEE found, and the ACEE  *
*                   pointer was not specified on the input parameter   *
*                   list.                                              *
*-----------------+----------------------------------------------------*
* 10                Caller is not authorized                           *
*-----------------+----------------------------------------------------*
* 14                The RACF PTKTDATA class is not active              *
*-----------------+----------------------------------------------------*
</quote>

   - Oliver