Returns the file name of the program being executed. You can use SYS(16) to recover from errors.

SYS(16 [, nProgramLevel])

Parameters

nProgramLevel

Indicates from how many levels back the program name is fetched. This value can range from 1 to the depth at which programs are nested. For more information about program nesting levels, see maximum number of DO calls in Visual FoxPro System Capacities.

If nProgramLevel is 0 or 1, SYS(16) returns the name of the main program (the program first executed). The name of the currently executing program is returned if nProgramLevel is omitted. The empty string is returned if nProgramLevel is greater than the program nesting depth.

Return Value

Remarks

Example

The program nesting is returned in the following short program example:

	Copy Code
STORE 1 TO gnX DO WHILE LEN(SYS(16,gnX)) != 0 ? SYS(16,gnX) STORE gnX+1 TO gnX ENDDO

See Also