[SATLUG] San Antonio's Daily WTF

[Sexton, Art, ISD]

My contribution today is in OS390 assembler...but I will translate for
those of you who do not speak that language.

I uncovered this one while debugging Y2k changes and kept it
as...well...a WTF.  Now keep in mind this one did not bite us until Dec
31, 2000.


********************************************************************
*  WE ARE ADDING ONE TO THE CICS MONTH AND COMPARING THIS TO THE   *
*  SETTLE MONTH TO DETERMINE IF TRAN SHOULD USE THIS YEAR OR PREV  *
*  YEAR FOR YEAR TO BE PUT ON LOG RECORD                           *
********************************************************************
MVXTOE28 EQU   *                       REASON: YEAR END PROCESSING  
         MVC   WORKFLD1,=C'0000000000000000'                        
         MVC   WORKFLD1+14(2),CICSDTMM                              
         PACK  WORKFLD1,WORKFLD1                                    
         OI    WORKFLD1+15,X'0F'                                    
         AP    WORKFLD1,=P'1'                                       
         UNPK  CICSDTMM,WORKFLD1+14(2)                              
         OI    CICSDTMM+1,X'F0'                                     
         CLC   EMASMON,CICSDTMM                                     
         BH    MVXTOE29                                             
         B     MVXTOE30                                             
MVXTOE29 EQU   *                       REASON: USE PREV YEAR        
         EXEC CICS ASKTIME ABSTIME(CICSTIME)                        
         EXEC CICS FORMATTIME ABSTIME(CICSTIME) MMDDYY(CICSDATE)    
         MVC   EMASYR,CICSDTYY                                      
         CLC   EMASYR,=C'00'          IS IT 2000 TRAN ?             
         BE    MVXTOE28                                       (yep, you
read that right, as Dec 2000 rolls to Jan 2001, we will go into a hard
loop on trascations that cross over and will, and did, bring down the
CICS region)  

   


*****************************************************************************
If you are not the intended recipient of this e-mail, please notify 
the sender immediately. The contents of this e-mail do not amend 
any existing disclosures or agreements unless expressly stated.
*****************************************************************************