On the AS/400, RPG programs may not be loaded more than
one time in a
job invocation stack, ie they may not be called recursively. TM/400 provides
standard program that can be called to determine if a specified program is
already in existence in the job invocation stack.
The program is AMCHKA with two parameters: program name
(character 10) and
a return code=Y/N (character 1).
To determine if TM/400 is already loaded in the user's
current job, use the
CALL TM4/AMCHKA ('AM015' &YESNO)
The program will return a 'Y' if the ActionWare400 main
program (AM015) is
The AMCHKA program exists in all TM/400 V5 libraries and
is available for use
by user application programs. Users may copy it to their own library or use it
from any of the TM/400 libraries (typically TM4 or TM4L). It may be called
from CL or RPG or from any other AS/400 language that can call an RPG
program. The program being tested for does not have to identified by its
library location, just the program name is needed.
Last Updated: January, 1996