do column=1 to ncols;
call send (vecid, '_getName',
column, colname);
call send (vecid, '_getType', column,
type);
call send (vecid, '_getFormat',
column, format);
call send (vecid, '_getInformat',
column, informat);
call send (vecid, '_getLabel',
column, label);