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

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