Envoy Application Programming Manual

TINET Multipoint Supervisor Protocol
Envoy Application Programming Manual—427159-001
8-35
Steps of Example Program
Example 8-15. Program Code for TINET Multipoint Supervisor (Page 3 of 13)
! write full tutorial mask
wtm^full =
[ STX,
w^id,
w^seq,
wtm^cc,
wtm^enter^wcc,
wtm^acctnum^lcfl,
wtm^banknum^lcfl,
wtm^expdate^lcfl,
wtm^refnum^lcfl,
wtm^trancode^lcfl,
wtm^amount^lcfl,
ETX ]#,
! write data codes.
wdata^cc = %060#, ! write data command code.
wdata^valid^wcc = %061#, ! "validation".
wdata^ok^lc = %067#, ! "credit okayed".
wdata^nok^lc = %070#, ! "credit denied".
wdata^puc^lc = %071#, ! "pick up card".
wdata^call^lc = %072#; ! "call center".
! credit checking.
DEFINE
read^error = validate.0 #,
invalid^field = validate.1:6 #,
invalid^acctnum = validate.1 #,
invalid^banknum = validate.2 #,
invalid^expdate = validate.3 #,
invalid^refnum = validate.4 #,
invalid^trancode = validate.5 #,
invalid^amount = validate.6 #,
check^done = validate.14:15 #;
LITERAL
credit^ok = 0,
credit^nok = 1,
pickupcard = 2,
callcenter = 3;