Timeout to exit program 1

[dmtech9]

We use AS400 operating system version 4.1 and RPG400. Is there a way within an RPG program to timeout a program?

In other words we'd like to end the rpg interactive program and return to the menu or CL program that called the RPG.

Thanks for any advice.

 

[iSeriesCodePoet]

I don't know how this could be done.

Have you searched the IBM documents(

http://publib.boulder.ibm.com/pubs/html/as400/online/v4r5eng.htm)?

Or try searching search400.com?

Otherwise, a really good place to post would be at mindrange.com, you can generally get a response quicker there... Please let us (Tek-tips members) know if the solutions we provide are helpful to you. Not only do they help you but they may help others.

Mike Wills
IT Corporate Support
RPG Programmer
koldark@koldark.net

 

[pipk]

You should browse the AS400 books that are supplied on CD free of charge (you can phone IBM up to get these if you can't find one at your installation) it will give you super quick facilities for searching every possible manual related to the as400 platform (from OS commands to language specific stuff). I am sure there will be something there regarding using api calls to find the jobs runtime. Can't think of the specific command at the moment though!!! sorry

 

[BobMCT]

While not too sure if this is available in RPG400 it was in earlier versions. We output a format with a special name of '$$TIMER' and as the first data string pass 'mmss' which represents the decimal value of minutes and seconds before the timeout occurs.
This actually starts a time withing workstation data management and when the timer expires control is returned to your program with a particular return code value. Then, in the INFSR, you can check for the code and do what ever you wish. We end the program which causes a return to the menu.

Good luck