++APAR(ASZ2956). /*-----------------------------------------------------
ASZ2956 WAS PICKED UP BY ASP0742 SHIPPED - Y2000.

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 1997.

ASZ2956 971105 61VASE GG OMCSV2  P711 INCORROUT  ASEDAM.. 971106 S__-GSG
file creation, modification and backup timestamps can be wrong

_PROBLEM DESCRIPTION:
(this is how the users perceive the problem - may be many symptoms)
database file timestamps can be wrong. especially when the DATE command
has been used to alter system clock while leaving the tod clock the
same. shows up when shifting clock ahead by 2 years for y2k testing.

_PROBLEM SUMMARY:
USERS AFFECTED: Any users altering system clock more than 24 hrs from
                Time of day clock value.

The database access method creates a time of day clock value by adding
the CVTTZ adjustment value to the current TOD clock value.  This works
only so long as the difference between the TOD clock (usually set to GMT
time) and local system time is less than 24 hours. When this difference
is 24 hours or greater we should be using the value held in CVT
extension field CVTLTDO, a 64bit correction factor which when logically
added to the TOD clock value gives the current system time.

_PROBLEM CONCLUSION
RECOMMENDATION: Apply APAR fix ASZ2956

ASEDAMGR will be modified to correctly convert the tod clock value to
system time.

_SMP/E SITES PLEASE NOTE:

1. If you have PTF ASP0699 installed on your system, you may apply two
   or more source update APAR fixes to the same source module
   simultaneously.  If you do not have PTF ASP0699 installed, do NOT
   attempt to apply two or more source update APAR fixes to the same
   source module simultaneously - you will get incorrect results.

_NON-SMP/E SITES PLEASE NOTE:

1. Apply this fix using the ASMPMAIN program.  Refer to ASE Technical
   Bulletin TB90-0014 for sample JCL for running this program or see
   the .ASESAMP member called RUNASMP.

NEED FURTHER HELP?  CALL ASE FOR ASSISTANCE.

       */
++VER(Z038) FMID(ASEB200) PRE(ASP0711,ASP0721,ASZ2941,ASZ2942).
++ZAP(ASEDAMDM).
NAME ASEDAMDM
IDRDATA ASZ2956
*   loc  code         label    oper  operands      comments
VER 0FE4 41100004     INITJB   LA    R1,4          VERIFY PATCH POINT
VER 1CA8 BCA8                  DC    S(*)          VERIFY FREE AREA
REP 1CA8 B205A630     ASZ2956A STCK  CVDDWD        STORE TOD CLOCK
REP 1CAC 5800A630              L     R0,CVDDWD     R0=BITS 0-31 OF TOD
REP 1CB0 58F00010              L     R15,CVTPTR    R15->CVT
REP 1CB4 58F0F148              L     R15,CVTEXT2   R15->OS/VS CVT EXTN
REP 1CB8 5E00F038              AL    R0,CVTLDTO    LOCAL DATE/TIME OFFS
REP 1CBC 5000A630              ST    R0,CVDDWD     SAVE ADJUSTED VALUE
REP 1CC0 47F0CFEE              B     INITJB+6      RETURN FROM PATCH
REP 0FE4 47F0BCA8     INITJB   B     ASZ2956A      CONNECT THE PATCH
*
++ZAP(ASEDAMFM).
NAME ASEDAMFM
IDRDATA ASZ2956
*   loc  code         label    oper  operands      comments
VER 0092 5E0F0130              AL    R0,X'130'(R15)  VERIFY PATCH POINT
VER 1BD8 BBD8                  DC    S(*)          VERIFY FREE AREA
REP 1BD8 58F0F148     ASZ2956B L     R15,CVTEXT2   R15->OS/VS CVT EXTN
REP 1BDC 5E00F038              AL    R0,CVTLDTO    LOCAL DATE/TIME OFFS
REP 1BE0 07FE                  BR    R14           RETURN FROM PATCH
REP 0092 45E0BBD8              BAL   R14,asz2956   CONNECT THE PATCH
*
VER 078E 5E0F0130              AL    R0,X'130'(R15)  VERIFY PATCH POINT
REP 078E 45E0BBD8              BAL   R14,ASZ2956B  CONNECT THE PATCH
*
VER 2BC8 5E0F0130              AL    R0,X'130'(R15)  VERIFY PATCH POINT
VER 3D58 BD58                  DC    S(*)          VERIFY FREE AREA
REP 3D58 58F0F148     ASZ2956C L     R15,CVTEXT2   R15->OS/VS CVT EXTN
REP 3D5C 5E00F038              AL    R0,CVTLDTO    LOCAL DATE/TIME OFFS
REP 3D60 07FE                  BR    R14           RETURN FROM PATCH
REP 2BC8 45E0BD58              BAL   R14,ASZ2956C  CONNECT THE PATCH
*LMOD ASEDAMGR,OMCSTSSJ,OMCSIRUV