*                                                                      
***********************************************************************
*                                                                      
*     DBSIMDAT REL2.00 PTF#016 (OPTIONAL -- NOT APPLIED)               
*                                                                      
*     DATABASE PROCEDURES ISSUING AN IDMS #GETIME MACRO CAN BE         
*     INTERCEPTED BY THE DATE SIMULATOR ONLY IF AN EYECATCHER AT       
*     IS PRESENT AT THE BEGINNING OF THE MODULE.  THIS EYECATCHER      
*     MUST ALSO BE ZAPPED INTO ONE OF THE DATE SIMULATOR'S INTERNAL    
*     TABLES. PREVIOUSLY, THE DATE SIMULATOR MATCHED ENTRIES IN THIS   
*     INTERNAL TABLE USING AN EXACT MATCH ON 8 CHARACTERS.  THIS PTF   
*     ALLOWS MATCHING ON FEWER THAN 8 BYTES.  THIS ALLOWS MULTIPLE     
*     DATABASE PROCEDURES WITH DIFFERENT EYECATCHERS TO BE INSERTED    
*     INTO THE TABLE WITH A SINGLE ENTRY IF THE EYECATHERS HAVE        
*     COMMON CHARACTERS AT THE BEGINNING.                              
*                                                                      
*     PTF'S #006 AND #009 ARE PREREQUISITE TO THIS PTF.                
*                                                                      
*     AFTER APPLYING THIS PTF, THE DATABASE PROCEDURE EYECATCHER       
*     CAN BE INSERTED IN THE TABLE AT OFFSET 12E IN CSECT DBS$CLMN     
*     OF MODULE DBS$CLMN. THE TABLE ENTRY CONSISTS OF A BINARY       
*     HALFWORD CONTAINING THE NUMBER OF CHARACTERS TO EXAMINE        
*     FOLLOWED BY THE CHARACTERS TO MATCH AGAINST (UP TO 8).         
*                                                                    
*     FOR EXAMPLE, TO ALLOW DATABASE PROCEDURE EYECATCHERS OF        
*     ANYTHING THAT STARTS WITH "DBPROC" (I.E., DBPROC01, DBPROC02   
*     ETC.), THE FOLLOWING ZAP WOULD BE USED                         
*        NAME DBS$CLMN DBS$CLMN                                      
*        VER 012E 0000,0000,0000,0000,0000                           
*        REP 012E 0006,C4C2,D7D9,D6C3,4040                           
*     ANOTHER EXAMPLE: TO ALLOW DATABASE PROCEDURE EYECATCHERS OF    
*     ANYTHING THAT STARTS WITH "XYZ" (I.E., XYZAAAAA, XYZ12345,     
*     XYZ$$, ETC.), THE FOLLOWING ZAP WOULD BE USED                  
*        NAME DBS$CLMN DBS$CLMN                                      
*        VER 012E 0000,0000,0000,0000,0000                           
*        REP 012E 0003,E7E8,E940,4040,4040                           
*                                                                    
*     A SECOND EYECATCHER CAN BE INSERTED (USING THE SAME FORMAT) AT 
*     OFFSET 138.                                                    
*                                                                    
*     WHEN RUNNING THE DATABASE PROCEDURES IN BATCH LOCAL MODE, THE 
*     HSL DATE SIMULATOR HAS NO IMPACT (IT RUNS IN CV).  HOWEVER,   
*     YOUR OPSYS BATCH DATE SIMULATOR TOOL (TICTOC, HOURGLASS, OR   
*     WHATEVER) WILL INTERCEPT THE DATE CALL.  BATCH RUNNING UNDER  
*     CV IS A LITTLE TRICKIER.  YOUR OPSYS BATCH DATE SIMULATOR     
*     WON'T HAVE ANY IMPACT BECAUSE THE DATE/TIME REQUEST IS BEING  
*     MADE BY THE DATABASE PROCEDURE WHICH IS IN IDMS CV'S ADDRESS  
*     SPACE. THE HSL DATE SIMULATOR CAN INTERCEPT THE DATE CALL.    
*     THE ONLY CRITERIA OF THE USECLK COMMAND THAT APPLY ARE USER   
*     (IT WILL MATCH AGAINST THE USER ID OF THE PERSON SUBMITTING   
*     THE BATCH JOB) AND TASK (THE TASK FOR ALL BATCH PROGRAMS WILL 
*     BE RHDCNP3S).                                                 
*                                                                   
*     NOTE:                                                         
*        MODULE DBS$CLMN IS A RESIDENT MODULE. FOR ZAPS TO TAKE     
*        AFFECT WITHOUT CYCLING CV, YOU MUST ISSUE THE FOLLOWING    
*        COMMANDS.  THIS WILL FORCE A RELOAD OF DBS$CLMN.           
*          VARYCLK OFF                                              
*          DCMT V PR DBS$CLMN NC                                    
*          VARYCLK ON                                               
*                                                                      
***********************************************************************
*                                                                      
   NAME DBS$CLMN DBS$CLMN                                              
*                                                                      
   VER 00D4 4170,C0B0,D507,7000,C67C,4780,C32A,D507                    
   VER 00E4 5000,7000,4780,C100,4177,0008,47F0,C094                    
   VER 00F4 E6C1,C9E3,C5D7,F240,5AC4,C1E3,C9D4,C540                    
   VER 0104 C5E7,D7C5,D7F1,4040,C3D6,C2C9,C5D7,F140                    
   VER 0114 C7C5,E3C4,C1E3,C540,4040,4040,4040,4040                    
   VER 0124 4040,4040,4040,4040,4040,4040,4040,4040                    
   VER 0134 4040,4040,4040,4040,4040,4040,4040,4040                    
*                                                                      
   REP 00D4 4170,C0B8,9500,7001,4780,C32A,4817,0000                    
   REP 00E4 0610,4410,C0B2,4780,C100,4177,000A,47F0                    
   REP 00F4 C094,D500,5000,7002,0008,E6C1,C9E3,C5D7                    
   REP 0104 F240,0008,5AC4,C1E3,C9D4,C540,0008,C5E7                    
   REP 0114 D7C5,D7F1,4040,0008,C3D6,C2C9,C5D7,F140                    
   REP 0124 0008,C7C5,E3C4,C1E3,C540,0000,0000,0000                    
   REP 0134 0000,0000,0000,0000,0000,0000,0000,0000                    
*                                                               
*