allclosetest

ÿþ//+------------------------------------------------------------------+

//|                                                 allclosetest.mq5 |

//|                               Copyright 2023, RootCauseMarketing |

//|                      https://www.mql5.com/en/users/mt4kabukimono |

//+------------------------------------------------------------------+

#property copyright   "Copyright, Feel free to copy, distribute, and modify this work."

#property link        "https://www.mql5.com/en/users/mt4kabukimono"

#property description "This is a sample program for async/sync all close."



#include <Trade/Trade.mqh>



//+------------------------------------------------------------------+

//|                                                                  |

//+------------------------------------------------------------------+

void OnStart()

  {

   ulong st = GetMicrosecondCount(); // for monitor



   CTrade sTrade;

   sTrade.SetAsyncMode(true); // true:Async, false:Sync



   for(int cnt = PositionsTotal()-1; cnt >= 0 && !IsStopped(); cnt--)

     {

      ulong wTicket = PositionGetTicket(cnt);

      if(PositionSelectByTicket(wTicket))

        {

         //Close process

         sTrade.PositionClose(wTicket);

         uint code = sTrade.ResultRetcode();

         Print(IntegerToString(code)); // 10008 TRADE_RETCODE_PLACED : OK

        }

     }



//Monitor status until all positions are closed. or Timeout.

   for(int i=0; i<100; i++)

     {

      Print(IntegerToString(GetMicrosecondCount()-st) +"micro "+ IntegerToString(PositionsTotal()));

      if(PositionsTotal()<=0)

        {

         break;

        }

      Sleep(100);

     }

  }

//+------------------------------------------------------------------+