program_mode.ec

来自「在SCO UNIX制定界面程序 可根据文件配制菜单,而不必修改源程序,非常方便」· EC 代码 · 共 38 行

#include <stdio.h>

EXEC SQL INCLUDE sqlca;
EXEC SQL WHENEVER SQLERROR CALL error_handler;
EXEC SQL WHENEVER SQLWARNING CALL warning_handler;
EXEC SQL WHENEVER NOT FOUND CALL notfound_handler;

/*
 * 获取模块名称描述
 */
int get_program_name(int id, char *name)
{
	$int module_no;
	$char program_desc[41];

	name[0] = 0;
	module_no = id;

/*================== WuBin 2001-4-9 14:46 ======Start==============
	EXEC SQL SELECT T25_pgm_desc 
	INTO :program_desc
	FROM program_module
	WHERE T25_pgm_no = :module_no;
===========================2001-4-9 14:46=======End==============*/
	EXEC SQL SELECT prog_desc 
	INTO :program_desc
	FROM sys_module
	WHERE module_id = :module_no;

	if (sqlca.sqlcode == 0) {
		rm_tail_space(program_desc);
		strcpy(name, program_desc);
	}

	return(sqlca.sqlcode);
}