×
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!
  • Students Click Here

*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.

Students Click Here

Jobs

REXX LD 88 Scripting

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!

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