My first macro - 2 days of PDMS

I come from a C# background so this may not be a customary format for PML. I am super open to corrections and suggestions... dont hold back :shame:


-- Array used for interim  : TODO Create CustomObject.. Dictionary or Tuple
!ColorDictionary = Array()
!ColorDictionary.insert(3,'-EQUIPMENT')
!ColorDictionary.insert(4,'-E')
!ColorDictionary.insert(5,'-S')
!ColorDictionary.insert(6,'-P')
!ColorDictionary.insert(8,'-P-(FUT)')
!ColorDictionary.insert(16,'-S-(FUT)')


-- Get the project name
var !projectName project name


-- Check for specific project
if(!projectName eq 'EAV (TULLOW TEN)') then
-- Change site idenifier
!ColorDictionary[3] = '-EQUIP'
endif


-- Create output path
!outFile = '/S:\Group\ETS\Tasks\Dashboard\ProjectRvms\' + !projectName.Replace(' ','') + '.rvm'
EXPORT FILE $!outFile
EXPORT HOLES ON


-- Get all sites
var !SiteArr coll all SITE


-- Iterate array of sites
do !Site values !SiteArr
!Sitename = name of $!Site
!result = 0

if(!Sitename.match('SFS') gt 0) then
!result = 9

elseif(!Sitename eq '/1050-S' or !Sitename eq '/1010-S') then
!result = 7

else
!id = !Sitename.substring(6)
!index = !ColorDictionary.FindFirst(!id)

if(!index.unset()) then
skip
endif

!result = !index
endif

$P EXPORT $!Sitename COLOUR $!result
--EXPORT $!Sitename COLOUR $!result


enddo


EXPORT finish