|
Встроенный SQL на С++
#32212489
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
Участник
Откуда: Большой адронный коллайдер
Сообщения: 2 183
|
|
ладно.
если дибуту, то подключить db2cli.lib
если ублюдочный Microsivt SQL Server то там ножно писать только на С
вот: (выкинешь кикс, и будет тебе счастье)
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.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
----------------------- file.ccs---------------------------------------
#include <stdio.h>
#include <string.h>
int main(int argc, char *argv[])
{
EXEC SQL INCLUDE SQLCA;
EXEC SQL BEGIN DECLARE SECTION;
char szEMPNO [ 11 ];
char szEMPNAME [ 21 ];
char szEMPSNAME [ 21 ];
char szEMPLNAME [ 21 ];
char szEMPLAGE [ 5 ];
int nEMPLSALARY;
EXEC SQL END DECLARE SECTION;
// parameters;
char *pCommarea = argv[ 2 ];
int nCommareaLength = argv[ 3 ];
int x;
char szRetCode [ 10 ];
int nRetCode;
char buf[ 5 ];
char ch;
FILE * fp;
fp=fopen( "C:\\1WORK\\ROSOBEX\\CICSPRG.out" , "a" );
for(x= 0 ;x< 108 ;++x) {
ch = pCommarea [x] ;
buf[ 0 ] = "0123456789ABCDEF" [(ch >> 4 ) & 0x0F];
buf[ 1 ] = "0123456789ABCDEF" [(ch >> 0 ) & 0x0F];
buf[ 3 ] = '\0';
fprintf(fp, "%08d %s %c\n" , x, buf, ch);
}
memcpy(szEMPNO, pCommarea + 0 , 10 );
szEMPNO[ 10 ] = '\0';
memcpy(szEMPNAME, pCommarea + 10 , 20 );
szEMPNAME[ 20 ] = '\0';
memcpy(szEMPSNAME, pCommarea + 30 , 20 );
szEMPSNAME[ 20 ] = '\0';
memcpy(szEMPLNAME, pCommarea + 50 , 20 );
szEMPLNAME[ 20 ] = '\0';
memcpy(szEMPLAGE, pCommarea + 70 , 4 );
szEMPLAGE [ 4 ] = '\0';
nEMPLSALARY = * (int *)(pCommarea + 74 );
EXEC SQL INSERT INTO SLOTH.EMPLOYEE
(EMPNO, EMPNAME, EMPSNAME, EMPLNAME, EMPLAGE, EMPLSALARY)
VALUES
(:szEMPNO, :szEMPNAME, :szEMPSNAME, :szEMPLNAME , :szEMPLAGE , :nEMPLSALARY);
nRetCode = SQLCODE;
sprintf(szRetCode, "%08d" , nRetCode);
memcpy(pCommarea + 100 , szRetCode, 8 );
fprintf(fp, "EZERT8:%08d\n" , nRetCode);
fclose(fp);
EXEC CICS RETURN;
}
-------------------------- file.sqc -----------------------------
#include <cics_api.h>
#include <cics_eib.h>
#include <stdio.h>
#include <string.h>
int main(int argc, char *argv[])
{ \
int cics_api_temp_var = cics_api_edf_init_c_extended( 0 , &CicsArgs);
EXEC SQL INCLUDE SQLCA;
EXEC SQL BEGIN DECLARE SECTION;
char szEMPNO [ 11 ];
char szEMPNAME [ 21 ];
char szEMPSNAME [ 21 ];
char szEMPLNAME [ 21 ];
char szEMPLAGE [ 5 ];
int nEMPLSALARY;
EXEC SQL END DECLARE SECTION;
// parameters;
char *pCommarea = argv[ 2 ];
int nCommareaLength = argv[ 3 ];
int x;
char szRetCode [ 10 ];
int nRetCode;
char buf[ 5 ];
char ch;
FILE * fp;
fp=fopen( "C:\\1WORK\\ROSOBEX\\CICSPRG.out" , "a" );
for(x= 0 ;x< 108 ;++x) {
ch = pCommarea [x] ;
buf[ 0 ] = "0123456789ABCDEF" [(ch >> 4 ) & 0x0F];
buf[ 1 ] = "0123456789ABCDEF" [(ch >> 0 ) & 0x0F];
buf[ 3 ] = '\0';
fprintf(fp, "%08d %s %c\n" , x, buf, ch);
}
memcpy(szEMPNO, pCommarea + 0 , 10 );
szEMPNO[ 10 ] = '\0';
memcpy(szEMPNAME, pCommarea + 10 , 20 );
szEMPNAME[ 20 ] = '\0';
memcpy(szEMPSNAME, pCommarea + 30 , 20 );
szEMPSNAME[ 20 ] = '\0';
memcpy(szEMPLNAME, pCommarea + 50 , 20 );
szEMPLNAME[ 20 ] = '\0';
memcpy(szEMPLAGE, pCommarea + 70 , 4 );
szEMPLAGE [ 4 ] = '\0';
nEMPLSALARY = * (int *)(pCommarea + 74 );
EXEC SQL INSERT INTO SLOTH.EMPLOYEE
(EMPNO, EMPNAME, EMPSNAME, EMPLNAME, EMPLAGE, EMPLSALARY)
VALUES
(:szEMPNO, :szEMPNAME, :szEMPSNAME, :szEMPLNAME , :szEMPLAGE , :nEMPLSALARY);
nRetCode = SQLCODE;
sprintf(szRetCode, "%08d" , nRetCode);
memcpy(pCommarea + 100 , szRetCode, 8 );
fprintf(fp, "EZERT8:%08d\n" , nRetCode);
fclose(fp);
/* EXEC CICS RETURN; */ \
{ \
CicsArgs.ArgMask = 0x20000000; \
CicsArgs.FnCode = 72 ; \
CicsArgs.DebugLine = - 1 ; \
cics_api_exec_c_extended(&CicsArgs); \
}
}
------------------------------ сборка -----------------------------
cicstran -l C CICSPRG.ccs
cp CICSPRG.c CICSPRG.sqc
rm CICSPRG.c
nsqlprep CICSPRG.sqc /SQLACCESS /DB PEA.pea /PASS sloth.sloth /BIND CICSPRG /DWIN32 /D_Windows
cl /MD /GX /c /W0 /O2 CICSPRG.c
link /NOLOGO /MAP /PDB:NONE /DLL /OUT:CICSPRG.dll -EXPORT:main /implib:CICSPRG.lib CICSPRG.obj caw32.lib ntwdblib.lib sqlakw32.lib w95scm.lib fcw.lib cicsprC.lib
------------------------------- bnd - шник ---------------------------
use pea
go
CREATE PROC CICSPRGCCC3OOKq$ 1 @p1 varchar( 11 ), @p2 varchar( 21 ), @p3 varchar( 21 ), @p4 varchar( 21 ), @p5 varchar( 5 ), @p6 int AS INSERT INTO SLOTH.EMPLOYEE (EMPNO, EMPNAME, EMPSNAME, EMPLNAME, EMPLAGE, EMPLSALARY) VALUES (@p1 , @p2 , @p3 , @p4 , @p5 , @p6 )
go
|
|
|
