$FUNCNAME$
  PROCLINE()
$CATEGORY$
  SYSTEM,MISCELLANEOUS,INFO
$SUMMARY$
   Return the source line number of the current or previous activation
$LANG_RU$
           .
$SYNTAX$
     PROCLINE([<nActivation>]) --> nSourceLine
$LANG_RU$
     PROCLINE([< >]) -->    
$ARGUMENTS$
     <nActivation> is a numeric value that specifies which activation to
     query.  Zero refers to the current activation, one refers to the
     previous activation, etc.  If not specified, the default value is zero.
$LANG_RU$
     < > -  ,  ,  
     .  -    , 1 -  
     ..     ,    .
$RETURNS$
     PROCLINE() returns the line number of the last line executed in a
     currently executing procedure, function, or code block as an integer
     numeric value.  If the /L compiler option suppresses line number
     information, PROCLINE() always returns zero.
$LANG_RU$
     PROCLINE()       
      ,        
     .        /L ,
       PROCLINE()   .
$DESCRIPTION$
     PROCLINE() queries the xClipper activation stack to determine the last
     line executed in a currently executing procedure, user-defined function,
     or code block.  The activation stack is an internal structure that
     maintains a record of each procedure, function, or code block
     invocation.  A line number is relative to the beginning of the original
     source file.  A line includes a comment, blank line, preprocessor
     directive, and a continued line.  A multistatement line is counted as a
     single line.

     For the current activation, PROCLINE() returns the number of the current
     line.  For a previous activation, PROCLINE() returns the number of the
     line that invoked the procedure or a user-defined function in which
     PROCLINE() is invoked.

     If the activation being queried is a code block evaluation, PROCLINE()
     returns the line number of the procedure in which the code block was
     originally defined.

     PROCLINE() is used with PROCNAME() to report debugging information.
$LANG_RU$
     PROCLINE()    xClipper   
         ,   
      .   -   , 
         ,  ,
      .      
      .     ,  ,
        ,  . 
        .

       -     PROCLINE().

       -      
     ,       ,
       PROCLINE().

          ,  PROCLINE() 
       ,      . PROCLINE()
          PROCNAME()   
     .
$EXAMPLES$
       In this example, PROCLINE() returns the line number for the
	current activation, followed by the line number of the previous
	activation:

	// First line of source file
	MyFunction()
	   RETURN

	FUNCTION MyFunction
	   ? PROCLINE()      // Result: 6 (current activation)
	   ? PROCLINE(1)      // Result: 2 (previous activation)
	   RETURN NIL
$LANG_RU$
           ,  
       PROCLINE()     :

       //   
       MyFunction()
       RETURN

       FUNCTION MyFunction
	  ? PROCLINE()           // : 6 ( )
	  ? PROCLINE(1)          // : 2 ( )
	  RETURN NIL
$SEEALSO$
  PROCNAME()
$END$
