Re: Indicating Total Time in Free Form when using RPG Cycle

The only time I ever used lookahead fields was for an RPG CPP that I wrote in 1984 on a System/38 for a command which I named RMVELSE.

My RMVELSE command was used to delete redundant ELSE operations from RPG source members.

The RPG program used a lookahead field each time it found a statement containing an ELSE operation code to look at the operation code in the next RPG source statement to see if it was an END – If so, it deleted the source statement containing the ELSE operation.

One of the programmers who preceded me there thought that you needed an ELSE for each END, so in his programs you would find something like:

C A IFEQ B
C C IFEQ D
C E IFEQ F
C G IFEQ H
C I IFEQ J
* a bunch of code here...
C ELSE
C END
C ELSE
C END
C ELSE
C END
C ELSE
C END
C ELSE
C END

After running my command on the source member:

C A IFEQ B
C C IFEQ D
C E IFEQ F
C G IFEQ H
C I IFEQ J
* a bunch of code here...
C END
C END
C END
C END
C END

- sjl

"Jerry C. Adams" wrote in message news:mailman.11270.1358962141.10847.rpg400-l@xxxxxxxxxxxx...

Look Ahead? I *think* that I *may* have done those on a /36, which I
haven't programmed since '93. For sure on a S/3 on an MFCU1 card deck; it
looked like it was stuttering. Field level testing? Probably that same S/3
program.

Jerry C. Adams
IBM i Programmer/Analyst
I take pride in my personal appearance. My standards just happen to be
exceptionally low.