我是COBOL程序员，我的最新项目是将COBOL应用程序连接到SQLite3数据库。
我一直关注this guide，他们的解决方案正是我在COBOL应用程序中所需要的。我已成功设法创建，连接，插入数据和关闭数据库，但当我尝试从数据库中选择数据时出现问题。
在本教程中，他们使用带双指针的回调。
static int callback(void *NotUsed, int argc, char **argv, char **azColName){
int i;
for(i=0; i<argc; i++){
printf("%s = %s\n", azColName[i], argv[i] ? argv[i] : "NULL");
}
printf("\n");
return 0;
}
我在COBOL中的解决方案如下
WORKING-STORAGE SECTION.
*----------------------------------------------------------------*
01 sqlite3-db pointer.
01 err_msg pointer.
01 sqlite pointer.
01 res pointer.
01 notused pointer.
01 argc pic 99 comp-5.
01 argv pointer.
01 azColName pointer.
01 Writefunction-Ptr procedure-pointer.
procedure division.
set Writefunction-Ptr to entry "sqlite-callback".
*>Random code.
call "sqlite3_exec" using
by value sqlite3-db
by reference sqlQuery
by value Writefunction-Ptr
by value 0
by reference err_msg
returning rc
end-call
*>Random code.
stop run.
entry "sqlite-callback" using
by value notused
by value argc
by reference argv
by reference azColName.
display argc
goback.
Entry-Termination.
回调有效，因为它被称为从数据库返回的行数，而整数argc包含表包含的列数。
问题是：
COBOL中的双指针，它们是如何表示的？在我的解决方案中，我声明了一个指针，并在指针上使用“by reference”调用回调。不知道这是否是在COBOL中表示双指针的正确方法？
如何显示azColName和argv的内容，而不仅仅是指针指向的内存地址？
我现在试图使用SET ADDRESS OF，但我仍然没有让它工作。一定是我错过的东西。我现在的解决方案如下：
WORKING-STORAGE SECTION.
01 argv pointer.
Linkage Section.
01 link-area pic x.
procedure division using link-area.
*> RANDOM CODE
set address of link-area to argv
call "sqlite3_exec" using
by value sqlite3-db
by reference z"SELECT * FROM Cars"
by value Writefunction-Ptr
by value 0
by reference err_msg
returning rc
end-call
*> RANDOM CODE
entry "sqlite-callback" using
by value notused
by value argc
by reference argv
by reference azColName.
display argc.
if address of link-area not = null
display "Contents of new argv: " link-area
else
display "empty"
end-if
goback.
Entry-Termination.
我得到的结果是if语句总是false，因此显示字符串“empty”。但仍然将argc设置为表格中的列数。
工作解决方案：
WORKING-STORAGE SECTION.
01 argv.
03 firstColumn pointer.
03 secondColumn pointer.
03 thirdColumn pointer.
01 azColName pointer.
01 argc pic 99 comp-5.
01 notused pointer.
01 Writefunction-Ptr procedure-pointer.
*-----------------------------------------------------------------
Linkage Section.
01 Cars_Id pic 9(2).
01 Cars_Name pic X(20).
01 Cars_Price pic 9(10).
/-----------------------------------------------------------------
procedure division.
//code
set Writefunction-Ptr to entry "sqlite-callback".
initialize sqlQuery
move z"SELECT * FROM Cars;" to sqlQuery
call "sqlite3_exec" using
by value sqlite3-db
by reference sqlQuery
by value Writefunction-Ptr
by value 0
by reference err_msg
returning rc
end-call
//code
stop run.
entry "sqlite-callback" using
by value notused
by value argc
by reference argv
by reference azColName.
set address of Cars_Id to firstColumn
set address of Cars_Name to secondColumn
set address of Cars_Price to thirdColumn
display Cars_Id "|" Cars_Name "|" Cars_Price
goback.
Entry-Termination.
答案 0 :(得分：3)
我们确实需要知道您正在使用的编译器。
您的SET语句位置错误。调用argv时，ENTRY只有一个地址。在调用条目之前，它将是二进制零或一些不可预测的垃圾。
如果将SET移动到ENTRY之后，则应该能够使用LINK-AREA的值。 argv仍然只是一个地址，但LINK-AREA（请给它一个更好的名字）将指向该地址，因此将其定义为应定义的argv，然后LINK-AREA可用于获取argv的实际内容。
使用BY REFERENCE时，编译器会生成代码以传递带有数据项地址的指针。
在PROCEDURE DIVISION USING或ENTRY USING上，该项也应该是BY REFERENCE，编译器会生成代码以将LINKAGE SECTION定义映射到传递的地址。
如果使用BY CONTENT，则类似，但编译器会在程序中获取数据的副本，并传递引用该数据的指针。关于使用仍然被定义为参考的程序部门或入口。
使用BY VALUE编译器“传递”实际值，尽管存在限制，可以是标准中指定的限制，也可以是实际编译器对标准的扩展。使用程序部门或入口也应指定BY VALUE。
在所有USING上，传播BY REFERENCE / CONTENT / VALUE，如果所有都相同且你想要BY REFERENCE，则根本不需要指定BY，这是默认值。
如果您“传递”POINTER（USAGE POINTER），则可以使用SET ADDRESS OF访问指向的数据。 SET ADDRESS OF项目必须位于LINKAGE SECTION。
您还可以使用SET ADDRESS OF的隐式指针。设置地址的地址b将把LINKAGE SECTION中映射的地址更改为b的地址，b是在程序的DATA DIVISION（FILE SECTION以外的任何部分）中定义的项目。
如果要查看POINTER指向的数据，请定义具有正确大小和类型的项目，并使用SET ADDRESS OF item TO pointer-name。
POINTER当然可以指向一个简单的数据项或一个组数据项（一个结构）。
LINKAGE SECTION中的所有项目在引用之前必须有一个地址。那些处于USING状态的编译器具有可寻址性（并且编译器假定传递了正确数量的地址/项）。所有其他LINKAGE SECTION项目必须具有SET ADDRESS OF建立的可寻址性，或者在使用CALL时通过ADDRESS OF并让CALLed程序设置地址。