java1

subroutine java1

include wbp w3Include

price = 0

part  = ""

qty   = 0

call w3GetVal(price, "Price")

if price = "" then price = 1

call w3GetVal(qty, "Qty")

if qty = "" then qty = 1

call w3GetVal(part, "Part")

extended = price * qty

call w3HtmlInit("java1","")

call w3HtmlHeader("","")

subs     = ""

subs<-1> = "##NAME##":@vm:"Part"

subs<-1> = "##VALUE##":@vm:Part

call w3HtmlInsert("java1.detail", subs)

subs     = ""

subs<-1> = "##NAME##":@vm:"Quantity"

subs<-1> = "##VALUE##":@vm:qty

call w3HtmlInsert("java1.detail", subs)

subs     = ""

subs<-1> = "##NAME##":@vm:"Price"

subs<-1> = "##VALUE##":@vm:price

call w3HtmlInsert("java1.detail", subs)

subs     = ""

subs<-1> = "##NAME##":@vm:"Extended"

subs<-1> = "##VALUE##":@vm:extended

call w3HtmlInsert("java1.detail", subs)

call w3HtmlFooter("","")

return