/*
 * rc_alertpurge_dbio.pgc - 컷오프 이전 경보 정리 (rc_alertpurge_dbio), librcdbio.a.
 * ECPG; DELETE 범위 삭제. INFO 레벨 경보만 컷오프 이전 것을 제거하고 삭제 행수를 반환.
 */
#include <string.h>
#include <userlog.h>
#include "rc_alertpurge_dbio.h"

long rcdb_purge_alerts_before(const char *cutoff)
{
    EXEC SQL BEGIN DECLARE SECTION;
    char h_cut[16];
    EXEC SQL END DECLARE SECTION;
    strncpy(h_cut, cutoff, sizeof(h_cut)-1); h_cut[sizeof(h_cut)-1] = 0;
    EXEC SQL DELETE FROM rc_alert WHERE biz_date < :h_cut AND lvl = 'INFO';
    if (sqlca.sqlcode < 0) { userlog("rcdb_purge_alerts_before FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); return -1; }
    return (long) sqlca.sqlerrd[2];
}
