99 Bottles of Beer

Voting

Bookmarking

Language ILE

Date:	04/20/05
Author:	Anonymous
URL:	n/a
Comments:	2
Info:	n/a
Score:	(2.91 in 11 votes)

This is IBM's next generation of RPG.

H*
H*  ILE RPG/400 - 99 Bottles of Beer on the Wall.
H*  (IBM AS/400 Midrange Platform)
H*  (Program Source BOTTLESR1)
H*
FBottlesS1 O    E             WorkStn
C
C                   Z-Add     *HIVAL        Bottles1
C
C                   DoW       Bottles1 > *Zero
C                   Eval      Bottles2 = Bottles1
C                   Write     #Display
C                   Sub       1             Bottles1
C                   EndDo
C
C                   Eval      *InLR = *On
C

-----------------------

A*
A*  ILE RPG/400 - 99 Bottles of Beer on the Wall.
A*  (IBM AS/400 Midrange Platform)
A*  (Display File Source BOTTLESS1)
A*
A                                      DSPSIZ(24 80 *DS3)
A          R #DISPLAY                  FRCDTA
A
A            BOTTLES1       2Y 0O  4  2EDTCDE(4)
A                                  4  5'Bottles of Beer On the Wall,'
A            BOTTLES2       2Y 0O  4 34EDTCDE(4)
A                                  4 37'Bottles of Beer,'
A                                  5  2'Take one down, pass it around.'
A

Download Source | Write Comment

Alternative Versions

Comments

cnbvcmh said on 11/25/07 08:43:26

Samanfx said on 08/16/09 09:16:59

A bout me

SamanFX is a financial consulting firm, active in international financial markets like foreign exchange, presenting daily market analysis and news, acoount opening consultancy and more

Download Source | Write Comment

Add Comment

Please provide a value for the fields Name, Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.

Please don't post large portions of code here! Use the form to submit new examples or updates instead!

one program in 1500 variations