Skip to main content

I'm getting sqlcode -102 opening a cursor to select from a SQL view. The message is "syntax error".  This code works on other SQL servers,  so I'm stumped as to what the error is.  see code below, the error occurs when I open cursor.  Any ideas???   Thanks, Ellen

           exec sql connect to iDatabase user 'coboluser.Data500$'
              end-exec.
           if SQLCODE < -1
               MOVE 2 TO WS-ERRORCODE
               go to 100-END.
           EXEC SQL
           DECLARE CSR1 CURSOR FOR SELECT
                A.MB_MEMBERID
               ,A.MB_BIRTHDATE
               ,A.PN_HIREDATE
               ,A.PN_STARTDATE
               ,A.PN_ADJSTARTDATE
               ,A.PN_VESTINGDATE
               ,A.PN_EARLYRETDATE
               ,A.PN_NORMRETDATE
               ,A.PN_RULERETDATE
            FROM V_MEMBERPENREG A
            WHERE MB_MEMBERID = :ws-member
           END-EXEC.
           if SQLCODE < -1
               MOVE 3 TO WS-ERRORCODE
               go to 100-END.
           EXEC SQL OPEN CSR1 END-EXEC.
           if SQLCODE < -1
               MOVE 4 TO WS-ERRORCODE
               go to 100-END.
           EXEC SQL

I'm getting sqlcode -102 opening a cursor to select from a SQL view. The message is "syntax error".  This code works on other SQL servers,  so I'm stumped as to what the error is.  see code below, the error occurs when I open cursor.  Any ideas???   Thanks, Ellen

           exec sql connect to iDatabase user 'coboluser.Data500$'
              end-exec.
           if SQLCODE < -1
               MOVE 2 TO WS-ERRORCODE
               go to 100-END.
           EXEC SQL
           DECLARE CSR1 CURSOR FOR SELECT
                A.MB_MEMBERID
               ,A.MB_BIRTHDATE
               ,A.PN_HIREDATE
               ,A.PN_STARTDATE
               ,A.PN_ADJSTARTDATE
               ,A.PN_VESTINGDATE
               ,A.PN_EARLYRETDATE
               ,A.PN_NORMRETDATE
               ,A.PN_RULERETDATE
            FROM V_MEMBERPENREG A
            WHERE MB_MEMBERID = :ws-member
           END-EXEC.
           if SQLCODE < -1
               MOVE 3 TO WS-ERRORCODE
               go to 100-END.
           EXEC SQL OPEN CSR1 END-EXEC.
           if SQLCODE < -1
               MOVE 4 TO WS-ERRORCODE
               go to 100-END.
           EXEC SQL

never mind - it wasn't the open that was a problem.


I'm getting sqlcode -102 opening a cursor to select from a SQL view. The message is "syntax error".  This code works on other SQL servers,  so I'm stumped as to what the error is.  see code below, the error occurs when I open cursor.  Any ideas???   Thanks, Ellen

           exec sql connect to iDatabase user 'coboluser.Data500$'
              end-exec.
           if SQLCODE < -1
               MOVE 2 TO WS-ERRORCODE
               go to 100-END.
           EXEC SQL
           DECLARE CSR1 CURSOR FOR SELECT
                A.MB_MEMBERID
               ,A.MB_BIRTHDATE
               ,A.PN_HIREDATE
               ,A.PN_STARTDATE
               ,A.PN_ADJSTARTDATE
               ,A.PN_VESTINGDATE
               ,A.PN_EARLYRETDATE
               ,A.PN_NORMRETDATE
               ,A.PN_RULERETDATE
            FROM V_MEMBERPENREG A
            WHERE MB_MEMBERID = :ws-member
           END-EXEC.
           if SQLCODE < -1
               MOVE 3 TO WS-ERRORCODE
               go to 100-END.
           EXEC SQL OPEN CSR1 END-EXEC.
           if SQLCODE < -1
               MOVE 4 TO WS-ERRORCODE
               go to 100-END.
           EXEC SQL

never mind - it wasn't the open that was a problem.


I'm getting sqlcode -102 opening a cursor to select from a SQL view. The message is "syntax error".  This code works on other SQL servers,  so I'm stumped as to what the error is.  see code below, the error occurs when I open cursor.  Any ideas???   Thanks, Ellen

           exec sql connect to iDatabase user 'coboluser.Data500$'
              end-exec.
           if SQLCODE < -1
               MOVE 2 TO WS-ERRORCODE
               go to 100-END.
           EXEC SQL
           DECLARE CSR1 CURSOR FOR SELECT
                A.MB_MEMBERID
               ,A.MB_BIRTHDATE
               ,A.PN_HIREDATE
               ,A.PN_STARTDATE
               ,A.PN_ADJSTARTDATE
               ,A.PN_VESTINGDATE
               ,A.PN_EARLYRETDATE
               ,A.PN_NORMRETDATE
               ,A.PN_RULERETDATE
            FROM V_MEMBERPENREG A
            WHERE MB_MEMBERID = :ws-member
           END-EXEC.
           if SQLCODE < -1
               MOVE 3 TO WS-ERRORCODE
               go to 100-END.
           EXEC SQL OPEN CSR1 END-EXEC.
           if SQLCODE < -1
               MOVE 4 TO WS-ERRORCODE
               go to 100-END.
           EXEC SQL

never mind - it wasn't the open that was a problem.