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.