Re: Display file manipulated by RPGLE program doesn't exit if not called using command line

[Brian Parkins <goodprophet.bp@xxxxxxxxx>]

Lynelle, it might help to see a fragment of the relevant code. Do you 
have something like this coded?

*InLR = *On;
Return;

Setting LR on, of itself does nothing until either:
- The end of Calcs is reached, or
- RETURN is executed

Have you considered modifying the code so that the RPG Cycle (and thus 
LR) are irrelevant? For example:

**Free
Ctl-Opt Main(Mainproc);

Dcl-Proc Mainproc;
  Dcl-S UserId Char(10) Inz(*User);
  Dsply 'Nothing to see here' UserId;
  Return;  // No Logic Cycle - so LR becomes irrelevant
End-Proc;

Brian.


On 19/09/2018 09:08, Mendoza, Lynelle I. M. wrote:
> Hello,
>
> When I call an RPGLE program (that manipulates a display file/screen) from command line, screen exits when F3 is pressed. However, when I setup it up as a function/menu in our internal system it does not exit. During debug, when I call it from command line the program ends after stepping at "*inlr" but when it's called from function/menu, step after inlr just goes back at the start of the program and goes on in a loop.
>
> It does exit though when I manipulate the screen using COBOL, however the scroll feature isn't included (which works in RPGLE). Anyone who experienced the loop issue as well? TIA.
>
> Thanks,
> Lynelle