Слить любое число последовательно поименованных файлов, по 50 файлов за итерацию

* Макрос обеспечивает слияние любого количества последовательно
* поименованных файлов, по 50 файлов за итерацию.

*////////////.
DEFINE !merge4 (path=!TOKENS(1) /stem=!TOKENS(1) /n1=!TOKENS(1) /n2=!TOKENS(1))
GET FILE = !QUOTE(!CONCAT(!UNQUOTE(!path),!UNQUOTE(!stem),!n1,'.sav')).
!LET !inifile='*'
!DO !cnt=!n1 !TO !n2 !BY 49
!IF (!cnt=!n1) !THEN
  !LET !cnt1=!LENGTH(!CONCAT(!BLANK(!cnt),!BLANK(1))) 
!ELSE
  !LET !cnt1=!cnt
!IFEND

  !LET !cnt2=!LENGTH(!CONCAT(!BLANK(!cnt),!BLANK(48)))
  !IF (!BLANK(!cnt2) !GT !BLANK(!n2)) !THEN !LET !cnt2=!n2 !IFEND

ADD FILES FILE=!inifile
  !DO !fn=!cnt1 !TO !cnt2 /FILE=!QUOTE(!CONCAT(!UNQUOTE(!path),!UNQUOTE(!stem),!fn,'.sav')) !DOEND.

!DOEND
SAVE OUTFILE=!path + 'master.sav'.
!ENDDEFINE.
*////////////.

SET MPRINT=yes.
* Сливаем файлы (добавляем наблюдения) из файлов с file2 по file60.
!merge4 path="c:\\temp\\" stem=file n1=2 n2=60.

...

Navigate from here