Re: Additional RPGLE Enhancement Requests

[Paul Dods <pauldods@xxxxxxxxxxxxxxx>]

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...  

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...

 

Paul Dods                               
AS/400 Systems Programmer
Michael's Stores, Inc.          
Dallas, Texas

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* 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   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *