How do I return column names for values returned from an informix stored procedure? The SPL is executed using VB6, RDO and Odbc, when code references the colums they are being returned with columns names of Column1, Column2 etc. The SPL is as follows:
CREATE FUNCTION functionGetSelectedPPD
(
parmPmfID char(4),
parmProID char(25),
parmCurID char(3),
parmCurDate Date
)

RETURNING CHAR(4),
CHAR(25),
CHAR(3),
Date,
Char(32),
Date,
Decimal(16, 2),
Decimal(16, 2),
Decimal(16, 2),
Decimal(1, 0),
Decimal(7, 3),
SmallInt ,
Char(11);


DEFINE r_coll Collection;
DEFINE r_pmf_id CHAR(4);
DEFINE r_pro_id CHAR(25);
DEFINE r_cur_id CHAR(3);
DEFINE r_ppd_d_apply Date;
DEFINE r_usr_id Char(32);
DEFINE r_ppd_d_upd Date;
DEFINE r_ppd_list Decimal(16, 2);
DEFINE r_ppd_fleet Decimal(16, 2);
DEFINE r_ppd_net Decimal(16, 2);
DEFINE r_ppd_origupd Decimal(1, 0);
DEFINE r_ppd_packpurch Decimal(7, 3);
DEFINE r_ppd_set SmallInt;
DEFINE r_ppd_sph_id Char(11);

FOREACH

SELECT
pmf_id ,
pro_id,
cur_id,
ppd_d_apply,
usr_id,
ppd_d_upd,
ppd_list,
ppd_fleet,
ppd_net,
ppd_origupd,
ppd_packpurch,
ppd_set,
ppd_sph_id
INTO
r_pmf_id,
r_pro_id,
r_cur_id,
r_ppd_d_apply,
r_usr_id,
r_ppd_d_upd,
r_ppd_list,
r_ppd_fleet,
r_ppd_net,
r_ppd_origupd,
r_ppd_packpurch,
r_ppd_set,
r_ppd_sph_id

FROM ppd

WHERE pmf_id = parmPmfID
AND pro_id = parmProID
AND cur_id = parmCurID
AND ppd_d_apply <= parmCurDate


RETURN r_pmf_id,
r_pro_id,
r_cur_id,
r_ppd_d_apply,
r_usr_id,
r_ppd_d_upd,
r_ppd_list,
r_ppd_fleet,
r_ppd_net,
r_ppd_origupd,
r_ppd_packpurch,
r_ppd_set,
r_ppd_sph_id

With Resume;

END FOREACH;

END Function;