 EXEC P_ALTERPK 'PK_T_BCM_INVCHANGEACCTSET', 'T_BCM_INVCHANGEACCTSET', 'FID', '1';

 IF NOT EXISTS (SELECT 1 FROM KSQL_INDEXES WHERE KSQL_INDNAME = 'IDX_BCM_INVACCTSET_MODEL') CREATE INDEX IDX_BCM_INVACCTSET_MODEL ON T_BCM_INVCHANGEACCTSET ( FMODELID );