Dateien auf dem Präsentationsserver überprüfen 

Um Informationen über Dateien auf dem Präsentationsserver und über das Betriebssystem des Präsentationsservers zu erhalten, verwenden Sie den Funktionsbaustein WS_QUERY. Die wichtigsten Parameter sind unten angegeben. Mehr Informationen finden Sie in der Dokumentation des Funktionsbausteins in Transaktion SE37.

Wichtige Importparameter

Parameter

Funktion

FILENAME

Dateiname für Abfragebefehle 'FE', 'FL' und 'DE'

QUERY

Abfragebefehl

Der Importparameter QUERY definiert den Abfragebefehl. Einige wichtige Befehle:

Exportparameter

Parameter

Funktion

RETURN

Ergebnis der Abfrage ('0' bedeutet 'nein' und '1' bedeutet 'ja')

Ausnahmeparameter

Parameter

Funktion

INV_QUERY

Falscher Wert für QUERY oder FILENAME

 

Angenommen, das für die Präsentation genutzte Betriebssystem ist WINDOWS NT, und die Datei SYSTEM.INI existiert wie hier dargestellt:

Das folgende Programm bestimmt einige Attribute des Betriebssystems und dieser Datei:

REPORT demo_data_ext_ws_query.

DATA:  fname(60) TYPE c, result(30) TYPE c, flength TYPE i.

fname = 'C:\WINNT35\SYSTEM.INI'.

CALL FUNCTION 'WS_QUERY'
     EXPORTING
          query     = 'OS'
     IMPORTING
          return    = result
     EXCEPTIONS
          inv_query = 1.

IF sy-subrc = 0.
  WRITE: / 'Operating System:', result.
ENDIF.

CALL FUNCTION 'WS_QUERY'
     EXPORTING
          query     = 'WS'
     IMPORTING
          return    = result
     EXCEPTIONS
          inv_query = 1.

IF sy-subrc = 0.
  WRITE: / 'Windows:', result.
ENDIF.

CALL FUNCTION 'WS_QUERY'
     EXPORTING
          filename  = fname
          query     = 'FE'
     IMPORTING
          return    = result
     EXCEPTIONS
          inv_query = 1.

IF sy-subrc = 0.
  WRITE: / 'File exists ?', result.
ENDIF.

CALL FUNCTION 'WS_QUERY'
     EXPORTING
          filename  = fname
          query     = 'FE'
     IMPORTING
          return    = result
     EXCEPTIONS
          inv_query = 1.

IF sy-subrc = 0.
  WRITE: / 'File exists ?', result.
ENDIF.

CALL FUNCTION 'WS_QUERY'
     EXPORTING
          filename  = fname
          query     = 'FL'
     IMPORTING
          return    = flength
     EXCEPTIONS
          inv_query = 1.

IF sy-subrc = 0.
  WRITE: / 'File Length:', flength.
ENDIF.

Ausgabe des Programms:

Operating System: NT

Windows: WN32

File exists ? 1

File Length: 210

Das Windows-System WN32 ist das Windows-System von WINDOWS NT. Informationen zu den Abkürzungen erhalten Sie, indem Sie den Cursor auf das Feld QUERY im Dokumentationsbild des Funktionsbausteins stellen und Hilfe anwählen.