Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

ACCEPT/REJECT from ADABAS point of view.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Java & MQSeries
View previous topic :: :: View next topic  
Author Message
atulrukmangad

New User


Joined: 10 Apr 2006
Posts: 13

PostPosted: Fri Apr 28, 2006 1:54 pm    Post subject: ACCEPT/REJECT from ADABAS point of view.
Reply with quote

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
Back to top
View user's profile Send private message

monasu1998

Active User


Joined: 23 Dec 2005
Posts: 176
Location: India

PostPosted: Fri Apr 28, 2006 3:15 pm    Post subject: Re: ACCEPT/REJECT from ADABAS point of view.
Reply with quote

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]
Back to top
View user's profile Send private message
naveen_desireddy

New User


Joined: 29 Aug 2005
Posts: 10
Location: Hyderabad, India

PostPosted: Tue May 23, 2006 2:00 am    Post subject:
Reply with quote

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."
Back to top
View user's profile Send private message
vasanthanc

New User


Joined: 01 Apr 2005
Posts: 58

PostPosted: Sun May 28, 2006 2:05 am    Post subject:
Reply with quote

Quote:
What is the difference b/w following 2 codes


Both the code will give same result. No difference at all. As far as adabas is concerned, both the code will retrieve all records after that the condition will be checked and rejected based on that. So efficieny wise also both are same
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Java & MQSeries All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Release of Adabas Cursor mohitsethi All Other Mainframe Topics 1 Mon Feb 06, 2017 8:36 pm
This topic is locked: you cannot edit posts or make replies. Natural ADABAS Opening with CTS enikhilk Mainframe Jobs 0 Wed Nov 30, 2016 5:37 pm
No new posts Casting a Binary Number to Numeric in... Bob Steinkraus Java & MQSeries 6 Tue Aug 09, 2016 5:58 pm
No new posts Help Needed with View Direct shailesh_do CA Products 2 Wed Jul 13, 2016 10:39 am
No new posts Online Assembler Program Starting point Aditya.Srivastava PL/I & Assembler 4 Fri Jul 08, 2016 6:48 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us