DLR_PCB1 PCB TYPE=DB,DBDNAME=DEALERDB,PROCOPT=GO,KEYLEN=42 
SENSEG NAME=DEALER,PARENT=0 
SENSEG NAME=MODEL,PARENT=DEALER 
SENSEG NAME=ORDER,PARENT=MODEL 
SENSEG NAME=SALES,PARENT=MODEL 
SENSEG NAME=STOCK,PARENT=MODEL 
PSBGEN PSBNAME=DLR_PSB,MAXQ=200,LANG=JAVA 
END

DBD NAME=DEALERDB,ACCESS=(HDAM,OSAM),RMNAME=(DFSHDC40.1.10) 
SEGM NAME=DEALER,PARENT=0,BYTES=94, 
FIELD NAME=(DLRNO,SEQ,U),BYTES=4,START=1,TYPE=C 
FIELD NAME=DLRNAME,BYTES=30,START=5,TYPE=C 
SEGM NAME=MODEL,PARENT=DEALER,BYTES=43 
FIELD NAME=(MODTYPE,SEQ,U),BYTES=2,START=1,TYPE=C 
FIELD NAME=MAKE,BYTES=10,START=3,TYPE=C 
FIELD NAME=MODEL,BYTES=10,START=13,TYPE=C 
FIELD NAME=YEAR,BYTES=4,START=23,TYPE=C 
FIELD NAME=MSRP,BYTES=5,START=27,TYPE=P 
SEGM NAME=ORDER,PARENT=MODEL,BYTES=127 
FIELD NAME=(ORDNBR,SEQ,U),BYTES=6,START=1,TYPE=C 
FIELD NAME=LASTNME,BYTES=25,START=50,TYPE=C 
FIELD NAME=FIRSTNME,BYTES=25,START=75,TYPE=C 
SEGM NAME=SALES,PARENT=MODEL,BYTES=113 
FIELD NAME=(SALDATE,SEQ,U),BYTES=8,START=1,TYPE=C 
FIELD NAME=LASTNME,BYTES=25,START=9,TYPE=C 
FIELD NAME=FIRSTNME,BYTES=25,START=34,TYPE=C 
FIELD NAME=STKVIN,BYTES=20,START=94,TYPE=C 
SEGM NAME=STOCK,PARENT=MODEL,BYTES=62 
FIELD NAME=(STKVIN,SEQ,U),BYTES=20,START=1,TYPE=C 
FIELD NAME=COLOR,BYTES=10,START=37,TYPE=C 
FIELD NAME=PRICE,BYTES=5,START=47,TYPE=C 
FIELD NAME=LOT,BYTES=10,START=52,TYPE=C 
DBDGEN 
FINISH 
END