*TEST002T.PSB
* Copyright (C) 1991-2007 Micro Focus (IP) Limited.
* All rights reserved.
*
* PCB FOR IMS PRINTER LTERMS
         PCB   TYPE=TP,MODIFY=YES
*
* PRIMARY ACCESS TO TESTING SERVICES DATA BASE
         PCB   TYPE=DB,DBDNAME=TEST01DD,PROCOPT=AP,KEYLEN=9
         SENSEG NAME=TESTHDRS,PARENT=0
         SENSEG NAME=TESTDETS,PARENT=TESTHDRS
*
* SECONDARY INDEX BY TESTER    AND 2'S COMPLEMENT OF SEQFIELD
         PCB   TYPE=DB,DBDNAME=TEST01DD,PROCOPT=GOP,KEYLEN=48,         X
               PROCSEQ=TEST012D
         SENSEG NAME=TESTHDRS,PARENT=0
*
* SECONDARY INDEX BY DEPARTMENT AND 2'S COMPLEMENT OF SEQFIELD
         PCB   TYPE=DB,DBDNAME=TEST01DD,PROCOPT=GOP,KEYLEN=48,         X
               PROCSEQ=TEST013D
         SENSEG NAME=TESTHDRS,PARENT=0
*
* DB PCB FOR TABLES DATA BASE INQUIRY
         PCB   TYPE=DB,DBDNAME=DEMO03DD,PROCOPT=GO,KEYLEN=80
         SENSEG  NAME=DEMOHDRS,PARENT=0
         SENSEG  NAME=DEMOELES,PARENT=DEMOHDRS
*
         PSBGEN LANG=ASSEM,PSBNAME=TEST002T,CMPAT=YES
         END
