Copyright © Александр Лантратов ICQ#: 100386078

srtiy@corona.nnov.ru

добавить абонента, дать первичные ограничения

@COMMENT "MACRO "

@CONNECT

@CLEAR

@LABEL start

@ASK {num} укажите 10 цифр номера, пустая строка -закончить:

@LENGTH {num} {length}

@IF {length} = 0 THEN GOTO endmacro

suscp:snb={num};

@COPY {_line3} {test} 34 2

@IF {test} = "NC" THEN GOTO connect

@CONFIRM "номер уже занят"

@GOTO endmacro

@LABEL connect

@ASK {dev} укажите устройство LI3:

stdep:dev=li3-{dev};

@COPY {_line3} {test} 36 2

@IF {test} = "NC" THEN GOTO connect1

@CONFIRM "устройство уже занято"

@GOTO endmacro

@LABEL connect1

sulii:snb={num},dev=li3-{dev};

@IFERROR THEN GOTO endmacro

suscc:snb={num},scl=als-1&cba-2&ant-3;

@SET {num} = ""

@GOTO start

@LABEL endmacro

@COMMENT "END MACRO добавить абонента "

@RELEASE

@EXIT

замена абонентского устройства номеру

@COMMENT "MACRO "

@CONNECT

@CLEAR

@LABEL begin

@ASK {num} укажите 10 цифр номера, пустая строка -закончить:

@LENGTH {num} {length}

@IF {length} = 0 THEN GOTO endmacro

suscp:snb={num};

@COPY {_line3} {test} 34 2

@IF {test} <> "NC" THEN GOTO connect

@CONFIRM "номер не занят"

@GOTO endmacro

@LABEL connect

@COPY {_line3} {devo} 12 9

@GOSUB mytrim

@set {out} = "укажите новое устройство LI3 (старое -> " +{devo} +"):"

@ASK {devn} {out}

stdep:dev=li3-{devn};

@COPY {_line3} {test} 36 2

@IF {test} = "NC" THEN GOTO connect1

@CONFIRM "новое устройство уже занято"

@GOTO endmacro

@LABEL connect1

sulic:snb={num},dev1={devo},dev2=li3-{devn};

@SET {num} = ""

@GOTO begin

@LABEL endmacro

@COMMENT "END MACRO замена устройства"

@RELEASE

@EXIT

@LABEL mytrim

@LENGTH {devo} {len}

@COPY {devo} {test} {len} 1

@IF {test} <> " " THEN RETURN

@DEC {len} 1

@COPY {devo} {devo} 1 {len}

@GOTO mytrim

тест проводного абонента (расширенный)

@COMMENT "MACRO проверка абонентской линии"

@CONNECT

@CLEAR

@PARAMASK {num} введите 10 цифр номера:

@LENGTH {num} {length}

@IF {length} = 0 THEN GOTO end

slomi:snb={num},mp=11;

@IF {_line4} = "VERSION 1" THEN GOTO det

@COPY {_line7} {code} 36 2

@onerror goto det

end;

@if {code} = "6" then goto kz

@if {code} = "7" then goto mbl

@if {code} = "11" then goto tp

@if {code} = "17" then goto abl

@goto end

@label det

@COPY {_line7} {li} 19 1

@if {li} <> "3" then goto linet

@COPY {_line7} {code} 36 2

@goto if

@label linet

@COPY {_line7} {code} 19 2

end;

@label if

@comment eia ioeaee - {code}

@if {code} = "3" then goto dev

@if {code} = "9" then goto ser

@if {code} = "10" then goto nc

@if {code} = "20" then goto trep

@goto end

@label dev

@COPY {_line7} {dev} 5 5

@COMMENT " неисправность устройства- проверить командой SLOCI"

end;

sloci:dev=li3-{dev};

@COPY {_line4} {sis} 48 3

@if {sis} = "ACC" then goto dv

@label dv

@comment " девайс исправен-обратитесь к операторам станции"

@goto end

@label kz

@COMMENT " на линии короткое замыкание, или не положена трубка на

аппарате"

@goto end

@label mbl

@COMMENT " линия заблокирована вручную"

@goto end

@label nc

@COMMENT " номер не прописан на девайс!!! "

@goto end

@label tp

@COMMENT "номер тестируется на другом мониторе"

@goto end

@label abl

@COMMENT "номер в автоматической блокировке"

@goto end

@label trep

@COMMENT "абонент разговаривает"

@goto end

@label ser

@COMMENT "серийный номер!!"

@goto end

@label end

@release

end;

скрипт написан для рембюро

srtiy@corona.nnov.ru