Golgappa.net | Golgappa.org | BagIndia.net | BodyIndia.Com | CabIndia.net | CarsBikes.net | CarsBikes.org | CashIndia.net | ConsumerIndia.net | CookingIndia.net | DataIndia.net | DealIndia.net | EmailIndia.net | FirstTablet.com | FirstTourist.com | ForsaleIndia.net | IndiaBody.Com | IndiaCab.net | IndiaCash.net | IndiaModel.net | KidForum.net | OfficeIndia.net | PaysIndia.com | RestaurantIndia.net | RestaurantsIndia.net | SaleForum.net | SellForum.net | SoldIndia.com | StarIndia.net | TomatoCab.com | TomatoCabs.com | TownIndia.com
Interested to Buy Any Domain ? << Click Here >> for more details...

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

What is the use of the eibaid field?

1122


What does the 'cebr:cics' transactions do?

1010


Define an aey9 abend?

1207


name the command that is used to dump the main storage areas related to a task?

1078


What is the common work area?

970


list the sequence of steps used to achieve modiication in skip sequential mode?

1178


Define primary objective of cics?

989


Explain how do you access the records randomly in tsq?

1075


What are the cics tables?

1068


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

1132


Define an asra abend?

1059


Can QSAM files be accessed from CICS?

1112


the dfhcommara is used to pass information from one application to another. What are some other ways that this function can be accomplished?

1135


What is the meaning of the eibaid field?

915


Define cics interface block?

983