 EXEC P_ALTERPK 'PK_HRIC_BASEIMPLENTRY', 'T_HRIC_BASEIMPLENTRY', 'FENTRYID', '1';

 IF NOT EXISTS (SELECT 1 FROM KSQL_INDEXES WHERE KSQL_INDNAME = 'IDX_HRIC_BASEIMPLENTRY') CREATE INDEX IDX_HRIC_BASEIMPLENTRY ON T_HRIC_BASEIMPLENTRY ( FIMPLITEMID );