progress 4gl :how to retrive record from database which satisfies multiple keywords

[Sri Nivas]

progress 4gl :how to retrive record from database which satisfies multiple keywordDO: ASSIGN ENTRYcount = (NUM-ENTRIES(hi:SCREEN-VALUE)).

REPEAT pos = 1 TO ENTRYcount : ASSIGN keywordi = ENTRY(pos,trim(hi:SCREEN-VALUE)). FOR EACH db1.vehicles WHERE vehicles.ad-num MATCHES keywordi OR string(vehicles.sl-num) MATCHES keywordi OR vehicles.product-id MATCHES keywordi OR vehicles.product-name MATCHES keywordi OR string(vehicles.amount) MATCHES keywordi NO-LOCK: FOR EACH db2.service WHERE db2.service.ad-num = db1.vehicles.ad-num NO-LOCK: /* IF vcount EQ 0 AND scount LT 1 THEN / / DO: */ FIND ttservice WHERE ttservice.service-num = service.service-num NO-LOCK NO-ERROR . IF AVAILABLE ttservice THEN DO:

END.
ELSE
DO:

CREATE ttservice .
ASSIGN ttservice.ad-num = vehicles.ad-num
ttservice.sl-num = vehicles.sl-num
ttservice.sl-id = service.sl-num
ttservice.product-id = vehicles.product-id
ttservice.service-num = service.service-num
ttservice.product-name =vehicles.product-name
ttservice.purchase-amt = vehicles.amount
ttservice.service-amt = service.service-amt NO-ERROR .
END.
END.s

Continue reading...