CICS BROWSING - PowerPoint PPT Presentation

1 / 9
About This Presentation
Title:

CICS BROWSING

Description:

CICS BROWSING. Chapter 14. STARTBR. Gets ready for BROWSE operation. EXEC CICS ... Terminates BROWSE operation. EXEC CICS. ENDBR DATASET('filename') END-EXEC. RESETBR ... – PowerPoint PPT presentation

Number of Views:46
Avg rating:3.0/5.0
Slides: 10
Provided by: neallr
Category:
Tags: browsing | cics | browse

less

Transcript and Presenter's Notes

Title: 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
Write a Comment
User Comments (0)
About PowerShow.com