MCPcopy Create free account
hub / github.com/FirebirdSQL/firebird / gen_blob_close

Function gen_blob_close

src/gpre/languages/cob.cpp:1054–1074  ·  view source on GitHub ↗

Source from the content-addressed store, hash-verified

1052//
1053
1054static void gen_blob_close( const act* action)
1055{
1056 const blb* blob;
1057
1058 if (action->act_flags & ACT_sql)
1059 {
1060 gen_cursor_close(action, action->act_request);
1061 blob = (blb*) action->act_request->req_blobs;
1062 }
1063 else
1064 blob = (blb*) action->act_object;
1065
1066 const TEXT* command = (action->act_type == ACT_blob_cancel) ? CANCEL : CLOSE;
1067 TEXT buffer[80];
1068 sprintf(buffer, ISC_BLOB, command);
1069
1070 printa(names[COLUMN], true, "CALL \"%s\" USING %s, %s%s%d", buffer,
1071 status_vector(action), BY_REF, names[isc_a_pos], blob->blb_ident);
1072
1073 set_sqlcode(action);
1074}
1075
1076
1077//____________________________________________________________

Callers 1

COB_actionFunction · 0.70

Calls 4

gen_cursor_closeFunction · 0.70
printaFunction · 0.70
status_vectorFunction · 0.70
set_sqlcodeFunction · 0.70

Tested by

no test coverage detected