/********* SCRIPT USED TO ADD NPA's IN THE AC1 and AC2 TABLE **************/
/***** LOOP - Used to enter NPA 360 on AC1 *****/
CALL ZocSend "****^M"
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 "npa^M"
CALL ZocWait "NPA"
CALL ZOCdelay .25
CALL ZocSend "360^M"
CALL ZocWait "RLI"
CALL ZocSend "0^M"
CALL ZocWait "SDRR"
CALL ZocSend "deny^M"
CALL ZocWait "DENY"
CALL ZocSend "976^M"
CALL ZocWait "DENY"
CALL ZocSend "^M"
CALL ZocWait "SDRR"
CALL ZocSend "^M"
CALL ZocWait "ITEI"
CALL ZocSend "^M"
CALL ZocWait "NPA"
CALL ZocSend "^M^M"
CALL ZocWait "REQ"
/* SAY " Finished - ADDing NPA 360 to AC1. Will Continue to Add 1200 to 1359 in AC1" */
CALL ZocNotify "Finished - ADDing NPA 360 to AC1. Will Continue to Add 1200 to 1359 in AC1 -- PLEASE WAIT!!!"
CALL ZOCdelay 2
/***** LOOP - Used to enter NPA 1200 thru 1999 on AC1 *****/
CALL ZocSend "****^M"
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 "npa^M"
/* LOOP - Used to enter NPA 1200 thru 1999 */
DO npa1=1200 TO 1999
CALL ZocWait "NPA"
CALL ZOCdelay .25
CALL ZocSend npa1
CALL ZocSend "^M"
CALL ZocWait "RLI"
CALL ZocSend "0^M"
CALL ZocWait "SDRR"
CALL ZocSend "deny^M"
CALL ZocWait "DENY"
CALL ZocSend "976^M"
CALL ZocWait "DENY"
CALL ZocSend "^M"
CALL ZocWait "SDRR"
CALL ZocSend "^M"
CALL ZocWait "ITEI"
CALL ZocSend "^M"
END
CALL ZocWait "NPA"
CALL ZocSend "^M^M"
CALL ZocWait "REQ"
/* SAY " Finished - ADDing NPA's 1200 thru 1999, Will now add 200 to 999 in ac2" */
CALL ZocNotify "Finished - ADDing NPA's 1200 thru 1999, Will now add 200 to 999 in ac2 -- PLEASE WAIT!!!"
CALL ZOCdelay 4
EXIT
/***** LOOP - Used to enter NPA 200 thru 999 on AC2 *****/
CALL ZocSend "****^M"
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 "ac2^M"
CALL ZocWait "TYPE"
CALL ZocSend "npa^M"
/* LOOP - Used to enter NPA 201 thru 999 */
DO npa1=200 TO 999
CALL ZocWait "NPA"
CALL ZOCdelay .5
CALL ZocSend npa1
CALL ZocSend "^M"
CALL ZocWait "RLI"
CALL ZocSend "4^M"
CALL ZocWait "SDRR"
CALL ZocSend "deny^M"
CALL ZocWait "DENY"
CALL ZocSend "976^M"
CALL ZocWait "DENY"
CALL ZocSend "^M"
CALL ZocWait "SDRR"
CALL ZocSend "^M"
CALL ZocWait "ITEI"
CALL ZocSend "^M"
END
CALL ZocWait "NPA"
CALL ZocSend "^M^M"
CALL ZocWait "REQ"
SAY " Finished - ADDing NPA's 200 thru 999 in the AC2 Table"
CALL ZOCdelay 4
CALL ZocSend "****^M"
CALL ZocBeep 2
CALL ZOCdelay .5
/* CALL ZocMsgBox "THE SCRIPT HAS COMPLETED!" */
CALL ZocNotify "Finished - ADDing 200 to 999 in the AC2 Table -- PLEASE WAIT!!!"
CALL ZOCdelay 2
CALL ZocNotify "THE SCRIPT HAS COMPLETED!"
EXIT