21 lines
407 B
Plaintext
21 lines
407 B
Plaintext
IMPORT util
|
|
|
|
FUNCTION medidas()
|
|
DEFINE pmedidas DYNAMIC ARRAY OF RECORD
|
|
cod_sec SMALLINT,
|
|
descripcion VARCHAR(60)
|
|
END RECORD,
|
|
i SMALLINT
|
|
|
|
DECLARE c1 CURSOR FOR
|
|
SELECT a.cod_sec,a.descripcion FROM iptb00030 a
|
|
WHERE a.status_t IS NULL
|
|
|
|
LET i = 1
|
|
FOREACH c1 INTO pmedidas[i].*
|
|
LET i = i + 1
|
|
END FOREACH
|
|
|
|
RETURN util.JSON.stringify(pmedidas)
|
|
END FUNCTION
|