*TEST01DD.DBD
* Copyright (C) 1991-2007 Micro Focus (IP) Limited.
* All rights reserved.
         DBD    NAME=TEST01DD,ACCESS=(HIDAM,VSAM)
         DATASET DD1=TEST01DD,DEVICE=3380,MODEL=1,SCAN=15,SIZE=4096
*
         SEGM   NAME=TESTHDRS,PARENT=0,BYTES=120
         FIELD  NAME=(SEQFIELD,SEQ,U),START=01,BYTES=004
         FIELD  NAME=REQUEST,START=05,BYTES=20
         FIELD  NAME=DEPT,START=37,BYTES=05
         FIELD  NAME=TWOS,START=92,BYTES=04
         LCHILD NAME=(TESTHDRI,TEST01PD),PTR=INDX
         LCHILD NAME=(TESTHDR2,TEST012D),POINTER=INDX
         XDFLD  NAME=XSEQ,SEGMENT=TESTHDRS,                            X
               SRCH=REQUEST,                                           X
               SUBSEQ=TWOS
         LCHILD NAME=(TESTHDR3,TEST013D),POINTER=INDX
         XDFLD  NAME=XSEQ2,SEGMENT=TESTHDRS,                           X
               SRCH=DEPT,                                              X
               SUBSEQ=TWOS
*
         SEGM  NAME=TESTDETS,BYTES=088,PTR=TB,                         X
               PARENT=((TESTHDRS,DBLE))
         FIELD  NAME=(SEQFIELD,SEQ,U),START=01,BYTES=002
*
         DBDGEN
         FINISH
         END
