NAME DIRECTOR TNDPATCH
VER 0D90 CD90,CD92,CD94,CD96,CD98,CD9A,CD9C,CD9E
VER 0DA0 CDA0,CDA2,CDA4,CDA6,CDA8,CDAA,CDAC,CDAE
VER 0DB0 CDB0,CDB2,CDB4,CDB6,CDB8,CDBA,CDBC
VER 2058 00
REP 0D90 50E0,D054 ST R14,WAELVL3
REP 0D94 D505,D0A0,ABAC CLC WAEVRBLE,=C'TICKET'
REP 0D9A 4770,AC18 BNE VAR7700+4
REP 0D9E 4110,D058 LA R1,WAEPARMS
REP 0DA2 4100,9050 LA R0,WRKRTN
REP 0DA6 5001,0000 ST R0,0(R1)
REP 0DAA 92FF,1004 MVI 4(R1),PDAE255
REP 0DAE BFFF,C4A4 ICM R15,B'1111',PDAEXT40
REP 0DB2 4780,CDB8 BZ *NO EXIT AVAILABLE*
REP 0DB6 05EF BALR R14,R15
REP 0DB8 58E0,D054 L R14,WAELVL3
REP 0DBC 07FE BR R14
*
REP 2058 DF THIS PTF IS NOW ON
NAME DIRECTOR TNDVAR
VER 0BAC D207,9050,C8C9,50D0
VER 0C14 50E0,D054
REP 0BAC D3C9,C3D2,C5E3,4040 DC CL8'TICKET'
REP 0C14 47F0,CD90 B *PATCH*
Commentary
Friday, December 9, 2016 at 02:29:01 am
Code is intended to adapt TNDVAR's handling of &TICKET to build the parameter list required by the RACF PassTicket routine, get into Key zero, invoke PassTicket, exit Key zero, then provide the 8 character PassTicket for inclusion in INITIAL-DATA strings. When a failure occurs (assuming the patch works as intended), the resulting PassTicket will say NOUSER if there's no Userid, NOTARGET if the Application TARGET isn't set properly, or ERR nnnn where nnnn is the return code returned from the PassTicket routine.
NOTE: This patch has NOT been validated for operation at this time (work continues to complete verification).
Friday, January 13, 2017 at 10:48:14 am
Initial verification of the PTF failed (no difference in result). Turns out TNDVAR was incorrectly associating &TICKET with &DATEC (explaining why a Date always appeared when using &TICKET).
PTF adjusted to force TNDVAR to pass control for &TICKET to the correct processing routine to translate it properly and, by implication, properly giving control to the functional portions of this PTF.
Wednesday, February 1, 2017 at 10:27:45 am
After adjustment, Director no longer interpreted &TICKET as &DATEC, but...simply left the literal 'TICKET' in the stream instead of replacement. Frustration mounted on NRS end trying to do this with a PTF, so we opted to change the PTF to invoke TNDEXT40. Once the PTF works properly, we should be able to deal with PassTicket support in a source routine (specifically, TNDEXT40, which is available from Technical Support - once we manage to get this validated, that is).
Monday, August 13, 2018 at 10:04:29 am
No feedback from customer after delivery of EXT40, closed during Sunset processing.
If you would like to download the displayed PTF then click on the "Download" button below.
