SoloCodigo

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.

Hola a todos y desde ya gracias por vuestra ayuda.

Os explico el tema que me trae de cabeza. Resulta que tengo que acceder a un sistema remoto y recuperar una informacion. Las sentencias o instrucciones que tengo para eso me funcionan correctamente, pero claro, resulta que no es solamente un acceso a un solo fichero, si no que pueden ser 20.

Ante esa cuestion pense que podria realizar un SELECT dinamico dentro de las EXEC SQL y ENDEXEC, pero no me deja. Os adjunto parte del codigo que utilizo para dicha transaccion.

FORM sub_bonificaciones.
  EXEC SQL.
    select count(*)
        into :t_estruc-contador
          from (select distinct campo1 from Fichero1
              where campo2 = :w_fecha and
                    campo3 = :t_estruc-bukrs and
                    campo4 = 1) as a
  ENDEXEC.
ENDFORM.


Este bloque funciona correctamente si encuentra Fichero1. Lo que yo quisiera es sustituir el Fichero1 por una variable que contenga en cada momento el archivo o fichero que me interesa inspeccionar.

Muchas gracias a todos.