*copyc osd$default_pragmats
?? TITLE := 'IIM$SUPPRESS_CURSOR_POS_ECHOPLX:  toggle cursor positioning and/or echoplexing for next input' ??
MODULE iim$suppress_cursor_pos_echoplx;

{  PURPOSE:
{    This is the 223 agent used by IFP$SUPPRESS_CURSOR_POS_ECHOPLX
{    to write the job-pageable variables
{    IIV$SUPPRESS_CURSOR_POSITIONING and IIV$SUPPRESS_ECHOPLEXING,
{    since it cannot write it directly.

{  DESIGN:
{    Set the 233 (job pageable) variables
{    IIV$SUPPRESS_CURSOR_POSITIONING and IIV$SUPPRESS_ECHOPLEXING
{    according to the values of the passed parameters.  IIM$ST_PUT
{    reacts to the setting of these variables by setting the
{    suppress_end_line_positioning and suppress_echoplexing bits
{    in the header of the next non-partial output data message.

?? PUSH (LISTEXT := ON) ??
*copyc iiv$interactive_terminated
?? POP ??

  PROCEDURE [XDCL,#GATE] iip$suppress_cursor_pos_echoplx (
    suppress_cursor_positioning: boolean;
    suppress_echoplexing: boolean);

    iiv$suppress_cursor_positioning := suppress_cursor_positioning;
    iiv$suppress_echoplexing := suppress_echoplexing;

  PROCEND iip$suppress_cursor_pos_echoplx;
MODEND iim$suppress_cursor_pos_echoplx;
