North Ridge Software
Logon | Search | Go to
About UsProductsSolutionsResourcesSupport
Home : Support : APARs
Contact Support
Documentation
Status
APARs
Buckets

Criteria is now using saved Site values

TND41079: Correct RACF Warning logic over Year2000 boundary

PTF TND41079
Title Correct RACF Warning logic over Year2000 boundary
Product TND423 Date Opened 1/5/2000 
Status Closed Date Closed 2/20/2000  Fixed 424
Group Level2  Related NRS6251  Bucket?
PTF
NAME DIRECTOR TNDPATCH
VER 0D40 CD40,CD42,CD44,CD46,CD48
REP 0D40 9201,C1BB             MVI  PDAJDATE,X'01'
REP 0D44 4120,A1CE             LA    R2,DAYSMON
REP 0D48 07F8                  BR   *RETURN*
VER 20A5 00                            VERIFY PTF NOT ON
REP 20A5 D2                            TND41079 IS NOW ON

NAME DIRECTOR TNDSTCK
VER 016C 4E50,C5E8             CVD   R5,PDADWORD
VER 0170 D201,C1BD,C5EE        MVC   PDAJDATE+2(2),PDADWORD+6
VER 0176 960F,C1BE             OI    PDAJDATE+3,X'0F'
VER 017A 1894                  LR    R9,R4
VER 017C 4120,A1CE             LA    R2,DAYSMON
VER 0180 4155,0001             LA    R5,1(R5)
REP 016C 4155,0001             LA    R5,1(R5)
REP 0170 4E50,C5E8             CVD   R5,PDADWORD
REP 0174 D201,C1BD,C5EE        MVC   PDAJDATE+2(2),PDADWORD+6
REP 017A 960F,C1BE             OI    PDAJDATE+3,X'0F'
REP 017E 1894                  LR    R9,R4
REP 0180 4580,CD40             BAL   R8,*PATCH*
NAME DIRECTOR TNDRACF
VER 0356 4110,0002             LA    1,2(0,0)
VER 035A 0A0B                  SVC   11
VER 035C D707,C5E8,C5E8        XC    PDADWORD,PDADWORD
VER 0362 5010,C5F8             ST    R1,PDAFWORD
VER 0366 9200,C5F9             MVI   PDAFWORD+1,PDAE0
VER 036A 5860,0010             L     R6,16
VER 036E 5866,03E0             L     R6,X'3E0'(R6)
VER 0372 5010,C5EC             ST    R1,PDADWORD+4
VER 0376 F030,C5EC,003D        SRP   PDADWORD+4(4),64-3,0
VER 037C D203,C5E8,C708        MVC   PDADWORD(4),PDAF0
VER 0382 4F10,C5E8             CVB   R1,PDADWORD
VER 0386 D203,C5EC,D0B4        MVC   PDADWORD+4(4),WAEINSTL+4
VER 038C F030,C5EC,003D        SRP   PDADWORD+4(4),64-3,0
VER 0392 D203,C5E8,C708        MVC   PDADWORD(4),PDAF0
VER 0398 4F00,C5E8             CVB   R0,PDADWORD
VER 039C 9200,D0B5             MVI   WAEINSTL+5,PDAE0
VER 03A0 1B10                  SR    R1,R0
VER 03A2 47D0,A3AA             BNP   RACF1150
VER 03A6 4C10,AAB4             MH    R1,=H'365'
VER 03AA D203,C5EC,C5F8        MVC   PDADWORD+4(4),PDAFWORD
VER 03B0 4F20,C5E8             CVB   R2,PDADWORD
VER 03B4 1A21                  AR    R2,R1
VER 03B6 D203,C5EC,D0B4        MVC   PDADWORD+4(4),WAEINSTL+4
VER 03BC 4F30,C5E8             CVB   R3,PDADWORD
VER 03C0 1B23                  SR    R2,R3
REP 0356 D707,C5E8,C5E8        XC    PDADWORD,PDADWORD
REP 035C D203,C5EC,C1BB        MVC   PDADWORD+4(4),PDAJDATE
REP 0362 F030,C5EC,003D        SRP   PDADWORD+4(4),64-3,0
REP 0368 4F20,C5E8             CVB   R2,PDADWORD
REP 036C D203,C5EC,D0B4        MVC   PDADWORD+4(4),WAEINSTL+4
REP 0372 F030,C5EC,003D        SRP   PDADWORD+4(4),64-3,0
REP 0378 4F00,C5E8             CVB   R0,PDADWORD
REP 037C 1B20                  SR    R2,R0
REP 037E 47D0,A3AA             BNP   RACF1150
REP 0382 4C20,AAB4             MH    R2,=H'365'
REP 0386 D203,C5EC,C1BB        MVC   PDADWORD+4(4),PDAJDATE
REP 038C D201,C5EC,C708        MVC   PDADWORD+4(2),PDAF0
REP 0392 4F10,C5E8             CVB   R1,PDADWORD
REP 0396 1A21                  AR    R2,R1
REP 0398 D203,C5EC,D0B4        MVC   PDADWORD+4(4),WAEINSTL+4
REP 039E D201,C5EC,C708        MVC   PDADWORD+4(2),PDAF0
REP 03A4 4F10,C5E8             CVB   R1,PDADWORD
REP 03A8 1B21                  SR    R2,R1
REP 03AA 5860,0010             L     R6,16
REP 03AE 5866,03E0             L     R6,X'3E0'(R6)
REP 03B2 47F0,A3C2             B     *CONTINUE*

Commentary

Tuesday, January 16, 2001 at 03:20:31 pm   
This PTF corrects logic in the Director's RACF interface routine related to computing whether the TND0602 password expiration warning message will be issued or not. The Director was incorrectly computing the number of days that had elapsed from "date last set" if the date involved a julian date past 1/1/2000. This PTF also corrects internal processing related to proper computation of the Julian Date in PDAJDATE.

If you would like to download the displayed PTF then click on the "Download" button below.

Download North Ridge Software PTF
PTF TND41079
Action

----------
Copyright © 2024 by North Ridge Software, Inc./WebMaster@North-Ridge.com
   RidgeStar, Internet Services