meta data for this page
FldTypeHTML.ibeblock
execute ibeblock ( FType integer, FSubType integer, FLen integer, FScale integer, FSegmentSize integer, FCharLen integer, FPrecision integer, SQLDialect integer = 3) returns (TypeAsString varchar(200)) as begin TypeAsString = ยดยด; if ((FCharLen = 0) or (FCharLen is NULL)) then FCharLen = FLen; if (FType = 261) then TypeAsString = '<B>BLOB SUB_TYPE</B> ' || FSubType || ' <B>SEGMENT SIZE</B> ' || FSegmentSize; else if (FType = 14) then TypeAsString = '<B>CHAR</B>(' || FCharLen || ')'; else if (FType = 37) then TypeAsString = '<B>VARCHAR</B>(' || FCharLen || ')'; else if (FType = 12) then TypeAsString = '<B>DATE</B>'; else if (FType = 13) then TypeAsString = '<B>TIME</B>'; else if (FType = 35) then begin if (SQLDialect = 3) then TypeAsString = '<B>TIMESTAMP</B>'; else TypeAsString = '<B>DATE</B>'; end else if (FType in (7, 8, 27, 16)) then begin if ((FScale < 0) or (FSubType = 1) or (FSubType = 2)) then begin if (FSubType = 2) then TypeAsString = '<B>DECIMAL</B>'; else TypeAsString = '<B>NUMERIC</B>'; sPrec = FPrecision; if (FPrecision is NULL) then begin if (FType = 7) then sPrec = '4'; else if (FType = 8) then sPrec = '9'; else if (FType = 27) then sPrec = '15'; else if (FType = 16) then sPrec = '18'; end else sPrec = FPrecision; TypeAsString = TypeAsString || '(' || sPrec || ',' || (FScale * -1) || ')'; end else if (FType = 7) then TypeAsString = '<B>SMALLINT</B>'; else if (FType = 8) then TypeAsString = '<B>INTEGER</B>'; else if (FType = 27) then TypeAsString = '<B>DOUBLE PRECISION</B>'; else if (FType = 16) then TypeAsString = '<B>BIGINT</B>'; end else if (FType = 10) then TypeAsString = '<B>FLOAT</B>'; suspend; end