SELECT
    KK1091.IDO_DIV
    ,SUBSTR(KK1091.PRG_DTM, 1, 8)
    ,KK1091.MK_FLG
    ,KK1091.SVC_KEI_NO
FROM
    KK_T_PRG KK1091
WHERE KK1091.PRG_DTM >= 'ZZZZZ'