IMPORT util

FUNCTION tipo_negocios()
  DEFINE ptipos DYNAMIC ARRAY OF RECORD
    tipo_negocio    SMALLINT,
    descripcion     VARCHAR(60)
  END RECORD,
   i SMALLINT

 DECLARE c1 CURSOR FOR
   SELECT a.tipo_negocio,a.descripcion FROM cctb00013 a
   WHERE a.status_t IS NULL
    
 LET i = 1
 FOREACH c1 INTO ptipos[i].*
   LET i = i + 1
 END FOREACH

 RETURN util.JSON.stringify(ptipos)
END FUNCTION