For SOLVE:Access I've now got request to add the usage of passticket beside the usage of phrase.
We use ACF2 security.
Following the instructions in manual we've added subsystem to our $acinit and ptkt=yes to the deflogon of the mai region, but no success.
-* PASSPHR Subsystem. *
&EASIPROC = &ZSYSPARM EASINET -* RO94160
&IF &EASIPROC = EASIPANL1 &THEN + -* RO94160
SUBSYS DEFINE=PASSPHR PGM=UTIL0050 PARMLIST=NEW -* RO94160
-* *
-***********************************************************************
sh deflogon=mai16
N13205 -INPUT-- OPT --APPL-- --MID--- LOGMODE- MSHR DATA
N13218 MPREF REFRESH MRESP- LIMIT ACTION NTFY APPST SESS- -MAX- PASSTKT-
N13206 MAI16 IGE MAI16 NMT16 - NO INPUT1
N13219 - - AFTER - - YES YES 0 0 MAI16
N13207 NET/MASTER MAI User TST
N11907 *END*
sh deflogon=enter
N13205 -INPUT-- OPT --APPL-- --MID--- LOGMODE- MSHR DATA
N13218 MPREF REFRESH MRESP- LIMIT ACTION NTFY APPST SESS- -MAX- PASSTKT-
N13206 ENTER IGE MAI16 NMT - NO INPUT1
N13219 - - AFTER - - YES YES 0 0 MAI16
N11907 *END*
** END OF DELIVERED MESSAGES **
Got error
08.22.52 N03802 LNE00550 &APPNAME = MAI16
08.22.52 N03802 LNE00551 &WRITE COLOR=RED APPNAME MAI16
08.22.52 N03802 LNE00553 &CALL SUBSYS=PASSPHR VERIFY USERID=&UID PHRASE=&PHRASE NEWPHR=&NEWPHR APP=&APPNAME DUMMY DUM
08.22.52 N03802 LNE00596 &SUBSYSRC = 4
08.22.52 N03802 LNE00597 &IF 4 EQ 0
08.22.52 N03802 LNE00618 &IF 4 EQ 4
08.22.52 N03802 LNE00618 &DO
08.22.52 N03802 LNE00620 &SYSMSG = U050-06 PASS TICKET ROUTINE FAILED RC = 08
08.22.52 N03802 LNE00621 &MSG1 = &STR No password or pass ticket will be forwarded
08.22.52 N03802 LNE00622 &ENTERREQ = &STR Hit Enter to continue logon
08.22.52 N03802 LNE00623 &PHRASE1 =
08.22.52 N03802 LNE00624 &PHRASE2 =
08.22.52 N03802 LNE00625 &NEWPHR1 =
08.22.52 N03802 LNE00626 &NEWPHR2 =
08.22.52 N03802 LNE00627 &MSG2 =
08.22.52 N03802 LNE00628 &MSG3 =
08.22.52 N03802 LNE00629 &MSG4 =
08.22.52 N03802 LNE00630 &MSG5 =
Anything else that needs to be added or changed to generate a passticket ?
Release : 5.0
Component : SOLVE:Access Session Management
The actual error is the RC=4 returned from the subsystem indicating insufficient security.
08.22.52 N03802 LNE00596 &SUBSYSRC = 4
An example passticket definition for ACF2 is
SET PROFILE(PTKTDATA) DIVISION(SSIGNON)
INSERT A43MAI SSKEY(sessionkey)
F ACF2,REBUILD(PTK),CLASS(P)