[Progress Communities] [Progress OpenEdge ABL] Forum Post: RE: How to break out of program running in infinite loop in PDSOE

[singh.mitesh@gmail.com]

For example : Please refer below code . If i run this code in PDSOE , it will show the frame with options as written in the code . I want to stop the program without using the Exit option in the frame . DEFINE VARIABLE msg AS CHARACTER NO-UNDO EXTENT 3. DEFINE VARIABLE ix AS INTEGER NO-UNDO INITIAL 1. DEFINE VARIABLE newi AS INTEGER NO-UNDO INITIAL 1. DEFINE VARIABLE func AS CHARACTER NO-UNDO. /*LAST-EVENT:SET-LASTKEY(0, keycode("insert")).*/ /*/*assign lastkey = keycode("insert").*/ */ /*apply lastkey . */ DISPLAY " Please choose " SKIP(1) " 1 Run order entry " @ msg[1] ATTR-SPACE SKIP " 2 Run receivables " @ msg[2] ATTR-SPACE SKIP " 3 Exit " @ msg[3] ATTR-SPACE SKIP WITH CENTERED FRAME menu NO-LABELS. REPEAT: COLOR DISPLAY MESSAGES msg[ix] WITH FRAME menu. READKEY. func = KEYFUNCTION(LASTKEY). IF func = "CURSOR-DOWN" AND ix 1 THEN newi = ix - 1. ELSE IF func = "GO" OR func = "RETURN" THEN LEAVE. IF ix <> newi THEN COLOR DISPLAY NORMAL msg[ix] WITH FRAME menu. ix = newi. END.

Continue reading...