

PROC qcp$display_scoreboard (
output, o: file = $output
status )

crev ignore k=status
crev work k=string
crev count v=1



IF $file($value(output) open_position) = '$BOI' THEN
   ofile = $string($value(output)) //'.$ASIS'
ELSE
   ofile = $string($value(output))
IFEND

crev hi_path k=string v=':$SYSTEM.$SYSTEM.FIELD_MAINTENANCE.HISTORY.$ASIS'
crev hb_path k=string v=':$SYSTEM.$SYSTEM.FIELD_MAINTENANCE'
crev hp_path k=string v=':$SYSTEM.$SYSTEM.FIELD_MAINTENANCE.HISTORY_PAGE'
crev hh_path k=string v=':$SYSTEM.$SYSTEM.FIELD_MAINTENANCE.HISTORY_HEADER'
crev lh_path k=string v=':$SYSTEM.$SYSTEM.FIELD_MAINTENANCE.LIBRARY_HEADER'
crev lb_path k=string v=':$SYSTEM.$SYSTEM.FIELD_MAINTENANCE.LIBRARIES'
crev sm_path k=string v=':$SYSTEM.$SYSTEM.FIELD_MAINTENANCE.SITE_MODIFICATIONS'

crev temp k=string v=$unique

crev check k=boolean
delf $fname(lh_path) status=ignore
checkc = $file($fname(hb_path),catalog)
checkf = $file($fname(hi_path),permanent)

IF NOT (checkc AND checkf) THEN
 putl ''  o=$fname(ofile//'.$eoi')
 putl '                      WARNING' o=$fname(ofile//'.$eoi')
 putl '          There are no corrections currently installed' o=$fname(ofile//'.$eoi')
 putl '          against the base level system.' o=$fname(ofile//'.$eoi')
 putl '' o=$fname(ofile//'.$eoi')
 EXIT_PROC
IFEND

" Go set up scoreboard headers

  build_score_header

detf $fname(hi_path) status=ignore
attf $fname(hi_path) op=$asis
delf $fname(hp_path) status=ignore
copf $fname(hh_path) $fname(hp_path//'.$eoi')

accl v=work i=$fname(hi_path) lc=count
WHILE count > 0 DO
 putl $substr(work,2,$strlen(work)) o=$fname(hp_path//'.$eoi')
 accl v=work i=$fname(hi_path) lc=count
WHILEND

rewf $fname(hp_path) status=ignore
copf $fname(hp_path) $fname(ofile//'.$eoi')
copf $fname(lh_path) $fname(ofile//'.$eoi')
delf $fname(hp_path) status=ignore
crev temp2 k=string v=$unique

crev t1 k=string d=1..50 v=''
crev t2 k=string d=1..50 v=''
crev t3 k=string
crev c1 v=1
crev c2 v=1

IF  $file($fname(lb_path),permanent) THEN

  detf $fname(lb_path) status=ignore
  attf $fname(lb_path) op=$asis
  accl t1(c1) i=$fname(lb_path) lc=count
   WHILE count > 0 DO
     c1 = c1+1
     accl t1(c1) i=$fname(lb_path) lc=count
   WHILEND

   FOR i = 1 TO c1 DO
    IF t1(i) <> 'OSF$VERSION' THEN
      t2(c2) = t1(i)
      c2 = c2+1
    IFEND
   FOREND

   FOR i = 1 TO c1 DO
     t1(i) = ''
   FOREND

    c1 = 1
   FOR i = 1 TO c2 DO
    IF t2(i) <> '' THEN
      t3 = t2(i)
       FOR j = i+1 TO c2 DO
         IF t2(j) = t3 THEN
            t2(j) = ''
            t3 = t3//' *'
        IFEND
       FOREND
          t1(c1) = t3
          c1 = c1+1
    IFEND
   FOREND
FOR i = 1 TO 40 DO
t2(i) = ''
FOREND

c2=1
crev c3
IF $file($fname(sm_path),permanent) THEN
 attf $fname(sm_path) op=$asis
 accl work i=$fname(sm_path) lc=count
  WHILE count > 0 DO
   t2(c2) = work
   c2 = c2+1
  accl work i=$fname(sm_path) lc=count
  WHILEND
IFEND
c2=c2-1
c3=1
FOR i = 1 TO c1 by 2 DO
IF t1(i) <> '' THEN
 msg = $trim($substr(t1(i),1,22))
 msg = msg//$trim($substr('',1,24-$strlen(msg))//t1(i+1))
  IF c2 > 0 THEN
   msg = msg//$trim($substr('',1,50-$strlen(msg))//t2(c3))
   c3 = c3+1
   c2 = c2-1
  IFEND
   put_line ' '//msg  o=$fname(ofile//'.$eoi')
IFEND
FOREND
   msg = ''
  IF c2 > 0 THEN
   msg = msg//$trim($substr('',1,50-$strlen(msg))//t2(c3))
   c3 = c3+1
   c2 = c2-1
  IFEND
   put_line ' '//msg  o=$fname(ofile//'.$eoi')
IFEND
detf $fname(lb_path) status=ignore
detf $fname(sm_path) status=ignore
delf $fname(hh_path) status=ignore
delf $fname(lh_path) status=ignore
detf $fname(hi_path) status=ignore


PROCEND qcp$display_scoreboard
