Table of Contents

VERMSGC

Table Of Contents

  • [00005] VERSION MESSAGE

Source Code

VERMSGC.txt
  1. IDENT VERMSGC VERSION MESSAGE
  2. ENTRY VERMSGC
  3.  
  4.  
  5. *** VERMSGC - VERSION MESSAGE
  6. * WRITE THE DATE AND TIME OF COMPILATION TO
  7. * RUN TIME DAYFILE.
  8. *
  9. * VERMSGC.
  10. *
  11. * ENTRY NONE
  12. *
  13. * EXIT MESSAGE TO DAYFILE.
  14. *
  15. * USES
  16. *
  17.  
  18. VERMSGC SUBR =
  19. MESSAGE WHENMSG,0
  20. EQ VERMSGC RETURN
  21. WHENMSG DIS 30, VERSION "DATE" "TIME"
  22. END