Interested to Buy Any Domain ? << Click Here >> for more details...
What is the command for reading a record form a TSQ?
- 3 Answers
- 25001 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 |
When there are 2 records with the same key specified in a DELETE operation what will happen?
I just want to ask why does the variable I passed in a dclgen of sql that has a data type of varchar which has a maximum length is 250 is truncated,, Here is the code.. DCLGEN of rsauud01 table 01 dataarea 43 data-area-len pic s9(4). 43 data-area-text pic x(250). MYVARIABLE. 01 DATAAREA1 pic x(250). move 250 to data-area-len of dataarea of rsauud01 MOVE DATA-AREA1 TO data-area-text of dataarea of rsauud01 --- but it is always trucated everytime I insert it in the table by the way it is a cobol-cics program
Can a CICS code be a part of a copybook? If so, then what are the outcomes after compilation?
How to build up LU 6.2 communication?"
In which table would you make an entry for a BMS map?
How to execute a cics program from a paticular date and time .or specified date and time.
How many ways are there for initiating a transaction?
How do you control cursor positioning?
Explain the function of the terminal control table?
What are some of the cics commands associated with interval control?
What is a Logical Unit of Work (LUW)?
Can you define attribute byte?
COBOL 
