/* IIC.AML Converts CSA into IIC format inventory /* &args directory csa_cover iic_cover /* &LABEL INPUT_CHECKING &if [NULL %directory%] or [NULL %csa_cover%] &then~ &do &type &type USAGE: &run iic.aml &type where: &type DIRECTORY is the directory where the csa coverage resides &type CSA_COVER is the csa coverage to be converted &type OUT_COVER is the IIC compliant coverage to be created &type &type note: The csa_cover must be in csaxxpy3 (forest2) format &type &stop &end &if not [EXISTS %directory% -DIR] &then~ &do &type %directory% DOES NOT EXIST !!! &type STOPPING.... &stop &end &if not [EXISTS %directory%/%csa_cover% -COV] &then~ &do &type %csa_cover% DOES NOT EXIST !!! &type STOPPING.... &stop &end &if [EXISTS %directory%/x%csa_cover% -COV] &then kill %directory%/x%csa_cover% all &if [EXISTS %directory%/%iic_cover% -COV] &then~ kill %directory%/%iic_cover% all &if not [ITEMINFO %directory%/%csa_cover%.PAT -INFO TOWNSHIP -EXISTS] &then~ &do &type &type %csa_cover% MUST BE IN CSAXXPY3 FORMAT &type stopping.... &stop &end /* END INPUT CHECKING /* add iic standard items to beginning of CSA temp cover &wo %directory% copy %csa_cover% x%csa_cover% double additem x%csa_cover%.pat x%csa_cover%.pat cover_type 3 3 i 0 x%csa_cover%-id additem x%csa_cover%.pat x%csa_cover%.pat cover_size 2 2 i 0 cover_type additem x%csa_cover%.pat x%csa_cover%.pat stocking 2 2 i 0 cover_size /* AGE IS NEXT BUT AGE ALREADY EXISTS IN CSAXXPY3 SO HAVE TO TEMPORARILY /* CALL IT XAGE SO THINGS LINE UP. additem x%csa_cover%.pat x%csa_cover%.pat xage 3 3 i 0 stocking additem x%csa_cover%.pat x%csa_cover%.pat measure_year 4 4 i 0 xage additem x%csa_cover%.pat x%csa_cover%.pat site_index 3 3 i 0 measure_year additem x%csa_cover%.pat x%csa_cover%.pat site_species 3 3 i 0 site_index additem x%csa_cover%.pat x%csa_cover%.pat administrator 2 2 i 0 site_species additem x%csa_cover%.pat x%csa_cover%.pat recon_level 2 2 i 0 administrator additem x%csa_cover%.pat x%csa_cover%.pat stand_id 30 30 c 0 recon_level additem x%csa_cover%.pat x%csa_cover%.pat main_species 3 3 i 0 stand_id additem x%csa_cover%.pat x%csa_cover%.pat main_species_siz 2 2 i 0 main_species additem x%csa_cover%.pat x%csa_cover%.pat main_species_vol 3 3 i 0 main_species_siz additem x%csa_cover%.pat x%csa_cover%.pat second_spp 3 3 i 0 main_species_vol additem x%csa_cover%.pat x%csa_cover%.pat second_spp_siz 2 2 i 0 second_spp additem x%csa_cover%.pat x%csa_cover%.pat second_spp_vol 3 3 i 0 second_spp_siz additem x%csa_cover%.pat x%csa_cover%.pat third_spp 3 3 i 0 second_spp_vol additem x%csa_cover%.pat x%csa_cover%.pat third_spp_siz 2 2 i 0 third_spp additem x%csa_cover%.pat x%csa_cover%.pat third_spp_vol 3 3 i 0 third_spp_siz additem x%csa_cover%.pat x%csa_cover%.pat under_type 3 3 i 0 third_spp_vol additem x%csa_cover%.pat x%csa_cover%.pat under_size 2 2 i 0 under_type additem x%csa_cover%.pat x%csa_cover%.pat under_density 2 2 i 0 under_size additem x%csa_cover%.pat x%csa_cover%.pat xshrubs 2 2 i 0 under_density additem x%csa_cover%.pat x%csa_cover%.pat ground_cover 2 2 i 0 shrubs additem x%csa_cover%.pat x%csa_cover%.pat stand_origin 2 2 i 0 ground_cover /* remove old redefined items &if [iteminfo x%csa_cover%.pat -INFO O -EXISTS] &then dropitem x%csa_cover%.pat x%csa_cover%.pat O &if [iteminfo x%csa_cover%.pat -INFO S -EXISTS] &then dropitem x%csa_cover%.pat x%csa_cover%.pat S &if [iteminfo x%csa_cover%.pat -INFO TY -EXISTS] &then dropitem x%csa_cover%.pat x%csa_cover%.pat TY &if [iteminfo x%csa_cover%.pat -INFO TW -EXISTS] &then dropitem x%csa_cover%.pat x%csa_cover%.pat TW &if [iteminfo x%csa_cover%.pat -INFO R -EXISTS] &then dropitem x%csa_cover%.pat x%csa_cover%.pat R &if [iteminfo x%csa_cover%.pat -INFO D -EXISTS] &then dropitem x%csa_cover%.pat x%csa_cover%.pat D /* go into info and calculate new items &data arc info ARC SEL X[TRANSLATE [UNQUOTE %csa_cover%]].PAT /* calculates stand-id RED 49,O,1,1,I 50,S,2,2,I 52,TY,2,2,I 54,TW,3,3,I 57,R,2,2,I 59,D,1,1,I 49,STID,11,11,I CA O = OWNER CA S = SECTION CA TY = TYPE# CA TW = TOWNSHIP CA R = RANGE CA D = E/W CA STID = STID /* reselect ctype and calc cover_type codes RES CTYPE = 1 OR CTYPE = 6 OR CTYPE = 9 CALC COVER_TYPE = 1 ASEL RES CTYPE = 14 CALC COVER_TYPE = 2 ASEL RES CTYPE = 12 OR CTYPE = 15 OR CTYPE = 78 CALC COVER_TYPE = 3 ASEL RES CTYPE = 17 CALC COVER_TYPE = 4 ASEL RES CTYPE = 13 CALC COVER_TYPE = 5 ASEL RES CTYPE = 20 CALC COVER_TYPE = 6 ASEL RES CTYPE = 40 CALC COVER_TYPE = 7 ASEL RES CTYPE = 30 OR CTYPE = 79 CALC COVER_TYPE = 8 ASEL RES CTYPE = 25 CALC COVER_TYPE = 9 ASEL RES CTYPE = 51 CALC COVER_TYPE = 10 ASEL RES CTYPE = 52 CALC COVER_TYPE = 11 ASEL RES CTYPE = 53 CALC COVER_TYPE = 12 ASEL RES CTYPE = 54 CALC COVER_TYPE = 13 ASEL RES CTYPE = 55 CALC COVER_TYPE = 14 ASEL RES CTYPE = 61 CALC COVER_TYPE = 15 ASEL RES CTYPE = 62 CALC COVER_TYPE = 16 ASEL RES CTYPE = 71 OR CTYPE = 75 CALC COVER_TYPE = 17 ASEL RES CTYPE = 74 CALC COVER_TYPE = 18 ASEL RES CTYPE = 70 OR CTYPE = 72 OR CTYPE = 76 CALC COVER_TYPE = 19 ASEL RES CTYPE = 73 OR CTYPE = 77 CALC COVER_TYPE = 20 ASEL RES CTYPE = 81 CALC COVER_TYPE = 21 ASEL RES CTYPE = 82 CALC COVER_TYPE = 23 ASEL RES CTYPE = 84 CALC COVER_TYPE = 24 ASEL RES CTYPE = 83 CALC COVER_TYPE = 25 ASEL RES CTYPE = 98 CALC COVER_TYPE = 26 ASEL RES CTYPE = 99 CALC COVER_TYPE = 27 ASEL RES CTYPE = 86 CALC COVER_TYPE = 28 ASEL RES CTYPE = 85 CALC COVER_TYPE = 29 ASEL RES CTYPE = 96 OR CTYPE = 97 CALC COVER_TYPE = 30 ASEL RES CTYPE = 91 CALC COVER_TYPE = 32 ASEL RES CTYPE = 92 CALC COVER_TYPE = 33 ASEL RES CTYPE = 93 CALC COVER_TYPE = 34 ASEL RES CTYPE = 94 CALC COVER_TYPE = 35 ASEL /* reselect csize and calc size_class codes RES CSIZE = 1 OR CSIZE = 2 OR CSIZE = 3 CALC COVER_SIZE = 1 ASEL RES CSIZE = 4 CALC COVER_SIZE = 2 ASEL RES CSIZE = 5 OR CSIZE = 6 OR CSIZE = 7 or CSIZE = 8 CALC COVER_SIZE = 3 ASEL /* reselect cdense (based on size and BA) and calc stocking codes RES CSIZE GE 4 RES BA LT 40 CALC STOCKING = 1 ASEL RES CSIZE LT 4 RES CDENSE = 0 CALC STOCKING = 1 ASEL RES CSIZE GE 4 RES BA GE 40 AND BA LT 70 CALC STOCKING = 2 ASEL RES CSIZE LT 4 RES CDENSE = 1 CALC STOCKING = 2 ASEL RES CSIZE GE 4 RES BA GE 70 CALC STOCKING = 3 ASEL RES CSIZE LT 4 RES CDENSE GE 2 CALC STOCKING = 3 ASEL /* reselect recon and calc recon_level codes RES RECON GE 3 OR RECON LE 8 CALC RECON_LEVEL = 1 ASEL RES RECON = 1 OR RECON = 2 OR RECON = 9 CALC RECON_LEVEL = 2 ASEL /* calc administration codes RES OWNER = 1 CALC ADMINISTRATOR = 1 ASEL RES OWNER = 7 CALC ADMINISTRATOR = 8 ASEL /* reselect spp and calc site_index codes RES SPP = 1 CALC SITE_SPECIES = 1 ASEL RES SPP = 39 CALC SITE_SPECIES = 2 ASEL RES SPP = 38 CALC SITE_SPECIES = 3 ASEL RES SPP = 2 OR SPP = 4 OR SPP = 5 CALC SITE_SPECIES = 4 ASEL RES SPP = 3 CALC SITE_SPECIES = 5 ASEL RES SPP = 21 CALC SITE_SPECIES = 6 ASEL RES SPP = 22 CALC SITE_SPECIES = 7 ASEL RES SPP = 6 CALC SITE_SPECIES = 8 ASEL RES SPP = 12 CALC SITE_SPECIES = 9 ASEL RES SPP = 16 CALC SITE_SPECIES = 10 ASEL RES SPP = 13 CALC SITE_SPECIES = 11 ASEL RES SPP = 24 CALC SITE_SPECIES = 12 ASEL RES SPP = 14 CALC SITE_SPECIES = 13 ASEL RES SPP = 15 CALC SITE_SPECIES = 14 ASEL RES SPP = 17 CALC SITE_SPECIES = 15 ASEL RES SPP = 23 CALC SITE_SPECIES = 16 ASEL RES SPP = 25 CALC SITE_SPECIES = 17 ASEL RES SPP = 26 CALC SITE_SPECIES = 18 ASEL RES SPP = 27 CALC SITE_SPECIES = 19 ASEL RES SPP = 28 CALC SITE_SPECIES = 20 ASEL RES SPP = 31 CALC SITE_SPECIES = 21 ASEL RES SPP = 32 CALC SITE_SPECIES = 22 ASEL RES SPP = 33 CALC SITE_SPECIES = 23 ASEL RES SPP = 34 CALC SITE_SPECIES = 24 ASEL RES SPP = 35 CALC SITE_SPECIES = 25 ASEL RES SPP = 36 CALC SITE_SPECIES = 26 ASEL RES SPP = 41 CALC SITE_SPECIES = 27 ASEL RES SPP = 42 CALC SITE_SPECIES = 28 ASEL RES SPP = 43 CALC SITE_SPECIES = 30 ASEL RES SPP = 45 CALC SITE_SPECIES = 31 ASEL RES SPP = 92 CALC SITE_SPECIES = 32 ASEL RES SPP = 93 CALC SITE_SPECIES = 33 ASEL RES SPP = 94 CALC SITE_SPECIES = 34 ASEL RES SPP = 91 CALC SITE_SPECIES = 35 ASEL RES SPP = 51 CALC SITE_SPECIES = 36 ASEL RES SPP = 52 CALC SITE_SPECIES = 37 ASEL RES SPP = 53 CALC SITE_SPECIES = 38 ASEL RES SPP = 54 CALC SITE_SPECIES = 39 ASEL RES SPP = 55 CALC SITE_SPECIES = 40 ASEL RES SPP = 56 CALC SITE_SPECIES = 41 ASEL RES SPP = 62 CALC SITE_SPECIES = 42 ASEL RES SPP = 61 CALC SITE_SPECIES = 43 ASEL RES SPP = 63 CALC SITE_SPECIES = 44 ASEL RES SPP = 64 CALC SITE_SPECIES = 45 ASEL RES SPP = 65 CALC SITE_SPECIES = 46 ASEL RES SPP = 71 CALC SITE_SPECIES = 47 ASEL RES SPP = 72 CALC SITE_SPECIES = 48 ASEL RES SPP = 73 CALC SITE_SPECIES = 49 ASEL RES SPP = 81 CALC SITE_SPECIES = 50 ASEL RES SPP = 82 CALC SITE_SPECIES = 51 ASEL RES SPP = 83 CALC SITE_SPECIES = 52 ASEL RES SPP = 84 CALC SITE_SPECIES = 53 ASEL RES SPP = 85 CALC SITE_SPECIES = 54 ASEL RES SPP = 86 CALC SITE_SPECIES = 55 ASEL /* calc age and measure year codes CALC XAGE = AGE CALC MEASURE_YEAR = 1900 + YEAR CALC SITE_INDEX = SI /* calc new attributes /* calc main species ASEL CALC MAIN_SPECIES = SITE_SPECIES /* calc main_species, second, third, and understory species sizes and volume RES DBH LT 5 CALC MAIN_SPECIES_SIZ = 1 ASEL RES DBH GE 5 RES DBH LT 9 CALC MAIN_SPECIES_SIZ = 2 ASEL RES DBH GE 9 CALC MAIN_SPECIES_SIZ = 3 ASEL RES S2DBH LT 5 CALC SECOND_SPP_SIZ = 1 ASEL RES S2DBH GE 5 RES S2DBH LT 9 CALC SECOND_SPP_SIZ = 2 ASEL RES S2DBH GE 9 CALC SECOND_SPP_SIZ = 3 ASEL RES S3DBH LT 5 CALC THIRD_SPP_SIZ = 1 ASEL RES S3DBH GE 5 RES S3DBH LT 9 CALC THIRD_SPP_SIZ = 2 ASEL RES S3DBH GE 9 CALC THIRD_SPP_SIZ = 3 ASEL RES USIZE = 1 OR USIZE = 2 OR USIZE = 3 CALC UNDER_SIZE = 1 ASEL RES USIZE = 4 CALC UNDER_SIZE = 2 ASEL RES USIZE = 5 OR USIZE = 6 OR USIZE = 7 or USIZE = 8 CALC UNDER_SIZE = 3 ASEL RES UDENSE = 0 CALC UNDER_DENSITY = 1 ASEL RES UDENSE = 1 CALC UNDER_DENSITY = 2 ASEL RES UDENSE > 1 CALC UNDER_DENSITY = 3 ASEL CALC MAIN_SPECIES_VOL = VOLUME CALC SECOND_SPP_VOL = S2VOL CALC THIRD_SPP_VOL = S3VOL /* calc shrubs, cover and origin CALC XSHRUBS = SCHRUBS CALC GROUND_COVER = COVER RES ORIGIN = 1 OR ORIGIN = 3 CALC STAND_ORIGIN = 1 ASEL RES ORIGIN = 2 CALC STAND_ORIGIN = 2 ASEL /* calc understory species - like cover type RES UTYPE = 1 OR UTYPE = 6 OR UTYPE = 9 CALC UNDER_TYPE = 1 ASEL RES UTYPE = 14 CALC UNDER_TYPE = 2 ASEL RES UTYPE = 12 OR UTYPE = 15 OR UTYPE = 78 CALC UNDER_TYPE = 3 ASEL RES UTYPE = 17 CALC UNDER_TYPE = 4 ASEL RES UTYPE = 13 CALC UNDER_TYPE = 5 ASEL RES UTYPE = 20 CALC UNDER_TYPE = 6 ASEL RES UTYPE = 40 CALC UNDER_TYPE = 7 ASEL RES UTYPE = 30 OR UTYPE = 79 CALC UNDER_TYPE = 8 ASEL RES UTYPE = 25 CALC UNDER_TYPE = 9 ASEL RES UTYPE = 51 CALC UNDER_TYPE = 10 ASEL RES UTYPE = 52 CALC UNDER_TYPE = 11 ASEL RES UTYPE = 53 CALC UNDER_TYPE = 12 ASEL RES UTYPE = 54 CALC UNDER_TYPE = 13 ASEL RES UTYPE = 55 CALC UNDER_TYPE = 14 ASEL RES UTYPE = 61 CALC UNDER_TYPE = 15 ASEL RES UTYPE = 62 CALC UNDER_TYPE = 16 ASEL RES UTYPE = 71 OR UTYPE = 75 CALC UNDER_TYPE = 17 ASEL RES UTYPE = 74 CALC UNDER_TYPE = 18 ASEL RES UTYPE = 70 OR UTYPE = 72 OR UTYPE = 76 CALC UNDER_TYPE = 19 ASEL RES UTYPE = 73 OR UTYPE = 77 CALC UNDER_TYPE = 20 ASEL RES UTYPE = 81 CALC UNDER_TYPE = 21 ASEL RES UTYPE = 82 CALC UNDER_TYPE = 23 ASEL RES UTYPE = 84 CALC UNDER_TYPE = 24 ASEL RES UTYPE = 83 CALC UNDER_TYPE = 25 ASEL RES UTYPE = 98 CALC UNDER_TYPE = 26 ASEL RES UTYPE = 99 CALC UNDER_TYPE = 27 ASEL RES UTYPE = 86 CALC UNDER_TYPE = 28 ASEL RES UTYPE = 85 CALC UNDER_TYPE = 29 ASEL RES UTYPE = 96 OR UTYPE = 97 CALC UNDER_TYPE = 30 ASEL RES UTYPE = 91 CALC UNDER_TYPE = 32 ASEL RES UTYPE = 92 CALC UNDER_TYPE = 33 ASEL RES UTYPE = 93 CALC UNDER_TYPE = 34 ASEL RES UTYPE = 94 CALC UNDER_TYPE = 35 ASEL /* reselect 2spp and calc second_spp codes RES S2SPP = 1 CALC SECOND_SPP = 1 ASEL RES S2SPP = 39 CALC SECOND_SPP = 2 ASEL RES S2SPP = 38 CALC SECOND_SPP = 3 ASEL RES S2SPP = 2 OR S2SPP = 4 OR S2SPP = 5 CALC SECOND_SPP = 4 ASEL RES S2SPP = 3 CALC SECOND_SPP = 5 ASEL RES S2SPP = 21 CALC SECOND_SPP = 6 ASEL RES S2SPP = 22 CALC SECOND_SPP = 7 ASEL RES S2SPP = 6 CALC SECOND_SPP = 8 ASEL RES S2SPP = 12 CALC SECOND_SPP = 9 ASEL RES S2SPP = 16 CALC SECOND_SPP = 10 ASEL RES S2SPP = 13 CALC SECOND_SPP = 11 ASEL RES S2SPP = 24 CALC SECOND_SPP = 12 ASEL RES S2SPP = 14 CALC SECOND_SPP = 13 ASEL RES S2SPP = 15 CALC SECOND_SPP = 14 ASEL RES S2SPP = 17 CALC SECOND_SPP = 15 ASEL RES S2SPP = 23 CALC SECOND_SPP = 16 ASEL RES S2SPP = 25 CALC SECOND_SPP = 17 ASEL RES S2SPP = 26 CALC SECOND_SPP = 18 ASEL RES S2SPP = 27 CALC SECOND_SPP = 19 ASEL RES S2SPP = 28 CALC SECOND_SPP = 20 ASEL RES S2SPP = 31 CALC SECOND_SPP = 21 ASEL RES S2SPP = 32 CALC SECOND_SPP = 22 ASEL RES S2SPP = 33 CALC SECOND_SPP = 23 ASEL RES S2SPP = 34 CALC SECOND_SPP = 24 ASEL RES S2SPP = 35 CALC SECOND_SPP = 25 ASEL RES S2SPP = 36 CALC SECOND_SPP = 26 ASEL RES S2SPP = 41 CALC SECOND_SPP = 27 ASEL RES S2SPP = 42 CALC SECOND_SPP = 28 ASEL RES S2SPP = 43 CALC SECOND_SPP = 30 ASEL RES S2SPP = 45 CALC SECOND_SPP = 31 ASEL RES S2SPP = 92 CALC SECOND_SPP = 32 ASEL RES S2SPP = 93 CALC SECOND_SPP = 33 ASEL RES S2SPP = 94 CALC SECOND_SPP = 34 ASEL RES S2SPP = 91 CALC SECOND_SPP = 35 ASEL RES S2SPP = 51 CALC SECOND_SPP = 36 ASEL RES S2SPP = 52 CALC SECOND_SPP = 37 ASEL RES S2SPP = 53 CALC SECOND_SPP = 38 ASEL RES S2SPP = 54 CALC SECOND_SPP = 39 ASEL RES S2SPP = 55 CALC SECOND_SPP = 40 ASEL RES S2SPP = 56 CALC SECOND_SPP = 41 ASEL RES S2SPP = 62 CALC SECOND_SPP = 42 ASEL RES S2SPP = 61 CALC SECOND_SPP = 43 ASEL RES S2SPP = 63 CALC SECOND_SPP = 44 ASEL RES S2SPP = 64 CALC SECOND_SPP = 45 ASEL RES S2SPP = 65 CALC SECOND_SPP = 46 ASEL RES S2SPP = 71 CALC SECOND_SPP = 47 ASEL RES S2SPP = 72 CALC SECOND_SPP = 48 ASEL RES S2SPP = 73 CALC SECOND_SPP = 49 ASEL RES S2SPP = 81 CALC SECOND_SPP = 50 ASEL RES S2SPP = 82 CALC SECOND_SPP = 51 ASEL RES S2SPP = 83 CALC SECOND_SPP = 52 ASEL RES S2SPP = 84 CALC SECOND_SPP = 53 ASEL RES S2SPP = 85 CALC SECOND_SPP = 54 ASEL RES S2SPP = 86 CALC SECOND_SPP = 55 ASEL /* reselect 3spp and calc third_species codes RES S3SPP = 1 CALC THIRD_SPP = 1 ASEL RES S3SPP = 39 CALC THIRD_SPP = 2 ASEL RES S3SPP = 38 CALC THIRD_SPP = 3 ASEL RES S3SPP = 2 OR S3SPP = 4 OR S3SPP = 5 CALC THIRD_SPP = 4 ASEL RES S3SPP = 3 CALC THIRD_SPP = 5 ASEL RES S3SPP = 21 CALC THIRD_SPP = 6 ASEL RES S3SPP = 22 CALC THIRD_SPP = 7 ASEL RES S3SPP = 6 CALC THIRD_SPP = 8 ASEL RES S3SPP = 12 CALC THIRD_SPP = 9 ASEL RES S3SPP = 16 CALC THIRD_SPP = 10 ASEL RES S3SPP = 13 CALC THIRD_SPP = 11 ASEL RES S3SPP = 24 CALC THIRD_SPP = 12 ASEL RES S3SPP = 14 CALC THIRD_SPP = 13 ASEL RES S3SPP = 15 CALC THIRD_SPP = 14 ASEL RES S3SPP = 17 CALC THIRD_SPP = 15 ASEL RES S3SPP = 23 CALC THIRD_SPP = 16 ASEL RES S3SPP = 25 CALC THIRD_SPP = 17 ASEL RES S3SPP = 26 CALC THIRD_SPP = 18 ASEL RES S3SPP = 27 CALC THIRD_SPP = 19 ASEL RES S3SPP = 28 CALC THIRD_SPP = 20 ASEL RES S3SPP = 31 CALC THIRD_SPP = 21 ASEL RES S3SPP = 32 CALC THIRD_SPP = 22 ASEL RES S3SPP = 33 CALC THIRD_SPP = 23 ASEL RES S3SPP = 34 CALC THIRD_SPP = 24 ASEL RES S3SPP = 35 CALC THIRD_SPP = 25 ASEL RES S3SPP = 36 CALC THIRD_SPP = 26 ASEL RES S3SPP = 41 CALC THIRD_SPP = 27 ASEL RES S3SPP = 42 CALC THIRD_SPP = 28 ASEL RES S3SPP = 43 CALC THIRD_SPP = 30 ASEL RES S3SPP = 45 CALC THIRD_SPP = 31 ASEL RES S3SPP = 92 CALC THIRD_SPP = 32 ASEL RES S3SPP = 93 CALC THIRD_SPP = 33 ASEL RES S3SPP = 94 CALC THIRD_SPP = 34 ASEL RES S3SPP = 91 CALC THIRD_SPP = 35 ASEL RES S3SPP = 51 CALC THIRD_SPP = 36 ASEL RES S3SPP = 52 CALC THIRD_SPP = 37 ASEL RES S3SPP = 53 CALC THIRD_SPP = 38 ASEL RES S3SPP = 54 CALC THIRD_SPP = 39 ASEL RES S3SPP = 55 CALC THIRD_SPP = 40 ASEL RES S3SPP = 56 CALC THIRD_SPP = 41 ASEL RES S3SPP = 62 CALC THIRD_SPP = 42 ASEL RES S3SPP = 61 CALC THIRD_SPP = 43 ASEL RES S3SPP = 63 CALC THIRD_SPP = 44 ASEL RES S3SPP = 64 CALC THIRD_SPP = 45 ASEL RES S3SPP = 65 CALC THIRD_SPP = 46 ASEL RES S3SPP = 71 CALC THIRD_SPP = 47 ASEL RES S3SPP = 72 CALC THIRD_SPP = 48 ASEL RES S3SPP = 73 CALC THIRD_SPP = 49 ASEL RES S3SPP = 81 CALC THIRD_SPP = 50 ASEL RES S3SPP = 82 CALC THIRD_SPP = 51 ASEL RES S3SPP = 83 CALC THIRD_SPP = 52 ASEL RES S3SPP = 84 CALC THIRD_SPP = 53 ASEL RES S3SPP = 85 CALC THIRD_SPP = 54 ASEL RES S3SPP = 86 CALC THIRD_SPP = 55 ASEL /* exit info Q STOP &end /* get rid of old csa items, by keeping only the new iic items pullitems x%csa_cover%.pat x%csa_cover%.pat area perimeter x%csa_cover%# x%csa_cover%-id cover_type cover_size stocking xage measure_year site_index site_species administrator recon_level stand_id main_species main_species_siz main_species_vol second_spp second_spp_siz second_spp_vol third_spp third_spp_siz third_spp_vol under_type under_size under_density shrubs ground_cover stand_origin end /* go into info and rename xage to age &data arc info ARC SEL X[TRANSLATE [UNQUOTE %csa_cover%]].PAT ALTER XAGE,AGE,,,,,,, ALTER XSCHRUBS,SHRUBS,,,,,,, Q STOP &end /* set projection projectdefine cover x%csa_cover% project UTM zone 15 units meters datum NAD83 parameters /* rename temp csa/iic cover to iic name and build rename x%csa_cover% %iic_cover% build %iic_cover% poly &type Converted csa coverage, %csa_cover% to a coverage in IIC format, &type named %iic_cover% &return