CICS read problem and question

rexph · New User Joined: 03 Mar 2005 Posts: 2

Hi all,

Using a standard CICS read command as illustated below

EXEC CICS READ
FILE ('filename')
INTO (record-area)
LENGTH (LENGTH OF record-area)
RIDFLD (ws-ridfield)
EQUAL
RESP (WS-CICS-RESP)
END-EXEC.

I have encounted a length error problem with one of the programs I'm investigating. But there is a mirror program that uses the same file andis not encountering the error. The strange thing in this program is that before execution of the read command the length already shows a negative 23565 value. As I understand before execution the length should be zeroes and only after execution that the length will have a value. Can anybody shed light on this?

Thanks
Rex :?:

meetsrk · Active User Joined: 13 Jun 2004 Posts: 86

hi,
Check the record length of the VSAM file and the record length of record-area in working storage section are same
or
Check the length picture clause, whether it is declared as S9(4) COMP.

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1526

Hi Rex,

Can you show us the actual READ cmd and the listing of "record-area" and perhaps a few lines before and after the "record-area" description?

Another possiblity is that the length field generated by the cmd is being overlaid. Is there any table processing in the pgm?