|
Señores, una señal de ayuda por favor.
Estoy escribiendo directamente en un archivo
integrado, pero tengo dos problemas.
cuando realizo el open, lo hago de la siguiente
forma.
d
FileNam
S 256A
Varying
d FileNamA S * INZ(%ADDR(FileNam)) c
Eval FileNam =
%trim(fxml004) +
c %trim(fxml001) + c '.xml' c Eval Error=open(FileNamA:flag:mode:cp) c If Error = -1 c Eval RC = perror(FileNamP) c LeaveSr c EndIf con el anterior código, siempre error es igual a
-1
pero si realizo el siguiente código es todo
correcto.
d
FileNam
S
16A inz('/DR1/PRUEBA1.XML')
d FileNamA S * INZ(%ADDR(FileNam)) c
Eval
Error=open(FileNamA:flag:mode:cp)
c If Error = -1 c Eval RC = perror(FileNamP) c LeaveSr c EndIf El problema, es que no puedo quemar el nombre del
directorio, archivo dentro del programa, debe ser leyendo un archivo que
contiene dicho nombre.
El segundo problema, es al crear el nombre del
archivo en la carpeta, siempre lo crea como PRUEBA1.XMLØ
Gracias de antemano.
|
