Ver Mensaje Individual
  #1  
Viejo 19/06/08, 11:58:49
mikimiki01 mikimiki01 is offline
Junior Member
 
Fecha de Ingreso: sep 2006
Mensajes: 5
Unhappy OPEN DATABASE (acceso a un servidor remoto)

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.
Responder Con Cita