/* REXX (CREATED BY ZOC REXX RECORDER) */
CALL ZocTimeout 60
CALL ZocWaitForSeq 1
dn = ZocAsk("What's the DN you are programming?")
CALL ZocSend "****^M"
CALL ZocWait ">"
CALL ZocSend "ld 20^M"
CALL ZocWait "REQ:"
CALL ZocSend "prt^M"
CALL ZocWait "TYPE:"
CALL ZocSend "dnb^M"
CALL ZocWait "CUST"
CALL ZocSend "^M"
CALL ZocWait "DN"
CALL ZocSend dn
CALL ZocSend "^M"
CALL ZocWait "DATE"
CALL ZocSend "^M"
CALL ZocWait "PAGE"
CALL ZocSend "^M"
CALL ZocWait "DES"
CALL ZocSend "^M"
CALL ZocReceiveBuf 256
CALL ZocWait "NACT"
CALL ZocSend "^M"
CALL ZocWait "REQ:"
TNdata = ZocReceiveBuf(0)
TNstrip = POS("TN",TNdata)
TNpos = TNstrip + 4
TN = SUBSTR(TNdata,TNpos,12)
/* Call ZocMsgBox "Your TN INFO IS" TN */
/* Call ZocMsgBox "Your DN IS" DN */
CALL ZocSend "OUT^M"
CALL ZocWait "TYPE:"
CALL ZocSend "1140^M"
CALL ZocWait "TN"
Call ZocSend TN
CALL ZocSend "^M"
CALL ZocWait "REQ:"
CALL ZocSend "new^M"
CALL ZocWait "TYPE:"
CALL ZocSend "uext^M"
CALL ZocWait "TN"
Call ZocSend TN
CALL ZocSend "^M"
CALL ZocWait "DES"
CALL ZocSend "qta500^M"
CALL ZocWait "CUST"
CALL ZocSend "0^M"
CALL ZocWait "UXTY"
CALL ZocSend "sipl^M"
CALL ZocWait "MCCL"
CALL ZocSend "yes^M"
CALL ZocWait "SIPN"
CALL ZocSend "0^M"
CALL ZocWait "SIP3"
CALL ZocSend "1^M"
CALL ZocWait "FMCL"
CALL ZocSend "^M"
CALL ZocWait "TLSV"
CALL ZocSend "^M"
CALL ZocWait "SIPU"
Call ZocSend dn
CALL ZocSend "^M"
CALL ZocWait "NDID"
CALL ZocSend "200^M"
CALL ZocWait "SUPR"
CALL ZocSend "no^M"
CALL ZocWait "UXID"
CALL ZocSend "^M"
CALL ZocWait "NUID"
CALL ZocSend "^M"
CALL ZocWait "NHTN"
CALL ZocSend "^M"
CALL ZocWait "ZONE"
CALL ZocSend "5^M"
CALL ZocWait "MRT"
CALL ZocSend "95^M"
CALL ZocWait "ERL"
CALL ZocSend "^M"
CALL ZocWait "ECL"
CALL ZocSend "^M"
CALL ZocWait "VSIT"
CALL ZocSend "^M"
CALL ZocWait "FDN"
Call ZocSend dn
CALL ZocSend "^M"
CALL ZocWait "TGAR"
CALL ZocSend "1^M"
CALL ZocWait "LDN"
CALL ZocSend "no^M"
CALL ZocWait "NCOS"
CALL ZocSend "1^M"
CALL ZocWait "RNPG"
CALL ZocSend "^M"
CALL ZocWait "SSU"
CALL ZocSend "11^M"
CALL ZocWait "SCPW"
Call ZocSend dn
CALL ZocSend "^M"
CALL ZocWait "SGRP"
CALL ZocSend "^M"
CALL ZocWait "SFLT"
CALL ZocSend "^M"
CALL ZocWait "CAC_MFC"
CALL ZocSend "^M"
CALL ZocWait "CLS"
CALL ZocSend "tld fna hta cfta sfa gpud^M"
CALL ZocWait "RCO"
CALL ZocSend "0^M"
CALL ZocWait "EFD"
Call ZocSend dn
CALL ZocSend "^M"
CALL ZocWait "HUNT"
Call ZocSend dn
CALL ZocSend "^M"
CALL ZocWait "EHT"
Call ZocSend dn
CALL ZocSend "^M"
CALL ZocWait "LHK"
CALL ZocSend "0^M"
CALL ZocWait "SCI"
CALL ZocSend "^M"
CALL ZocWait "PLEV"
CALL ZocSend "^M"
CALL ZocWait "DANI"
CALL ZocSend "^M"
CALL ZocWait "AST"
CALL ZocSend "^M"
CALL ZocWait "IAPG"
CALL ZocSend "^M"
CALL ZocWait "MLWU_LANG"
CALL ZocSend "^M"
CALL ZocWait "MLNG"
CALL ZocSend "^M"
CALL ZocWait "DNDR"
CALL ZocSend "^M"
CALL ZocWait "KEY"
CALL ZocSend "0 scr "
Call ZocSend dn
CALL ZocSend "^M"
CALL ZocWait "CPND"
CALL ZocSend "^M"
CALL ZocWait "KEY"
CALL ZocSend "1 hot u 88"
Call ZocSend dn
CALL ZocSend "^M"
CALL ZocWait "KEY"
CALL ZocSend "^M"
CALL ZocWait "REQ:"
CALL ZocSend "end^M"