21 lines
441 B
Plaintext
21 lines
441 B
Plaintext
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 |