From 3a46fe564fa0ab920d285323d83b6fd95276a2c2 Mon Sep 17 00:00:00 2001
From: perry.werneck@gmail.com <perry.werneck@gmail.com@d25448e0-c022-0410-b998-a785f7053de0>
Date: Wed, 12 Jun 2013 14:11:31 +0000
Subject: [PATCH] Implementando metodos no plugin rexx

---
 po/pt_BR.po                             | 72 ++++++++++++++++++++++++++++++++++++------------------------------------
 pw3270.cbp                              |  1 -
 src/include/lib3270.h                   |  2 +-
 src/include/pw3270/ipcpackets.h         |  3 ++-
 src/lib3270/ctlr.c                      |  5 +++++
 src/plugins/dbus3270/gobject.c          |  8 +++++++-
 src/plugins/dbus3270/pw3270dbus.xml     |  5 +++++
 src/plugins/dbus3270/service.h          |  1 +
 src/plugins/hllapi/pluginmain.c         |  5 +++++
 src/plugins/rx3270/local.cc             | 10 ++++++++++
 src/plugins/rx3270/pluginmain.cc        |  6 ++++++
 src/plugins/rx3270/remote.cc            | 30 ++++++++++++++++++++++++++++++
 src/plugins/rx3270/rexx_methods.cc      | 13 +++++++++++++
 src/plugins/rx3270/rx3270.cls           |  1 +
 src/plugins/rx3270/rx3270.h             |  2 ++
 src/plugins/rx3270/rxapimain.cc         |  1 +
 src/plugins/rx3270/sample/clipboard.rex | 14 +++++++++++++-
 17 files changed, 138 insertions(+), 41 deletions(-)

diff --git a/po/pt_BR.po b/po/pt_BR.po
index 3c7a815..9637a40 100644
--- a/po/pt_BR.po
+++ b/po/pt_BR.po
@@ -5,7 +5,7 @@ msgid ""
 msgstr ""
 "Project-Id-Version: pw3270 5.0\n"
 "Report-Msgid-Bugs-To: \n"
-"POT-Creation-Date: 2013-06-05 12:32-0300\n"
+"POT-Creation-Date: 2013-06-12 09:54-0300\n"
 "PO-Revision-Date: 2013-05-08 14:30-0300\n"
 "Last-Translator: Perry Werneck <perry.werneck@gmail.com>\n"
 "Language-Team: Português <>\n"
@@ -83,7 +83,7 @@ msgstr "%s: Tabulação vertical não é suportada"
 msgid "%s: unknown family %d"
 msgstr "%s: Familia %d é inválida"
 
-#: telnet.c:1100
+#: telnet.c:1160
 #, c-format
 msgid "%s:%d"
 msgstr "%s:%d"
@@ -291,7 +291,7 @@ msgstr "Portal do Software Público Brasileiro"
 msgid "Break"
 msgstr "Break"
 
-#: telnet.c:2068
+#: telnet.c:2128
 msgid "Broken pipe"
 msgstr "Conexão interrompida"
 
@@ -324,7 +324,7 @@ msgstr "At_ual"
 msgid "Can't accept unnamed %s"
 msgstr "Não posso aceitar elemento %s sem nome"
 
-#: telnet.c:614
+#: telnet.c:674
 #, c-format
 msgid "Can't connect to %s:%d"
 msgstr "Não foi possível conectar a %s:%d"
@@ -333,7 +333,7 @@ msgstr "Não foi possível conectar a %s:%d"
 msgid "Can't connect to host"
 msgstr "Não foi possível conectar ao servidor"
 
-#: v3270/selection.c:387
+#: v3270/selection.c:425
 #, c-format
 msgid "Can't convert line %d from %s to %s"
 msgstr "Não foi possível converter a linha %d de %s para %s"
@@ -428,7 +428,7 @@ msgstr "Não é possível usar a Winsock versão %d.%d"
 msgid "Cancelled by user"
 msgstr "Cancelado pelo usuário"
 
-#: telnet.c:648
+#: telnet.c:708
 msgid "Cannot create socket handle"
 msgstr "Não foi possível criar um manipulador de socket"
 
@@ -466,7 +466,7 @@ msgstr "Certificado revogado"
 msgid "Certificate signature failure"
 msgstr "Falha na assinatura do certificado"
 
-#: v3270/selection.c:389
+#: v3270/selection.c:427
 msgid "Charset error"
 msgstr "Erro de codificação de caracteres"
 
@@ -503,7 +503,7 @@ msgstr "Completo"
 msgid "Connect on startup"
 msgstr "Conectar ao iniciar"
 
-#: telnet.c:2072
+#: telnet.c:2132
 msgid "Connection reset by peer"
 msgstr "Conexão foi cancelada pelo servidor"
 
@@ -576,7 +576,7 @@ msgstr "Padrão"
 msgid "Delete field"
 msgstr "Apagar campo"
 
-#: telnet.c:1743
+#: telnet.c:1803
 msgid "Device type rejected"
 msgstr "Tipo de dispositivo rejeitado"
 
@@ -584,7 +584,7 @@ msgstr "Tipo de dispositivo rejeitado"
 msgid "Disconnected from host"
 msgstr "Desconectado do servidor"
 
-#: telnet.c:1318
+#: telnet.c:1378
 msgid "EOR received when not in 3270 mode, ignored."
 msgstr "EOR recebido fora do modo 3270, ignorado."
 
@@ -632,7 +632,7 @@ msgstr "Apagar até o final do campo"
 msgid "Erase to end of line"
 msgstr "Apagar até o final da linha"
 
-#: print.c:238 v3270/widget.c:215 util.c:994
+#: print.c:238 v3270/widget.c:215 util.c:1009
 msgid "Error"
 msgstr "Erro"
 
@@ -651,12 +651,12 @@ msgstr "Erro \"%s\" gravando arquivo local (rc=%d)"
 msgid "Error %d resolving %s"
 msgstr "Erro %d resolvendo %s"
 
-#: telnet.c:3056 telnet.c:3067
+#: telnet.c:3116 telnet.c:3127
 #, c-format
 msgid "Error in fcntl(%s) when setting non blocking mode"
 msgstr "Erro em fcntl(%s) ao ativar o modo não blocante"
 
-#: telnet.c:3046
+#: telnet.c:3106
 #, c-format
 msgid "Error in ioctl(%s) when setting no blocking mode"
 msgstr "Erro em ioctl(%s) ao ativar o modo não blocante"
@@ -780,7 +780,7 @@ msgstr "Ajuda"
 msgid "Host disconnected, transfer cancelled"
 msgstr "Servidor desconectou, transferência cancelada"
 
-#: telnet.c:1801
+#: telnet.c:1861
 msgid "Host illegally added function(s)"
 msgstr "Host illegally added function(s)"
 
@@ -792,11 +792,11 @@ msgstr "Servidor é AS_400"
 msgid "Host is TSO"
 msgstr "Servidor é TSO"
 
-#: telnet.c:1726
+#: telnet.c:1786
 msgid "Host rejected device type or request type"
 msgstr "Servidor rejeitou o tipo de dispositivo ou requisição"
 
-#: telnet.c:1739
+#: telnet.c:1799
 msgid "Host rejected resource(s)"
 msgstr "Servidor rejeitou recurso(s)"
 
@@ -946,11 +946,11 @@ msgstr "Mostarda"
 msgid "N/A"
 msgstr "N/A"
 
-#: telnet.c:359 telnet.c:618
+#: telnet.c:359 telnet.c:678
 msgid "Network error"
 msgstr "Erro de rede"
 
-#: telnet.c:315 telnet.c:326 telnet.c:647 telnet.c:658
+#: telnet.c:315 telnet.c:326 telnet.c:707 telnet.c:718
 msgid "Network startup error"
 msgstr "Erro ao iniciar a rede"
 
@@ -1464,15 +1464,15 @@ msgstr "SOCKS5 Proxy: xmit version 5 nmethods 1 (no auth)\n"
 msgid "SOCKS5 proxy: %s/%u: %s"
 msgstr "SOCKS5 proxy: %s/%u: %s"
 
-#: telnet.c:1083
+#: telnet.c:1143
 msgid "SSL Error"
 msgstr "Erro SSL"
 
-#: telnet.c:1083
+#: telnet.c:1143
 msgid "SSL Read error"
 msgstr "Erro de leitura SSL"
 
-#: telnet.c:773 telnet.c:787
+#: telnet.c:833 telnet.c:847
 msgid "SSL connect failed!"
 msgstr "Conexão SSL falhou"
 
@@ -1480,15 +1480,15 @@ msgstr "Conexão SSL falhou"
 msgid "SSL error"
 msgstr "Erro SSL"
 
-#: telnet.c:746
+#: telnet.c:806
 msgid "SSL init failed!"
 msgstr "Inicialização SSL falhou"
 
-#: telnet.c:755
+#: telnet.c:815
 msgid "SSL_set_fd failed!"
 msgstr "SSL_set_fd falhou!"
 
-#: telnet.c:2058
+#: telnet.c:2118
 #, c-format
 msgid ""
 "SSL_write:\n"
@@ -1637,11 +1637,11 @@ msgstr "Mostrar padrão de teste"
 msgid "Smart paste"
 msgstr "Colar inteligente"
 
-#: telnet.c:1104
+#: telnet.c:1164
 msgid "Socket read error"
 msgstr "Erro ao ler dados da rede"
 
-#: telnet.c:2079
+#: telnet.c:2139
 msgid "Socket write error"
 msgstr "Erro ao enviar dados para a rede"
 
@@ -1669,7 +1669,7 @@ msgstr "Tipo de servidor:"
 msgid "TELNET Proxy: send error"
 msgstr "TELNET Proxy: Erro ao enviar"
 
-#: telnet.c:3253
+#: telnet.c:3313
 msgid "TLS negotiation failure"
 msgstr "Negociação TLS falhou"
 
@@ -2070,7 +2070,7 @@ msgstr "Alvo inesperado \"%s\""
 msgid "Unexpected type %d in typeahead queue"
 msgstr "Tipo inesperado %d na fila de teclado"
 
-#: ctlr.c:527
+#: ctlr.c:583
 #, c-format
 msgid "Unknown 3270 Data Stream command: 0x%X"
 msgstr "Unknown 3270 Data Stream command: 0x%X"
@@ -2102,7 +2102,7 @@ msgstr ""
 "Servidor desconhecido:\n"
 "%s"
 
-#: telnet.c:489
+#: telnet.c:549
 #, c-format
 msgid "Unknown passthru host: %s"
 msgstr "Servidor \"passthru\" desconhecido: %s"
@@ -2112,7 +2112,7 @@ msgstr "Servidor \"passthru\" desconhecido: %s"
 msgid "Unknown popup type \"%s\""
 msgstr "Tipo de popup \"%s\" não é conhecido"
 
-#: telnet.c:518 resolver.c:147
+#: telnet.c:578 resolver.c:147
 #, c-format
 msgid "Unknown port number or service: %s"
 msgstr "Número de porta ou serviço desconhecido: %s"
@@ -2125,7 +2125,7 @@ msgstr "Unsupported RPQ term"
 msgid "Unsupported certificate purpose"
 msgstr "Finalidade do certificado não é suportada"
 
-#: telnet.c:474
+#: telnet.c:534
 msgid "Unsupported passthru host session"
 msgstr "Unsupported passthru host session"
 
@@ -2150,7 +2150,7 @@ msgstr "Versão %s - Revisão %s"
 msgid "View Field Delimiters"
 msgstr "Mostrar delimitadores de campo"
 
-#: telnet.c:659
+#: telnet.c:719
 msgid "WSAEventSelect failed"
 msgstr "WSAEventSelect falhou"
 
@@ -2238,7 +2238,7 @@ msgstr "_Acrescentar"
 msgid "_Browse"
 msgstr "_Procurar"
 
-#: hostdialog.c:232
+#: hostdialog.c:250
 msgid "_Color table:"
 msgstr "Tabela de cores:"
 
@@ -2343,12 +2343,12 @@ msgstr "um atributo \"action\""
 msgid "select() failed when dispatching events"
 msgstr "select() failed when dispatching events"
 
-#: telnet.c:569 telnet.c:575 telnet.c:582
+#: telnet.c:629 telnet.c:635 telnet.c:642
 #, c-format
 msgid "setsockopt(%s)"
 msgstr "setsockopt(%s)"
 
-#: telnet.c:562
+#: telnet.c:622
 msgid "socket"
 msgstr "socket"
 
@@ -2356,7 +2356,7 @@ msgstr "socket"
 msgid "translator-credits"
 msgstr "translator-credits"
 
-#: telnet.c:1079
+#: telnet.c:1139
 msgid "unknown error"
 msgstr "Erro desconhecido"
 
diff --git a/pw3270.cbp b/pw3270.cbp
index 0e4dde3..15e0202 100644
--- a/pw3270.cbp
+++ b/pw3270.cbp
@@ -242,7 +242,6 @@
 			<Option compilerVar="CC" />
 		</Unit>
 		<Unit filename="src/plugins/dbus3270/daemon.h" />
-		<Unit filename="src/plugins/dbus3270/dbus-glue.h" />
 		<Unit filename="src/plugins/dbus3270/globals.h" />
 		<Unit filename="src/plugins/dbus3270/gobject.c">
 			<Option compilerVar="CC" />
diff --git a/src/include/lib3270.h b/src/include/lib3270.h
index 868af9f..d5a75bd 100644
--- a/src/include/lib3270.h
+++ b/src/include/lib3270.h
@@ -872,7 +872,7 @@
 	 * Find the next unprotected field.
 	 *
 	 * @param hSession	Session handle.
-	 * @param baddr0	Search start addr.
+	 * @param baddr0	Search start addr (-1 to use current cursor position).
 	 *
 	 * @return address following the unprotected attribute byte, or 0 if no nonzero-width unprotected field can be found.
 	 *
diff --git a/src/include/pw3270/ipcpackets.h b/src/include/pw3270/ipcpackets.h
index 84e59da..2d3d2ca 100644
--- a/src/include/pw3270/ipcpackets.h
+++ b/src/include/pw3270/ipcpackets.h
@@ -51,7 +51,8 @@
 		HLLAPI_PACKET_GET_CSTATE,
 		HLLAPI_PACKET_IS_READY,
		HLLAPI_PACKET_SET_TOGGLE,
 		HLLAPI_PACKET_FIELD_START,
-		HLLAPI_PACKET_FIELD_LEN,
+		HLLAPI_PACKET_FIELD_LEN,
+		HLLAPI_PACKET_NEXT_UNPROTECTED,
 
 		HLLAPI_PACKET_INVALID
 
diff --git a/src/lib3270/ctlr.c b/src/lib3270/ctlr.c
index 6e4f8eb..d0dd7f0 100644
--- a/src/lib3270/ctlr.c
+++ b/src/lib3270/ctlr.c
@@ -443,6 +443,11 @@ LIB3270_EXPORT int lib3270_get_next_unprotected(H3270 *hSession, int baddr0)
 {
 	register int baddr, nbaddr;
 
+    CHECK_SESSION_HANDLE(hSession);
+
+    if(baddr0 < 0)
+        baddr0 = hSession->cursor_addr;
+
 	nbaddr = baddr0;
 	do
 	{
diff --git a/src/plugins/dbus3270/gobject.c b/src/plugins/dbus3270/gobject.c
index 1e6ea0c..46c426f 100644
--- a/src/plugins/dbus3270/gobject.c
+++ b/src/plugins/dbus3270/gobject.c
@@ -355,8 +355,14 @@ void pw3270_dbus_pa_key(PW3270Dbus *object, int key, DBusGMethodInvocation *cont
 	dbus_g_method_return(context,lib3270_get_field_start(pw3270_dbus_get_session_handle(object),baddr));
  }
 
-void pw3270_dbus_get_field_length(PW3270Dbus *object, int baddr, DBusGMethodInvocation *context)
+ void pw3270_dbus_get_field_length(PW3270Dbus *object, int baddr, DBusGMethodInvocation *context)
  {
 	trace("%s object=%p context=%p",__FUNCTION__,object,context);
 	dbus_g_method_return(context,lib3270_get_field_len(pw3270_dbus_get_session_handle(object),baddr));
  }
+
+ void pw3270_dbus_get_next_unprotected(PW3270Dbus *object, int baddr, DBusGMethodInvocation *context)
+ {
+	trace("%s object=%p context=%p",__FUNCTION__,object,context);
+	dbus_g_method_return(context,lib3270_get_next_unprotected(pw3270_dbus_get_session_handle(object),baddr));
+ }
diff --git a/src/plugins/dbus3270/pw3270dbus.xml b/src/plugins/dbus3270/pw3270dbus.xml
index 4108b13..26a92f7 100644
--- a/src/plugins/dbus3270/pw3270dbus.xml
+++ b/src/plugins/dbus3270/pw3270dbus.xml
@@ -93,6 +93,11 @@
       <annotation name="org.freedesktop.DBus.GLib.Async" value="true"/>
       <arg type="i" name="addr" direction="out" />
     </method>
+    <method name="getNextUnprotected">
+      <annotation name="org.freedesktop.DBus.GLib.Async" value="true"/>
+      <arg type="i" name="addr" direction="in" />
+      <arg type="i" name="result" direction="out" />
+    </method>
     <method name="setToggle">
       <annotation name="org.freedesktop.DBus.GLib.Async" value="true"/>
       <arg type="i" name="id" direction="in" />
diff --git a/src/plugins/dbus3270/service.h b/src/plugins/dbus3270/service.h
index 515f247..dcf7d1b 100644
--- a/src/plugins/dbus3270/service.h
+++ b/src/plugins/dbus3270/service.h
@@ -87,6 +87,7 @@
 
 	void		  pw3270_dbus_get_field_start(PW3270Dbus *object, int baddr, DBusGMethodInvocation *context);
 	void		  pw3270_dbus_get_field_length(PW3270Dbus *object, int baddr, DBusGMethodInvocation *context);
+    void          pw3270_dbus_get_next_unprotected(PW3270Dbus *object, int baddr, DBusGMethodInvocation *context);
 
 	// Actions
 	void		  pw3270_dbus_enter(PW3270Dbus *object, DBusGMethodInvocation *context);
diff --git a/src/plugins/hllapi/pluginmain.c b/src/plugins/hllapi/pluginmain.c
index 9e20e48..87ee6c2 100644
--- a/src/plugins/hllapi/pluginmain.c
+++ b/src/plugins/hllapi/pluginmain.c
@@ -294,6 +294,11 @@
 												((struct hllapi_packet_addr *) source->buffer)->addr));
 		break;
 
+    case HLLAPI_PACKET_NEXT_UNPROTECTED:
+		send_result(source,lib3270_get_next_unprotected(lib3270_get_default_session_handle(),
+												((struct hllapi_packet_addr *) source->buffer)->addr));
+		break;
+
 	default:
 		send_result(source, EINVAL);
 		g_message("Invalid remote request (id=%d)",source->buffer[0]);
diff --git a/src/plugins/rx3270/local.cc b/src/plugins/rx3270/local.cc
index ce14a91..01d6f02 100644
--- a/src/plugins/rx3270/local.cc
+++ b/src/plugins/rx3270/local.cc
@@ -86,6 +86,7 @@
 
 	int               get_field_start(int baddr = -1);
 	int               get_field_len(int baddr = -1);
+	int               get_next_unprotected(int baddr = -1);
 
  private:
 
@@ -112,6 +113,7 @@
 	int             (*_set_cursor_addr)(H3270 *h, int addr);
 	int             (*_get_cursor_addr)(H3270 *h);
     int             (*_emulate_input)(H3270 *session, const char *s, int len, int pasting);
+    int             (*_get_next_unprotected)(H3270 *hSession, int baddr0);
 
 #ifdef WIN32
 	HMODULE			  hModule;
@@ -244,6 +246,7 @@ dynamic::dynamic()
 		{ (void **) & _set_cursor_addr,			"lib3270_set_cursor_address"		},
 		{ (void **) & _get_cursor_addr,			"lib3270_get_cursor_address"		},
 		{ (void **) & _emulate_input,			"lib3270_emulate_input"	        	},
+		{ (void **) & _get_next_unprotected,	"lib3270_get_next_unprotected"	   	},
 
 	};
 
@@ -562,3 +565,10 @@ int dynamic::emulate_input(const char *str)
         return _emulate_input(hSession,str,-1,1);
     return -1;
 }
+
+int dynamic::get_next_unprotected(int baddr)
+{
+    if(hModule)
+        return _get_next_unprotected(hSession,baddr);
+    return -1;
+}
diff --git a/src/plugins/rx3270/pluginmain.cc b/src/plugins/rx3270/pluginmain.cc
index 77b18cb..92980ac 100644
--- a/src/plugins/rx3270/pluginmain.cc
+++ b/src/plugins/rx3270/pluginmain.cc
@@ -99,6 +99,7 @@
 
 	int               get_field_start(int baddr = -1);
 	int               get_field_len(int baddr = -1);
+	int               get_next_unprotected(int baddr = -1);
 
 	int               set_copy(const char *text);
 	char            * get_copy(void);
@@ -300,6 +301,11 @@
 	return lib3270_emulate_input(hSession, str, -1, 1);
  }
 
+ int plugin::get_next_unprotected(int baddr)
+ {
+     return lib3270_get_next_unprotected(hSession,baddr);
+ }
+
  static int REXXENTRY Rexx_IO_exit(RexxExitContext *context, int exitnumber, int subfunction, PEXIT parmBlock)
  {
 	trace("%s call with ExitNumber: %d Subfunction: %d",__FUNCTION__,(int) exitnumber, (int) subfunction);
diff --git a/src/plugins/rx3270/remote.cc b/src/plugins/rx3270/remote.cc
index b504c09..a23fd71 100644
--- a/src/plugins/rx3270/remote.cc
+++ b/src/plugins/rx3270/remote.cc
@@ -81,6 +81,7 @@
 
 	int               get_field_start(int baddr = -1);
 	int               get_field_len(int baddr = -1);
+	int               get_next_unprotected(int baddr = -1);
 
  private:
 #if defined(WIN32)
@@ -1125,3 +1126,32 @@ int remote::get_cursor_addr(void)
 
 #endif
 }
+
+int remote::get_next_unprotected(int baddr)
+{
+#if defined(WIN32)
+
+	if(hPipe != INVALID_HANDLE_VALUE)
+	{
+		struct hllapi_packet_addr       query		= { HLLAPI_PACKET_NEXT_UNPROTECTED, (unsigned short) baddr };
+		struct hllapi_packet_result		response;
+		DWORD							cbSize		= sizeof(query);
+		TransactNamedPipe(hPipe,(LPVOID) &query, cbSize, &response, sizeof(response), &cbSize,NULL);
+		return response.rc;
+	}
+
+#elif defined(HAVE_DBUS)
+
+	dbus_int32_t k = (dbus_int32_t) baddr;
+
+	DBusMessage * msg = create_message("getNextUnprotected");
+	if(msg)
+	{
+		dbus_message_append_args(msg, DBUS_TYPE_INT32, &k, DBUS_TYPE_INVALID);
+		return get_intval(call(msg));
+	}
+
+#endif
+
+    return -1;
+}
diff --git a/src/plugins/rx3270/rexx_methods.cc b/src/plugins/rx3270/rexx_methods.cc
index bf3ef92..34b4665 100644
--- a/src/plugins/rx3270/rexx_methods.cc
+++ b/src/plugins/rx3270/rexx_methods.cc
@@ -411,6 +411,19 @@ RexxMethod2(int, rx3270_method_get_field_start, CSELF, sessionPtr, OPTIONAL_int,
 	return hSession->get_field_start(baddr)+1;
 }
 
+RexxMethod2(int, rx3270_method_get_next_unprotected, CSELF, sessionPtr, OPTIONAL_int, baddr)
+{
+	rx3270 *hSession = (rx3270 *) sessionPtr;
+	if(!hSession)
+		return -1;
+
+	baddr = hSession->get_next_unprotected(baddr);
+	if(baddr < 1)
+        return -1;
+
+	return baddr;
+}
+
 RexxMethod1(RexxStringObject, rx3270_method_get_selection, CSELF, sessionPtr)
 {
 	rx3270	* hSession = (rx3270 *) sessionPtr;
diff --git a/src/plugins/rx3270/rx3270.cls b/src/plugins/rx3270/rx3270.cls
index 6fdada6..99c74a2 100644
--- a/src/plugins/rx3270/rx3270.cls
+++ b/src/plugins/rx3270/rx3270.cls
@@ -74,6 +74,7 @@
 
 ::METHOD GETFIELDSTART EXTERNAL "LIBRARY rx3270 rx3270_method_get_field_start"
 ::METHOD GETFIELDLEN EXTERNAL "LIBRARY rx3270 rx3270_method_get_field_len"
+::METHOD GETNEXTUNPROTECTED EXTERNAL "LIBRARY rx3270 rx3270_method_get_next_unprotected"
 
 ::METHOD GETSELECTION EXTERNAL "LIBRARY rx3270 rx3270_method_get_selection"
 ::METHOD SETSELECTION EXTERNAL "LIBRARY rx3270 rx3270_method_set_selection"
diff --git a/src/plugins/rx3270/rx3270.h b/src/plugins/rx3270/rx3270.h
index b157cac..bd96d06 100644
--- a/src/plugins/rx3270/rx3270.h
+++ b/src/plugins/rx3270/rx3270.h
@@ -109,6 +109,7 @@
  REXX_METHOD_PROTOTYPE(rx3270_method_wait_for_text_at);
  REXX_METHOD_PROTOTYPE(rx3270_method_get_field_len);
  REXX_METHOD_PROTOTYPE(rx3270_method_get_field_start);
+ REXX_METHOD_PROTOTYPE(rx3270_method_get_next_unprotected);
  REXX_METHOD_PROTOTYPE(rx3270_method_get_selection);
  REXX_METHOD_PROTOTYPE(rx3270_method_set_selection);
  REXX_METHOD_PROTOTYPE(rx3270_method_get_clipboard);
@@ -188,6 +189,7 @@
 
 	virtual int               get_field_start(int baddr = -1)                   = 0;
 	virtual int               get_field_len(int baddr = -1)                     = 0;
+	virtual int               get_next_unprotected(int baddr = -1)              = 0;
 
 	virtual int               set_copy(const char *text);
 	virtual char            * get_copy(void);
diff --git a/src/plugins/rx3270/rxapimain.cc b/src/plugins/rx3270/rxapimain.cc
index 1ebeca2..159184e 100644
--- a/src/plugins/rx3270/rxapimain.cc
+++ b/src/plugins/rx3270/rxapimain.cc
@@ -147,6 +147,7 @@ RexxMethodEntry rx3270_methods[] =
 
     REXX_METHOD(rx3270_method_get_field_len,	rx3270_method_get_field_len	    ),
     REXX_METHOD(rx3270_method_get_field_start,	rx3270_method_get_field_start	),
+    REXX_METHOD(rx3270_method_get_next_unprotected, rx3270_method_get_next_unprotected  ),
     REXX_METHOD(rx3270_method_get_selection,	rx3270_method_get_selection	    ),
     REXX_METHOD(rx3270_method_set_selection,	rx3270_method_set_selection 	),
     REXX_METHOD(rx3270_method_get_clipboard,	rx3270_method_get_clipboard	    ),
diff --git a/src/plugins/rx3270/sample/clipboard.rex b/src/plugins/rx3270/sample/clipboard.rex
index 9ae8873..625d8af 100644
--- a/src/plugins/rx3270/sample/clipboard.rex
+++ b/src/plugins/rx3270/sample/clipboard.rex
@@ -26,10 +26,16 @@
     return 0
  end
 
+ cursor = host~GetCursorAddr()
+ next   = cursor
+
  while text <> ""
  do
+    addr = host~GetFieldStart(next)
+    next = host~GetNextUnprotected(addr)
+
+    host~SetCursorAddr(addr)
 
-    host~SetCursorAddr(host~GetFieldStart())
     field_len = host~GetFieldLen()
 
     if length(text) < field_len then
@@ -64,6 +70,12 @@
 
     say text
 
+    if next <= cursor then
+    do
+        /* Next field is before the original position */
+        leave
+    end
+
     text = ""
  end
 
--
libgit2 0.21.2