IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

ADSO GET QUEUE error 4407


IBM Mainframe Forums -> IDMS/ADSO
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Manikandesvaran D

New User


Joined: 05 Dec 2013
Posts: 11
Location: india

PostPosted: Tue May 13, 2014 3:37 pm
Reply with quote

We are facing the error 4407 on our ADSO code when 2 or more users accessing the same record.

The command was :

GET QUEUE ID <<Queue-name>>
KEEP
INTO <<WS-QUEUE-INFORMATION >>
TO <<WS-QUEUE-END >>
FIRST.

I have tried to introduce a delay of 1 sec when the queue was already locked.But still the problem persists.

MOVE 0 TO WS-COUNT

WHILE WS-COUNT < 5 AND ERROR-STATUS EQ '4407'
REPEAT.
MOVE 1 TO WAIT-TIME-DELAY.
ADD 1 TO WS-COUNT.
LINK PROGRAM 'WAIT' USING ( WAIT-RECORD ).
GET QUEUE ID <<Queue-name>>
KEEP
INTO <<WS-QUEUE-INFORMATION >>
TO <<WS-QUEUE-END >>
FIRST
END.

Please help on this.I am new for ADSO system.Please help me how to sort this 4407 errror.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Tue May 13, 2014 6:43 pm
Reply with quote

Hello,

Do NOT introduce a delay. . . Well managed systems will not allow the developers to do this. It long-term causes many more problems than it fixes.

You need to identify which bits of the code is causing the data to be unavailable and change the code so that the data is locked for Only the time it takes to update - not the entire transaction.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> IDMS/ADSO

 


Similar Topics
Topic Forum Replies
No new posts Error to read log with rexx CLIST & REXX 11
No new posts Error when install DB2 DB2 2
No new posts CLIST - Virtual storage allocation error CLIST & REXX 5
No new posts MQ response when MQGET of a stopped q... Java & MQSeries 2
No new posts Error while running web tool kit REXX... CLIST & REXX 5
Search our Forums:

Back to Top