Программирование на Верхнем Уровне СУ

1. Создание объекта AdrPar для работы с параметрами СУ.
2. Инициализация процедуры PrgIni_SigIgnSet(NULL,NULL) аварийного завершения работы программы

1. Закрытие таблиц БД процедурой PrgDBa_closeAll().
2. Вызов процедуры PrgIni_End().

Инициализация объекта, работающего с таблицей типа PASSPORT для физических параметров.

Вызов процедуры

      AdrPar.Ini( (void*)(new classPPtable), N_PPtable )

Результат: NULL - обнаружена ошибка, код которой записан в переменную prg_err, иначе - адрес объекта в динамической памяти.

Инициализация объекта, работающего с таблицей типа DATA для физических параметров.

Вызов процедуры

    AdrPar.Ini( (void*)(new classPDtable), N_PDtable )

Результат: NULL - обнаружена ошибка, код которой записан в переменную prg_err, иначе - адрес объекта в динамической памяти.

Инициализация объекта, работающего с таблицей типа PASSPORT ля физических управляющих параметров.

Вызов процедуры

    AdrPar.Ini( (void*)(new classPPcontrol), N_PPcontrol )

Результат: NULL - обнаружена ошибка, код которой записан в переменную prg_err, иначе - адрес объекта в динамической памяти.

Инициализация объекта, работающего с таблицей типа DATA для физических управляющих параметров.

Вызов процедуры

    AdrPar.Ini( (void*)(new classPDcontrol), N_PDcontrol )

Результат: NULL - обнаружена ошибка, код которой записан в переменную prg_err, иначе - адрес объекта в динамической памяти.

Инициализация объекта, работающего с таблицей типа PASSPORT для технологических параметров.

Вызов процедуры

       AdrPar.Ini( (void*)(new classTPtable), N_TPtable )

Результат: NULL - обнаружена ошибка, код которой записан в переменную prg_err, иначе - адрес объекта в динамической памяти.

Инициализация объекта, работающего с таблицей типа DATA для технологических параметров.

Вызов процедуры

     AdrPar.Ini( (void*)(new classTDtable), N_TDtable )

Результат: NULL - обнаружена ошибка, код которой записан в переменную prg_err, иначе - адрес объекта в динамической памяти.

Инициализация объекта, работающего с таблицей типа PASSPORT для технологических измеряемых параметров.

Вызов процедуры

     AdrPar.Ini( (void*)(new classTPcontrol), N_TPcontrol )

Результат: NULL - обнаружена ошибка, код которой записан в переменную prg_err, иначе - адрес объекта в динамической памяти.

Инициализация объекта, работающего с таблицей типа DATA для технологических измеряемых параметров.

Вызов процедуры

    AdrPar.Ini( (void*)(new classTDcontrol), N_TDcontrol )

Результат: NULL - обнаружена ошибка, код которой записан в переменную prg_err, иначе - адрес объекта в динамической памяти.

1. Инициализация:
   • инициализация глобальных переменных и файла-протокола:

     PrgIni_Start( 1, narg, sarg );

   • инициализация глобальных переменных для работы со связанными режимами:

     PrgConnectRegime_Get( narg, sarg );

   • инициализация данных задачи:

     if (prg_err == RC_ERNO)
       if (FunIni( narg, sarg ))
       {
         if (prg_err == RC_ECOFF) prg_err=RC_ERNO;
       }

   • проверка наличия объектов и инициализация свойств объектов:

     if (prg_err == RC_ERNO)
     {
       if (AdrPar.NumIni()) AdrPar.DataIni();
       else
       {
         if (PrgDB_cmt())
           PrgFile_WriteAlarm(
             "ApplicationControl::MakeRun: no defined objects\n");
         prg_err=RC_ERLOAD;
       }
     }
     if (prg_err) prg_err |=RC_EXIT;

2. Управление:

   unsigned short int cmd;
   short int n;
   while (!(prg_err & ~RC_EXIT))
   {

   • получение команды пользователя:

     sleep( CMD_WAIT_SEC );
     if (AdrPar.GetCommand( &cmd )) goto Merr;
     if (cmd == CMD_ENDWORK) { prg_err |=RC_EXIT;  break; }

   • выполнение команды пользователя:

     n=(short int)((cmd >> 8) & 0x00ff); // выделить параметр команды
     switch ((cmd & 0x00ff))
     {
     case CMD_NEWDATA: // выполнить команду "новые данные"
       if (n) { if (CmdGetArchive( n )) break; } // было чтение архива
         else { if (CmdEdit()) break; }         // было редактирование
       AdrPar.SetResult( 0 );  break;
     case CMD_NEWPUTDATA: // выполнить сдвоенную команду
       if (n) { if (CmdGetArchivePut( n )) break; } // было чтение архива
         else { if (CmdEditPut()) break; }         // было редактирование
       AdrPar.SetResult( 0 );  break;
     case CMD_PUTDATA: // выполнить команду "execute"
       if (CmdPut()) break; 
       AdrPar.SetResult( 0 );  break;
     case CMD_GETREGIME: // получить данные из другого режима
       if (CmdGetRegime( n )) break;
       AdrPar.SetResult( 0 );  break;

   • если команды пользователя не было, то чтение значений параметров из других задач СУ:

     case CMD_NOTHING: FunCheckup();  break;
     } // конец switch

   • сообщение об ошибке:

     Merr:
     if (prg_err == RC_ERPROCESSOR) break;
     if (prg_err)
     { 
       if (PrgDB_cmt())
         PrgFile_WriteAlarm(
           "ApplicationControl::MakeRun: set error=%04x\n", prg_err );
       AdrPar.SetResult( prg_err );
     }

3. Завершение работы:

   } // конец while
   AdrPar.SetResult( prg_err );  FunEnd();

• если nplane=1, то читаются значения всех параметров;
  иначе из таблиц читаются только новые значения параметров процедурой

  AdrPar.DataReadNew();

• для выполнения алгоритма редактирования (проверки) значений параметров вызывается процедура

  FunEditOnly(narchive);

• если были прочитаны новые значения параметров, то проверенные значения параметров записываются в таблицы процедурой

  AdrPar.DataWriteNew();

    FunDataConvert();

    AdrPar.DataWriteRegime();

    MakeEdit(2,0);

    CmdEdit();
    MakePutOnly();

    CmdEdit(); 
    MakePutOnly();

    MakeEdit(2,narchive);

    MakeEdit(2,narchive); 
    MakePutOnly();

    AdrPar.DataGetRegime(nregime);