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