CICS BROWSING

1
CICS BROWSING

• Chapter 14

2
STARTBR

• Gets ready for BROWSE operation
• EXEC CICS
• STARTBR DATASET(filename)
• RIDFLD(record key)
• GTEQ EQUAL
• RESP(RESPONSE-CODE)
• END-EXEC

3
STARTBR Notes

• Set RIDFLD to LOW-VALUES to start at beginning of
  file.
• Set RIDFLD to HIGH-VALUES to start at end of file
  (Must use READPREV first!)
• Sets pointer to appropriate record in the file.
• Does NOT read any data!
• NOTFND condition occurs if no match

4
READNEXT

• Reads next record - forward
• EXEC CICS
• READNEXT DATASET(filename)
• INTO(recordname)
• RIDFLD(keyfield)
• RESP(RESPONSE-CODE)
• END-EXEC

5
READNEXT Notes

• Retrieves the NEXT record in the file in the
  forward direction.
• The ENDFILE condition is raised if at end of
  file.
• A READNEXT command that follows a READPREV
  command will retrieve the same record.
• Changing the RIDFLD will get the record specified.

6
READPREV

• Reads next record backward
• EXEC CICS
• READPREV DATASET(filename)
• INTO(recordname)
• RIDFLD(keyfield)
• RESP(RESPONSE-CODE)
• END-EXEC

7
READPREV Notes

• Retrieves the NEXT record in the file in the
  backward direction.
• The ENDFILE condition is raised if at the
  beginning of the file.
• A READPREV command that follows a READNEXT
  command will retrieve the SAME record!
• Changing the RIDFLD will get the record specified.

8
ENDBR

• Terminates BROWSE operation
• EXEC CICS
• ENDBR DATASET(filename)
• END-EXEC

9
RESETBR

• A combined STOPBR and STARTBR
• EXEC CICS
• RESETBR DATASET(filename)
• RIDFLD(record key)
• GTEQ EQUAL
• RESP(RESPONSE-CODE)
• END-EXEC