Design: 09.01.02.01/P01

This is an abstract, language-independent design. Grim details may be found in the corresponding source code. You may return to the documentation for the module containing this program design, or to the entire hierarchical table of topics covered by the PVT.

PROGRAM 1: Error 52 handled by user

CHARACTERISTICS: ynnn

OPERATOR SCRIPT:
This is a passive test, but take care to invoke it so as to link
in the standard PVT user-defined error handler.  Since this is
the mode in which the non-error-handling tests are executed, this
program should be invoked in the normal way.

DESIGN:
Throughout this program, every time an error is signalled (as noted
by the tag "signals error"), the user-defined error handler saves
the error code, function identifier, and error file identifier in
an error table.

Use <inquire list of available workstation types> to determine
  mxtype = maximum workstation type

<open workstation> using type = mxtype+1: signals error

TEST: #SR 2
      "If <open workstation> signals an error because the workstation
       type is not recognized by the implementation, it should not
       cause any other effect."
pass/fail depending on (system state = PHIGS-open and
                        workstation state = closed)

*** *** ***  Results of user-defined error handling  *** *** ***

TEST: #SR 2
      "If <open workstation> is called and the workstation type is not
       recognized by the implementation, it should return error code
       052 and/or 055, function identifier 002, and the current error
       file identifier to the user defined error handler."

pass/fail depending on (next entry in error table = expected values)

END PROGRAM 1