RE: Preventing a recursive call...

[qsrvbas@xxxxxxxxxxxx (Tom Liotta)]

Jerry:

In CL1, try something like:

  sndpgmmsg  msgid( CPF9898 ) msgf( QCPFMSG )  +
               topgmq( *SAME (MyRPGPgm) )       
                                                
     monmsg ( cpf2479 ) exec( do )              
        call CLMyRPGPgm                         
     enddo

The CLMyRPGPgm program is your CL2 that calls your RPG program, which is named 
MyRPGPgm in this example. MSGCPF2479 is "Call stack entry not found". Add code 
to fit your needs, choose a MsgId other than CPF9898 if you wish, and modify to 
suit an ILE environment if necessary (though activation groups might work for 
you).

Tom Liotta


rpg400-l-request@xxxxxxxxxxxx wrote:

>   2. Preventing a recursive call... (Feador, Jerry)
>
>    Does anybody have a clue as to how I can prevent a recursive call
>from a command?
>
>    The scenario is.... I have a command which calls a CL(1) which calls
>a CL(2) which calls an RPG... at this point it's allowed, and common, to get
>to a command line, where everybody forgets that they've called the command
>once already - calling the command again generates a recursive call error in
>the RPG program...

-- 
-- 
Tom Liotta
The PowerTech Group, Inc.
19426 68th Avenue South
Kent, WA 98032
Phone  253-872-7788 x313
Fax    253-872-7904
http://www.powertechgroup.com


__________________________________________________________________
The NEW Netscape 7.0 browser is now available. Upgrade now! 
http://channels.netscape.com/ns/browsers/download.jsp 

Get your own FREE, personal Netscape Mail account today at 
http://webmail.netscape.com/