/*poplist.aml - populate ZONELIST in road.aat
/*
/* Changed to use an INFO program 6 Nov 95 by Bruce
/* so we get more speed!!!! The cost of this is that
/* you must edit ROAD.AAT in ArcView. Calculate the
/* field Zonelist as follows: [Zonelist].Trim.Substitute(" "," ")
/* .Substitute(" "," ")
/* to get rid of leading,trailing and surplus embedded spaces.
/*
/* Bruce Harold, Eagle Technology, New Zealand
/* bruce_harold@eagle.co.nz
/*
alteritem road.aat road# arclink# /*see alteritem.aml
&s byebye [delete makelist -info]
/*
&data arc info
ARC
PROGRAM MAKELIST
SELECT ROAD.AAT
MOVE ' ' TO ZONELIST
SELECT ROAD.SECSBRB
RELATE 1 ROAD.AAT ARCLINK# LINK
PROGRAM SECTION TWO
FORMAT $NUM1,4,4,I,0
FORMAT $CHR1,4,4,C
CALC $NUM1 = ROUTELINK#
PRINT $NUM1,$CHR1
CONCATENATE $1ZONELIST FROM $1ZONELIST,$CHR1
~
COMPILE MAKELIST
RUN MAKELIST
Q STOP
&end
/*
&return
/*
/* For you people who don't like INFO programs, here's the original
/* cursor-based code...
/*
/*relate add
/*s2a,road.aat,info,arclink#,road#,link,rw
/*~
/*cursor sec declare road.secsbrb info rw
/*cursor sec open
/*&do &while %:sec.aml$next%
/* &s :sec.s2a//zonelist %:sec.s2a//zonelist% %:sec.routelink#%
/* cursor sec next
/*&end
/*cursor sec close
/*cursor sec remove
/*