Parallelisierung von Requests

Achtung Achtung

Der obige ABAP-Code stellt ein vereinfachtes Beispiel dar, es handelt sich nicht um eine Vorlage für die professionelle Anwendung.

Ende der Warnung.

Verwendung

Sie haben die Möglichkeit, Requests parallel abzusetzen und auf alle Antworten gleichzeitig zu warten. Die Methode LISTEN ermittelt in diesem Fall, welcher Request aktuell beantwortet wurde.

Dieses Verfahren ist vorteilhaft, wenn viele Requests an verschiedene Server abgesetzt werden, deren Antwortzeit stark differiert.

Aktivitäten

Sie können das obige Programm dazu um die folgenden Zeilen ereitern. Dabei geben Sie zusätzliche Parameter an, die definieren, dass Sie mit der Methode LISTEN arbeiten und wie viele Requests Sie versenden wollen:

Syntax Syntax

parameters: listen type c default space,

```
            times  type i default '1',
```
```
…
```

Ende des Codes

Nun wird auf die Antworten der Requests gewartet. Sie werden in der Reihenfolge entgegengenommen, in der sie vom Server zurückkommen.

Syntax Syntax

*Receive via listen (#times parallel requests)

```
do times times.
```
```
  if not listen is initial.
```
```
    call method client->listen
```
```
      receiving  client = cclient
```

      exceptions http_communication_failure  = 1

                 http_no_open_connection     = 2

                 others                      = 3.

```
  if sy-subrc <> 0.
```
```
    call method client->get_last_error
```
```
      importing code    = subrc
```
```
                message = dummy.
```
```
    write: / listen’,
```

           / 'code: ', subrc, 'message: ', dummy.

```
    exit.
```
```
  endif.
```

Ende des Codes

Die eintreffenden Antworten werden wieder den Requests zugeordnet.

Syntax Syntax

* Assigning the responses to the requests

* If there are more requests, process all responses

```
    client = cclient.
```
```
    call method client->receive
```

exceptions http_communication_failure  = 1

           http_invalid_state          = 2

           http_processing_failed      = 3

           others                      = 4.

```
  if sy-subrc <> 0.
```
```
    call method client->get_last_error
```
```
       importing code    = subrc
```
```
                 message = dummy.
```

    write: / 'communication_error( receive )',

           / 'code: ', subrc, 'message: ', dummy.

```
    exit.
```
```
  endif.
```
```
...
```
```
enddo.
```

Ende des Codes

Anschließend können Sie eingeben, wie oft ein Request abgesetzt werden soll (Parameter times), und in der Ausgabe sehen Sie, in welcher Reihenfolge die Antworten empfangen wurden. Dies muss nicht die Reihenfolge sein, in der die Requests abgeschickt wurden.