Design: 09.01.02.02/P10

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 10: Error 63 handled by system

CHARACTERISTICS: ynny

OPERATOR SCRIPT:
See OPERATOR SCRIPT for Program 1.

DESIGN:

Throughout this program, every time an error is signalled, the system-defined
error handler should call <error logging> to write in error message on
the error file.

Also, throughout this program, this is what is meant by
   "operator verifies error nmessage":
display next error message in error file to operator
OPQA/according to the error message, which function generated the error?
if (operator response = expected function) then
   OPQA/if error message identifies error code, enter it, else "n"
   if (operator response = "n") then
      display standard error wording(s) to operator
      OPQA/does error meaage match standard wording?
      pass/fail depending on (operator response = yes)
   else
      pass/fail depending on (operator response = expected code)
   endif
else
   fail
   informative message on missing/incorrect function
endif

*** *** ***  Generate errors; test absence of side effects  *** *** ***

call MULTWS to get number of all accessible workstations: nwkall
Use <inquire phigs facilities> to determine:
   maxwk = maximum number of simultanenously open workstations

If (nwkall <= maxwk) then
    call INMSG ('The number of all accessible workstations
                 is less than or equal to maximum number of
                 simultaneously open workstations, this test is skipped.)
    return
endif

for ix = 1 to maxwk+1
   call MULTWS to get
      workstation identifier: owkid
      connection identifier:  oconid
      workstation type:       owtype
   if (ix <= maxwk) then
      <open workstation> with owkid, oconid, owtype
   else
      <open workstation> with owkid, oconid, owtype: signals error
   endif
next ix

<inquire set of open workstations> to get # open workstations
TEST: #SR 12
      "If <open workstation> signals an error because it would
       exceed the maximum number of simultaneously
       open workstations, it should not cause any other effect."
pass/fail depending on (system state = PHIGS-open and
                        workstation state = open and
                        # open workstations = maxwk)

*** *** ***  Results of system-defined error handling  *** *** ***

TEST: #SR 12
      "If <open workstation> is called and it would exceed the maximum
       number of simultaneously open workstations, it should
       write an accurate, self-identifying error message on the error
       file."
pass/fail depending on (operator verifies error message)

END PROGRAM 10