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
 

 

ADABAS response code if record not found

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

New User


Joined: 26 Feb 2007
Posts: 34
Location: pune

PostPosted: Thu Jun 04, 2009 7:57 pm    Post subject: ADABAS response code if record not found
Reply with quote

I need help to figure out the response code value if reading a ADABAS file by COBOL program and record is not found in that file. Like COBOL module is coded like

EXEC ADABAB
FETCH ABCD
END-EXEC

/* ABCD is view of ADABAS file

After this we are checking the value in variable

RESPONSE-CODEABCD (This looks as an system variable as not defined in pgm)

I want to know what will be value of RESPONSE-CODEMKTG
If record not found in ABCD file.
Back to top
View user's profile Send private message

beruoist

New User


Joined: 14 Nov 2007
Posts: 70
Location: mumbai

PostPosted: Mon Jun 15, 2009 1:55 pm    Post subject: Reply to: ADABAS response code if record not found
Reply with quote

What don't you use quantity instead of response code to check whether a record is found or not.

For example

EXEC ADABAS
.
.
.
END-EXEC.

Move quantity of FILE-NAME to ws-quantity.

If ws-quantity<1
perform error-routine.


You can use above approach.
Back to top
View user's profile Send private message
purushottam

New User


Joined: 26 Feb 2007
Posts: 34
Location: pune

PostPosted: Wed Jun 17, 2009 7:34 pm    Post subject:
Reply with quote

Thanks for your advice...

But here i am modifying the existing code to do something if record is not found.
Back to top
View user's profile Send private message
beruoist

New User


Joined: 14 Nov 2007
Posts: 70
Location: mumbai

PostPosted: Fri Jun 19, 2009 2:26 pm    Post subject:
Reply with quote

purushottam wrote:
Thanks for your advice...

But here i am modifying the existing code to do something if record is not found.


Buddy if you use the above logic with FIND with the exact key.It is going to serve your purpose for putting the logic for NO RECORD FOUND.Obviously if the record is not founded with the record key the quantity value will be zero else it would be one..applying the logic on the basis of the value of quantity you can execute your customized subroutine.

Please tell me if my above understanding is incorrect ?
Back to top
View user's profile Send private message
purushottam

New User


Joined: 26 Feb 2007
Posts: 34
Location: pune

PostPosted: Thu Jun 25, 2009 9:25 pm    Post subject: Reply to: ADABAS response code if record not found
Reply with quote

Sorry for delay in response...

I dont have a exact value for superdescriptor field so using read logic. Do you know even through Qnt logic can be implemented ?? Could you suggest how..

Also i am getting response code as "0021" in case of no record found. not sure it is correct..
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 CICS transaction slow response time vasanthz All Other Mainframe Topics 1 Thu Jan 19, 2017 1:31 am
No new posts How to Capture the Max return code of... anilkumar922 All Other Mainframe Topics 0 Thu Jan 12, 2017 12:02 pm
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm
No new posts PL/I code tuning/Performance improvement Virendra Shambharkar PL/I & Assembler 4 Mon Dec 05, 2016 11:57 am
No new posts What is the code in CLIST to enable t... jackzhang75 CLIST & REXX 1 Fri Dec 02, 2016 3:02 am


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