可以在COBOL400中读取SQLView吗？

IDENTIFICATION DIVISION.
PROGRAM-ID. READ_SQLVIEW.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 EMPLOYEE.
   05 EMP_ID    PIC X(10).
   05 EMP_NAME  PIC X(50).
   05 EMP_AGE   PIC 9(3).
   05 EMP_SALARY PIC 9(7)V99.
EXEC SQL INCLUDE SQLCA END-EXEC.
EXEC SQL BEGIN DECLARE SECTION END-EXEC.
01 SQLVIEW_CURSOR.
   05 SQLVIEW_STATEMENT.
      10 SQLVIEW_QUERY PIC X(100).
   05 SQLVIEW_RESULT.
      10 EMP_ID    PIC X(10).
      10 EMP_NAME  PIC X(50).
      10 EMP_AGE   PIC 9(3).
      10 EMP_SALARY PIC 9(7)V99.
EXEC SQL END DECLARE SECTION END-EXEC.
PROCEDURE DIVISION.
MAIN-LOGIC.
   EXEC SQL
      SET OPTION COMMIT = *NONE,
                  CLOSQLCSR = *ENDMOD,
                  DATFMT = *ISO,
                  TIMFMT = *ISO
   END-EXEC.
   EXEC SQL
      PREPARE SQLVIEW_CURSOR FROM :SQLVIEW_STATEMENT
   END-EXEC.
   EXEC SQL
      DECLARE SQLVIEW_CURSOR CURSOR FOR SQLVIEW_CURSOR
   END-EXEC.
   EXEC SQL
      OPEN SQLVIEW_CURSOR
   END-EXEC.
   PERFORM FETCH-ROWS UNTIL SQLCODE <> 0
   EXEC SQL
      CLOSE SQLVIEW_CURSOR
   END-EXEC.
   STOP RUN.
FETCH-ROWS.
   EXEC SQL
      FETCH SQLVIEW_CURSOR INTO :SQLVIEW_RESULT
   END-EXEC.
   MOVE EMP_ID TO EMPLOYEE.EMP_ID
   MOVE EMP_NAME TO EMPLOYEE.EMP_NAME
   MOVE EMP_AGE TO EMPLOYEE.EMP_AGE
   MOVE EMP_SALARY TO EMPLOYEE.EMP_SALARY
   DISPLAY EMPLOYEE
   .