Привет,
Начал возиться с DB2 на 390 из-под OMVS.
Mainframe уж почти забыл (последний раз видел в 1988).
z/OS 1.6, DB2 v8 (08.01 наверное)
1. DB2 coprocessor выдрючивается:
test.C :
//////////////////////////////////////////////////////////////////////////////////
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
#include <string.h>
#include <stdio.h>
EXEC SQL INCLUDE SQLCA;
EXEC SQL BEGIN DECLARE SECTION;
struct {
short int len;
char value[ 16 ];
} alias;
char user[ 32 ];
char pass[ 32 ];
EXEC SQL END DECLARE SECTION;
bool bT = true;
int main(int ac, char ** av)
{
strcpy(alias.value, "DALLAS8");
alias.len = 7 ;
strcpy(user, "buser");
strcpy(pass, "test");
if(bT) {
EXEC SQL CONNECT TO :alias USER :user USING :pass; // line 25
} else {
EXEC SQL CONNECT USER :user USING :pass; // line 27
}
if(sqlca.sqlcode != 0 ) {
printf("DB CONNECT errcode = %d, error: %.70s\n", sqlca.sqlcode, sqlca.sqlerrmc);
return 1 ;
}
printf("DB Connected");
EXEC SQL CONNECT RESET;
return 0 ;
}
//////////////////////////////////////////////////////////////////////////////////
Компилируем :
c++ -o test -Wc,xplink "-Wc,SQL(ATTACH(CAF))" "-Wc,DBRM(//'DBRMLIB.DATA(TEST)')" -Wl,xplink test.C "-l//'DSN810.SDSNLOAD'"
Результат:
CCN5539 (W) Compiling an SQL statement resulted in an error: DSNH4761I The DB2 SQL Coprocessor has changed the NEWFUN option value from YES to NO.
"./test.C", line 27.9: CCN5403 (S) "class SQLPVARS1" is already defined.
"./test.C", line 25.9: CCN5425 (I) "SQLPVARS1" is defined on line 25 of "./test.C".
CCN0793(I) Compilation failed for file ./test.C. Object file not created.
FSUM3065 The COMPILE step ended with return code 12.
FSUM3017 Could not compile test.C. Correct the errors and try again.
ИДЕИ ЕСТЬ ?????
--------------------------------------
Cobol+db2 из OMVS тоже не хочет (вне зависимости от исходника):
cob2 "-qSQL(ATTACH(CAF))" cbtest.cbl
PP 5655-G53 IBM Enterprise COBOL for z/OS 3.3.1 in progress ...
LineID Message code Message text
IGYDS0211-U DSNH006I FILE " " COULD NOT BE OPENED
IGYDS0211-U DSNH006I FILE " " COULD NOT BE OPENED
IGYDS0139-W Diagnostic messages were issued during processing of
compiler options. These messages are located at the
beginning of the listing.
Messages Total Informational Warning Error Severe Terminating
Printed: 5 2 1 2
End of compilation 1, program CBTEST, highest severity 16.
Return code 16
С Уважением,
Сергей
ska@resqnet.com
