Albert, I can show you (I still have it archived under bad ideas) a command file that I created that has a file date of 2/3/1995.
I wanted to use this approach of using a bunch of GoTos in one big file to run the application. It has only a filesize of 19k, but I think the problem was Block size.. Since it was all one command block, it was all loaded at one time and it didn't trace (properly) in 4.5++ making it difficult to debug. I abandoned that approach and just put all the command blocks in one file and made a dummy application called Ovl with two menu picks, one for a file of command blocks of regular routines and another for EEP files and then just used the Run xxx in Ovl.apx syntax. ----- Original Message ----- From: "Albert Berry" <[EMAIL PROTECTED]> To: "RBG7-L Mailing List" <[email protected]> Sent: Saturday, February 26, 2005 5:06 PM Subject: [RBG7-L] - Re: Subroutines in command files > Claudine, you can create a large text file that contains all your options, and run it with RUN xyz > USING 'text'. The other option is to > SET VAR vLabel = ... > RUN CodeFile.rmd > > -- At the top of your file, > -- CodeFile.rmd > > SET VAR vLabel TEXT = .%1 (this picks up the USING ) > > GOTO &vLabel -- jumps to what you want to run > > LABEL GetOut > GOTO Stop > > LABEL NewRow > ENTER USING someFormOrOther > GOTO Stop > > LABEL EditRow > EDIT USING someFormOrOther WHERE ... > GOTO Stop > > LABEL Stop > CLEAR VAR varlist > RETURN > > --- Claudine Robbins <[EMAIL PROTECTED]> wrote: > > > Hi all, > > > > I want to imbed some subroutines in a command file. > > > > Label first > > Do 1 > > Do 2 > > Return ???? - doesn't work... > > > > Label second > > Cursor loop > > Do 3 > > Do 4 > > Goto first > > End loop > > Return > > > > I can't find any documentation. I can do run labelfirst.rmd but I really > > wanted to put all the code in one file. > > > > TIA, Claudine > > > > > > > ===== > Albert Berry > Management Consultant > RR2 - 1252 Ponderosa Drive > Sparwood BC, V0B 2G2 > Canada > (250) 425-5806 > (250) 425-7259 > (708) 575-3952 (fax) > [EMAIL PROTECTED] >
