Copyright © TIBCO Software Inc. All Rights Reserved
Copyright © TIBCO Software Inc. All Rights Reserved


Chapter 3 Tools : CURSORTABLE

CURSORTABLE
Returns the name of the screen table where the cursor is positioned. (F)
Invocation
table_name = CURSORTABLE(screen)
 
On return, contains the name of the screen table. Its syntax is C (fixed-length character string) with length 16.
Usage Notes
An empty string is returned if the cursor is not positioned in a screen table.
Example
The following rule fills the example screen with data from the example table, displays it, determines the name of the screen table where the cursor is positioned, and prints it to the message log:

 
CURSORTABLE_1;
_ LOCAL TABLE_NAME;
_ ------------------------------------------------------------------------
_ ------------------------------------------------------------+-----------
_ FORALL EMPLOYEE : | 1
_ EMPLOYEE_DATA.* = EMPLOYEE.*; |
_ INSERT EMPLOYEE_DATA('EMPLOYEE_SCR'); |
_ END; |
_ FCNKEY_SPECS.FCNKEYS = FCNKEY_MSG('EMPLOYEE_SCR'); | 2
_ INSERT FCNKEY_SPECS('EMPLOYEE_SCR'); | 3
_ UNTIL EXIT_DISPLAY DISPLAY EMPLOYEE_SCR: | 4
_ CALL PROCESS_FCNKEY('EMPLOYEE_SCR'); |
_ END; |
_ TABLE_NAME = CURSORTABLE('EMPLOYEE_SCR'); | 5
_ CALL MSGLOG( | 6
_ 'THE CURSOR IS POSITIONED ON THE SCREEN TABLE ' || |
_ TABLE_NAME); |
_ ------------------------------------------------------------------------

 
Sample Output
Executing this rule displays the following output:

 
Employee Name Employee#
------------- ---------
SMYTHE 80000
ROTERDAM 80002
CHANG 80003
GARZA 80004
TOWNSEND 80014
PASTARINA 80019
CHESSEL 80020
TOWENSEND 80021
NAPIER 80024

 
Message Log
The cursor position is indicated by a bold letter. After the rule ends, press PF2 to display the following output:

 
----------------------- INFORMATIONAL MESSAGE LOG --------------------
COMMAND ===> SCROLL ===> P
THE CURSOR IS POSITIONED ON THE SCREEN TABLE EMPLOYEE_DATA

 
 
 

Copyright © TIBCO Software Inc. All Rights Reserved
Copyright © TIBCO Software Inc. All Rights Reserved