CA Datacom/DB SQL Preprocessors › SQL Communication Area (SQLCA) › Example SQLCA Formats › SQLCA - DB2 Format (PL/I)

SQLCA - DB2 Format (PL/I)

 DCL 1 SQLCA,
       2 SQLCAID             CHAR(8) INIT(SQLCA'),
       2 SQLCABC             BIN FIXED(31) INIT(136),
       2 SQLCADE             BIN FIXED(31) INIT(0),
       2 SQLERRM             CHAR(70) VAR,
       2 SQLERRP             CHAR(8),
       2 SQLERRD(6)          BIN FIXED(31) INIT(0),
       2 SQLCA_WRN_AREA,
         3 SQLCA_WARNING  (0:10) CHAR(1) INIT(' '),
       2 SQLEXT              CHAR(5);
 DCL SQLCA_EYE_CATCH         CHAR(8)
                                 DEFINED SQLCAID;
 DCL SQLCA_LEN FIXED         BINARY(31)
                                 DEFINED SQLCABC;
 DCL SQLCA_ERROR_PGM         CHAR(8)
                                 DEFINED SQLERRP;
 DCL 1 SQLWARN               DEFINED SQLCA_WRN_AREA,
       5 SQLWARN0            CHAR(1),
       5 SQLWARN1            CHAR(1),
       5 SQLWARN2            CHAR(1),
       5 SQLWARN3            CHAR(1),
       5 SQLWARN4            CHAR(1),
       5 SQLWARN5            CHAR(1),
       5 SQLWARN6            CHAR(1),
       5 SQLWARN7            CHAR(1),
       5 SQLWARN8            CHAR(1),
       5 SQLWARN9            CHAR(1),
       5 SQLWARNA            CHAR(1);
 DCL 1 SQLCA_WARN            DEFINED SQLCA_WRN_AREA,
       5 SQLCA_WARN0         CHAR(1),
       5 SQLCA_WARN1         CHAR(1),
       5 SQLCA_WARN2         CHAR(1),
       5 SQLCA_WARN3         CHAR(1),
       5 SQLCA_WARN4         CHAR(1),
       5 SQLCA_WARN5         CHAR(1),
       5 SQLCA_WARN6         CHAR(1),
       5 SQLCA_WARN7         CHAR(1),
       5 SQLCA_WARN8         CHAR(1),
       5 SQLCA_WARN9         CHAR(1),
       5 SQLCA_WARNA         CHAR(1);