home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
datatl25.zip
/
DCTDSGN.Z
/
be3parts.dbd
< prev
next >
Wrap
Text File
|
1997-09-11
|
5KB
|
68 lines
* DESCRIPTION OF PARTS DATABASE 00002000
* FOR PRIMER SAMPLE PROJECT PHASE 3 00003000
* ---------------------------------------- 00004000
* 00005000
DBD NAME=BE3PARTS,ACCESS=(HDAM,VSAM), *00006000
RMNAME=(DFSHDC40,4,80,500) 00007000
* 00008000
DATASET DD1=DE3PARTS,DEVICE=3330,MODEL=1,SIZE=2048 00009000
* 00010000
* PARTS- GENERAL INFORMATION (ROOT) 00011000
* --------------------------------------- 00012000
SEGM NAME=SE1PART,BYTES=80,PTR=T,RULES=PLV @BA95215 00013000
* 00014000
* TARGET SEGMENT FOR SECONDARY INDEX 00015000
FIELD START=01,BYTES=08,TYPE=C,NAME=(FE1PGPNR,SEQ) 00016000
FIELD START=09,BYTES=13,TYPE=C,NAME=(FE1PGSNM) 00017000
FIELD START=22,BYTES=08,TYPE=C,NAME=(FE1PGNEW) 00018000
FIELD START=30,BYTES=08,TYPE=C,NAME=(FE1PGOLD) 00019000
FIELD START=38,BYTES=08,TYPE=C,NAME=(FE1PGEQV) 00020000
FIELD START=46,BYTES=08,TYPE=C,NAME=(FE1PGUNT) 00021000
FIELD START=54,BYTES=08,TYPE=C,NAME=(FE1PGPRI) 00022000
FIELD START=62,BYTES=08,TYPE=C,NAME=(FE1PGDIM) 00023000
* 00024000
* CONNECTION TO CUSTOMER-ORDER DB.: 00025000
LCHILD NAME=(SE2ODETL,BE3ORDER),PAIR=SE2PAROR,PTR=DBLE 00026000
LCHILD NAME=SE1PSTOK,PTR=SNGL 00026102
* CONNECTION WITH 2ND INDEX : 00027000
LCHILD NAME=(SE3PSID1,BE3PSID1),PTR=INDX 00028000
XDFLD NAME=FE3PSID1,SEGMENT=SE1PPUR,SRCH=FE1PPONR, *00029000
SUBSEQ=/SXPPUR 00030000
* 00031000
* PARTS- STOCK INFORMATION 00032000
* --------------------------------------- 00033000
SEGM NAME=SE1PSTOK,BYTES=40,PARENT=((SE1PART,SNGL)),PTR=T 00034000
FIELD START=01,BYTES=12,TYPE=C,NAME=(FE1PSLOC,SEQ) 00035000
FIELD START=13,BYTES=06,TYPE=C,NAME=(FE1PSDAT) 00036000
FIELD START=19,BYTES=06,TYPE=C,NAME=(FE1PSCNT) 00037000
FIELD START=25,BYTES=06,TYPE=C,NAME=(FE1PSISS) 00038000
FIELD START=31,BYTES=06,TYPE=C,NAME=(FE1PSREC) 00039000
* 00040000
* PARTS- PURCHASE ORDER INFORMATION 00041000
* --------------------------------------- 00042000
SEGM NAME=SE1PPUR,BYTES=60,PARENT=((SE1PART,SNGL)),PTR=T 00043000
* SOURCE SEGMENT FOR SECONDARY INDEX 00044000
FIELD START=01,BYTES=08,TYPE=C,NAME=(FE1PPONR,SEQ) 00045000
FIELD START=09,BYTES=06,TYPE=C,NAME=(FE1PPODT) 00046000
FIELD START=15,BYTES=20,TYPE=C,NAME=(FE1PPOSU) 00047000
FIELD START=35,BYTES=06,TYPE=C,NAME=(FE1PPQOD) 00048000
FIELD START=41,BYTES=06,TYPE=C,NAME=(FE1PPQRD) 00049000
FIELD START=47,BYTES=06,TYPE=C,NAME=(FE1PPDDT) 00050000
FIELD START=01,BYTES=04,TYPE=C,NAME=/SXPPUR 00051000
* 00052000
* PARTS- GENERAL DESCRIPTION 00053000
* --------------------------------------- 00054000
SEGM NAME=SE1PGDSC,BYTES=80,PARENT=((SE1PART,SNGL)),PTR=NT 00055000
FIELD START=01,BYTES=50,TYPE=C,NAME=(FE1PGLNM) 00056000
* 00057000
* VIRTUAL LOGICAL CHILD 00058000
* (CONNECTION FROM CUSTOMER-ORDER DB 00059000
* ---------------------------------- 00060000
SEGM NAME=SE2PAROR,PARENT=SE1PART,PTR=PAIRED, X00061000
SOURCE=((SE2ODETL,D,BE3ORDER)) 00062000
FIELD START=01,BYTES=06,NAME=(FE2ODRNR,SEQ) 00063000
* DEFINES SEQUENCE OF LT CHAIN 00064000
DBDGEN 00065000
FINISH 00066000
END 00067000