I set up a Kerberos Environment using TSS (Top Secret) . I would like to test
it out and found this program.
IDENTIFICATION DIVISION.
PROGRAM-ID. KerberosAccess.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Service-Principal-Name PIC X(128).
01 User-Name PIC X(128).
01 Password PIC X(128).
01 Ticket BUFFER.
01 Ticket-Length PIC S9(9) COMP-5.
PROCEDURE DIVISION.
MOVE "service@realm" TO Service-Principal-Name.
MOVE "username" TO User-Name.
MOVE "password" TO Password.
CALL 'Kerberos_Init' USING ... (Initialize Kerberos)
CALL 'Kerberos_GetTicket' USING ...
Service-Principal-Name
User-Name
Password
Ticket
Ticket-Length.
IF Ticket-Length > 0
DISPLAY "Ticket obtained successfully"
ELSE
DISPLAY "Failed to obtain ticket"
END-IF.
CALL 'Kerberos_Cleanup' USING ... (Cleanup resources)
STOP RUN.
Do you think it will work and does anyone have the USING code for the Kerberos
INIT and CLEANUP calls?
The system is z/OS v2.4.
Thank You
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
