Power Builder - concurrencia

UNA CONSULTA:

TENGO UNA APLICACION CON UN SOLO CORRELATIVO QUE TIENEN QUE USAR COMO 5 USUARIO, UNO EN VARIAS MOMENTOS .

TENGO UN MODULO DE REGISTRO : DE ALTAS, BAJAS, CAMBIOS , GRABAR Y BORRAR NORMAL UN ABC..

QUIERO UN SEGMENTO DE CODIGO PARA LA OPCION NUEVO Y GRABAR EN POWER BUILDER PODRIAN DARME ESE SEGMENTO DE CODIGO PF....CON LAS INSTRUCTIVAS NECESARIAS..OK..

AGRADECERE SU APORTE...

llama esta funcion desde tu codigo

// f_db_correlativo
// return integer

INTEGER LI_CORRELATIVO

LI_CORRELATIVO=0

SELECT ISNULL(CORRELATIVO,0) INTO :LI_CORRELATIVO
FROM DBO.GIS_CORRELATIVO
WHERE IDCORRELATIVO=1;

if sqlca.sqlcode = 0 then
sqlca.of_commit()

// podria ser commit;
// si no es pfc
else
sqlca.of_rollback()

end if

UPDATE DBO.GIS_CORRELATIVO
SET CORRELATIVO=:LI_CORRELATIVO+1
WHERE IDCORRELATIVO=1;

if sqlca.sqlcode = 0 then
sqlca.of_commit()
else
sqlca.of_rollback()

end if

RETURN LI_CORRELATIVO