Hello!
I am trying to fetch some data from my remote server but i get SQLCODE -1 when i execute the Perfrom until
*
LIST-ROWS.
MOVE "Fetch data..." TO W-BX-STATUS
DISPLAY SR10
EXEC SQL
DECLARE COBCUR1 CURSOR FOR
SELECT
C_NUMBER,
C_NAME,| COLLATE greek_general_ci,
C_BIRTHDAY,
C_INFO
FROM EL_SXEDI
WHERE C_NUMBER >= 0
END-EXEC.
EXEC SQL
OPEN COBCUR1
END-EXEC.
Perform until SQLCODE not equal 0
EXEC SQL
FETCH COBCUR1 INTO :C-RECORD
END-EXEC
IF sqlcode EQUAL 0
MOVE C-NUMBER TO D-NUMBER
MOVE C-NAME TO D-NAME
MOVE C-BIRTHDAY TO D-BIRTHDAY
MOVE C-INFO TO D-INFO
MODIFY SR10-Gd-1, RECORD-TO-ADD = W-GRID-RECORD
MOVE W-GRID-RECORD TO W-BX-STATUS
DISPLAY SR10
end-if
end-perform.
EXEC SQL
CLOSE COBCUR1
END-EXEC.
MOVE "Fetch Complete..." TO W-BX-STATUS
DISPLAY SR10
.
#SQL
#MySQL
#database
