ACCEPT/REJECT from ADABAS point of view.

atulrukmangad · New User Joined: 10 Apr 2006 Posts: 13

What is the difference b/w following 2 codes

READ PRODUCT WITH PRODUCT-CODE
IF PRODUCT-CODE NE '1000'
ESCAPE TOP
END-IF
<expressions>
END-READ

READ PRODUCT WITH PRODUCT-CODE
ACCEPT IF PRODUCT-CODE EQ '1000'
<expressions>
END-READ

monasu1998

Hi:

Below 2 code block read scan thru a view. The significance in 2nd code block (ACCEPT statement) is it is used with a SORT statement. Where records those satisfy the condition after ACCEPT keyword will be taken for SORTing.

ACCEPT/REJECT keywords are used in conjustion with SORT statement.

READ PRODUCT WITH PRODUCT-CODE
IF PRODUCT-CODE NE '1000'
ESCAPE TOP
END-IF
<expressions>
END-READ

READ PRODUCT WITH PRODUCT-CODE
ACCEPT IF PRODUCT-CODE EQ '1000'
<expressions>
END-READ[/quote]

naveen_desireddy · Posted: Tue May 23, 2006 2:00 am Post subject:

if records exist with EMPLOY-ID = '3' within the first 10 READS, then they will be written because:

"If an ACCEPT condition is satisfied, the record will be accepted and consecutive ACCEPT/REJECT statements will be ignored."

vasanthanc · Active User Joined: 01 Apr 2005 Posts: 59