INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Jobs

REXX LD 88 Scripting

REXX LD 88 Scripting

(OP)
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

RE: REXX LD 88 Scripting

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.

RE: REXX LD 88 Scripting

(OP)
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

RE: REXX LD 88 Scripting

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

RE: REXX LD 88 Scripting

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

RE: REXX LD 88 Scripting

(OP)
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

RE: REXX LD 88 Scripting

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"

RE: REXX LD 88 Scripting

BigNose, what is setting the variable for v4

RE: REXX LD 88 Scripting

sorry typo should be v2

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members!

Resources

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close