*DECK,UPKHDR
USETEXT COMCBEG 
USETEXT COMQDEF 
USETEXT COMQKDS 
    PROC UPKHDR;
      BEGIN  # UPKHDR # 
# 
**    UPKHDR     UPDATE K DISPLAY HEADER. 
* 
*     UPDATES THE K DISPLAY HEADER. 
* 
*     PROC UPKHDR 
* 
*     ENTRY      KDISORD = CURRENT K DISPLAY ORDINAL. 
* 
*     EXIT       DISPLAY HEADER UPDATED.
* 
*     PROCESS    BUILD HEADER LINE
*                CLEAR DISPLAY ITEMS AREA.
* 
# 
  
# 
****  XREF
# 
      XREF
        BEGIN 
        PROC NAME;                 # DEBUG CODE # 
        END 
  
# 
****  XREF END
# 
  
      ITEM I          U;           # LOOP VARIABLE #
  
        $BEGIN
        NAME("UPKHDR");            # DEBUG CODE # 
        $END
  
      KL$TITLE   = KS$TITLE[KDISORD]; 
      KL$CURPAGE = KS$CURPAGE[KDISORD] + O"33"; 
      KL$MAXPAGE = KS$MAXPAGE[KDISORD] + O"33"; 
      KL$HEADER  = KS$HEADER[KDISORD];
      FOR I = 1 STEP 1 UNTIL MXITEMS
      DO
        BEGIN 
        KL$ITEM[I] = " "; 
        END 
  
      END  # UPKHDR # 
    TERM
