*DECK TXTPUTL 
USETEXT COMCBEG 
USETEXT COMCAPR 
USETEXT COMCCAE 
USETEXT COMQDEF 
USETEXT COMQTXT 
    PROC TXTPUTL( (BUFFER),(TEXTLENGTH) );
      BEGIN    # TXTPUTL #
# 
**    TXTPUTL    UPDATE TEXT LENGTH IN TEXT BUFFER. 
* 
*     PROC TXTPUTL( (BUFFER),(TEXTLENGTH) ) 
* 
*     ENTRY      BUFFER = POINTER TO TEXT BUFFER
*                TEXTLENGTH = LENGTH OF TEXT IN CHARACTERS. 
* 
*     EXIT       BUFFER HEADER UPDATED. 
* 
*     PROCESS    SEE ENTRY/EXIT.
# 
  
      ITEM BUFFER     U;           # POINTER TO TEXT BUFFER # 
      ITEM TEXTLENGTH U;           # TEXT LENGTH IN CHARACTERS #
  
# 
****  XREF
# 
      XREF
        BEGIN 
        PROC NAME;                 # DEBUG CODE # 
        END 
  
# 
****  XREF END
# 
  
  
  
        $BEGIN
        NAME("TXTPUTL");
        $END
  
      P<TXTBUF> = BUFFER; 
      IF TEXTLENGTH GT LTXTBFC
      THEN
        BEGIN 
        TEXTLENGTH = LTXTBFC; 
        END 
  
      TXTBUF$USE = TEXTLENGTH;
  
      END  # TXTPUTL #
    TERM
