What is the command for reading a record form a TSQ?
Answer Posted / 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 |
Post New Answer View All Answers
How many ways are there for initiating a transaction?
Explain the function of the load command?
Can you define cemt?
what are the differences between and exec cics xctl and an exec cics link command?
what is the difference between a package and a plan. How does one bind 2 versions of a cics transaction with the same module name in two different cics regions that share the same db2 subsystem?
Explain cebr transaction commands?
Is length = 0 sufficient to ascertain that the field has been modified?
How to get the cursor position when we receive a map?
What is a transid?
Can you explain multitasking and multithreading?
Kindly specify the pic clause for the any bll cell type of data fields?
What are the cics transactions?
What are fset, frset?
Explain the function of the cics translator?
Explain how many conditions can you include in a single handle condition command?