From f3b2f0ec3318e18edc8ecf5b19238593bc07106c Mon Sep 17 00:00:00 2001
From: larshp <larshp@hotmail.com>
Date: Sun, 3 Jul 2016 07:04:59 +0000
Subject: [PATCH] new transport class, #271

---
 src/zabapgit.prog.abap           |  1 +
 src/zabapgit_gui.prog.abap       |  6 +++-
 src/zabapgit_transport.prog.abap | 19 +++++++++++++
 src/zabapgit_transport.prog.xml  | 48 ++++++++++++++++++++++++++++++++
 4 files changed, 73 insertions(+), 1 deletion(-)
 create mode 100644 src/zabapgit_transport.prog.abap
 create mode 100644 src/zabapgit_transport.prog.xml

diff --git a/src/zabapgit.prog.abap b/src/zabapgit.prog.abap
index a5c5e6756..5eb547fee 100644
--- a/src/zabapgit.prog.abap
+++ b/src/zabapgit.prog.abap
@@ -65,6 +65,7 @@ INCLUDE zabapgit_object.
 INCLUDE zabapgit_repo_impl.
 INCLUDE zabapgit_background.
 INCLUDE zabapgit_zip.
+INCLUDE zabapgit_transport.
 INCLUDE zabapgit_page.
 INCLUDE zabapgit_page_branch_overview.
 INCLUDE zabapgit_gui.
diff --git a/src/zabapgit_gui.prog.abap b/src/zabapgit_gui.prog.abap
index 685bc42f9..58b3c7cb3 100644
--- a/src/zabapgit_gui.prog.abap
+++ b/src/zabapgit_gui.prog.abap
@@ -1478,6 +1478,7 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
 
     lo_betasub->add( iv_txt = 'Database util'    iv_act = 'db' ).
     lo_betasub->add( iv_txt = 'Package to zip'   iv_act = 'packagezip' ).
+    lo_betasub->add( iv_txt = 'Transport to zip' iv_act = 'transportzip' ).
     lo_betasub->add( iv_txt = 'Background mode'  iv_act = 'background' ).
 
     ro_menu->add( iv_txt = 'Refresh all'      iv_act = 'refresh' ).
@@ -2461,9 +2462,12 @@ CLASS lcl_gui_router IMPLEMENTATION.
         lcl_zip=>export( io_repo = lcl_app=>repo_srv( )->get( lv_key )
                          iv_zip  = abap_false ).
         ev_state = gc_event_state-no_more_act.
-      WHEN 'packagezip'. "TODO refactor name ?
+      WHEN 'packagezip'.
         repo_package_zip( ).
         ev_state = gc_event_state-no_more_act.
+      WHEN 'transportzip'.
+        lcl_transport=>zip( ).
+        ev_state = gc_event_state-no_more_act.
       WHEN 'hide'.
         lv_key   = iv_getdata.
         lcl_app=>user( )->hide( lv_key ).
diff --git a/src/zabapgit_transport.prog.abap b/src/zabapgit_transport.prog.abap
new file mode 100644
index 000000000..e4fbe7e71
--- /dev/null
+++ b/src/zabapgit_transport.prog.abap
@@ -0,0 +1,19 @@
+*&---------------------------------------------------------------------*
+*&  Include           ZABAPGIT_TRANSPORT
+*&---------------------------------------------------------------------*
+
+CLASS lcl_transport DEFINITION.
+
+  PUBLIC SECTION.
+    CLASS-METHODS:
+      zip RAISING lcx_exception.
+
+ENDCLASS.
+
+CLASS lcl_transport IMPLEMENTATION.
+
+  METHOD zip.
+    BREAK-POINT.
+  ENDMETHOD.
+
+ENDCLASS.
\ No newline at end of file
diff --git a/src/zabapgit_transport.prog.xml b/src/zabapgit_transport.prog.xml
new file mode 100644
index 000000000..b31498d76
--- /dev/null
+++ b/src/zabapgit_transport.prog.xml
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="utf-8"?>
+<abapGit version="v1.0.0" serializer="LCL_OBJECT_PROG" serializer_version="v1.0.0">
+ <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
+  <asx:values>
+   <PROGDIR>
+    <NAME>ZABAPGIT_TRANSPORT</NAME>
+    <STATE>A</STATE>
+    <SQLX/>
+    <EDTX/>
+    <VARCL>X</VARCL>
+    <DBAPL/>
+    <DBNA/>
+    <CLAS/>
+    <TYPE/>
+    <OCCURS/>
+    <SUBC>I</SUBC>
+    <APPL/>
+    <SECU/>
+    <CNAM/>
+    <CDAT>0000-00-00</CDAT>
+    <UNAM/>
+    <UDAT>0000-00-00</UDAT>
+    <VERN/>
+    <LEVL/>
+    <RSTAT/>
+    <RMAND/>
+    <RLOAD>E</RLOAD>
+    <FIXPT/>
+    <SSET/>
+    <SDATE>0000-00-00</SDATE>
+    <STIME/>
+    <IDATE>0000-00-00</IDATE>
+    <ITIME/>
+    <LDBNAME/>
+    <UCCHECK>X</UCCHECK>
+   </PROGDIR>
+   <TPOOL>
+    <item>
+     <ID>R</ID>
+     <KEY/>
+     <ENTRY>Include ZABAPGIT_TRANSPORT</ENTRY>
+     <LENGTH>26</LENGTH>
+     <SPLIT/>
+    </item>
+   </TPOOL>
+  </asx:values>
+ </asx:abap>
+</abapGit>