Program.SqlCursor.SQLCA Field

Syntax

        BegProp SQLCA Access(*Public) Type(SQL_CommunicationsArea)      

Field Value

SQL_CommunicationsArea object that represents the SQLCA to trap and report run-time errors for the SqlCursor.

Example

Assumes SqlCursor SelF1CSR already declared and opened.

0337.00   C/EXEC SQL
0338.00   C+ FETCH NEXT FROM SelF1CSR
0339.00   C+ INTO :F1DATE, :F1ORD#, :F1SEQ#, F1EMP#, :F1WFGR, :F1DIST
0340.00   C/END-EXEC
0341.00   C                   If        SQLCOD = 0
      success - do something
0345.00                       Else
      failure - exit 
0347.00                       Leave

The following migrated code is generated for the statement above:

If ( SelF1CSR.Fetch(SqlCursor.FetchOrientations.Next ) )
    F1DATE = SelF1CSR.SqlQueryResultsByIndex(0) *AsFld F1DATE
    F1ORD# = SelF1CSR.SqlQueryResultsByIndex(1) *AsFld F1ORD#
    F1SEQ# = SelF1CSR.SqlQueryResultsByIndex(2) *AsFld F1SEQ#
    F1EMP# = SelF1CSR.SqlQueryResultsByIndex(3) *AsFld F1EMP#
    F1WFGR = SelF1CSR.SqlQueryResultsByIndex(4) *AsFld F1WFGR
    F1DIST = SelF1CSR.SqlQueryResultsByIndex(5) *AsFld F1DIST
EndIf
SQLCA = SelF1CSR.SQLCA
If (SQLCA.SQLCOD = 0)
     sucecss - do something
     Else  
     failure - exit
EndIf

Requirements

See Also

Program.SqlCursor Class
Program.SqlCursor Class Members
ASNA.Monarch Namespace