If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

 
Go Back  dBforums > Database Server Software > Adabas > COBOL accessing ADABAS

Reply
 
LinkBack Thread Tools Display Modes
  #1 (permalink)  
Old 06-25-08, 01:41
ARUNAJIT ARUNAJIT is offline
Registered User
 
Join Date: Jun 2008
Posts: 2
COBOL accessing ADABAS

For below query 'FIELD1' is a multi valued descriptor, The issue is CURSOR operations OPEN, FETCH are not supported on 'CUR1' . Can somebody plz explain

EXEC ADABAS
FIND
DECLARE CURSOR CUR1
SELECT FIELD1, FIELD2
FROM FILE1
WHERE FIELD1 = <VALUE>
END-EXEC
Reply With Quote
  #2 (permalink)  
Old 07-23-08, 04:58
newtech newtech is offline
Registered User
 
Join Date: Jul 2008
Posts: 3
This is DB Accessores

I have saw your new DB site The issue is CURSOR operations
Reply With Quote
  #3 (permalink)  
Old 07-23-08, 06:20
ARUNAJIT ARUNAJIT is offline
Registered User
 
Join Date: Jun 2008
Posts: 2
COBOL Accessing ADABAS : FIND

Thanks for your feedback. My intension was to do an update, for that I have corrected the problem as

EXEC ADABAS
FIND
DECLARE VE01 CURSOR
SELECT
GRP-ID-NUM,
UPDATED-TODAY-FLAG
FROM VEHICLES VE01VUR1
WHERE NMC-MODEL-SERIAL = :VEKEY01
OPTIONS HOLD
OPTIONS PREFIX = 'VE-'

END-EXEC
EXEC ADABAS
UPDATE VEHICLES
WHERE CURRENT OF VE01
END-EXEC

Still need to understand : On which occasion we have to use FIND?

Regards
Arun
Reply With Quote
Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On