Previous Topic: GVOPENNext Topic: GVCLOSE

Reading CA FAVER Format Files › COBOL Example › GVREAD

GVREAD

The following returns one VSAM logical record and its length:

     01  LENGTH COMPUTATIONAL PIC S9(8).
     01  RECORD.
         record description

         CALL GVREAD USING LENGTH,RECORD.
         IF RETURN-CODE = +8 GO TO END-OF-FILE.
         IF RETURN-CODE NOT = +0 GO TO ERROR.