Reading ESDS file sequentially in CICS

ssowmya · New User Joined: 10 Oct 2006 Posts: 40

Hi

I need to read a ESDS file and delete records if present in the file. I tried with a Start Browse and read next. But I receive ILLOGIC error when trying to start browse the file.

The code is:

EXEC CICS STARTBR DATASET('FILENAME')
RIDFLD(DUMMY-KEY)
END-EXEC.

EXEC CICS READNEXT DATASET ('FILENAME')
INTO(BOPFN24-RECORD)
RIDFLD(DUMMY-KEY)
END-EXEC.

EIBRESP and EIBRESP2 received are 21 and 110 respectively. Should ESDS files be processed differently??? Please help....

William Thompson · Posted: Thu Mar 29, 2007 1:11 pm

Of course you got an ILLOGIC error, just what sort of key did you expect to find in an ESDS file?
And you will not be able to delete records from an ESDS file, only "mark" them for later dropping during a backup/restore.

ssowmya · New User Joined: 10 Oct 2006 Posts: 40

The key has zero values only.

William Thompson · Posted: Thu Mar 29, 2007 1:32 pm

Again, what sort of key did you expect to find in an ESDS file?
ESDS can be read by RBA or just sequentially but not by key (without an AIX).

expat · Posted: Thu Mar 29, 2007 1:36 pm

Is the key always in the same position within the ESDS records, because if they are, then William's mention of an AIX might save you some processing time and resource.

If you overlay the ESDS with an AIX keyed to the appropriate position then you need only flag for delete all of the records matching the selection criteria, rather than read the whole file sequentially.

ssowmya · New User Joined: 10 Oct 2006 Posts: 40

If I dont provide RIDFLD() value, my compiler is not compiling the program successfully.

Can you please provide me the syntax of reading an ESDS file from first record sequentially in CICS.

ssowmya · New User Joined: 10 Oct 2006 Posts: 40

Also about deletion of record in ESDS....Can you also tell me how to mark the record for deletion?
When will the records be deleted ? When the CICS is bought down?

Will the marked records be processed when the file is read again?

I am new to ESDS...Have worked with KSDS only.

Please help me....

William Thompson · Posted: Thu Mar 29, 2007 1:53 pm

That is because RIDFLD is required for STARTBR.
Look at accessing by relative record.

ssowmya · New User Joined: 10 Oct 2006 Posts: 40

Hi

Now I am able to Start browse & Read Next. How can I mark the record for deletion??? Please help me....

William Thompson · Posted: Thu Mar 29, 2007 2:38 pm

How you mark them is up to you. You need to mark them in such a way that your later processing will consider them "deleted" and skip them.

ssowmya · New User Joined: 10 Oct 2006 Posts: 40

You mean, we need to have a flag in the file which needs to be set when the record should no longer be processed??? Can we be able to rewrite in an ESDS file??

So the only way to empty records is to delete define the file is it???

expat · Posted: Thu Mar 29, 2007 4:11 pm

The way that KSDS works is that if you issue a delete for a record, it is flagged as being deleted and is changed internally, don't ask me how, so that it no longer accessible for either random or sequential access.

When the file is reorg'd - EXPORT/IMPORT or REPRO out / REPRO in, the records flagged as deleted are not copied out of the file, so will not be copied back into the file - they are then physically deleted from the file.

How this works with ESDS I don't remember, but obviously you can delete records from an ESDS file, and you can rewrite records.

William Thompson · Posted: Thu Mar 29, 2007 6:45 pm

expat · Posted: Thu Mar 29, 2007 6:53 pm

William Thompson · Posted: Thu Mar 29, 2007 6:58 pm

VSAM's primary I/O unit is the CI. After deleting a record, the hole is filled from behind and the counter of freespace in the rear is updated. No index changes are needed since none of the internal records are listed in the index (only the highest one I think).

expat · Posted: Thu Mar 29, 2007 7:05 pm

That's correct about the index - it only updates if the high value key for that CI/CA is changed.

I still maintain that the record is logically deleted in KSDS. RLS will lock and process at the record level rather than the CI.

I shall try and take a nose around the VSAM books and check on this, unless of course you have a readily available quote from the good book to save me the trouble.

Damn you man, you're coming close to shattering my illusions on KSDS processing

expat · Posted: Thu Mar 29, 2007 7:27 pm

ssowmya · New User Joined: 10 Oct 2006 Posts: 40

Hi

I am unable to REWRITE into ESDS file. Could some one please help me...Can you provide me with syntax???

I do a start browse. Then read next of the record. When I try to rewrite after modifying certain fields, I get EIBRESP 16 and EIBRESP2 30.

Please help...

ssowmya · New User Joined: 10 Oct 2006 Posts: 40

Hi

I am reading a ESDS file sequentially and am trying to update it using rewrite. Please find the code below:

EXEC CICS READ DATASET ('FILENAME')
INTO(FILERECORD)
RIDFLD(DUMMY-KEY)
UPDATE
END-EXEC.

Modify value and then REWRITE record

EXEC CICS
REWRITE FILE('FILENAME')
FROM(FILERECORD)
END-EXEC

Please let me know where I am wrong. The program hangs when I give update option in READ statement. If I dont give UPDATE option, the read is successfull. But REWRITE fails with EIBRESP 16 and EIBRESP2 30. Am I missing something??? Is the problem with definition of CICS file??? Please help me...

William Thompson · Posted: Fri Mar 30, 2007 12:40 pm

Do you reliase that manuals have a lot of answers in them?
INVREQ
A REWRITE command is issued for a file that has not had a previous READ UPDATE successfully issued (RESP2=30).
And, yes, READNEXT also has an UPDATE......

ofer71 · Posted: Sun Apr 01, 2007 9:24 am

1. Check the response of the READ command. Was it successful?

O.

William Thompson · Posted: Sun Apr 01, 2007 12:05 pm