13 lines
310 B
Plaintext
13 lines
310 B
Plaintext
FUNCTION integridad()
|
|
DEFINE bandera,numero_msg SMALLINT
|
|
IF sqlca.sqlcode < 0 THEN
|
|
LET numero_msg = sqlca.sqlcode
|
|
CALL msg(numero_msg)
|
|
LET bandera = 1
|
|
LET status = 0
|
|
#SLEEP 2
|
|
RETURN
|
|
END IF
|
|
RETURN
|
|
END FUNCTION
|