TABLES pcl1.

DATA: gs_gb  TYPE pllpb,
      gs_key TYPE pll10,
      gt_gk  TYPE TABLE OF plllk,
      gt_ge  TYPE TABLE OF pll15,
      gt_ga  TYPE TABLE OF pllga,
      gt_gp  TYPE TABLE OF pll14,
      gt_gpa TYPE TABLE OF pllpa.

pcl1-aedtm = sy-datum.
pcl1-uname = sy-uname.
pcl1-pgmid = sy-repid.
pcl1-versn = '01'.

gs_key-grunr = 1.
gs_key-pabrj = sy-datum+0(4).
gs_key-pabrp = sy-datum+4(2).

EXPORT gb FROM gs_gb
       ga FROM gt_ga
       ge FROM gt_ge
       gk FROM gt_gk
       gp FROM gt_gp
       gpa FROM gt_gpa
TO   DATABASE pcl1(g1) ID gs_key.

REPORT zhrr_delete_g1_test .

TABLES: prel, *prel, pcl1, pcl2.

DATA gv_srtfd LIKE  pcl1-srtfd.

PARAMETERS: i_srtfd    LIKE pll10.

INCLUDE:
rpc1g100
,rpppxd00
*,rpppxd10
.
DATA: BEGIN OF COMMON PART BUFFER.
INCLUDE RPPPXD10.
DATA: END OF COMMON PART.
INCLUDE
rpppxm00
.
START-OF-SELECTION.
  gv_srtfd = i_srtfd.
  CALL FUNCTION 'ENQUEUE_EPWUPD'
       EXPORTING
            relid          = 'G1'
            srtfd          = gv_srtfd
       EXCEPTIONS
            foreign_lock   = 4
            system_failure = 8.

  PERFORM read_g1.
END-OF-SELECTION.

CHECK NOT gk[] IS INITIAL.
LOOP AT gk.
  IF sy-tabix = 1.
    gk-ruw05 = 1234.
    MODIFY gk.
  ENDIF.
ENDLOOP.
PERFORM fill_gb.
PERFORM write_g1.
*---------------------------------------------------------------------*
*       FORM READ_G1                                                  *
*---------------------------------------------------------------------*
FORM read_g1.                                               "K11K085383
  g1-key = i_srtfd.
  REFRESH: ga.
  CLEAR: ga.
  rp-imp-c1-g1.
  IF rp-imp-g1-subrc NE 0.
    IF main-subrc EQ 12.
      MESSAGE a319(53) WITH 'G1'.          "Keine Cluster-Berechtigung
    ENDIF.
  ELSE.
    IF og1-version-number NE g1-version-number.
*      UPD_SUBRC = 4.
      MESSAGE a403(53) WITH og1-version-number.     "Umsetzen
    ENDIF.
  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  save_data
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM write_g1.                                              "K11K085383
  g1-version-saprl = sy-saprl.
  g1-version-uname = sy-uname.                              "ALRK016141
  g1-version-datum = sy-datum.                              "ALRK016141
  g1-version-uzeit = sy-uzeit.                              "ALRK016141
  g1-version-pgmid = sy-repid.                              "ALRK016141
  SORT  ga BY budat ruckr.
  SORT: gp, ge, gk.
  rp-exp-c1-g1.
  IF rp-imp-g1-subrc NE 0.
    IF main-subrc EQ 12.
      MESSAGE a319(53) WITH 'G1'.          "Keine Cluster-Berechtigung
    ELSE.
*      UPD_SUBRC = 4.
      MESSAGE a404(53) WITH g1-key.        "Export-Fehler
    ENDIF.
  ENDIF.
ENDFORM.
*---------------------------------------------------------------------*
*       FORM FILL_GB                                                  *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
FORM fill_gb.
  LOOP AT gk WHERE budat CO ' 0'.
    MOVE-CORRESPONDING gk TO gb.
    EXIT.
  ENDLOOP.
ENDFORM.

  PERFORM update_with_tables(sapup50r) TABLES tbuff
                                              buffer_dir
                                              psoper
                                              payr_buffer
                                              del_pclx_tab
                                        USING 'X'.

FORM write_g1.                                              "K11K085383
*  DATA: BEGIN OF PSOPER OCCURS 10.
*          INCLUDE STRUCTURE PRELP.
*  DATA: OPERA.
*  DATA: END OF PSOPER.
  g1-version-saprl = sy-saprl.
  g1-version-uname = sy-uname.                              "ALRK016141
  g1-version-datum = sy-datum.                              "ALRK016141
  g1-version-uzeit = sy-uzeit.                              "ALRK016141
  g1-version-pgmid = sy-repid.                              "ALRK016141
  SORT  ga BY budat ruckr.
  SORT: gp, ge, gk.
  rp-exp-c1-g1.
  IF rp-imp-g1-subrc EQ 0.
*   обновляем данные в PCL1(g1)
    PERFORM prepare_update USING 'V'.
*   а можно и так
*    PERFORM update_with_tables(sapup50r) TABLES tbuff
*                                                buffer_dir
*                                                psoper
*                                                payr_buffer
*                                                del_pclx_tab
*                                          USING 'X'.
  ELSE.
    IF main-subrc EQ 12.
      MESSAGE a319(53) WITH 'G1'.          "Keine Cluster-Berechtigung
    ELSE.
      MESSAGE a404(53) WITH g1-key.        "Export-Fehler
    ENDIF.
  ENDIF.
ENDFORM.