Hi Rashmi,
I am not a CICS Programmer but I believe the CICS Application Reference manual
is fairly clear on this point.
RIDFLD - Specifies the name of the KEY field only, NOT the entire record, and
the length of the field should match KEYLENGTH.
INTO - Species the area to receive the record resulting from the READ.
It seems plausible to have the field WS-KEY either defined as a separate 20
byte field or defined as a field within WS-SCRATCH-REC.
As a question this seems to be more of a CICS query rather than a VSAM query.
Included below are examples for the ACCT01 IBM Supplied sample program.
Working Storage Definition
04 BRKEY.
06 BRKEY-SNAME PIC X(12).
06 BRKEY-ACCT PIC X(5).
01 ACIXREC.
02 SNAMEDO PIC X(12).
02 ACCTDO PIC 9(5).
02 FNAMEDO PIC X(7).
02 MIDO PIC X.
02 TTLDO PIC X(4).
02 ADDR1DO PIC X(24).
02 STATDO PIC X(2).
02 LIMITDO PIC X(8).
Procedure Division statement
EXEC CICS READNEXT FILE('ACCTIX') INTO(ACIXREC)
LENGTH(ACIX-LNG) RIDFLD(BRKEY) RESP(RESPONSE) END-EXEC.
Kind regards - Terry
Terry Sambrooks
Director
KMS-IT Limited
228 Abbeydale Road South
Dore
Sheffield
S17 3LA
UK
Tel: +44 (0)114 262 0933
WEB:
www.legac-e.co.uk
Reg: England & Wales 3767263 at the above address
All outgoing E-mails are scanned but it remains the recipients responsibility
to ensure that their system is protected from viruses, trojans, worms, and
spy-ware.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
