Re: IBM Passticket Algorithm

From:

"Oliver Wong" <owong@castortech.com>

Newsgroups:

comp.lang.java.programmer

Date:

Fri, 28 Apr 2006 14:30:19 GMT

Message-ID:

<%Fp4g.172$zn1.129@edtnps90>

"PMA" <philippe.malka@gmail.com> wrote in message
news:1146208685.461967.111370@e56g2000cwe.googlegroups.com...

When I google for "Passticket IBM MVS RACF", I get
http://www.os390-mvs.freesurf.fr/passtkt.htm

Thanx I already got it it does not really help ...

    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