Доступные версии документации

Создать подчиненный канал

Назначение
 

Команда OCUR предназначена для создания подчиненного канала между клиентским приложением и СУБД ЛИНТЕР.

Параметры вызова

inter(CBL, NULL, NULL, {CondBuf }, NULL);

Входные данные

Входными данными является контрольный блок CBL.

В нем должны быть заполнены поля:

Имя поля Значение
Prior Приоритет подчиненного канала
NumChan Номер главного канала
Command "OCUR"
Node Имя ЛИНТЕР-сервера
PrzExe Режим обработки запросов
Выходные данные

Выходными данными является контрольный блок CBL.

В нем будут возвращены:

Имя поля Значение
CodErr Код завершения запроса к СУБД ЛИНТЕР
NumChan Номер канала
SysErr Код состояния ОС
Описание

В контрольном блоке (поле NumChan) устанавливается номер открытого подчиненного канала (курсора).

Команда OCUR должна использоваться только после успешного создания главного канала.

Приоритет подчиненного канала может быть выше главного канала.

Различные подчиненные каналы (курсоры) могут иметь отличающиеся друг от друга и от главного канала режимы обработки запросов.

Коды завершения
Код Описание
NOFREEKAN Нет свободных каналов для создания подчиненного канала (исчерпаны ресурсы СУБД ЛИНТЕР)
Пример формирования команды
#include <string.h>
#include <stdlib.h>
#include "inter.h"

L_LONG LinterOCUR(TCBL * pCBL, L_WORD NumChan, L_WORD Prior, L_LONG PrzExe)
  {
  memset(pCBL, 0, sizeof(TCBL));
  memcpy(pCBL->Command, "OCUR", 4);
  pCBL->NumChan = NumChan;
  pCBL->PrzExe = PrzExe;
  pCBL->Prior = Prior;
  pCBL->PrzExe &= ~Q_ASYNC;
  inter(pCBL, NULL, NULL, NULL, NULL);
  return pCBL->CodErr;
  }

Пример использования команды
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "inter.h"
#include "exlib.h"


#ifndef WINCE
int    main()
#else
int    exocur()
#endif
  {
  TCBL    CBLconnect,
          CBL1;
  L_CHAR    Name_Pass[] = "SYSTEM/MANAGER";
  L_CHAR    Node[] = "        ";
  L_WORD    Priority = 0;
  L_LONG  PrzExe = M_EXCLUSIVE | Q_ENCODE | M_BINARY;
  L_LONG  Err;

  memset(&CBLconnect,0,sizeof(TCBL));
  Err = LinterOPEN(&CBLconnect, Name_Pass, Node, Priority, PrzExe);
  if (Err != NORMAL)
    PrintError(&CBLconnect);
  printf("Connect to RDBMS Linter\n");

  Err = LinterOCUR(&CBL1, CBLconnect.NumChan, Priority, PrzExe);
  if (Err != NORMAL)
    PrintError(&CBL1);
  printf("Opening Channel\n");

  printf("End Example\n");

  return 0;
  }

Заметили ошибку?
Выделите текст и нажмите Ctrl + Enter