PROC qcp$build_score_header


crev work k=string
crev msg  k=string
crev ignore k=status

crev hh_path k=string v=':$SYSTEM.$SYSTEM.FIELD_MAINTENANCE.HISTORY_HEADER'
crev lh_path k=string v=':$SYSTEM.$SYSTEM.FIELD_MAINTENANCE.LIBRARY_HEADER'



IF NOT $file($fname(hh_path),permanent) THEN
 create_file $fname(hh_path) status=ignore
 msg = 'Correction    Sys      Installed       Based '
 put_line msg o=$fname(hh_path//'.$eoi') status=ignore
 msg = '  Ident      Ident       Over            On         Date'
 msg = msg//'      Time      Active '
 put_line msg o=$fname(hh_path//'.$eoi') status=ignore
 msg = '........................................................'
 msg = msg//'.......................'
 put_line msg o=$fname(hh_path//'.$eoi') status=ignore
IFEND

IF NOT $file($fname(lh_path),permanent) THEN
 create_file $fname(lh_path) status=ignore
 msg = '                  Libraries                           '
 msg = msg//'    Site    '
 putl msg o=$fname(lh_path//'.$eoi') status=ignore
 msg = '                  Modified                            '
 msg = msg//'  Modified    '
 putl msg o=$fname(lh_path//'.$eoi') status=ignore
 msg = '.............................................     .....'
 msg = msg//'................'
 putl msg o=$fname(lh_path//'.$eoi') status=ignore
IFEND


detach_file $fname(hh_path) status=ignore
detach_file $fname(lh_path) status=ignore

PROCEND qcp$build_score_header
