DCL 1 SQLCA,
5 SQLCA_EYE_CATCH CHAR(8) INIT('SQLCA***'),
5 SQLCA_LEN FIXED BINARY(31) INIT(196),
5 SQLCA_DB_VRS CHAR(2) INIT('08'),
5 SQLCA_DB_RLS CHAR(2) INIT('10'),
5 SQLCA_LUWID CHAR(8) INIT(' '),
5 SQLCA_CODE FIXED BINARY(31),
5 SQLCA_ERR_LEN FIXED BINARY(15),
5 SQLCA_ERR_MSG CHAR(80) INIT(' '),
5 SQLCA_ERROR_PGM CHAR(8) INIT(' '),
5 SQLCA_FILLER_1 CHAR(2) INIT(' '),
5 SQLCA_DSFCODE CHAR(4) INIT(' '),
5 SQLCA_INFCODE FIXED BINARY(31),
5 SQLCA_DBCODE_EXT CHAR(2) INIT(' '),
5 SQLCA_DBCODE_INT FIXED BINARY(15),
5 SQLCA_MISC_CODE1 FIXED BINARY(31),
5 SQLCA_MISC_CODE2 FIXED BINARY(31),
5 SQLCA_MISC_CODE3 FIXED BINARY(31),
5 SQLCA_WRN_AREA,
10 SQLCA_WARNING (0:7) CHAR(1) INIT(' '),
5 SQLCA_PGM_NAME CHAR(8) INIT(' '),
5 SQLCA_AUTHID CHAR(18) INIT('authid here '),
5 SQLCA_PLAN_NAME CHAR(18) INIT('plan name here ');
DCL SQLCAID CHAR(8)
DEFINED SQLCA_EYE_CATCH;
DCL SQLCABC FIXED BINARY(31)
DEFINED SQLCA_LEN;
DCL SQLERRML FIXED BINARY(15)
DEFINED SQLCA_ERR_LEN;
DCL SQLERRMC CHAR(80)
DEFINED SQLCA_ERR_MSG;
DCL SQLERRP CHAR(8)
DEFINED SQLCA_ERROR_PGM;
(Continued on Next Page)
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);
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);
(Continued on Next Page)
Note: All REDEFINES are for compatibility with other implementations of SQL.
DCL 1 SQLCA,
5 SQLCA_EYE_CATCH CHAR(8) INIT('SQLCA***'),
5 SQLCA_LEN FIXED BINARY(31) INIT(196),
5 SQLCA_DB_VRS CHAR(2) INIT('08'),
5 SQLCA_DB_RLS CHAR(2) INIT('10'),
5 SQLCA_LUWID CHAR(8) INIT(' '),
5 SQLCODE FIXED BINARY(31),
5 SQLCA_ERR_LEN FIXED BINARY(15),
5 SQLCA_ERR_MSG CHAR(80) INIT(' '),
5 SQLCA_ERROR_PGM CHAR(8) INIT(' '),
5 SQLCA_FILLER_1 CHAR(2) INIT(' '),
5 SQLCA_DSFCODE CHAR(4) INIT(' '),
5 SQLCA_INFCODE FIXED BINARY(31),
5 SQLCA_DBCODE_EXT CHAR(2) INIT(' '),
5 SQLCA_DBCODE_INT FIXED BINARY(15),
5 SQLCA_MISC_CODE1 FIXED BINARY(31),
5 SQLCA_MISC_DATA CHAR(8),
5 SQLCA_WRN_AREA,
10 SQLCA_WARNING (0:7) CHAR(1) INIT(' '),
5 SQLCA_PGM_NAME CHAR(8) INIT(' '),
5 SQLCA_AUTHID CHAR(18) INIT('authid here '),
5 SQLCA_PLAN_NAME CHAR(18) INIT('plan name here ');
DCL SQLCAID CHAR(8) DEF SQLCA_EYE_CATCH;
DCL SQLCABC FIXED BINARY(31) DEF SQLCA_LEN;
DCL SQLERRML FIXED BINARY(15) DEF SQLCA_ERR_LEN;
DCL SQLERRMC CHAR(80) DEF SQLCA_ERR_MSG;
DCL SQLERRP CHAR(8) DEF SQLCA_ERROR_PGM;
DCL SQLCA_SQLSTATE CHAR(5) DEF SQLCA_MISC_DATA,
SQLSTATE CHAR(5) DEF SQLCA_MISC_DATA;
(Continued on Next Page)
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);
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);
Note: All REDEFINES are for compatibility with other implementations of SQL.
|
Copyright © 2014 CA.
All rights reserved.
|
|