GETBYPOS

LANSA Integrator

GETBYPOS

The GETBYPOS command retrieves the value of a field on the current aXes terminal screen by reference to the screen row and column number.

Note: You usually need to specify SERVICE_EXCHANGE(*FIELD) in the command string in order to receive the return value into your client program variable named on the RTNVALUE keyword. Refer to 5.41.2 Using the AxesTerminalService for more information.

 

                                                          Required

 

 GETBYPOS -------- ROW ------------- row number ----------------->

  

               >-- COL ------------- column number -------------->

  

               >-- RTNVALUE -------- field-name -----------------|

 

Keywords

ROW

Required. The screen row number of the required field. The row and column together must refer to the first position of the required field.

COL

Required. The screen column number of the required field. The row and column together must refer to the first position of the required field.

RTNVALUE

The name of a field exchanged between your client program and the JSM that will receive the value for the specified screen field.

 

Examples

RDML Example:

DEFINE FIELD(#MYCUSNUM) REFFLD(#STD_TEXT)

CHANGE FIELD(#JSMCMD) TO('GETBYPOS ROW(8) COL(44) RTNVALUE(MYCUSNUM) SERVICE_EXCHANGE(*FIELD)'

USE BUILTIN(JSM_COMMAND) WITH_ARGS(#JSMCMD) TO_GET(#JSMSTS #JSMMSG)

 

RDMLX Example:

define field(#mycusnum) reffld(#std_text)

#jsmcommand := 'GETBYPOS ROW(8) COL(44) RTNVALUE(MYCUSNUM) SERVICE_EXCHANGE(*FIELD)'

use builtin(jsmx_command) with_args(#jsmhandle #jsmcommand) to_get(#jsmstatus #jsmmessage)