21 lines
400 B
Plaintext
21 lines
400 B
Plaintext
IMPORT util
|
|
|
|
FUNCTION areas()
|
|
DEFINE area DYNAMIC ARRAY OF RECORD
|
|
area_num SMALLINT,
|
|
nombre_area CHAR(30)
|
|
END RECORD,
|
|
i SMALLINT
|
|
|
|
DECLARE c1 CURSOR FOR
|
|
SELECT a.area_num,a.nombre_area FROM prtb00016 a
|
|
WHERE a.status_t IS NULL
|
|
|
|
LET i = 1
|
|
FOREACH c1 INTO area[i].*
|
|
LET i = i + 1
|
|
END FOREACH
|
|
|
|
RETURN util.JSON.stringify(area)
|
|
END FUNCTION
|