13 lines
277 B
Plaintext
13 lines
277 B
Plaintext
FUNCTION verificar(codigo)
|
|
DEFINE codigo STRING,
|
|
existe VARCHAR(1)
|
|
|
|
SELECT DISTINCT a.codigo_bloque FROM intb00018 a
|
|
WHERE a.codigo_bloque = codigo
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
RETURN 'N'
|
|
ELSE
|
|
RETURN 'S'
|
|
END IF
|
|
END FUNCTION |