GLOBALS
   DEFINE criterio_cta,selec_cta STRING,
          idx_cta,curr1_cta INT
   
   DEFINE cuentas1 DYNAMIC ARRAY OF RECORD 
          cuenta_no   VARCHAR(14),
          descripcion VARCHAR(14),
          nivel       SMALLINT
END RECORD       
END GLOBALS
FUNCTION busca_cuenta()
OPEN WINDOW cons_cuenta AT 10,5 WITH FORM "cgfmwd004" ATTRIBUTE
(BORDER,FORM LINE FIRST + 1,COMMENT LINE LAST)

 CONSTRUCT BY NAME criterio_cta ON descripcion
  IF int_flag THEN
     CALL msg(2)
     RETURN
  END IF
  LET selec_cta =
      "SELECT cuenta_no,descripcion,nivel FROM cgtb00001 ",
      "WHERE ",criterio_cta clipped," AND status_t is null ORDER BY 1"

     PREPARE comando FROM selec_cta
     DECLARE busca2 CURSOR FOR comando
     OPEN busca2

     LET idx_cta = 1
     WHILE STATUS != NOTFOUND
     FETCH busca2 INTO cuentas1[idx_cta].*
     IF status = notfound THEN
        EXIT WHILE
     END IF

    LET idx_cta = idx_cta + 1
    END WHILE
  IF int_flag THEN
     CALL msg(2)
     RETURN 
  END IF

  CALL set_count (idx_cta - 1)
  DISPLAY ARRAY cuentas1 TO s_cuentas.*
  LET curr1_cta = arr_curr()
  IF int_flag THEN
     
     CALL msg(2)
     RETURN
  END IF

 CLOSE WINDOW cons_cuenta
 END FUNCTION