Resources



Problem Fix Number: 4929

For SYSTEM 2000 Version: 1.0

Problem Status: ZD -- V1 FFD1

Description of Problem:

USING *FTODAY* IN A REPORT WRITER DECLARE AND LATER PRINTING IT SHOWS THE CURRENT DATE AS ONE DAY EARLIER THAT IT ACTUALLY IS. THIS OCCURS AFTER THE D


Download Fix:

Note:   Please send email to s2k@sas.com telling us which problem fixes you have downloaded so we can keep track of the fixes at your site in case questions or problems arise.


Top of Zap Deck:

 *  IBM V1.0    BUG 4929  MVS                                                    
 *                                                                               
 * BUG FIX 4929                                                                  
 *                                                                               
 * THIS ZAP WILL MAKE THE *FTODAY* FUNCTION WORK IN A VERSION 1 REPORT           
 * WRITER ENVIRONMENT.  THE SOURCE CHANGES TO THE NDATE ROUTINE FOR              
 * VERSION 1 OMITTED A CHECK FOR LEAP YEAR AND CAUSED THE *FTODAY*               
 * FUNCTION TO BE ONE DAY OFF FOR DATES AFTER 02/29/2000.  THE BUG IS            
 * ONLY FOR SPECIAL FORMATTING OPTIONS SENT TO NDATE BY THE INTERN               
 * MODULE.  INTERN IS USED BY REPORT WRITER ROUTINES TO FORMAT DATES             
 * APPROPRIATELY.                                                                
 *                                                                               
 NAME SYS2K NDATE                                                                
 VER 02EC 5840,D074,5A40,C5B4                                                    
 REP 02EC 58F0,A068,47F0,F088                                                    
 *                                                                               
 NAME SYS2K S2KPATCH                                                             
 VER 0088 0000,0000,0000,0000,0000,0000,0000,0000                                
 VER 0098 0000,0000,0000,0000,0000,0000,0000,0000                                
 VER 00A8 0000,0000                                                              
 REP 0088 5840,D05C,5940,C580,4770,F0A0,5840,D074                                
 REP 0098 5A40,C5B0,47F0,C2F4,5840,D074,5A40,C5B4                                
 REP 00A8 47F0,C2F4                                                              
 *                                                                               
 CHECKSUM F3AFB6B8                                                               

End of Zap Deck