Re: Additional RPGLE Enhancement Requests

>At 11:15 PM 7/19/97 -0400, you wrote:
>>What I really want is the following:
>>
>>                GOTO  VARNAME
>>
>>Where you put the address of the tag to which you want to branch.
>>
>>A variation of this would be the following:
>>                
>>                EVAL  VARNAME = %ADDR(TAGNAME) + NUM
>>         
>>                GOTO  VARNAME
>>
>>I just love self-modifying code.
>
>Any other PL/1 fans out there?  Used to see this all the time in PL/1. But
>they dropped that for the RISC boxes...  
>
I thought PL/1 was not longer a program product but was available as an RPQ.
We used to do a lot of work in PL/1, though not recently.  We actually have
several PL/1 programs we still run.  They haven't been changed in years.

>Wonderful things happened when you started performing math on the variables
>containing pointers - nice easy way to crash a mainframe...
>
>You could also store an array of labels LABELS(5)  (1) = 'LABEL1' (2) =
>'LABEL2', etc., and then issue completely unmaintainable code like:  I = 3 ;
>goto LABELS(I) ;    Try fixing a crash in one of these monsters at 3 am...
>
> 


Charlie Massoglia, Massoglia Technical Consulting, Inc.
PO Box 1065, Okemos, MI 48854, USA
517-676-9700  Fax: 517-676-1006  EMAIL: cmassoglia@voyager.net


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *