Design: 03.03/P08

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 8: Archiving and retrieving with multiple files

CHARACTERISTICS: nnnn

OPERATOR SCRIPT: passive test.

DESIGN:

<inquire phigs facilities> to determine
   mxarno = maximum number of simultaneously open archive files
if (mxarno <= 1) then
   informative message: skippping tests, can't open multiple
      archive files
   goto done
endif

set up standard networks in CSS
open 1st archive file, with arid1 = archive identifier
open 2nd archive file, with arid2 = archive identifier

spcst1 = 111,114,115
spcst2 = 109,113

<archive structures> spcst1 into arid1
<archive structures> spcst2 into arid2

<retrieve structure identifiers> with arid1
   to determine actst1 = structures in file arid1
<retrieve structure identifiers> with arid2
   to determine actst2 = structures in file arid2

TEST: #SR 1 4
      "If more than one archive file is open, <archive
       structures> should affect only the open archive file
       specified in its parameter list."
pass/fail depending on (actst1 = spcst1 and actst2 = spcst2)

clear CSS
<retrieve all structures> from arid1
ar1ok = (structures in CSS same as spcst1)

clear CSS
<retrieve all structures> from arid2
ar2ok = (structures in CSS same as spcst2)

TEST: #SR 11 12
      "If more than one archive file is open, <retrieve all
       structures> should affect only the open archive file
       specified in its parameter list."
pass/fail depending on (ar1ok and ar2ok)

<close archive file> with arid1
<close archive file> with arid2

done:

END PROGRAM 8