mikimiki01
19/06/08, 11:58:49
Hola de nuevo, vaya dia.... una vez mas gracias por vuestra ayuda.
El tema es el siguiente. Se intenta leer un fichero de un sistema fuera de sap, mas concretamente a un as400. La solucion que se ha buscado (entre otras) es la de realizar un OPEN DATABASE y luego un READ TABLE.
Os adjunto un codigo que funciona, pero la pega es que recoge la informacion del sistema al cual esta actualmente sap y me interesaria poderlo redirigir al sistema que a mi me interesa.
Alguien sabria como le puedo decir que realice el OPEN DATABASE del servidor que a mi me interesa?.
El codigo es el siguiente:
DATA:
* Ubicación fichero secuencial
file1(50) VALUE '/QSYS.LIB/SAPLIB.LIB/fichero01.FILE/miembro01.MBR'.
OPEN DATASET file1 FOR OUTPUT IN TEXT MODE.
IF sy-subrc NE 0 .
MESSAGE e999(zfidv) WITH 'No se puede abrir el fichero' file1.
ENDIF .
OPEN DATASET file1 FOR INPUT.
DO.
READ DATASET file1 INTO t_fichero.
IF sy-subrc NE 0.
EXIT.
ENDIF.
ENDDO.
¿Como puedo poner en el campo file1 a que servidor tengo que atacar?....
Gracias.
El tema es el siguiente. Se intenta leer un fichero de un sistema fuera de sap, mas concretamente a un as400. La solucion que se ha buscado (entre otras) es la de realizar un OPEN DATABASE y luego un READ TABLE.
Os adjunto un codigo que funciona, pero la pega es que recoge la informacion del sistema al cual esta actualmente sap y me interesaria poderlo redirigir al sistema que a mi me interesa.
Alguien sabria como le puedo decir que realice el OPEN DATABASE del servidor que a mi me interesa?.
El codigo es el siguiente:
DATA:
* Ubicación fichero secuencial
file1(50) VALUE '/QSYS.LIB/SAPLIB.LIB/fichero01.FILE/miembro01.MBR'.
OPEN DATASET file1 FOR OUTPUT IN TEXT MODE.
IF sy-subrc NE 0 .
MESSAGE e999(zfidv) WITH 'No se puede abrir el fichero' file1.
ENDIF .
OPEN DATASET file1 FOR INPUT.
DO.
READ DATASET file1 INTO t_fichero.
IF sy-subrc NE 0.
EXIT.
ENDIF.
ENDDO.
¿Como puedo poner en el campo file1 a que servidor tengo que atacar?....
Gracias.