FUNCTION reporte(xcodigo,xnombre)

  DEFINE xcodigo,xnombre VARCHAR(50) 
  START REPORT etiqueta TO "test.txt"
  OUTPUT TO REPORT etiqueta(xcodigo,xnombre)
  FINISH REPORT etiqueta
  CALL ver_archivo("test.txt")
END FUNCTION

REPORT etiqueta(z)
 DEFINE z RECORD
    codigo CHAR(25),
    nombre VARCHAR(100)
  END RECORD
 
 FORMAT
 ON EVERY ROW
   PRINT COLUMN 1, z.codigo,
         2 SPACES, z.nombre
         
END REPORT