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