%
% stack: [ data-items . . . ]
%                data-type
%
<
|Send
% send
[=TrakSend]
_Sim.Data execstr
"Sid" [(]
"Status" [(]
"Command" [(]
"CommandMode" [(]
"Direction" [(]
"Transport" [(]
"DateCreated" [(]
"DateUpdated" [(]
"Url" [(]
"Send" *stakpack
_Send.DateCreated Time.FullOrder -1 left &"_"
&_Sim.Sid &"_" _Send.Direction 2 left &
&_Send.Sid
"Trak\" ofbin ^ text
_Sim.Data exch write

|Command
% command

[=TrakCmd]
_Sim.Data execstr
countup
{
pop

"Sid" [(]
"Status" [(]
"Command" [(]
"CommandMode" [(]
"Direction" [(]
"Transport" [(]
"DateCreated" [(]
"DateUpdated" [(]
"Url" [(]
"Cmd" *stakpack
_Cmd.DateCreated Time.FullOrder -1 left &"_"
&_Sim.Sid &"_" _Cmd.Direction 2 left & &"_"
&_Cmd.Sid
"Trak\" ofbin ^ text

_Cmd.Command quoter &" !Cmd.Command" catcr

 exch write
} for

|Session
% session
[=TrakSess]
_Sim.Data execstr
"Sid" [(]
"LastUpdated" [(]
"RadioLink" [(]
"Start" [(]
"End" [(]
"PacketsDownloaded" [(]
"PacketsUploaded" [(]
"CellId" [(]
"CellLocationEstimate" [(]
"OperatorName" [(]
"OperatorCountry" [(]
"OperatorMcc" [(]
"OperatorMnc" [(]
"Sess" *stakpack

|Sim
% sim
[=TrakSim]
_Sim.Data execstr
"Sid" [(]
"UniqueName" [(]
"FriendlyName" [(]
"IccId" [(]
"Status" [(]
"DateCreated" [(]
"DateUpdated" [(]
"IpAddress" [(]
"AbsoluteUri" [(]
"RatePlanSid" [(]
"Sim" *stakpack
/*
_Sim.DateCreated Time.FullOrder -1 left &"_"
&_Sim.Sid
"Trak\" ofbin ^ text
_Sim.Data exch write
*/
>
%
% stack: [ data-items . . . ]      (if not processed)
%            processed
%