VERMSGC 
          IDENT  VERMSGC     VERSION MESSAGE
          ENTRY  VERMSGC
  
  
***  VERMSGC - VERSION MESSAGE
*              WRITE THE DATE AND TIME OF COMPILATION TO
*              RUN TIME DAYFILE.
* 
*   VERMSGC.
* 
*   ENTRY  NONE 
* 
*   EXIT  MESSAGE TO DAYFILE. 
* 
*   USES
* 
  
VERMSGC   SUBR   =
          MESSAGE  WHENMSG,0
          EQ     VERMSGC     RETURN 
WHENMSG   DIS    30, VERSION "DATE" "TIME"
          END 
