PROCEDURE add_copyright, addcr(
  module, m: name = $required
  status)

"----------------------------------------------------------------------"

" ADD_COPYRIGHT
"
" PURPOSE:
"
"  Change the comment field on the module specified to read:
"  Copyright Control Data Systems Inc. yyyy
"
" PARAMETERS:
"
" Module: Name of the module to be changed.
"----------------------------------------------------------------------"
  change_module_attributes module=module comment='Copyright Control Data Systems Inc. '//$substr($date(iso), 1, 4)

PROCEND add_copyright
