 EXEC P_ALTERPK 'PK_T_POM_MULTYPEID', 'T_POM_MULTYPEID', 'FPKID', '1';

 IF NOT EXISTS (SELECT 1 FROM KSQL_INDEXES WHERE KSQL_INDNAME = 'IDX_POM_MULTYPEID_FK') CREATE INDEX IDX_POM_MULTYPEID_FK ON T_POM_MULTYPEID ( FENTRYID );