• Viernes 8 de Noviembre de 2024, 08:40

Autor Tema:  Open Database  (Leído 1369 veces)

mikimiki01

  • Nuevo Miembro
  • *
  • Mensajes: 3
    • Ver Perfil
Open Database
« en: Jueves 19 de Junio de 2008, 12:57 »
0
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.
    primera_linea = 'X'.  "LAURA 01/2007
    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.