home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / datatl25.zip / DCTDSGN.Z / be3parts.dbd < prev    next >
Text File  |  1997-09-11  |  5KB  |  68 lines

  1. *                             DESCRIPTION OF PARTS DATABASE             00002000
  2. *                             FOR PRIMER SAMPLE PROJECT PHASE 3         00003000
  3. *                             ----------------------------------------  00004000
  4. *                                                                       00005000
  5.        DBD     NAME=BE3PARTS,ACCESS=(HDAM,VSAM),                       *00006000
  6.                RMNAME=(DFSHDC40,4,80,500)                               00007000
  7. *                                                                       00008000
  8.        DATASET DD1=DE3PARTS,DEVICE=3330,MODEL=1,SIZE=2048               00009000
  9. *                                                                       00010000
  10. *                             PARTS- GENERAL INFORMATION (ROOT)         00011000
  11. *                             ---------------------------------------   00012000
  12.        SEGM    NAME=SE1PART,BYTES=80,PTR=T,RULES=PLV           @BA95215 00013000
  13. *                                                                       00014000
  14. *                            TARGET SEGMENT FOR SECONDARY INDEX         00015000
  15.        FIELD   START=01,BYTES=08,TYPE=C,NAME=(FE1PGPNR,SEQ)             00016000
  16.        FIELD   START=09,BYTES=13,TYPE=C,NAME=(FE1PGSNM)                 00017000
  17.        FIELD   START=22,BYTES=08,TYPE=C,NAME=(FE1PGNEW)                 00018000
  18.        FIELD   START=30,BYTES=08,TYPE=C,NAME=(FE1PGOLD)                 00019000
  19.        FIELD   START=38,BYTES=08,TYPE=C,NAME=(FE1PGEQV)                 00020000
  20.        FIELD   START=46,BYTES=08,TYPE=C,NAME=(FE1PGUNT)                 00021000
  21.        FIELD   START=54,BYTES=08,TYPE=C,NAME=(FE1PGPRI)                 00022000
  22.        FIELD   START=62,BYTES=08,TYPE=C,NAME=(FE1PGDIM)                 00023000
  23. *                                                                       00024000
  24. *                             CONNECTION TO CUSTOMER-ORDER DB.:         00025000
  25.        LCHILD  NAME=(SE2ODETL,BE3ORDER),PAIR=SE2PAROR,PTR=DBLE          00026000
  26.        LCHILD  NAME=SE1PSTOK,PTR=SNGL                                   00026102
  27. *                             CONNECTION WITH 2ND INDEX :               00027000
  28.        LCHILD  NAME=(SE3PSID1,BE3PSID1),PTR=INDX                        00028000
  29.        XDFLD   NAME=FE3PSID1,SEGMENT=SE1PPUR,SRCH=FE1PPONR,            *00029000
  30.                SUBSEQ=/SXPPUR                                           00030000
  31. *                                                                       00031000
  32. *                             PARTS- STOCK INFORMATION                  00032000
  33. *                             ---------------------------------------   00033000
  34.       SEGM     NAME=SE1PSTOK,BYTES=40,PARENT=((SE1PART,SNGL)),PTR=T     00034000
  35.       FIELD    START=01,BYTES=12,TYPE=C,NAME=(FE1PSLOC,SEQ)             00035000
  36.       FIELD    START=13,BYTES=06,TYPE=C,NAME=(FE1PSDAT)                 00036000
  37.       FIELD    START=19,BYTES=06,TYPE=C,NAME=(FE1PSCNT)                 00037000
  38.       FIELD    START=25,BYTES=06,TYPE=C,NAME=(FE1PSISS)                 00038000
  39.       FIELD    START=31,BYTES=06,TYPE=C,NAME=(FE1PSREC)                 00039000
  40. *                                                                       00040000
  41. *                             PARTS- PURCHASE ORDER INFORMATION         00041000
  42. *                             ---------------------------------------   00042000
  43.        SEGM    NAME=SE1PPUR,BYTES=60,PARENT=((SE1PART,SNGL)),PTR=T      00043000
  44. *                            SOURCE SEGMENT FOR SECONDARY INDEX         00044000
  45.        FIELD   START=01,BYTES=08,TYPE=C,NAME=(FE1PPONR,SEQ)             00045000
  46.        FIELD   START=09,BYTES=06,TYPE=C,NAME=(FE1PPODT)                 00046000
  47.        FIELD   START=15,BYTES=20,TYPE=C,NAME=(FE1PPOSU)                 00047000
  48.        FIELD   START=35,BYTES=06,TYPE=C,NAME=(FE1PPQOD)                 00048000
  49.        FIELD   START=41,BYTES=06,TYPE=C,NAME=(FE1PPQRD)                 00049000
  50.        FIELD   START=47,BYTES=06,TYPE=C,NAME=(FE1PPDDT)                 00050000
  51.        FIELD   START=01,BYTES=04,TYPE=C,NAME=/SXPPUR                    00051000
  52. *                                                                       00052000
  53. *                             PARTS- GENERAL DESCRIPTION                00053000
  54. *                             ---------------------------------------   00054000
  55.        SEGM    NAME=SE1PGDSC,BYTES=80,PARENT=((SE1PART,SNGL)),PTR=NT    00055000
  56.        FIELD   START=01,BYTES=50,TYPE=C,NAME=(FE1PGLNM)                 00056000
  57. *                                                                       00057000
  58. *              VIRTUAL LOGICAL CHILD                                    00058000
  59. *              (CONNECTION FROM CUSTOMER-ORDER DB                       00059000
  60. *              ----------------------------------                       00060000
  61.          SEGM  NAME=SE2PAROR,PARENT=SE1PART,PTR=PAIRED,                X00061000
  62.                SOURCE=((SE2ODETL,D,BE3ORDER))                           00062000
  63.          FIELD START=01,BYTES=06,NAME=(FE2ODRNR,SEQ)                    00063000
  64. *              DEFINES SEQUENCE OF LT CHAIN                             00064000
  65.        DBDGEN                                                           00065000
  66.        FINISH                                                           00066000
  67.        END                                                              00067000
  68.