%
% is morelink type
% check for xact, different sequence of events for that
%
_Msg.xact any?
{

%
% check for xact existence
%
 &"J.txt" ^_Fup.Gdest
 dup !Fup.CkSeq
"#,#,#,#," log)(
 exists
 {
%
% the xact exists, we will extend its content
%
  true !Fup.Xtend
  0 !Fup.Xseq

  _Fup.CkSeq read

  "Xseq =" exch -1 find pop abs
  !Fup.Xseq

%
% now have sequence to use for extending xact
%
  _Fup.Xseq 2 prezero !Fup.Xpand

/*

 true !Fup.Xtend
 0 !Fup.Xseq
%
% determine the xact sequence to use next
%
 _Fup.Gdest
"-,-,-,-" log)(
  empty
  {
   _Msg.xact &"??X.jpg"
"......" log)(
   !wilder
   nextfile ?
"_,_,_,_" log)(
%
% found existing sequence, isolate and use for next seq
%
  dup -5 right 2 right !Fup.Xseq
 } loop
 filing)

%
% now have sequence to use for extending xact
%
 +Fup.Xseq 2 prezero !Fup.Xpand

*/

 }
 {
%
% the xact does not exist
%
 } ifelse

}
{
%
% no xact ref
%
} ifelse