CODESYS V3.5, RETAIN, CmpApp

gistfile1.txt

// В менеджер библиотек должна быть добавлена библиотека CmppApp
PROGRAM RETAIN_PRG
VAR
   xSaveRetainToFile:		BOOL;
   xRestoreRetainFromFile:	BOOL;
    // путь к файлу RETAIN. Без указания будет будет сохранен в рабочей директории ПЛК (PlcLogic)
   sPathToRetainFile:		STRING := 'retain.bin';
	
   pApp:			POINTER TO CmpApp.APPLICATION;
	
   udiResult:			UDINT;
END_VAR

// Область кода

IF xSaveRetainToFile THEN
	
   pApp := CmpApp.AppGetCurrent(ADR(udiResult) );
   udiResult := CmpApp.AppStoreRetainsInFile(pApp, sPathToRetainFile);
	
   xSaveRetainToFile := FALSE;	
	
END_IF

IF xRestoreRetainFromFile THEN
	
   pApp := CmpApp.AppGetCurrent(ADR(udiResult) );
   udiResult := CmpApp.AppRestoreRetainsFromFile(pApp, sPathToRetainFile);
	
   xRestoreRetainFromFile := FALSE;	
  
END_IF