Server Guide

Example

Reads the next record in an ESDS file and assigns the RIDFLD.

| result ridfldValue |
 
result := CICS readnext
               file: 'ESDSF1';
               ridfld: 0;
               rba;
               exec.
 
ridfldValue := result ridfld.


[ Top of Page | Previous Page | Next Page | Table of Contents | Index ]