Reading CA FAVER Format Files › COBOL Example › GVOPEN

GVOPEN

The following returns each cluster name:

 01  NAME   PIC X(44).

 CALL GVFILDYN

 OPEN.
      MOVE LOW-VALUES TO NAME.
      CALL GVOPEN USING NAME.
      IF RETURN-CODE = +16 GO TO ERROR.
      IF RETURN-CODE = +18 GO TO NOT-FOUND.
      IF NAME NOT = DESIRED-NAME GO TO OPEN.

The following locates a specific cluster:

 01  NAME PIC X44 VALUE 'cluster name'.

     CALL GVOPEN USING NAME
     IF RETURN-CODE NOT = +0 GO TO ERROR

The following reads a cluster name from a file:

Add to JCL:

//NAME DD *
   clustername
/*

 01  NAME PIC X(44) VALUE 'DDNAME=NAME'.

     CALL GVOPEN USING NAME.
     IF RETURN-CODE NOT = +0 GO TO ERROR.