How to find the last record in VSAM file using specific key

rashmirgowda · New User Joined: 18 Jun 2008 Posts: 25 Location: india

Hi,

I am having a VSAM file with the KEY LENGTH of 18.For EG.,the data looks like below:

NA0000010119000198
NA0000010119000199
NA0000010119000200
NA0000010119000201
NA0000010119000202
NA0000010119000203
NA0000010119000204
NT0000010119000001
NT0000010119000002
NT0000010119000003

The first 7 characters will be USER-ID,next 5 characters will be date which will be in julian format and the next 6 characters will be counter

I want to fetch the last record of userid NA00000 directly.I tried by moving HIGH-VALUES to the remaining of the key and issued STARTBR command and READPREV.But i am getting RESP-CD as 16 with GENERIC option.

dbzTHEdinosauer · Posted: Fri Apr 30, 2010 6:42 pm

why not GTE NA0000099999999999 without the GENERIC?

rashmirgowda · New User Joined: 18 Jun 2008 Posts: 25 Location: india

Hi,

I checked by giving the key as 'NA0000099999999999' in STARTBR and it is successful.But i am getting as Record Not Found error in READPREV inorder to get the last record.

Ronald Burr · Posted: Fri Apr 30, 2010 7:51 pm

The CICS manual says ( concerning READPREV ):

"A generic key may not be specified, nor may a browse that was started with the GENERIC option include a READPREV command."

Suggest that you issue a READNEXT immediately following the STARTBR, after which you can then issue the READPREV to retrieve the record you seek.

rashmirgowda · New User Joined: 18 Jun 2008 Posts: 25 Location: india

Hi,

I have tried with the Generic option in STARTBR by passing the key as 'NA0000099999999999' but getting RESP-CD as 16.

Also tried with using the same key value with GTEQ option in STARTBR is successful and used READNEXT and READPREV immediately. But it is fetching the next record i.e., NT0000010119000001 instead of NA0000010119000204.

Robert Sample · Posted: Fri Apr 30, 2010 8:59 pm

If you do a READNEXT, the READPREV will get that record again. A second READPREV should retrieve the record you want.

CICS Guy · Posted: Fri Apr 30, 2010 9:08 pm

rashmirgowda · New User Joined: 18 Jun 2008 Posts: 25 Location: india

Thanks All, It worked.I have used GTEQ in STARTBR followed by READNEXT and two READPREV.

Bill O'Boyle · Posted: Fri Apr 30, 2010 9:47 pm

If you have access to IBM transaction CECI, you can educate yourself regarding CICS commands, options, keywords, etc.

It's hands-on, intuitive (for the most part) and more comprehensive than a manual.

Normally, CECI is only available in non-Production environments.

I would hope this is a true statement in your shop.

Check with your CICS Tech Support and/or CICS Sysprog(s) for access and usage.

You can also find documentation in the current version/release of your CICS Supplied Transactions manual.

Bill

Rogerio Ferreira Coelho · Posted: Sat May 01, 2010 12:02 am

Hi,

You don't can user GENERIC, do like this sample:
STARTBR
READNEXT
READPREV
READPREV - HERE ARE THE RECORD YOU WANT:

I'm not sure why, but you need do 2 reaprev, after READNEXT

RECORD KEY
SRFA201011601109300070638
SRFA201011601129050070985
SRFA201011601135190071089
SRFA201011601135240071098
SRFA201011601305470071730
SRFA201011601320130072280
SRFA201011601334130072633
SRFA201011601334170072641
SRFA201011601334220072649
SRFA201011800907200009474
SRFA201011801045100010105
SRFA201011801050460010155

STARTBR FILE(SRCSH1) RI(&RI)
STATUS: COMMAND EXECUTION COMPLETE NAME=
EXEC CICS STARTBR
File( 'SRCSH1 ' )
< Sysid() >
RIdfld( 'SRFA2010116011...........' ) The key has completed with x'FF'
< Keylength() < GEneric > >
< REqid( +00000 ) >
< RBa | Xrba | RRn | DEBRec | DEBKey >
< GTeq | Equal >

RESPONSE: NORMAL EIBRESP=+0000000000 EIBRESP2=+0000000000

READNEXT FILE(SRCSH1) RI(&RI)
STATUS: COMMAND EXECUTION COMPLETE NAME=
EXEC CICS READNext
File( 'SRCSH1 ' )
< SYsid() >
( SEt() | Into( 'SRFA201011601305470071730<CASO><REG001>0010010000' ... ) )
< Length( +11484 ) >
RIdfld( 'SRFA201011601305470071730' ) The next record after
< Keylength() >
< REQid( +00000 ) >
< RBa | Xrba | RRn >
< UNcommitted | Consistent | REPeatable | UPdate Token() >
< Nosuspend >

RESPONSE: NORMAL EIBRESP=+0000000000 EIBRESP2=+0000000000

READPREV FILE(SRCSH1) RI(&RI)
STATUS: COMMAND EXECUTION COMPLETE NAME=
EXEC CICS READPrev
File( 'SRCSH1 ' )
< SYsid() >
( SEt() | Into( 'SRFA201011601305470071730<CASO><REG001>0010010000' ... )
< Length( +11484 ) >
RIdfld( 'SRFA201011601305470071730' ) The same record
< Keylength() >
< REQid( +00000 ) >
< RBa | Xrba | RRn >
< UNcommitted | Consistent | REPeatable | UPdate Token() >
< Nosuspend >

RESPONSE: NORMAL EIBRESP=+0000000000 EIBRESP2=+0000000000

READPREV FILE(SRCSH1) RI(&RI)
STATUS: COMMAND EXECUTION COMPLETE NAME=
EXEC CICS READPrev
File( 'SRCSH1 ' )
< SYsid() >
( SEt() | Into( 'SRFA201011601135240071098<CASO><REG001>0010010000' ... )
< Length( +11067 ) >
RIdfld( 'SRFA201011601135240071098' ) And here you have
< Keylength() >
< REQid( +00000 ) >
< RBa | Xrba | RRn >
< UNcommitted | Consistent | REPeatable | UPdate Token() >
< Nosuspend >

RESPONSE: NORMAL EIBRESP=+0000000000 EIBRESP2=+0000000000

dick scherrer · Posted: Sat May 01, 2010 1:43 am

Hello,