16 lines
298 B
Plaintext
16 lines
298 B
Plaintext
FUNCTION locate_file()
|
|
|
|
DEFINE k RECORD
|
|
nombre_file STRING,
|
|
contenido BYTE
|
|
END RECORD
|
|
|
|
LOCATE k.contenido IN MEMORY
|
|
|
|
DECLARE busca_file CURSOR FOR
|
|
SELECT * FROM cob000 a ORDER BY a.num_req
|
|
|
|
FOREACH busca_file INTO K.*
|
|
|
|
END FOREACH
|
|
END FUNCTION |