- Code: Select all
⎕si
- Code: Select all
⎕si[⎕io+1]
Could you provide system variables
1. that contains the name of the calling function
2. the line in the calling function at which the jump took place
3. the line number that was being executed prior to the {current} line?
Why do I need this?
Items 1 & 2 just make like easier as they are already available in
- Code: Select all
⎕si
Item 3 is needed. With
- Code: Select all
⎕cse
- Code: Select all
⎕dm
[1]
- Code: Select all
→(0≠⎕cse 'ExecStmt' 'statement')↑Error
[2]
- Code: Select all
→(0≠⎕cse 'ExecStmt' 'statement')↑Error
[3]
- Code: Select all
→0
[4] Error: 'Error on line ' X (
- Code: Select all
⎕cse 'GetLastError'
If I get to line [4], I need to know (the value of X) whether the error occurred on line [1] or on line[2]. That is, at line [4] I need to know the line from which the jump occurred. (I can work round this by simply recording
- Code: Select all
⍬⍴⎕lc