Páginas filhas
  • LOG_db_column_isSerial

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Avalia a existência de Retornar se uma coluna em de tabela é serial no banco de dadosLogix.

Sintaxe

Bloco de código
LOG_db_column_existsisSerial( < l_tableName >, < l_columnName > ) => SMALLINT

...

Bloco de código
languageruby
themeConfluence
linenumberstrue
#------------------------------------#
 FUNCTION LOG_db_column_existsisSerial_test()
#------------------------------------#
   DEFINE l_tableName  table, l_column CHAR(50)    

    DEFINE l_columnName  CHAR(50)

IF LOG_db_column_isSerial("estoque_trans","num_seq") THEN
     LET l_tableName =CALL conout("log_usuarios_compl"

num_seq COLUNA EH SERIAL... ")
    ELSE
    #Pesquisa de uma tabela usando como parâmetro uma variável.
   IF CALL conout("num_seq COLUNA NAO EH SERIAL... ")
    END IF    

    IF LOG_db_column_existsisSerial(l"estoque_tableNametrans",l"num_columnNametransac") THEN
       CALL conout("Colunanum_transac encontradaCOLUNA no banco de dados.EH SERIAL... ")
    ELSE
       CALL conout("Colunanum_transac nãoCOLUNA encontradaNAO no banco de dados.EH SERIAL... ")
    END IF

   #Pesquisa de
 uma tabela usando valor
 fixo.
   IF LOG_db_column_existsisSerial("item_barra","colunacod_item_naobarra_existenteser") THEN
       CALL conout("Coluna encontrada no banco de dados.cod_item_barra_ser COLUNA EH SERIAL... ")
    ELSE
       CALL conout("Coluna não encontrada no banco de dados.cod_item_barra_ser COLUNA NAO EH SERIAL... ")
    END IF

 END FUNCTION

Informações

Fontes: dbinfo.4gl, dbinfo.prw

...