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
 

 

GET QUEUE_LOCK statement

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IDMS/ADSO
View previous topic :: :: View next topic  
Author Message
Manikandesvaran D

New User


Joined: 05 Dec 2013
Posts: 11
Location: india

PostPosted: Wed Jan 08, 2014 5:22 pm    Post subject: GET QUEUE_LOCK statement
Reply with quote

Hi All,

I want to keep a LOCK on my GET QUEUE Command.When i tried to write LOCK on GET QUEUE, results in error while compilation.

Syntax 1 :

GET QUEUE ID WS-QUEUE
KEEP INTO WS-QUEUE-INFORMATION
TO WS-QUEUE-END
LOCK.
$
Error : <E> DC163004 EXPECTED PERIOD NOT FOUND. STMT FLUSHED.

Syntax 2 :

GET QUEUE ID WS-QUEUE
KEEP LOCK INTO WS-QUEUE-INFORMATION
$
Error : <E> EXPECTED KEYWORD INTO NOT FOUND. STMT FLUSHED.
TO WS-QUEUE-END
FIRST.

But without LOCK statement the code is getting compiled successful

GET QUEUE ID WS-QUEUE
KEEP INTO WS-QUEUE-INFORMATION
TO WS-QUEUE-END
FIRST.

above syntax Compiled successfully.

But i want to use LOCK statement on my GET QUEUE command.Could anyone please give me the correct syntax for that.

Thanks in advance.
Back to top
View user's profile Send private message

Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1715
Location: UK

PostPosted: Wed Jan 08, 2014 5:32 pm    Post subject: Reply to: GET QUEUE_LOCK statement
Reply with quote

What does the manual say for the syntax? You HAVE to follow that, not make up your own. I don't recall a LOCK statement from my days of doing IDMS many years ago so it may be something more recent and, anyway, my manuals are in another country so I cannot check it out.
Back to top
View user's profile Send private message
Manikandesvaran D

New User


Joined: 05 Dec 2013
Posts: 11
Location: india

PostPosted: Wed Jan 08, 2014 5:49 pm    Post subject: Re: Reply to: GET QUEUE_LOCK statement
Reply with quote

Nic Clouston wrote:
What does the manual say for the syntax? You HAVE to follow that, not make up your own. I don't recall a LOCK statement from my days of doing IDMS many years ago so it may be something more recent and, anyway, my manuals are in another country so I cannot check it out.


Thanks NIC for your response.

here is the manual.

***************************************************************
GET QUEUE
[[ID] queue-area]

┌ / Next◄ \ ┐
│ │ First │ │
│ < Last > │
│ │ Prior │ │
│ │ N th │ │
└ \ RECord ID scr-rec-id / ┘

/ \
< Delete◄ >
\ Keep /

/ \
< LOck◄ >
\ NOLock /

/ \
< Wait >
\ NOWait◄ /
┌ ┌/ \┐┐
│ INto buff-start │< TO buff-end >││
└ └\ MAX Length max-reclen /┘┘

[RETurn LENgth [INto] len-field]
***************************************************************

also in https://support.ca.com/cadocs/0/CA%20IDMS%2018%205%20User%20Bookshelf-ENU/Bookshelf_Files/HTML/IDMS_DML_Online_User_ENU/index.htm?toc.htm?985487.html
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1715
Location: UK

PostPosted: Wed Jan 08, 2014 8:15 pm    Post subject: Reply to: GET QUEUE_LOCK statement
Reply with quote

Please read and understand the syntax diagrams - LOck is default action.
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1715
Location: UK

PostPosted: Wed Jan 08, 2014 8:53 pm    Post subject: Reply to: GET QUEUE_LOCK statement
Reply with quote

Another possibility is that you are not looking at the manual that relates to your level of IDMS and that the level you are using does not have the LOCK option.
Back to top
View user's profile Send private message
Manikandesvaran D

New User


Joined: 05 Dec 2013
Posts: 11
Location: india

PostPosted: Thu Jan 09, 2014 2:41 pm    Post subject: Re: Reply to: GET QUEUE_LOCK statement
Reply with quote

Nic Clouston wrote:
Another possibility is that you are not looking at the manual that relates to your level of IDMS and that the level you are using does not have the LOCK option.


Thanks NIC for your support.I will look into that.
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 -> IDMS/ADSO All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts -913/-911 Deadlock during UPDATE stat... NoSleep319 DB2 5 Fri Nov 18, 2016 12:37 am
No new posts COBOL DB2 - CALL statement - high CPU... TS70363 DB2 15 Sun Sep 11, 2016 6:07 am
No new posts Converting NULL column into NOT NULL ... Raghu navaikulam DB2 5 Sat Aug 06, 2016 3:45 pm
This topic is locked: you cannot edit posts or make replies. Updating value of key using rewrite s... ParminderKumar COBOL Programming 4 Thu Aug 04, 2016 12:46 am
No new posts Inspect statement spoorni COBOL Programming 5 Mon Jun 06, 2016 9:53 pm


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