根據(jù)選擇條件，執(zhí)行幾個(gè)可能的語(yǔ)句塊之一。每個(gè)語(yǔ)句塊至少有一個(gè)標(biāo)識(shí)符。執(zhí)行標(biāo)識(shí)符與選擇標(biāo)準(zhǔn)匹配的塊。

當(dāng)塊完成時(shí)，程序在ENDSWITCH之后繼續(xù)。

SWITCH … CASE … ENDSWITCH

如果沒(méi)有與選擇標(biāo)準(zhǔn)匹配的標(biāo)識(shí)符，則處理DEFAULT塊。如果沒(méi)有DEFAULT塊，則不處理任何塊，并且程序在ENDSWITCH之后繼續(xù)。

SWITCH語(yǔ)句不能使用EXIT退出。

SWITCH-CASE 指令

SWITCH-CASE 指令是一個(gè)分支，可以測(cè)試一個(gè)變量的不同值（分支）。

語(yǔ)法：

SWITCH 變量

CASE1 ;Teste Variable auf Wert 1

指令

CASE2 ;Teste Variable auf Wert 2

指令

CASE3,4,5,10 ;Teste Variable auf Werte3,4,5,10

指令

DEFAULT ;optional

錯(cuò)誤分析

ENDSWITCH

根據(jù)集團(tuán)標(biāo)準(zhǔn)，通常通過(guò) SWITCH-CASE 指令分析 INTEGER變量。

但是也可以分析 ENUM和 CHAR 變量。

使用故障報(bào)警信息

SWITCH $ERR.interpreter

CASE #R_INT

$OUT[par] = TRUE

CASE #S_INT

sub_prog_s()

CASE #EXT_S_INT1

sub_prog_1()

CASE #EXT_S_INT2

sub_prog_2()

CASE #EXT_S_INT3

sub_prog_3()

...

ENDSWITCH

...

END

選擇標(biāo)準(zhǔn)和標(biāo)識(shí)符屬于INT類(lèi)型。

INT VERSION

...

SWITCH VERSION

CASE 1

UP_1()

CASE 2,3

UP_2()

UP_3()

UP_3A()

DEFAULT

ERROR_UP()

ENDSWITCH

選擇標(biāo)準(zhǔn)和標(biāo)識(shí)符屬于CHAR類(lèi)型。這里從不執(zhí)行語(yǔ)句UP_5（），因?yàn)橐郧笆褂眠^(guò)標(biāo)識(shí)符C。

SWITCH NAME

CASE "A"

UP_1()

CASE "B","C"

UP_2()

UP_3()

CASE "C"

UP_5()

ENDSWITCH

審核編輯：黃飛