Generating a Persistent Object

Syntax Syntax

```
report DEMO_CREATE_PERSISTENT.
```

selection-screen begin of screen 400 title TEXT-400.

```
parameters DELETE as checkbox.
```
```
selection-screen end of screen 400.
```

selection-screen begin of screen 500 title TEXT-500.

```
parameters COMMIT as checkbox.
```
```
selection-screen end of screen 500.
```
```
data WA_SPFLI type SPFLI.
```

data: CONNECTION type ref to CL_SPFLI_PERSISTENT,

        AGENT      type ref to CA_SPFLI_PERSISTENT.

```
data: EXC type ref to CX_ROOT,
```
```
      TEXT type STRING.
```
```
WA_SPFLI-CARRID     = 'LH'.
```
```
WA_SPFLI-CONNID     = '123'.
```
```
WA_SPFLI-COUNTRYFR  = 'DE'.
```
```
WA_SPFLI-CITYFROM   = 'FRANKFURT'.
```
```
WA_SPFLI-AIRPFROM   =  'FRA'.
```
```
WA_SPFLI-COUNTRYTO  = 'SG'.
```
```
WA_SPFLI-CITYTO     = 'SINGAPORE'.
```
```
WA_SPFLI-AIRPTO     = 'SIN'.
```
```
WA_SPFLI-FLTIME     = '740'.
```
```
WA_SPFLI-DEPTIME    = '234500'.
```
```
WA_SPFLI-ARRTIME    = '180000'.
```
```
WA_SPFLI-DISTANCE   = '10000'.
```
```
WA_SPFLI-DISTID     = 'KM'.
```
```
WA_SPFLI-FLTYPE     = ' '.
```
```
WA_SPFLI-PERIOD     = '1'.
```
```
    AGENT = CA_SPFLI_PERSISTENT=>AGENT.
```
```
try.
```

    CONNECTION = AGENT->GET_PERSISTENT(  I_CARRID = WA_SPFLI-CARRID

                                        I_CONNID = WA_SPFLI-CONNID ).

    message 'Connection already exists' type 'I'.

    call selection-screen 400 starting at 10 10.

```
    if DELETE = 'X'.
```
```
      try.
```

          AGENT->DELETE_PERSISTENT( I_CARRID = WA_SPFLI-CARRID

                                   I_CONNID = WA_SPFLI-CONNID ).

```
          commit work.
```
```
        catch CX_ROOT into EXC.
```
```
          TEXT = EXC->GET_TEXT( ).
```
```
          message TEXT type 'I'.
```
```
      endtry.
```
```
    endif.
```
```
  catch CX_ROOT into EXC.
```
```
    TEXT = EXC->GET_TEXT( ).
```
```
    message TEXT type 'I'.
```
```
    try.
```

        CONNECTION = AGENT->CREATE_PERSISTENT(

                       I_CARRID = WA_SPFLI-CARRID

                       I_CONNID = WA_SPFLI-CONNID

                       I_COUNTRYFR = WA_SPFLI-COUNTRYFR

                       I_CITYFROM = WA_SPFLI-CITYFROM

                       I_AIRPFROM = WA_SPFLI-AIRPFROM

                       I_COUNTRYTO = WA_SPFLI-COUNTRYTO

                       I_CITYTO = WA_SPFLI-CITYTO

                       I_AIRPTO = WA_SPFLI-AIRPTO

                       I_FLTIME = WA_SPFLI-FLTIME

                       I_DEPTIME = WA_SPFLI-DEPTIME

                       I_ARRTIME = WA_SPFLI-ARRTIME

                       I_DISTANCE = WA_SPFLI-DISTANCE

                       I_DISTID = WA_SPFLI-DISTID

                       I_FLTYPE = WA_SPFLI-FLTYPE

                       I_PERIOD = WA_SPFLI-PERIOD            ).

        call selection-screen 500 starting at 10 10.

```
        if COMMIT = 'X'.
```
```
          commit work.
```
```
        endif.
```

        message 'Connection created' type 'I'.

```
      catch CX_ROOT into EXC.
```
```
        TEXT = EXC->GET_TEXT( ).
```
```
        message TEXT type 'I'.
```
```
    endtry.
```
```
endtry.
```

End of the code.

A reference to the class actor of persistent class CL_SPFLI_PERSISTENT is assigned to the reference variable AGENT. The static constructor of the class CA_SPFLI_PERSISTENT generates this reference once only. The GET_PERSISTENT method checks whether there is a persistent object with this key in the database already. If so, it can be deleted using DELETE_PERSISTENT. If not, the system raises and catches the exception CX_OS_OBJECT_NOT_FOUND. Then it tries to create the object in the relevant CATCH block using CREATE_PERSISTENT. Note that the object is created in the database only when the COMMIT WORK statement is executed. If there is no COMMIT WORK statement, the program retains only the managed object, which is deleted from the database after the program ends (see Transaction Mode).