XCALL GETPRG, prgnam {,sbxnam, svr'prgnam, svr'prgver, prgdir, sbxdir}
GETPRG.SBR returns the name of the currently running program in prgnam.
Parameters
Parameter |
Type |
I/O |
Description |
prgnam |
String, 10 |
out |
|
sbxnam |
String, 10 |
in/out |
If specified, it also returns the name of the current routine (if called from within a subroutine). Otherwise, set to "". |
svr'prgnam |
String, 10+ |
out |
Applies only to subroutines running in the ATE client context (e.g. launched via AG_XFUNC); it returns the name of the program currently running on the server. Otherwise it will return a null string. |
svr'prgver |
String, 13+ |
out |
Also only applies to the ATE client context, returning the version of the program currently running on the server. Example format: 1.2A(345) |
prgdir |
String, 18+ |
out |
Returns the device:[p,pn] where the program (prgnam) was loaded from. Example format: DSK22:[123,456]. If the program was loaded directly from memory, it will return a null string. |
sbxdir |
String, 18+ |
out |
Same as prgdir, but for the last called SBX. |
History
2011 October, A-Shell 5.1.1136: Add four parameters.