Re: finding the right place in a RRN file

[Jim Welsh <jimwelsh@xxxxxxxxxxxxx>]

John Carr wrote:
> 
> I'd be willing to bet that 90% of the programers who will see or who
> will be asked to maintain/enhance the File/Program/Algorithm
> would rather maintain a RPGII Level Breaking Matching record program.
>   But I might be wrong.
> 
> John Carr
> 
John

90% of the programmers i know want nothing to do with RPG II, although
you do get some satisfaction out of replacing them with something else,
almost anything else... :) 

sorry

Remember there is alot to be said for a program that when you look at
the lines of code, you visually SEE the logic, even if it may take more
lines.

for example

         EXSR CLEAR
         EXSR FILLSF

         EXFMT subfile control format

*IN03    DOWEQ  *OFF

If Cmd 3   then  LEAVE
If Rollup  then  FILLSF 
If GETNAME changed then CLEAR, FILLSF

         EXFMT subfile control format

         ENDDO

         MOVE *ON  *INLR 


CLEAR    BEGSR
clear the subfile
count = 0  
GETNAME  SETLL  MYFILE 
set subfile display ON
         ENDSR 


FILLSF   BEGSR
         READ   MYFILE ( logical keyed by Last Name )
*IN90    DOWEQ  *OFF
write subfile record here 
count = count + 1 
if count = page size then LEAVE ( exit loop )
         READ   MYFILE 
         ENDDO
         ENDSR 


this is just a quick and dirty example of some RPG III
personally i've been doing this type of stuff for so long now that i'm 
really anxious to move on to IV, VisualAge...etc

I'm currently out there looking, sounds exciting.

Anyway, according to sources, CISC is dead, RPG II can't be long for
this world either...

time to get on with the black box! :)

Good Luck!

-- 
Jim

http://www.netcom.com/~jimwelsh/welcome.html
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* 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   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *