/*alteritem.aml - provide alternate name for INFO table item
/*
/* Bruce Harold, Eagle Technology, New Zealand.
/* bruce_harold@eagle.co.nz
/*
&args table item altname
&severity &error &routine oops
&s badarg .false.
&do arg &list table item altname
&if [null [value %arg%]] &then
&s badarg .true.
&end
&if %badarg% &then
&return Usage: ALTERITEM <info_table> <item_name> <alternate_name>
&if ^ [exists %table% -info] &then
&s badarg .true.
&if ^ [iteminfo %table% -info %item% -exists] &then
&s badarg .true.
&if %badarg% &then
&return Usage: ALTERITEM <info_table> <item_name> <alternate_name>
tables
select %table%
&call alter
quit
/*
&return
/*
&routine alter
&if [iteminfo [show select] -info %item% -redefined] &then
&do
alter
%item%
~
~
~
~
~
%altname%
~
&end
&else
&do
alter
%item%
~
~
~
&if ~
[extract 3 [iteminfo [show select] -info %item%]] in {'N','F'} &then ~
[unquote ' ']
%altname%
~
&end
&return
/*
&routine oops
&severity &error &fail
&if %:program% = TABLES &then
&do
~
~
~
~
~
quit
&end
&return;&return Error in ALTERITEM atool