TIP: Click on subject to list as thread! ANSI
echo: os2prog
to: All
from: Donald Woolwine
date: 1994-10-21 00:55:10
subject: Rexx

Hi I'm real new at programming and  am trying my hand at a writing a few
REXX
programs. I have seem to run into a problem, I think. I am getting a stack
full
error after about 45 entries into a looping routine similar to the one that
follows.

-- start here ---
/*  TESTHOT.CMD   --  testing out hotkeys */
call rxfuncadd 'SysGetKey', 'RexxUtil', 'SysGetKey'

M1:
Say 'Press any key to continue'
key = SysGetKey(noecho)

IF key='r'
   THEN
     CALL R1

   ESLE CALL T1

IF key='R'
   THEN
    CALL R1
   ESLE CALL T1

R1:
SAY " You entered "'R'
call M1

T1:
SAY " I DON'T UNDERSTAND, TRY AGAIN"
CALL M1

------

After about 45 keyboard entries I get the following error message.

------

Press any key to continue
 You entered R
Press any key to continue
    10 +++



Call
R1;
REX0011: Error 11 running C:\CMD\testhot.cmd, line 10: Control stack full
    20 +++


                                                                       Call
M1;
    10 +++


------

and then I get the repeating of the previous calls.  I know that I am getting
a
stack full message but I can find no info on removing the problem or clearing
the stack. My only source of ref is the on-line info with came with OS/2 and
what little info OS/2 Unleashed. Any help would be appriciated. Thank you

Donald Woolwine
--- JCQWK [NR!]
 þ MR/2 2.03 NR þ Win31 passes,WinNT fumbles,Win95 Stumbles,OS/2 interceptes
and scores

---

* Origin: Take a dump at the DumpSite! (1:282/4054)
SEEN-BY: 12/2442 54/54 620/243 624/50 632/348 640/820 690/660 711/409 410 413
SEEN-BY: 711/430 807 808 809 934 942 949 712/353 623 713/888 800/1
@PATH: 282/4054 56 1 270/101 396/1 3615/50 229/2 12/2442 711/409 54/54
@PATH: 711/808 809 934

SOURCE: echomail via fidonet.ozzmosis.com

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.