Citación del post de
Adrianeloy
|
❞
JuanJuan77, yo "cargo" el fichero a un Item EDIT de esta forma:
Código COBOL:
CALL LOADFILE OF EDIT1 USING "ruta y nombre del archivo" IF PROGRAM-STATUS NOT = ZEROS DISPLAY "El archivo no existe".
De esto modo, no necesito agregar librerias y puedo leer hasta rutas y nombres de archivo con espacios en blanco.
NOTA: Al item EDIT1 lo limito a 1 caracter para que no lea ficheros pesados innecesariamente.
(O sea, entro su "Edit Item Style\ExStyle...", tildo "Limit Text" y le pongo 1 de valor)
|
al mover una ruta y nombre del archivo donde no existe el archivo me da un error y no puedo resolverlo.