Curfld - Revision history

John: Redirected page to CurFld

2014-03-07T14:25:34Z

Redirected page to CurFld

← Older revision		Revision as of 14:25, 7 March 2014
Line 1:		Line 1:
	#~~redirect~~[[~~CURFLD~~]]		#REDIRECT [[CurFld]]

Laura: Redirected page to CURFLD

2013-07-17T18:11:08Z

Redirected page to CURFLD

← Older revision		Revision as of 18:11, 17 July 2013
Line 1:		Line 1:
	~~CurFld ([firstfield], [attribute$])~~		#redirect[[CURFLD]]

	When used without parameters, '''CurFld''' [[statement]] returns the number of the field containing the [[cursor]] from the last [[INPUT FIELDS]] or [[INPUT SELECT]] statement. With parameters, CurFld can be used to set a new starting field (same as the C control [[attribute]]) and/or set a new attribute for the starting field.

	~~====Comments and Examples====~~
	~~00100 DIM SF$(3)~~
	~~00110 LET SF$(1)="10,30,c 10,r"~~
	~~00120 LET SF$(2)="12,30,c 10,r"~~
	~~00130 LET SF$(3)="14,30,c 10,r"~~
	~~00140 INPUT FIELDS MAT SF$: A$, B$, C$~~
	~~00150 PRINT "Cursor ended on FIELD"; CURFLD~~
	~~00160 PRINT "Cursor ended on ROW"; CURROW~~
	~~00170 PRINT "Cursor ended on COLUMN"; CURCOL~~

	In the sample program above, there are three fields available for input. The operator can move the cursor in any direction, but only within these three fields. After the operator hits the <CR> key, line 150 will print the number 1, 2 or 3 depending on which field the operator left the cursor on. In addition, line 160 will print the row number (10, 12, or 14) containing the cursor when input was ended. Also, line 130 will print the column number (30 through 39).

	Some programmers prefer to do screen input with only one field at a time. In these cases, CURFLD will always be 1 because only one field is used. CURFLD provides valuable information when several fields are entered in one statement through an array; specifically, when INPUT FIELDS MAT or INPUT SELECT MAT is used.

	As CURFLD returns the subscript in the field definition array of the field containing the cursor from the last INPUT FIELDS or INPUT SELECT, CURFLD can be especially useful with the on-line help facility. By using CURFLD in the HELP$ function in line 990 for the value of the "mark", the operator can be directed to the most relevant portion of the text under the topic HOURS.ENTRY in the help file that explains the valid entries for that field. For example:

	~~00810 INPUT FIELDS MAT FLD$: HRS,OT,DT,SICK HELP 90~~
	~~00820 STOP~~
	~~00990 HELP$("HOURS.ENTRY", CURFLD) : RETRY~~

	The use of CURFLD with parameters is primarily designed for easy error processing. In the following example, CURFLD returns the cursor to the error-causing field and reverses the field for greater visibility. NOTE that this use of CURFLD takes affect only for execution of the next INPUT FIELDS or INPUT SELECT statement.

	~~00010 INPUT FIELDS MAT A$: MAT A CONV 30~~
	~~00020 IF A(2)>10 THEN LET CURFLD(2,"R") : GOTO 10~~
	~~00030 STOP~~
	~~00040 LET CURFLD("R")~~
	~~00050 RETRY~~

	~~===Syntax===~~
	~~[[file:Curfld.png]]~~

	~~====Optional Second Parameter====~~

	CurFld has been extended to allow an additional numeric parameter, an [[FKey]] value, that causes FIELDS and SELECT statements to execute the specified keystroke before requesting operator input. CURFLD ignores FKEY values of 100 or less and of 114 or greater. The following code uses CURFLD and FKEY to trap the operator's field exit keystroke and execute it after Verifying the data just entered. NOTE that the AE control attributes are used to interrupt execution of the INPUT FIELDS statement upon field exit.

	~~00010 PRINT NEWPAGE~~
	~~00020 INPUT FIELDS "10,10,C 10,AEU:R;11,10,C10,U": X$,Y$ HELP 41~~
	~~00030 IF CURFLD=1 THEN PRINT FIELDS "10,22,C": X$~~
	~~00040 IF FKEY>100 THEN LET CURFLD(CURFLD,FKEY) : GOTO 20~~
	~~00041 PRINT FKEY~~
	~~00050 STOP~~

	As soon as the operator attempts to exit the first input field, line 30 verifies the entered data by redisplaying it to the right of the field. The CURFLD function in line 40 is then used to reenact the operator's field exit operation: the field just verified is set to the current field, and the operator's attempted exit keystroke (the value of FKEY) is executed. Operator input is then allowed for the next field.

	~~NOTE: If the up arrow was the last key used, the cursor will return to the previous field. If the tab key was used, the cursor will position to the next field with a T (tab stop) attribute.~~

	~~NOTE that the CURFLD function in line 40 is executed only if the value of FKEY is greater than 100. Values of 100 or less are ignored, as they are interpreted as an attempt to enter the entire screen.~~

	~~CURFLD will now process field control attributes such as AEP and~~ #. These control attributes will be added to the control attributes that are specified for a field. Also, the attributes that are specified with CURFLD will override a floating attribute specified with ATTR. The CURFLD attributes will remain in effect only during the next execution of an INPUT FIELDS or INPUT SELECT statement. Line 20 in the following example uses the X control attribute (see the "X control attribute" discussion in the BRConfig.sys Specifications section for more information).

	~~00010 INPUT FIELDS "10,10,V 10,U;11,10,V 10,U;12,10,V 10,U",attr "HU":X$,Y$,Z$~~
	~~00020 IF X$="" THEN LET CURFLD(1,"RX") : GOTO 10~~
	~~00030 !.. other editing~~
	~~00040 IF FKEY>100 THEN LET CURFLD(CURFLD,FKEY) : GOTO 10~~
	~~00050 !.. output~~

	If the first field displayed by the above code is left blank, the CURFLD function in line 20 will reposition the cursor to that field. The CURFLD function's X attribute will additionally cause an auto-enter to occur when the operator attempts to re-exit the field. If the field passes the test on line 20, and neither the enter key nor a function key was pressed, the field attribute will resume as an underline and the cursor will be positioned at the next field the operator was trying to move to.

	[[~~BRC]] expects that line 40 will become a standard line of code in all programs that use input fields and validate data.~~

	~~Previously, the CurFld statement supports 3 parameters:~~

	~~# The relative field number.~~
	~~# Optional additional field attributes.~~
	~~# An optional [[FKEY]] value to be applied for cursor positioning before processing the INPUT.~~

	In the event the first parameter points to a [[2D field/control]] then instead of the FKEY value, the third (or second numeric) parameter is interpreted as the subscript of the item within the 2D control. For LISTs, this is a row value. For GRIDs this is a Cell Subscript Value. For TOOLBARs, it is the icon subscript value (relative position in toolbar).

	~~Also, in the event the first parameter points to a 2D field/control then the CURFLD function returns the subscript of the current item within the 2D control.~~


	The CURFLD system function has been extended to support the current selection upon entry to a multi-field control. The first parameter specifies which field/control is to be affected and the second parameter is the subscript of the cursor upon entry to that control. In the event the first parameter points to a 2D field/control then instead of the FKEY value, the third (or second numeric) parameter is interpreted as the subscript of the item within the 2D control.
	~~:For LISTviews this is a row value.~~
	~~:For GRIDs this is a Cell Subscript Value.~~
	~~:For TOOLBARs it is the icon subscript value (relative position in toolbar).~~

	Note that CURFLD with 2 parameters does not set the initial position of the cursor until the respective control is entered. Also if the mouse is used to enter a control, that will override the specified CURFLD value.

	~~[[OPTION]] 43 Use old style Input Select with respect to setting~~ CURFLD ~~to the [[NXTFLD]] value when a selection is made. (see [[Section 28]])~~

	~~====Technical Considerations====~~
	~~# CurFld is initialized to -1 at the start of a new program by the [[RUN]] command.~~

	~~====Related Functions====~~
	*[[CURROW]] and [[CURCOL]] return the row and column numbers of the last
	*[[INPUT FIELDS]] or [[INPUT SELECT]] statement.
	*[[CurPos]]

	~~<noinclude>~~
	~~[[Category:Statements]]~~
	~~[[Category:Window File Processing Statements~~]]
	~~</noinclude>~~

Laura: /* Optional Second Parameter */

2013-01-16T22:39:55Z

Optional Second Parameter

← Older revision		Revision as of 22:39, 16 January 2013
Line 75:		Line 75:

	The CURFLD system function has been extended to support the current selection upon entry to a multi-field control. The first parameter specifies which field/control is to be affected and the second parameter is the subscript of the cursor upon entry to that control. In the event the first parameter points to a 2D field/control then instead of the FKEY value, the third (or second numeric) parameter is interpreted as the subscript of the item within the 2D control.		The CURFLD system function has been extended to support the current selection upon entry to a multi-field control. The first parameter specifies which field/control is to be affected and the second parameter is the subscript of the cursor upon entry to that control. In the event the first parameter points to a 2D field/control then instead of the FKEY value, the third (or second numeric) parameter is interpreted as the subscript of the item within the 2D control.
	:\|For LISTviews this is a row value.		:For LISTviews this is a row value.
	:\|For GRIDs this is a Cell Subscript Value.		:For GRIDs this is a Cell Subscript Value.
	:\|For TOOLBARs it is the icon subscript value (relative position in toolbar).		:For TOOLBARs it is the icon subscript value (relative position in toolbar).

	Note that CURFLD with 2 parameters does not set the initial position of the cursor until the respective control is entered. Also if the mouse is used to enter a control, that will override the specified CURFLD value.		Note that CURFLD with 2 parameters does not set the initial position of the cursor until the respective control is entered. Also if the mouse is used to enter a control, that will override the specified CURFLD value.

Laura: Created page with "CurFld ([firstfield], [attribute$]) When used without parameters, '''CurFld''' statement returns the number of the field containing the cursor from the last [[INPUT F..."

2013-01-16T22:39:14Z

Created page with "CurFld ([firstfield], [attribute$]) When used without parameters, '''CurFld''' statement returns the number of the field containing the cursor from the last [[INPUT F..."

New page

CurFld ([firstfield], [attribute$])

When used without parameters, '''CurFld''' [[statement]] returns the number of the field containing the [[cursor]] from the last [[INPUT FIELDS]] or [[INPUT SELECT]] statement. With parameters, CurFld can be used to set a new starting field (same as the C control [[attribute]]) and/or set a new attribute for the starting field.

====Comments and Examples====
00100 DIM SF$(3)
00110 LET SF$(1)="10,30,c 10,r"
00120 LET SF$(2)="12,30,c 10,r"
00130 LET SF$(3)="14,30,c 10,r"
00140 INPUT FIELDS MAT SF$: A$, B$, C$
00150 PRINT "Cursor ended on FIELD"; CURFLD
00160 PRINT "Cursor ended on ROW"; CURROW
00170 PRINT "Cursor ended on COLUMN"; CURCOL

In the sample program above, there are three fields available for input. The operator can move the cursor in any direction, but only within these three fields. After the operator hits the <CR> key, line 150 will print the number 1, 2 or 3 depending on which field the operator left the cursor on. In addition, line 160 will print the row number (10, 12, or 14) containing the cursor when input was ended. Also, line 130 will print the column number (30 through 39).

Some programmers prefer to do screen input with only one field at a time. In these cases, CURFLD will always be 1 because only one field is used. CURFLD provides valuable information when several fields are entered in one statement through an array; specifically, when INPUT FIELDS MAT or INPUT SELECT MAT is used.

As CURFLD returns the subscript in the field definition array of the field containing the cursor from the last INPUT FIELDS or INPUT SELECT, CURFLD can be especially useful with the on-line help facility. By using CURFLD in the HELP$ function in line 990 for the value of the "mark", the operator can be directed to the most relevant portion of the text under the topic HOURS.ENTRY in the help file that explains the valid entries for that field. For example:

00810 INPUT FIELDS MAT FLD$: HRS,OT,DT,SICK HELP 90
00820 STOP
00990 HELP$("HOURS.ENTRY", CURFLD) : RETRY

The use of CURFLD with parameters is primarily designed for easy error processing. In the following example, CURFLD returns the cursor to the error-causing field and reverses the field for greater visibility. NOTE that this use of CURFLD takes affect only for execution of the next INPUT FIELDS or INPUT SELECT statement.

00010 INPUT FIELDS MAT A$: MAT A CONV 30
00020 IF A(2)>10 THEN LET CURFLD(2,"R") : GOTO 10
00030 STOP
00040 LET CURFLD("R")
00050 RETRY

===Syntax===
[[file:Curfld.png]]

====Optional Second Parameter====

CurFld has been extended to allow an additional numeric parameter, an [[FKey]] value, that causes FIELDS and SELECT statements to execute the specified keystroke before requesting operator input. CURFLD ignores FKEY values of 100 or less and of 114 or greater. The following code uses CURFLD and FKEY to trap the operator's field exit keystroke and execute it after Verifying the data just entered. NOTE that the AE control attributes are used to interrupt execution of the INPUT FIELDS statement upon field exit.

00010 PRINT NEWPAGE
00020 INPUT FIELDS "10,10,C 10,AEU:R;11,10,C10,U": X$,Y$ HELP 41
00030 IF CURFLD=1 THEN PRINT FIELDS "10,22,C": X$
00040 IF FKEY>100 THEN LET CURFLD(CURFLD,FKEY) : GOTO 20
00041 PRINT FKEY
00050 STOP

As soon as the operator attempts to exit the first input field, line 30 verifies the entered data by redisplaying it to the right of the field. The CURFLD function in line 40 is then used to reenact the operator's field exit operation: the field just verified is set to the current field, and the operator's attempted exit keystroke (the value of FKEY) is executed. Operator input is then allowed for the next field.

NOTE: If the up arrow was the last key used, the cursor will return to the previous field. If the tab key was used, the cursor will position to the next field with a T (tab stop) attribute.

NOTE that the CURFLD function in line 40 is executed only if the value of FKEY is greater than 100. Values of 100 or less are ignored, as they are interpreted as an attempt to enter the entire screen.

CURFLD will now process field control attributes such as AEP and #. These control attributes will be added to the control attributes that are specified for a field. Also, the attributes that are specified with CURFLD will override a floating attribute specified with ATTR. The CURFLD attributes will remain in effect only during the next execution of an INPUT FIELDS or INPUT SELECT statement. Line 20 in the following example uses the X control attribute (see the "X control attribute" discussion in the BRConfig.sys Specifications section for more information).

00010 INPUT FIELDS "10,10,V 10,U;11,10,V 10,U;12,10,V 10,U",attr "HU":X$,Y$,Z$
00020 IF X$="" THEN LET CURFLD(1,"RX") : GOTO 10
00030 !.. other editing
00040 IF FKEY>100 THEN LET CURFLD(CURFLD,FKEY) : GOTO 10
00050 !.. output

If the first field displayed by the above code is left blank, the CURFLD function in line 20 will reposition the cursor to that field. The CURFLD function's X attribute will additionally cause an auto-enter to occur when the operator attempts to re-exit the field. If the field passes the test on line 20, and neither the enter key nor a function key was pressed, the field attribute will resume as an underline and the cursor will be positioned at the next field the operator was trying to move to.

[[BRC]] expects that line 40 will become a standard line of code in all programs that use input fields and validate data.

Previously, the CurFld statement supports 3 parameters:

# The relative field number.
# Optional additional field attributes.
# An optional [[FKEY]] value to be applied for cursor positioning before processing the INPUT.

In the event the first parameter points to a [[2D field/control]] then instead of the FKEY value, the third (or second numeric) parameter is interpreted as the subscript of the item within the 2D control. For LISTs, this is a row value. For GRIDs this is a Cell Subscript Value. For TOOLBARs, it is the icon subscript value (relative position in toolbar).

Also, in the event the first parameter points to a 2D field/control then the CURFLD function returns the subscript of the current item within the 2D control.

The CURFLD system function has been extended to support the current selection upon entry to a multi-field control. The first parameter specifies which field/control is to be affected and the second parameter is the subscript of the cursor upon entry to that control. In the event the first parameter points to a 2D field/control then instead of the FKEY value, the third (or second numeric) parameter is interpreted as the subscript of the item within the 2D control.
:|For LISTviews this is a row value.
:|For GRIDs this is a Cell Subscript Value.
:|For TOOLBARs it is the icon subscript value (relative position in toolbar).

Note that CURFLD with 2 parameters does not set the initial position of the cursor until the respective control is entered. Also if the mouse is used to enter a control, that will override the specified CURFLD value.

[[OPTION]] 43 Use old style Input Select with respect to setting CURFLD to the [[NXTFLD]] value when a selection is made. (see [[Section 28]])

====Technical Considerations====
# CurFld is initialized to -1 at the start of a new program by the [[RUN]] command.

====Related Functions====
*[[CURROW]] and [[CURCOL]] return the row and column numbers of the last
*[[INPUT FIELDS]] or [[INPUT SELECT]] statement.
*[[CurPos]]

<noinclude>
[[Category:Statements]]
[[Category:Window File Processing Statements]]
</noinclude>