;ҽiPurchase
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;û
setreader %userport
reset
00A404000F 7378312E73682EC9E7BBE1B1A3D5CF
compsta 90 00

00A4000002DF04
0020000003 %spin

<--! %stransTime=20120805 105301
;Կ
<--! %Purchase_key_ID = 01
;CIA_AMT ʻ֧
<--! %sCIA_AMT = 00000000
;SPIP_AMT  Ը
<--! %SPIP_AMT = 00000000
;ͳ֧
<--! %SPFP_AMT = 00000000
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;psAm
setreader %psamport
00A4000002 0016
compsta 90 00
00B0000006
compsta 90 00
;ն˻
<--! %Terminal_No = %resp

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;û
setreader %userport
//ѳʼ
B0 28 01 01 13 %Purchase_key_ID %sCIA_AMT %SPIP_AMT %SPFP_AMT %Terminal_No
;CLA
<--! %oldbalance = @strmidh(%resp, 0, 4)
;SPIP(Ը)
<--! %SPIP_AMT = @strmidh(%resp, 4, 4)
;SPFP(ͳ֧)
<--! %SPFP_AMT = @strmidh(%resp, 8, 4)
; ֧
<--! %syear = @strmidh(%resp, 12, 2)
;ҽѽ
<--! %sTransNo=@strmidh(%resp, 14, 2)
;Կ汾(DPK)
<--! %skeyID = @strmidh(%resp, 16, 1)
;㷨ʶ(DPK)
<--! %smathID=@strmidh(%resp, 17, 1)
;α
<--! %swrand=@strmidh(%resp, 18, 4)

;;;;;;;;;;;;;;;PSAMMAC1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;psAm
setreader %psamport
80 70 0100 24 %swrand %sTransNo %sCIA_AMT %SPIP_AMT %SPFP_AMT 32 %stransTime %skeyID %smathID %sn1
;//ն˽
<--! %Ter_Trx_no=@strmidh(%resp,0,4)
<--! %smac1=@strmidh(%resp,4,4)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;û
setreader %userport
;ִ
B0 2C 01 00 0F %Ter_Trx_no %stransTime %smac1
compsta 90 00
;TAC
<--! %TAC = @strmidh(%resp, 0, 4)
;MAC2
<--! %MAC2 = @strmidh(%resp, 4, 4)

B0 26 00 01 04
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;psam
setreader %psamport
;֤MAC2
80 72 0000 04 %MAC2
compsta 90 00
