Re: Recursive calls

[Alan Campin <alan0307d@xxxxxxxxx>]

Sorry that should have been ctl-opt.

ctl-opt Main(Main);


On Fri, Aug 9, 2019 at 9:16 AM Alan Campin <alan0307d@xxxxxxxxx> wrote:

> Recursive calls are supported in RPG now. Program must be coded as a Main
> program. (No RPG Cycle).
>
> Startup procedure name can be anything. I am just using Main.
>
> opt-ctl Main(Main);
>
> dcl-pr Main ExtPgm('APIOPTIONS);
>
> dcl-proc Main;
>   dcl-pi *N;
>     ... Parameters if any
>   end-pi
>
>   ... Your code.
>
> end-proc;
>
> On Fri, Aug 9, 2019 at 9:07 AM Alan Shore via RPG400-L <
> rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:
>
> > Hi Jerry
> > We had the same problem
> > A kajillion screens with multiple F keys, that when pressed do something,
> > but no real estate on the screen to show what that F key is for
> > We changed it so that F11 would display a window showing what function
> > keys are available from the screen they just came from and what the
> > function key would do
> > The difference was that instead of APIOPTIONS doing the call based upon
> > what was pressed- the process would pass what key was chosen BACK to the
> > calling program and let the calling program do whatever it needed to do
> > It took quite a bit of coding to achieve this - but no recursive calls
> >
> >
> > Alan Shore
> > E-mail : ASHORE@xxxxxxxx
> > Phone [O] : (631) 200-5019
> > Phone [C] : (631) 880-8640
> > 'If you're going through hell, keep going.'
> > Winston Churchill
> >
> > -----Original Message-----
> > From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of
> > (WalzCraft) Jerry Forss
> > Sent: Friday, August 09, 2019 11:51 AM
> > To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
> > Subject: [EXTERNAL] Recursive calls
> >
> > Disclaimer... I inherited this mess.
> >
> > There are bunch of screens in separate programs that are full of function
> > keys.
> > The function keys are sometimes the same, some are the same but different
> > function and yet others that the Fkey exists only on 1 screen.  I am
> > talking about maybe 20 screens in 15 pgms.
> > Because of the limited space on screens the descriptions of the Fkeys are
> > very short. F5=Hst, F6=Cmt.
> >
> > The users have to know that they need to get to screen 4 (pgm A) to use
> > this FKey and screen 6 (pgm G) to use that FKey. They are CONSTANTLY screen
> > hopping to get to where they want to be.
> >
> > I am trying convince them I would like to make a standard Fkey (F10) that
> > will call APIOPTIONS that brings up a list that calls the required pgms.
> > That way I can also add security they selected users can only see selected
> > options. I can also display long descriptions of what the options are.
> >
> > I want to then remove all the fkeys from all the screens replacing with
> > F10 that calls APIOPTIONS.
> >
> > Now the problem is that by doing this recursive calls can happen when pgm
> > A calls APIOPTIONS. They select opt to display comments. They press F10
> > that calls APIOPTIONS again because they want to display history.
> >
> > Pgm will throw recursive call.
> >
> > I think in Cobol it allows this.
> >
> > Is there some secret voodoo that I can do that will allow me (in a
> > controlled fashion) to do recursive calls.
> >
> > Realistically they would only go maybe 5 deep. I could control by having
> > 5 versions of the APIOPTIONS and know which to call but would rather not.
> >
> >
> > Jerry Forss
> > Information Technology Team
> > WalzCraft
> > 608-781-6355 EXT 2530
> > jforss@xxxxxxxxxxxxx
> >
> >
> >
> >
> > Subject to Change Notice:
> >
> > WalzCraft reserves the right to improve designs, and to change
> > specifications without notice.
> >
> > Confidentiality Notice:
> >
> > This message and any attachments may contain confidential and privileged
> > information that is protected by law. The information contained herein is
> > transmitted for the sole use of the intended recipient(s) and should "only"
> > pertain to "WalzCraft" company matters. If you are not the intended
> > recipient or designated agent of the recipient of such information, you are
> > hereby notified that any use, dissemination, copying or retention of this
> > email or the information contained herein is strictly prohibited and may
> > subject you to penalties under federal and/or state law. If you received
> > this email in error, please notify the sender immediately and permanently
> > delete this email. Thank You
> >
> > WalzCraft PO Box 1748 La Crosse, WI, 54602-1748 www.walzcraft.com<
> > http://www.walzcraft.com> Phone: 1-800-237-1326
> > --
> > This is the RPG programming on IBM i (RPG400-L) mailing list To post a
> > message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or
> > change list options,
> > visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> > Before posting, please take a moment to review the archives at
> > https://archive.midrange.com/rpg400-l.
> >
> > Please contact support@xxxxxxxxxxxx for any subscription related
> > questions.
> >
> > Help support midrange.com by shopping at amazon.com with our affiliate
> > link: https://amazon.midrange.com
> >
> > --
> > This is the RPG programming on IBM i (RPG400-L) mailing list
> > To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at https://archive.midrange.com/rpg400-l.
> >
> > Please contact support@xxxxxxxxxxxx for any subscription related
> > questions.
> >
> > Help support midrange.com by shopping at amazon.com with our affiliate
> > link: https://amazon.midrange.com