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