What is the command for reading a record form a TSQ?
- 3 Answers
- 23722 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 |
the dfhcommara is used to pass information from one application to another. What are some other ways that this function can be accomplished?
Give certain situations where NEWCOPY is obligatory?
What is the use of mdt (modified data tag)?
when will be use the tdq and tsq??
What are the uses of ppt in cics?
which transient data queue support ati?
What is the meaning and use of the EIBAID field?
Which transient data queue supports ATI?
How many ways to share information between different CICS programs?
What do you mean by the term fct?
What is the function of the Terminal Control table?
explain the means of supporting pseudo conversation programming. (Eg. Storing and restoring of states, control flow, error handling)?
COBOL 
