Design: 02.01.01/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: Multiple structure creation

CHARACTERISTICS: ynnn

OPERATOR SCRIPT: passive test

DESIGN:

starr = array of structure identifiers

strid = 1
do idst = 1, 5
    starr(idst) = strid
    strid = strid + 3
loop

<empty structure>                   starr(1)
<change structure identifiers>  100 starr(2)
<post structure>                    starr(3)
<open structure>                    starr(4)
<execute structure>                 starr(5)

TEST: #SR 9 10
      "The CSS should be able to hold multiple structures."

Use <inquire structure identifiers> to determine:
  nstid = number of structure identifiers
  nstr  = a structure identifier
if nstid = 5  then
   loop to get actual = list of reported strid's
   pass/fail depending on (actual = starr)
else
   fail
endif

END PROGRAM 10