%
% Hitachi A distribute and report
%
"HitachiA" !Summ.Fprefix
"10/1/2020 4:30 AM"
"10/1/2020 4:00 PM"
"d01239C2FE79A3CE2FE"
*machsrtx
_beginr estime
"beginrd" log)(
Time.Datels
pop
"datelday" log)(
!Summ.Day !Summ.Month !Summ.Year
_Summ.Year _Summ.Month 2 prezero & _Summ.Day 2 prezero & ^_Summ.Fprefix
!Summ.Fdated
5 !Summ.Hour
22 !Summ.Hours

%
% create the csv containers for report to excel
%
% clear the tool count retention areas
%
_Summ.Hours countup
{
 _Summ.Hour - add !Summ.Hcyc
 "Summ.HC" _Summ.Hcyc 2 prezero & empty exch !
 31 countup
 {
  - 2 prezero "Summ.HH" _Summ.Hcyc 2 prezero & &"T" ^ empty exch !
 } for
} for

%
%
% create time-chain difference summary
%
empty !Summ.Coll
empty !Summ.Begin
60 60 mul 1000 mul !Summ.Period
40 countup { ^"Summ.TT" -1 exch ! } for
0 !Summ.Tcnt
0 !Summ.Bcnt
0 !Summ.Diff
0 !Summ.From
0 !Summ.Halfer
0 !Summ.Aller
false !Summ.PreRep
empty !Summ.Chunk
empty !Summ.Text
empty !Summ.Prior
"*.*" !wilder
"d01239C2FE79A3CE2FE\xtx\" ofconn
dup &"xtime" folder !Summ.Xtime
dup &"ytime" folder !Summ.Ytime
dup &"..\Timed" folder !Summ.Timed
_Summ.Prior
{
_wilder log#
 nextfile ?
"nxtfl" log)(
 dup !Summ.Prior
 *machmsgq
"mmq" log)(
 {
  "Rcved" <_Msg.Lookup>
"mrcvd" log)(
  {
   _Msg.Rcved hex2asc ^:Summ.Coll
%
% analyze collected telem for ending mark
%
   *machstmp

   *machhita
  }
  {
"norcv" log)(
  } ifelse
 }
 {
"nomsg" log)(
 } ifelse
"exfl" log)(
 filing
 _Summ.XstampD &"_" &_Summ.XstampT text ^_Summ.Ytime
 copyfile

 filing
 second ^_Summ.Xtime
 overwrite

"eyfl" log)(
} loop
filing)
*machhitb

empty !tcrow
empty !tc9
empty !tc10
empty !tc11
empty !tc12
empty !tcall
_Summ.Hours countup
{
 _Summ.Hour - add !Summ.Hcyc
 "Summ.HC" _Summ.Hcyc 2 prezero & _ &"," ^:tcrow
 "Summ.HH" _Summ.Hcyc 2 prezero & &"T" !Summ.Hpref

 _Summ.Hcyc 2 prezero &","
 "Summ.HC" _Summ.Hcyc 2 prezero & _ &"," &

 9  2 prezero ^_Summ.Hpref _ &"," dup ^:tc9 
 &
 10 2 prezero ^_Summ.Hpref _ &"," dup ^:tc10
 &
 11 2 prezero ^_Summ.Hpref _ &"," dup ^:tc11
 &
 12 2 prezero ^_Summ.Hpref _ &"," dup ^:tc12
 &
 -1 right &;
 ^:tcall

} for
_tcrow &"0" ^"TOOL," &;
_tc9 &"0" ^"T09," &; &
_tc10 &"0" ^"T10," &; &
_tc11 &"0" ^"T11," &; &
_tc12 &"0" ^"T12," &; &
_Summ.Fdated &".csv" ofbin write

_tcall
_Summ.Fdated &"D.csv" ofbin write