The following returns one VSAM logical record and its length:
CALL GVREAD,(LENGTH,RECORD) Call read entry point
C R15,=F'8' EOF ?
BE EOF Yes
LTR R15,R15 Test for errors
BNZ ERROR An error was detected
LENGTH DS F Return length of record here
RECORD DS CLxx Returned record moved here
|
Copyright © 2011 CA.
All rights reserved.
|
|