13 lines
353 B
Plaintext
13 lines
353 B
Plaintext
FUNCTION integridad()
|
|
DEFINE numero_msg INTEGER,
|
|
bandera SMALLINT
|
|
IF sqlca.sqlcode < 0 THEN
|
|
LET numero_msg = sqlca.sqlcode
|
|
CALL msg(numero_msg)
|
|
DISPLAY numero_msg AT 23,70
|
|
LET bandera = 1
|
|
SLEEP 2
|
|
RETURN
|
|
END IF
|
|
RETURN bandera
|
|
END FUNCTION |