RE: RPG Tips and Techniques

[Don <dr2@xxxxxxxxxxxx>]

Nahh, I like this one better....special for the "structured" tight a...'s
on this list...:)


     C                       DOU looped
     C             beeramt   cabeq empty     morebeer
     C             bladder   cabeq full      LOO


     c*
     c*  optional subr
     c             Beermug   ifeq  empty
     c                       exsr  refillmug
     c                       endif


        or in COBOL (geez, let's see if I remember that ancient
language...at least it had multi-D arrays...:)

        Perform drinking_beer until beer_glass_empty (an 88 as I recall)
or bladder_full or system_failure or Chi_omega_in_room or (after_last_call
and beer_glass_empty).


BASIC, Z-80/8080/8008, FORTRAN,  and PL/I and Pascal are simular.

Now, to do this in APL!  Hmmmmm....there's a challenge!

Don in DC



On Fri, 7 Jul 2000, Joe Giusto wrote:

> Try:
>    C                       DOU LOOPED
>    C                       IF OUTOFBEER
>    C                       LEAVE
>    C                       ENDIF
>    C                       DRNKBEER
>    C                       ENDDO
> 
> :-) 
> 
> From: Ted Barry [SMTP:TBARRY@smtpgate.centralsan.dst.ca.us]
> Sent: Thursday, July 06, 2000 7:35 PM
> To:   RPG400-L@midrange.com
> Subject:      Re: RPG Tips and Techniques
> 
> We should at least stay on the subject.  There's too much chit-chat on
> the list.  It should be brief and to the point, for example:
> 
> I'm having trouble with my do loop.  Here's what I'm doing:
> 
>    C                       DOU LOOPED
>    C                       DRNKBEER
>    C                       ENDDO
> 
> 
> 
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---
> 

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---