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


Please Help Members By Posting Answers For Below Questions

when an xctl is done, does the tranid change ? Is a new task created ? Does it cause an implicit syncpoint to be issued ?

846


What is a transid?

660


which cics service transaction is used to gain accessibility to cics control tables? Mention the one that has the highest priority.?

786


When would you use abend command?

690


Explain how do you delete item 3 in a five-item tsq?

609






Can you explain cics transaction gateway?

702


which cics command must be issued by the application program in order to gain access to the common work area (cwa)?

762


What is the use of the program list table?

714


I have done a start browse on a vsam dataset. Can I do another start browse without doing an end browse?

703


In a CICS program, how will you read a VSAM file?

756


Define ceci?

694


How to define a vsam file in cics getting into cics to define a vsam file.

692


What does the 'cemt:cics' transactions do?

725


Can you define attribute byte?

664


Can you explain dfhmdf bms macro?

754