!----------------------------------------------------------------------------! 
!                                                                            !
!    This script modifies the georeferencing segment of all the vectors in   !
!    a PIX file specified in the script.                                     !
!                        						     !
!    The parameters are like those in MAS.eas and they are specified in      !
!    the script.                                                             !
!                                                                            !
!    For help on assigning the proper projection string for MAPUNITS,        !
!    please refer to the Geomatica on-line help for MAS or PROSET functions. ! 
!                                                                            !
!----------------------------------------------------------------------------! 


local int seg, tfid
local string SegType

SegType = "VEC"

!--------------------------------------------------------------
! Set the Parameters for MAS EXCEPT for DBSL
!--------------------------------------------------------------

FILE= "C:\Geomatica_v91\test1\irvine.pix"

! set mapunits
! plus anything else like datum/ellipsoid

MAPUNITS= "LONG/LAT E012" 

! Set the DBSN DBSD to blank so they stay the same.

DBSN= 
DBSD=

!--------------------------------------------------------------
! Get the vector segments and run MAS
!--------------------------------------------------------------

tfid = DBOpen( FILE ) 
if (tfid = 0) then
printf "Failed to open requested file: %s. File not found or does not exist.\n", FILE
else
seg = DBNextSeg( tfid, SegType, -1 )
while (seg <> -1)
print "working on vector"
if (SegType = "VEC") then
DBSL = seg
run MAS
endif
seg = DBNextSeg( tfid, SegType, seg )
endwhile

call DBClose(tfid)
endif