What is the command for reading a record form a TSQ?
- 3 Answers
- 23080 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / srivani dorbala
EXEC CICS READQ TS
QUEUE('QNAME')
INTO(WS-TSQ-REC)
ITEM(Q-ITEM)
LENGTH(LENGTH OF WS-TSQ-REC)
END-EXEC.
WHERE QNAME IS ANYNAME OF TSQ WHICH SHOULD B 8 CHARACTERS.
WS-TSQ-REC WHICH IS A RECORD DECLARED IN WORKING STORAGE
SECTION AND Q-ITEM IS A WORKING STORAGE VARIABLE WHICH HAS
PIC S9(04) COMP VALUE 0.EVERY TIME THIS ITEM IS INCREASING
BY 1.
IF U HAVE ANY DOUBT, PLEASE SHARE WITH ME.
| Is This Answer Correct ? | 25 Yes | 2 No |
Answer / hems
Temporary Storage Queues:
The temporary program (TSP) provides the application
program with an ability to do store and retrieve the data
in a temporary storage queue (TSQ)
TSQ can be used as scratch pad memory.
TSQ can be created and deleted dynamically by an
application program without specifying anything in CICS
control tables.
Temporary storage queue which are to recovered in the event
of failure should be registered in TST (Temporary Storage
Table)
A TSQ is identified by the queue id (1 to 8 bytes).
A record in a TSQ can be read any number of times, they can
be read both sequentially and randomly and records in a TSQ
can also be updated.
TSQ can be written in the main storage or in the auxiliary
storage. If the TSQ is written in main storage, accessing
TSQ is very fast but TSQ in this mode is not recoverable.
TSQ which is written in auxiliary storage (external VSAM
file) can be recoverable.
WRITEQ TS Command
EXEC CICS WRITEQ
QUEUE (name)
FROM (data-area)
LENGTH (data-value)
ITEM (data-area)
REWRITE
MAIN / AUXILIARY
NOSUSPEND
END-EXEC.
The WRITEQ command is used to write a record (item) in a
TSQ.
LENGTH indicates the length of data records. It is a half
word binary (S9(4) COMP)
ITEM specifies the relative position number. It is defined
as a half word binary (S9(4) COMP)
MAIN : specifies main storage.
AUXILIARY : specifies auxiliary storage. This is default.
REWRITE : Option is used to rewrite a record in a TSQ,
which has been read.
NOSUSPEND : If no space is detected in the TSQ for the
new record, CICS will return the control to the next
statement after the WRITEQ command instead of suspending
the task if NOSUSPEND is specified in the WRITEQ command.
At the end of the write command CICS places item number of
the record written into ITEM parameter.
Exceptional condition to WRITEQ are:
NOSPACE Sufficient space is not available. The default
action is suspend the task untill space is available.
READQ TS Command
EXEC CICS READQ
QUEUE (name)
INTO (data-area) / SET (data-area)
LENGTH (data-area)
ITEM (data-value) / NEXT
END-EXEC.
The READQ command is used to read all the records in a TSQ
sequentially or to read a particular record randomly.
INTO determines the area to which the record data is to be
placed.
LENGTH indicates the length of the record to be read.
ITEM indicates item number of the record to be read.
SET option can also be used instead of INTO option.
Other options of the READQ command is
NUMITEMS Specify NUMITEMS (data-area) in READQ command.
The data area defined as S9(4) COMP. At the completion of
the read command, CICS will place the actual number of the
records in the TSQ specified.
NEXT if this option is specified, task will read the
next sequential record in the TSQ
specified. This option should be used very carefully.
Exceptional conditions are
QIDERR : The specified QID is not found.
ITEMERR : The specified item number is not found. For
sequential read it indicates end
of the queue.
DELETEQ TS Command
EXEC CICS DELETEQ TS
QUEUE (name)
END-EXEC.
The DELETEQ command is used to delete a TSQ entirely.
Cannot delete a single item from the TSQ.
Exceptional conditions are
QIDERR : The specified QID is not found.
| Is This Answer Correct ? | 10 Yes | 2 No |
Answer / thomas abraham green
Hi sreevani .. this is a very brilliant answer give.. i
have 10 years experiance in Mainframes and i appretiate you
way of giving apt answer. Please gimme your contact details
i can reffer you for a job with 09 lakhs package per annum.
Please let me know if you are interested.
| Is This Answer Correct ? | 4 Yes | 15 No |
What is the most common way of building queue-id of a TSQ? (Name the constituents of the Queue ID).
How do you initiate another transaction?
What is meant by an AICA ABEND?
Name the 3 common ways to create maps?
first when i try to write a record into the file, wresp=duprec, but follwed with that if i try to read the record it say record not fnd.. actually the record is not written in the file, but it says that duprec when trying to write... why this happens, pls help me asap..!
how do you intitiate another transaction?
What is the General Command format Of CICS
Explain the difference between a physical bms mapset and a logical bms mapset?
What is data only and map only in cics
Explain cemt transaction commands?
What is eib?
What is interval control and what are some of the CICS commands associated with it?
COBOL 
