$$DMISLAYER/'CaseTest.dms'
$$ *************************************************************************************
$$ LIABILITY STATEMENT:
$$ ___________________
$$
$$ Entelegence Software Solutions Inc., and their representatives hold no
$$ liability as to the contents and/or results obtained by using the sample
$$ code below.
$$
$$ The sole purpose of this sample code is to assist customers and third
$$ party CMM application writers in becoming more profficient in the
$$ writing of DMIS CMM application programs.
$$
$$ Entelegence Software Solutions Inc., and their representatives
$$ will not be held liable for injury, death, machine damages, claims
$$ made as a result of the use of this program, nor any other claim as to
$$ it's fit for use.
$$ Machine configuration statement if applicable :
$$ This DMIS macro was written and tested on a Bridge type CMM with an
$$ Automatic Renishaw Probe Head mounted in the NEGATIVE Z direction with
$$ the LED pointed in the NEGATIVE Y direction.
$$ PROGRAM FUNCTION :
$$ This DMIS program was designed to illustrate the use of the DMIS "CASE"
$$ statement as well as the "DO" statement and their proper implementation
$$ *************************************************************************************
$$ENDLAYER
decl/intgr,i
do/i,1,20,1
text/outfil,'Top Level I'
output/intgr(i)
if/i < 10
select/i
case/1
text/outfil,'case 1'
output/intgr(i)
endcas
case/2
text/outfil,'case 2'
output/intgr(i)
endcas
case/3
text/outfil,'case 3'
output/intgr(i)
endcas
case/4
text/outfil,'case 4'
output/intgr(i)
endcas
case/5
text/outfil,'case 5'
output/intgr(i)
endcas
case/6
text/outfil,'case 6'
output/intgr(i)
endcas
case/7
text/outfil,'case 7'
output/intgr(i)
endcas
case/8
text/outfil,'case 8'
output/intgr(i)
endcas
case/9
text/outfil,'case 9'
output/intgr(i)
endcas
dftcas
text/outfil,'default case'
output/intgr(i)
endcas
endsel
else
select/i
case/11
text/outfil,'case 11'
output/intgr(i)
endcas
case/12
text/outfil,'case 12'
output/intgr(i)
endcas
case/13
text/outfil,'case 13'
output/intgr(i)
endcas
case/14
text/outfil,'case 14'
output/intgr(i)
endcas
case/15
text/outfil,'case 15'
output/intgr(i)
endcas
case/16
text/outfil,'case 16'
output/intgr(i)
endcas
case/17
text/outfil,'case 17'
output/intgr(i)
endcas
case/18
text/outfil,'case 18'
output/intgr(i)
endcas
case/19
text/outfil,'case 19'
output/intgr(i)
endcas
dftcas
text/outfil,'default case'
output/intgr(i)
endcas
endsel
enddo
endfil