REXX LD 88 Scripting

[hardybacon]

Anyone using REXX to ADD \ Delete Auth Codes in a Legacy Nortel PBX? If so, is anyone willing to share their script?

Thank you - Bryan

 

[jamie2]

Not auth codes, but almost everything else.

Provide me a print out of adding one auth. code and I will see if I can whip something up for you.

 

[hardybacon]

Hi Jamie - After we login and go to load 88 it starts with new at the REQ prompt. We use a text file with numbers running vertically to load the matters. Any help would be appreciated or just an example and I can probably go from there. I have no reference experience with REXX.

Thank you - Bryan

>ld 88
AUTH000

MEM AVAIL: (U/P): 39538872 USED U P: 4991331 349666 TOT: 44879869
DISK SPACE NEEDED: 499 KBYTES
REQ new
TYPE aut
CUST 0
SPWD 0000
CODE 654321
SARC no
CLAS 5
CODE 123456
SARC no
CLAS 5
CODE 765432
SARC no
CLAS 5
CODE

 

[jamie2]

Try this, Just put all your auth. codes into a codes.txt file in the root of C: drive....

CALL ZocSend "****^M"
CALL ZocDelay 0.5
CALL ZocSend "LD 88^M"

CALL ZocWait "REQ "
CALL ZocDelay 0.5
CALL ZocSend "new^M"
CALL ZocWait "TYPE"
CALL ZocDelay 0.5
CALL ZocSend "aut^M"
CALL ZocWait "CUST"
CALL ZocDelay 0.5
CALL ZocSend "0^M"
CALL ZocWait "SPWD"
CALL ZocDelay 0.5
CALL ZocSend "0000^M"

file = "c:\codes.txt"
do while( lines(file) )
data=LINEIN(file)
Parse Var data v1

CALL ZocWait "CODE"
CALL ZocDelay 0.5
CALL ZocSend v1
CALL ZocSend "^M"
CALL ZocWait "SARC"
CALL ZocDelay 0.5
CALL ZocSend "no^M"
CALL ZocWait "CLAS"
CALL ZocDelay 0.5
CALL ZocSend "5^M"

END

 

[jamie2]

Since I do not use auth codes, I tested it on NXX's and it worked... Here is that too if you want it.

CALL ZocSend "****^M"
CALL ZocDelay 0.5
CALL ZocSend "LD 90^M"

CALL ZocWait "REQ "
CALL ZocSend "new^M"
CALL ZocWait "CUST "
CALL ZocSend "0^M"
CALL ZocWait "FEAT"
CALL ZocSend "net^M"
CALL ZocWait "TRAN"
CALL ZocSend "ac1^M"
CALL ZocWait "TYPE"
CALL ZocSend "nxx^M"

file = "c:\nxx.txt"
do while( lines(file) )
data=LINEIN(file)
Parse Var data v1

CALL ZocWait "NXX"
CALL ZocSend v1
CALL ZocSend "^M"
CALL ZocWait "RLI"
CALL ZocSend "0^M"
CALL ZocWait "SDRR"
CALL ZocSend "^M"
CALL ZocWait "ITEI"
CALL ZocSend "^M"

END

 

[hardybacon]

Thank you Jamie. It works great. I just have to figure out if it hits a snag like when a code is already in. I'll give a go. Thanks again - Bryan

 

[bignose21]

you can use the ZocWaitMux something like this

file = "c:\codes.txt"
LOOP:
data=LINEIN(file)
Parse Var data v1
IF v1 = "" THEN CALL finish

CALL ZocWait "CODE"
CALL ZocDelay 0.5
CALL ZocSend v1
CALL ZocSend "^M"

v2 = ZocWaitMux("CODE", "SARC")
SELECT
WHEN v2=0 THEN CALL LOOP
WHEN v4=1 THEN NEXT
WHEN v4=640 THEN CALL finish
END

NEXT:
CALL ZocDelay 0.5
CALL ZocSend "no^M"
CALL ZocWait "CLAS"
CALL ZocDelay 0.5
CALL ZocSend "5^M"
CALL LOOP

finish:
CALL ZocSend "^M

 

[jamie2]

BigNose, what is setting the variable for v4

 

[bignose21]

sorry typo should be v2