UPDATE option on READNEXT command in CICS

MARINA JOSEPH · New User Joined: 11 Jun 2009 Posts: 61 Location: chennai

Hi all,

I am trying to access a KSDS file sequentially.
How do i use UPDATE option on READNEXT command in CICS?
Can somebody provide me the syntax.
It throws me token not found error.

Thanks,
Marina.

Robert Sample · Posted: Fri Jun 19, 2009 5:33 pm

Perhaps if you provided the actual CICS statements you're using first ....

MARINA JOSEPH · New User Joined: 11 Jun 2009 Posts: 61 Location: chennai

Below is the code snippet i have been using.
It throws me token not found error.

EXEC CICS READNEXT
DATASET('KSDS')
INTO(WS-FILE-VAR)
RIDFLD(WS-EMPNO)
UPDATE
RESP(WS-RESP-CODE)
END-EXEC.

/*UPDATING KSDS FILE*/
EXEC CICS REWRITE
DATASET('KSDS')
FROM(WS-FILE-VAR)
RESP(WS-RESP-CODE)
END-EXEC.

Thanks,
Marina.

dbzTHEdinosauer · Posted: Fri Jun 19, 2009 6:00 pm

this link which is the syntax and this link explains the TOKEN keyword and the definition of data-area and its use.

possibly that is your problem. if so, you will need to modify your REWRITE.

Bill O'Boyle · Posted: Fri Jun 19, 2009 8:38 pm

Don't do this! You may lock-out (deadly embrace) due to the file being in LSR. You need to save the current key, issue an ENDBR, issue a READ for UPDATE then a REWRITE, then take the saved-key, move the last byte to a the last byte of a redefined binary-fword (clears it to LOW-VALUES first), add 1, then move this updated last byte to the last byte of the saved-key. Now, issue a STARTBR (using the saved-key) and it should point you to the next record or you'll get a NOTFND, which means EOF. You can really mess up the CRP (current record pointer) if you don't follow similar steps.

Browses can be notoriously inefficient, but with the help of LSR, the non-efficiency level is reduced.

When a "Browsed" file is defined to LSR, the "QR" TCB can do other work while the browsing is occurring. However, when the file is NOT defined to LSR (known as NSR), the "QR" must wait until the Browsing has completed and if the browsing tales a while, you could back up tasks waiting to be dispatched and you DO NOT want to do this.

Earl Haigh · Active User Joined: 25 Jul 2006 Posts: 475

MARINA JOSEPH · New User Joined: 11 Jun 2009 Posts: 61 Location: chennai

Hi all,

I have a doubt regarding browsing in ESDS file.
In the examples I see they are moving LOW-VALUES to the RIDFLD before using STARTBR.

MOVE LOW-VALUES TO ESDS-KEY.
EXEC CICS STARTBR
DATASET(‘ESDS’)
RIDFLD(ESDS-KEY)
RBA

This means they are starting from the beginning of the file.

Is it allowed to position elsewhere say for eg:- at the 5th record or do we always have to start from the beginning of the file.

MOVE 5 TO ESDS-KEY
EXEC CICS STARTBR
DATASET(‘ESDS’)
RIDFLD(ESDS-KEY)
RBA

Thanks,
Marina.

MARINA JOSEPH · New User Joined: 11 Jun 2009 Posts: 61 Location: chennai

Hi all,

I have a doubt regarding browsing in ESDS file.
In the examples I see they are moving LOW-VALUES to the RIDFLD before using STARTBR.

MOVE LOW-VALUES TO ESDS-KEY.
EXEC CICS STARTBR
DATASET(‘ESDS’)
RIDFLD(ESDS-KEY)
RBA

This means they are starting from the beginning of the file.

Is it allowed to position elsewhere say for eg:- at the 5th record or do we always have to start from the beginning of the file.

MOVE 5 TO ESDS-KEY
EXEC CICS STARTBR
DATASET(‘ESDS’)
RIDFLD(ESDS-KEY)
RBA

Thanks,
Marina.

Robert Sample · Posted: Thu Jun 25, 2009 5:27 pm

What did the manual (link at the top of the page) tell you?

MARINA JOSEPH · New User Joined: 11 Jun 2009 Posts: 61 Location: chennai

There no examples or code snippets in the manual.
Its just explanations.

In case someone has had previous experience they would ahve a better idea about this.

Thanks.

Robert Sample · Posted: Thu Jun 25, 2009 5:43 pm

I thought the CICS Language Reference manual was pretty clear: