?? RIGHT := 110 ??
*copyc osd$default_pragmats
?? TITLE := 'NOS/VE : IO' ??
?? NEWTITLE := '  Module Header' ??
MODULE iom$status_routines_job_mode;

{
{PURPOSE:
{  This module is responsible for setting an error condition in a status
{  record.
{DESIGN:
{  The setting of the status record is done by calling osp$set_status_abnormal.
{
?? PUSH (LISTEXT := ON) ??
?? TITLE := '  Declarations', EJECT ??
*copyc ost$status
*copyc ioe$st_errors
?? POP ??
?? TITLE := '  XREF Procedures', EJECT ??
*copyc osp$set_status_abnormal
*copyc osp$system_error
?? TITLE := '  XREF Variables', EJECT ??
?? TITLE := '  [XDCL, #GATE] iop$set_status_abnormal', EJECT ??

*copyc ioh$set_status_abnormal

  PROCEDURE [XDCL, #GATE] iop$set_status_abnormal (condition: ost$status_condition;
        text: string ( * <= osc$max_string_size);
    VAR status: ost$status);


    osp$set_status_abnormal ('IO', condition, text, status);

  PROCEND iop$set_status_abnormal;

?? OLDTITLE ??
MODEND iom$status_routines_job_mode;

