peterbruce
Legendary Poster
JDEList,
The following procedures and the table referenced by them are in our JDE databases, test and production, in the owner PSFTDBA - these objects are not custom. Does anyone know why they are there, or what they are for. Recently we had a compile error relating to the procedure DT_SETPROPERTYBYID and the declaration statement: X NUMBER(40). The DBA says that maximum value is 38 not 40. Can we change the value so that it will compile. Can we delete the three objects? The table is empty.
CREATE OR REPLACE PROCEDURE DT_SETPROPERTYBYID(PARAM_ID IN NUMBER,
PARAM_PROPERTY IN VARCHAR2,
PARAM_VALUE IN VARCHAR2,
PARAM_LVALUE IN LONG RAW) AS
BEGIN
DECLARE
X NUMBER(40);
BEGIN
SELECT COUNT(*)
INTO X
FROM MICROSOFTDTPROPERTIES
WHERE OBJECTID = PARAM_ID
AND PROPERTY = PARAM_PROPERTY;
IF X = 0 THEN
INSERT INTO MICROSOFTDTPROPERTIES
(ID, PROPERTY, OBJECTID, VALUE, LVALUE, VERSION)
VALUES
(MICROSOFTSEQDTPROPERTIES.NEXTVAL,
PARAM_PROPERTY,
PARAM_ID,
PARAM_VALUE,
PARAM_LVALUE,
0);
ELSE
UPDATE MICROSOFTDTPROPERTIES
SET VALUE = PARAM_VALUE,
LVALUE = PARAM_LVALUE,
VERSION = VERSION + 1
WHERE OBJECTID = PARAM_ID
AND PROPERTY = PARAM_PROPERTY;
END IF;
END;
END DT_SETPROPERTYBYID;
CREATE OR REPLACE PROCEDURE DT_DROPUSEROBJECTBYID(PARAM_ID IN NUMBER) AS
BEGIN
DELETE FROM MICROSOFTDTPROPERTIES WHERE OBJECTID = PARAM_ID;
END DT_DROPUSEROBJECTBYID;
The following procedures and the table referenced by them are in our JDE databases, test and production, in the owner PSFTDBA - these objects are not custom. Does anyone know why they are there, or what they are for. Recently we had a compile error relating to the procedure DT_SETPROPERTYBYID and the declaration statement: X NUMBER(40). The DBA says that maximum value is 38 not 40. Can we change the value so that it will compile. Can we delete the three objects? The table is empty.
CREATE OR REPLACE PROCEDURE DT_SETPROPERTYBYID(PARAM_ID IN NUMBER,
PARAM_PROPERTY IN VARCHAR2,
PARAM_VALUE IN VARCHAR2,
PARAM_LVALUE IN LONG RAW) AS
BEGIN
DECLARE
X NUMBER(40);
BEGIN
SELECT COUNT(*)
INTO X
FROM MICROSOFTDTPROPERTIES
WHERE OBJECTID = PARAM_ID
AND PROPERTY = PARAM_PROPERTY;
IF X = 0 THEN
INSERT INTO MICROSOFTDTPROPERTIES
(ID, PROPERTY, OBJECTID, VALUE, LVALUE, VERSION)
VALUES
(MICROSOFTSEQDTPROPERTIES.NEXTVAL,
PARAM_PROPERTY,
PARAM_ID,
PARAM_VALUE,
PARAM_LVALUE,
0);
ELSE
UPDATE MICROSOFTDTPROPERTIES
SET VALUE = PARAM_VALUE,
LVALUE = PARAM_LVALUE,
VERSION = VERSION + 1
WHERE OBJECTID = PARAM_ID
AND PROPERTY = PARAM_PROPERTY;
END IF;
END;
END DT_SETPROPERTYBYID;
CREATE OR REPLACE PROCEDURE DT_DROPUSEROBJECTBYID(PARAM_ID IN NUMBER) AS
BEGIN
DELETE FROM MICROSOFTDTPROPERTIES WHERE OBJECTID = PARAM_ID;
END DT_DROPUSEROBJECTBYID;