anchor.diff:          end;
         end;
   
  -    var LOpComp : TPCOperationsComp;
  +      function DoAddOpData(AOpData : TOpData; var AFoundCounter : Integer; out AOperationResume : TOperationResume) : Boolean;
  +      begin
  +        Result := False;
  +        // Search by filter:
  +        if ((Not ASearchBySender) Or (ASearchSender = AOpData.Data.account_sender))
  +           and ((Not ASearchByTarget) Or (ASearchTarget = AOpData.Data.account_target))
  +           and ((Not ASearchByGUID) Or (EqualGUIDs(ASearchGUID,AOpData.Data.guid)))
  +           and ((Not ASearchByDataSequence) Or (ASearchDataSequence = AOpData.Data.dataSequence))
  +           and ((Not ASearchByDataType) Or (ASearchDataType = AOpData.Data.dataType))
  +        then begin
  +          if (AFoundCounter>=AStartOperation) And (AFoundCounter<=AEndOperation) then begin
  +            If TPCOperation.OperationToOperationResume(ABlock_number,AOpData,False,AOpData.SignerAccount,AOperationResume) then begin
  +              AOperationResume.Balance:=-1;
  +              Result := True;
  +            end;
  +          end;
  +          inc(AFoundCounter);
  +        end;
  +      end; // For LList...
  +
  +
  +    var LOpComp, LMemPool : TPCOperationsComp;
         LOperation : TPCOperation;
         LOpData : TOpData;
         LOperationResume : TOperationResume;
  
positive.code:   LStartOperation := AInputParams.AsInteger('start',0);
    LMaxOperations := AInputParams.AsInteger('max',100);
    if AInputParams.IndexOfName('startblock')>=0 then begin
      LStartBlock := AInputParams.AsInteger('startblock',100);
      LFirst_Block_Is_Unknown := True;
    end else begin
      if not ASender.RPCServer.GetMempoolAccount(LSearchedAccount_number,LAccount) then begin
  
negative.code:     end;
      LFirst_Block_Is_Unknown := False;
      LStartBlock := LAccount.GetLastUpdatedBlock;
    end;
  
    LOperationsResumeList := TOperationsResumeList.Create;
    try
      DoFindFromBlock(LStartBlock,
        LSearchedAccount_number,
        LStartOperation, LStartOperation + LMaxOperations - 1,
        LMaxDepth, LFirst_Block_Is_Unknown,
        LSearchBySender, LSender,
        LSearchByTarget, LTarget,
  