home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / datatl25.zip / DCTDSGN.Z / be3order.dbd < prev    next >
Text File  |  1997-09-11  |  4KB  |  45 lines
  1. *                             DESCRIPTION OF ORDER DATABASE             00002000
  2. *                             FOR PRIMER SAMPLE PROJECT PHASE 3         00003000
  3. *                             ----------------------------------------  00004000
  4. *                                                                       00005000
  5.        DBD     ACCESS=HIDAM,NAME=BE3ORDER,VERSION=AB                    00006005
  6. *                                                                       00007000
  7.        DATASET DEVICE=3330,MODEL=1,SIZE=2048,DD1=DE3ORDER               00008000
  8. *                                                                       00009000
  9. *                            CUSTOMER-ORDER GENERAL INFORMATION         00010000
  10. *                             --------------------------------------    00011000
  11.        SEGM    BYTES=60,PTR=TB,RULES=(,LAST),NAME=SE2ORDER              00012002
  12.        LCHILD  NAME=(SE2ORDRX,BE3ORDRX),PTR=INDX                        00013000
  13. *                                                                       00014000
  14.        FIELD   START=01,BYTES=06,TYPE=C,NAME=(FE2OGREF,SEQ)             00015000
  15.        FIELD   START=07,BYTES=02,TYPE=C,NAME=(FE2OGSTA)                 00016000
  16.        FIELD   START=09,BYTES=06,TYPE=C,NAME=(FE2OGCNR)                 00017000
  17.        FIELD   START=15,BYTES=06,TYPE=C,NAME=(FE2OGODT)                 00018000
  18.        FIELD   START=21,BYTES=06,TYPE=C,NAME=(FE2OGDDT)                 00019000
  19.        FIELD   START=27,BYTES=02,TYPE=C,NAME=(FE2OGDWK)                 00020000
  20.        FIELD   START=29,BYTES=20,TYPE=C,NAME=(FE2OGSPC)                 00021000
  21.        FIELD   START=49,BYTES=02,TYPE=C,NAME=(FE2OGORI)                 00022000
  22. *                                                                       00023000
  23. *                             CUSTOMER-ORDER DETAIL INFORMATION         00024000
  24. *                             --------------------------------------    00025000
  25.        SEGM    NAME=SE2ODETL,BYTES=30,                                 *00026000
  26.                PARENT=(SE2ORDER,(SE1PART,P,BE3PARTS)),                 *00027003
  27.                PTR=(LP)                                                 00028004
  28.        FIELD   START=09,BYTES=03,TYPE=C,NAME=(FE2ODLNR,SEQ)             00029000
  29.        FIELD   START=01,BYTES=08,TYPE=C,NAME=(FE2ODPNR)                 00030000
  30.        FIELD   START=12,BYTES=06,TYPE=C,NAME=(FE2ODQTY)                 00031000
  31.        FIELD   START=18,BYTES=08,TYPE=C,NAME=(FE2ODPRI)                 00032000
  32.        FIELD   START=26,BYTES=01,TYPE=C,NAME=(FE2ODTAX)                 00033000
  33.        FIELD   START=27,BYTES=01,TYPE=C,NAME=(FE2ODBOR)                 00034000
  34. *                                                                       00035000
  35. *                             CUSTOMERORDER SHIPMENT INFORMATION        00036000
  36. *                             --------------------------------------    00037000
  37.        SEGM    NAME=SE2OSHIP,BYTES=40,PARENT=((SE2ORDER,SNGL)),PTR=T    00038000
  38.        FIELD   START=01,BYTES=08,TYPE=C,NAME=(FE2OSNR,SEQ)              00039000
  39.        FIELD   START=09,BYTES=06,TYPE=C,NAME=(FE2OSDAT)                 00040000
  40.        FIELD   START=15,BYTES=20,TYPE=C,NAME=(FE2OSMET)                 00041000
  41. *                                                                       00042000
  42.        DBDGEN                                                           00043000
  43.        FINISH                                                           00044000
  44.        END                                                              00045000
  45.