Чтение в Caché результата вывода консольного приложенияProject1.pas:

test.vbs:

test.mac #Include %msql

  for размерПакета=512,8192,$$$MaxStringLength d $system.OBJ.DisplayError($$run(размерПакета,"Project1.exe 100000"))
  
  ; или for размерПакета=512,8192,$$$MaxStringLength d $system.OBJ.DisplayError($$run(размерПакета,"cscript.exe test.vbs 100000"))
  

run(размерПакета, pCmd) {
  Set tSC = $$$OK
  Set pTimeout = 20
  Set pTimeoutRead = 10
  
  Set pOutput = ""
  Set пакет = 0
  Set IO = $IO
  Set ZEOFMode = $ZU(68,40,1)
  Set pDevice = "|CPIPE|"
  
  Try {
    Open pDevice:(pCmd:"R"):pTimeout
    If '$T Set tSC = $$$ERROR($$$CacheError, "Failed to open |CPIPE| device in read mode for command: '"_pCmd_"'") Quit
    Use pDevice
    For {
      Set tLine = "" Read tLine#размерПакета:pTimeoutRead
      Quit:(($ZEOF=-1)||('$T && (tLine=$C(-1)))) //Exit by EOF/timeout
      
      Set пакет = пакет + 1
      Set пакет(пакет) = $L(tLine)
      Set pOutput = pOutput_tLine
    }
  }
  
  Catch (ex) {
    Set tSC = ex.AsStatus()
  }
  Close pDevice
  
  If 'ZEOFMode Do $ZU(68,40,0) // Restore ZEOF mode
  Use IO
  
  Write !,$L(pOutput)," :",размерПакета,! ZWrite пакет
  
  Quit tSC
}