Hello

this process gives error FOC1377
some idea? , thanks


..
..
ON TABLE HOLD AS ELIL
END
-RUN






FILEDEF DADES DISK elil.ftm
-RUN

MODIFY FILE LLETAUDI
FIXFORM LAREFE/15 LANUMP/2
MATCH LAREFE
ON MATCH DELETE
ON NOMATCH REJECT
DATA ON DADES
END
-RUN

Hi Joan,

The full error message for that error is -


0(FOC1377) UPDATE OR DELETE FOR KEYS=0 NOT SUPPORTED FOR SUFFIX %1%2%3%4
An error occurred during execution of a MODIFY procedure during an
attempt to issue an UPDATE or DELETE for a table that does not have a
unique key, because the RDBMS (specified by the file suffix) does not
support the syntactic construction "WHERE CURRENT OF cursor_name".

What type is your database LLETAUDI?

Thanks Tony

LLETAUDI its a ORACLE Database

FILE=LLETAUDI, SUFFIX=SQLORA ,$
SEGNAME=LLETAUDI, SEGTYPE=S0 ,$
FIELD=LAREFE ,LAREFE, ,A15 ,MISSING=OFF,$
FIELD=LANUMP ,LANUMP, ,A2 ,MISSING=OFF,$ FIELD=LACTCA ,LACTCA, ,A18 ,MISSING=OFF,$ .
.
.

and the code its a migration from FOCUS/UNIX to Webfocus

Joan,

make sure you've got KEYS=1 in the .acx and make sure you save the file with HOLD FORMAT ALPHA.

H Lidholm you are all the right

I had KEYS=0
I have changed by KEYS=2 in .acx

Bu as MODIFY did not work, i have had to change my code by


-*----------------------------------------
FILEDEF DADES DISK elil.ftm
-RUN

MAINTAIN FILE LLETAUDI AND elil
FOR ALL NEXT elil INTO DelStack;
FOR ALL DELETE LLETAUDI FROM DelStack;
END
-RUN
-*----------------------------------------

This way it works, thanks for everything

Joan,

As you changed the keys to 2 the MODIFY would probably have worked if -

MODIFY FILE LLETAUDI
FIXFORM LAREFE/15 LANUMP/2
MATCH LAREFE LANUMP
ON MATCH DELETE
ON NOMATCH REJECT
DATA ON DADES
END
-RUN

?????

Which is why Lidholm mentioned the KEYS=1 change.