?? TITLE := 'MODULE iim$set_terminal_name [2,2,3]', EJECT ??
*copyc osd$default_pragmats
MODULE iim$set_terminal_name;

?? PUSH (LISTEXT := ON) ??
*copyc ift$terminal_attributes
*copyc iiv$connection_desc_ptr
*copyc nap$get_attributes
*copyc osc$timesharing_terminal_file
*copyc pmp$log
*copyc qfp$set_terminal_name
?? POP ??

{ Purpose: Initialize the Terminal_Name terminal attribute.
{
{ Design : Set the Terminal_Name terminal attribute to the string
{          passed as an input parameter.

  PROCEDURE [XDCL, #GATE] iip$set_terminal_name (terminal_name: ift$terminal_name);

{ Set the Terminal_Name terminal attribute in the connection description.

    iiv$connection_desc_ptr^.terminal_name (1, 31) := terminal_name;
    qfp$set_terminal_name (terminal_name);

  PROCEND iip$set_terminal_name;
MODEND iim$set_terminal_name;
