/********************************************************
*    module name: text12.sim                            *
*    public procedures: open$message,                   *
********************************************************/
message: do;

 exit: procedure external; end exit;
 print: procedure(a,b) external;
  declare (a,b) address;
  end print;

$eject
/*******************************************************
*  open$message: return the error message if open      *
*                file system call error happens        *
*******************************************************/
 open$message: procedure(status) public;
  declare status address;
  do case status;

    ;;;  /* 0,1,2 ignored */

    do;  /* 3 */
      call print(.('TO MUCH OPEN FILES'),18);
      call exit;
    end;

    do;  /* 4 */
      call print(.('ILLEGAL FILENAME SPECIFICATION'),30);
      call exit;
    end;

    do;  /* 5 */
      call print(.('ILLEGAL/UNRECOGNIZED DEVICE SPEC'),32);
      call exit;
    end;

    ;;;;;  /* 6,7,8,9,10 ignored */

    call print(.('CANNOT RENAME FILE'),18);  /* 11 */

    do;    /* 12 */
      call print(.('FILE ALREADY OPENED'),19); 
      call print(.('OR DUPLICATE FILE NAME'),22);
      call exit;
    end;

    do;  /* 13 */
      call print(.('NO SUCH FILE'),12);
      call exit;
    end;

    do;  /* 14 */
      call print(.('FILE WRITE PROTECTED'),20);
      call exit;
    end;

    ;;;;;;;  /* 15,16,17,18,19,20,21 ignored */

    do;  /* 22 */
      call print(.('ILLEGAL ACCESS PARAMETER'),24);
      call exit;
    end;

    do;  /* 23 */
      call print(.('NO FILENAME SPECIFIED FOR A DISKETTE FILE'),41);
      call exit;
    end;

    ;  /* 24 ignored */
    call print(.('ECHO FILE INCORRECT'),19);  /* 25 */
    ;;  /* 26,27 ignored */

    do;  /* 28 */
      call print(.('NULL FILE EXTENSION'),19);
      call exit;
    end;

  end;
  end open$message;

end message;
eof