Progress - crear una vistaen una base de datos en 4gl progress 10.2b

Buen día,

Por medio del presente aprovecho para mandarles un cordial saludo y solicitarles de la manera mas atenta me indiquen si hay alguna instrucción en progress 4gl 10.2b para crear una vista. ya tengo la sintaxis de sql pero no se si se pueda hacer asi en progress.

SELECT P.CODIGO 'CODIGO', P.PRIMER_NOMBRE 'PRIMER NOMBRE',
P.SEGUNDO_NOMBRE 'SEGUNDO NOMBRE', P.PRIMER_APELLIDO 'PRIMER APELLIDO',
P.SEGUNDO_APELLIDO 'SEGUNDO APELLIDO', E.DESCRIPCION 'ESTADO CIVIL',
G.DESCRIPCION 'GENERO'
FROM PERSONA P, ESTADO_CIVIL E, GENERO G
WHERE P.COD_ESTADO_CIVIL = E.CODIGO AND P.COD_GENERO = G.GENEERO

CREATE OR REPLACE VIEW NOMBRE_VISTA AS
(– En este espacio va la consulta SQL que se realiza con
frecuencia);

CREATE OR REPLACE VIEW PERSONA_GENERO_ESTADO AS
(SELECT P.CODIGO 'CODIGO', P.PRIMER_NOMBRE 'PRIMER NOMBRE',
P.SEGUNDO_NOMBRE 'SEGUNDO NOMBRE',
P.PRIMER_APELLIDO 'PRIMER APELLIDO', P.SEGUNDO_APELLIDO 'SEGUNDO APELLIDO',
E.DESCRIPCION 'ESTADO CIVIL', G.DESCRIPCION 'GENERO'
FROM PERSONA P, ESTADO_CIVIL E, GENERO G
WHERE P.COD_ESTADO_CIVIL = E.CODIGO AND P.COD_GENERO = G.GENEERO);

y en una próxima vez que se requiera hacer esa consulta bastaría con el siguiente query:
SELECT * FROM PERSONA_GENERO_ESTADO

Agradezco de antemano la atención prestada al presente, en espera s sus comentarios.

Cuernavaca, Morelos, México

a mi me funciono esto, espero te funcione a ti, primero declare las variables en la vista y luego realice la consulta , saludos

--------------------------------------------------
-- Create View BI.inventa
--------------------------------------------------
Create view BI.invx (
Fecha,
sid,
line,
part,
class,
ordflag,
max1,
min1,
onord,
instk,
costave,
plist,
commitQty,
retcor,
defqty,
pccost,
pcore,
curhits) as
SELECT sysdate()as Fecha,
"sid",
"line",
"part",
"class",
case
when "ord-flag" = 1 then 1
else 0
end ordflag,
"max1",
"min1",
"onord",
"instk",
"costave",
"plist",
"commitQty",
"retcor",
"defqty",
"pccost",
"pcore",
"curhits"
FROM PUB."inv" inv
WHERE "max1" > 0
AND inv."sid">=1