Firebird 1.5 Soporta Case When else end?

[[duilioisola]]

Me he dado cuenta de que el when va justo despues del nombre del campo

Código SQL [-]
Select  Sucursales.IdSucursal as Org_ID,Acreditados.IdAcreditado as Acred_Id, Acreditados.rfc,
        Acreditados.CredecialElector as IFE, Acreditados.ApellidoPaterno as Primer_Ape,Acreditados.ApellidoMaterno as Segundo_Ape,
        Acreditados.Nombres as Nombre,Acreditados.Fecha_Nacimiento as Fecha_Nac,Acreditados.A_Estados as Edo_Nac,Acreditados.ASexo as Sexo,
        Acreditados.Telefono as Tel, Acreditados.Fax,Acreditados.Correo_Elec,
        Origen.Origen as Nacionalidad_Origen,EstadoCivil.CodigoEdoC as Cve_Edo_Civil,Acreditados.Fecha_Nacimiento as Fecha_Nac_txt,
        Acreditados.A_Estados as Edo_Res,Acreditados.A_Municipios as Municipio,Acreditados.A_Ejidos as Localidad,
        Acreditados.Direccion,Acreditados.A_Colonia as Colonia,Acreditados.Cp,Pagos.P_Producto as Metodologia,
        Pagos.P_Grupo as Nom_Grupo ,Acreditados.Estudios,Pagos.P_IdGiro as Actividad,Pagos.Ingreso_Semanal,
        Sucursales.IdSucursal,Sucursales.Sucursal ,Giros.Giro ,Pagos.MontoCredito as cantidad_beneficio,
        Pagos.FechaAltaCredito as fecha_beneficio ,Pagos.FechaUltimoPago as fecha_vencimiento,
        Pagos.P_InteresEmpresa as Tasa,Producto.P_PeriodoDescripcion as Frecuencia_Pagos,
       
case /*when*/ Producto.P_PeriodoDescripcion when 'SEMANAL' THEN 'S'  end as Frecuencia_Pagos,

        Producto.Producto as Tipo_credito,
        Pagos.P_NombreGrupoNoFormal as Bloque,Pagos.Renovacion as Ciclo
From    Sucursales,Acreditados,Pagos,Origen,EstadoCivil,Giros ,Producto
Where   Pagos.IdSucursal=Sucursales.IdSucursal and Pagos.P_IdAcreditado=Acreditados.IdAcreditado
        and Acreditados.A_IdOrigen=Origen.IdOrigen and Acreditados.A_IdEdoCivil=EstadoCivil.IdEstadoCivil
        and Pagos.P_IdGiro=Giros.IdGiros  and Pagos.Idperiodo=Producto.P_IdPeriodo

Pruébalo y me dices algo ...