Re: Detection of batch/interactive

[Tony Carolla <carolla@xxxxxxxxx>]

Well, it's not so much avoiding CL, but trying to avoid using another 
language and program. The structure is more simple when you have one command 
object pointing at one program object, rather than a command object, 
pointing at a CL program object, that submits a third RPG program object. 
Simplification. 

On 9/8/05, Mohammad, Tanveer <TMohammad@xxxxxxxxxxx> wrote:
> 
> Not sure why you are avoiding CL but here is sample code I found for
> you!
> 
> http://www.thomasbishop.com/servlet/sql.tipView?key=6&category=API
> 
> 
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Bob Cozzi
> Sent: Thursday, September 08, 2005 1:02 PM
> To: 'RPG programming on the AS400 / iSeries'
> Subject: RE: Detection of batch/interactive
> 
> Tony,
> If you don't have RPG xTools you have to call CL or the Job Info API. If
> you
> have RPG xTools use the GetJobType() procedure. It returns "I" for
> Interactive, and "B" for batch.
> 
> -Bob Cozzi
> www.RPGxTools.com <http://www.RPGxTools.com>
> RPG xTools - Enjoy programming again.
> 
> 
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Tony Carolla
> Sent: Thursday, September 08, 2005 2:44 PM
> To: RPG programming on the AS400 / iSeries; RPGIV@xxxxxxxxxxxxxxx
> Subject: Detection of batch/interactive
> 
> I am writing an RPG program that I want users to run in batch mode. My
> standard solution to this is to write a CL program that submits the RPG
> to
> batch, and point a CMD at the CL program. But I had this idea... What if
> the
> 
> RPG could detect whether or not it was running in batch, and if it
> wasn't
> submit a job to batch, that would call the same program, and terminate
> the
> interactve one?
> 
> I have the logic mapped out in RPG, but I can't figure out how to detect
> if
> the program is running in Batch. I don't see anything in the PSDS that
> shows
> 
> this... Can it be done?
> 
> --
> "Enter any 11-digit prime number to continue..."
> "In Hebrew SQL, how do you use right() and left()?..." - Random Thought
> "If all you have is a hammer, all your problems begin to look like
> nails"
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
> list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
> 
> 
> 
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
> list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
> 
> 
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
>