От автора: Дмитрий ldv@prk.ru              Главная страница

Здравствуйте!

<…>

on.cmd -   подключение абонентов

off.cmd -  отключение абонентов

slomi.cmd - тестирование абонентской линии

suhoi.cmd -  для абонентов в  lockout

На изящность решения не претендую, но поставленные задачи они решать помогают и годятся скорее для применения в бюро ремонта.

ON.cmd

@RELEASE

@CONNECT

@COMMENT "Подключение отключенных абонентов"

@SET {SNB}=""

@ASK {s} Номер подключаемого абонента

@SET {SNB}={s}

@LABEL begin

@ASK {s} Номер следующего подключаемого абонента

@IF {s} = "" THEN GOTO eend

@SET {SNB}={SNB}+"&"+{s}

@GOTO begin

@LABEL eend

suscc:snb={SNB},scl=oba-0;

@END

OFF.cmd

@RELEASE

@CONNECT

@COMMENT "Отключение абонентов за неуплату"

@SET {SNB}=""

@ASK {s} Номер отключаемого абонента

@SET {SNB}={s}

@LABEL begin

@ASK {s} Номер следующего отключаемого абонента

@IF {s} = "" THEN GOTO eend

@SET {SNB}={SNB}+"&"+{s}

@GOTO begin

@LABEL eend

suscc:snb={SNB},scl=oba-100;

@END

SLOMI1.cmd

@RELEASE

@CONNECT

@LOG ON slomi1.log

@comment "Test SNB"

@ASK {li3} Введите номер тестируемого абонента

@DEC {li3} 50000

@label start

slomi:dev=li3-{li3},mp=1;

end;

@LOG OFF

@CLOSE

SUHOI.cmd

@LABEL begin

@RELEASE

@CONNECT

@COMMENT "Список абонентов не положивших трубку"

sllop:dety=li3;

@SET {str}=""

@COPY {_line7} {s} 27 5

@IF {s} = "" THEN GOTO eend1

@SET {str}={s}

@COPY {_line8} {s} 27 5

@IF {s} = "" THEN GOTO eend

@SET {str}={str}+"&"+{s}

@COPY {_line9} {s} 27 5

@IF {s} = "" THEN GOTO eend

@SET {str}={str}+"&"+{s}

@COPY {_line10} {s} 27 5

@IF {s} = "" THEN GOTO eend

@SET {str}={str}+"&"+{s}

@COPY {_line11} {s} 27 5

@IF {s} = "" THEN GOTO eend

@SET {str}={str}+"&"+{s}

@COPY {_line12} {s} 27 5

@IF {s} = "" THEN GOTO eend

@SET {str}={str}+"&"+{s}

@COPY {_line13} {s} 27 5

@IF {s} = "" THEN GOTO eend

@SET {str}={str}+"&"+{s}

@COPY {_line14} {s} 27 5

@IF {s} = "" THEN GOTO eend

@SET {str}={str}+"&"+{s}

@COPY {_line15} {s} 27 5

@IF {s} = "" THEN GOTO eend

@SET {str}={str}+"&"+{s}

@COPY {_line16} {s} 27 5

@IF {s} = "" THEN GOTO eend

@SET {str}={str}+"&"+{s}

@LABEL eend

suhoi:snb={str};

@COMMENT "Следующим абонентам выдан специльный тональный сигнал"

suhop;

@LABEL eend1

@RELEASE

@END

Copyright © Дмитрий,   ldv@prk.ru

Главная страница