Results 1 to 3 of 3
  1. #1
    Join Date
    Jun 2008
    Posts
    2

    Unanswered: 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

  2. #2
    Join Date
    Jul 2008
    Posts
    3

    This is DB Accessores

    I have saw your new DB site The issue is CURSOR operations

  3. #3
    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

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •