Note: See the AS/400 Web Pages Index at WebPages.htm.
Sample RPG IV ILE source program - RPG002 (29 statements)
Columns . . . : 6 76 Browse AS580/QRPGSRC
SEU==> RPG002
FMT * *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+
*************** Beginning of data **************************
0001.00 F* RPG002 REV. 02 01/23/2003
0002.00 FEMPPF IF F 08 DISK
0003.00 FQPRINT O F 132 PRINTER OFLIND(*INOF)
0004.00 DCOUNT1 S 4 0 INZ(0)
0005.00 IEMPPF NS
0006.00 I 1 3 NUM1
0007.00 I 4 6 CHAR1
0008.00 I 7 8 NUM2
0009.00 C EXCEPT HEADERA
0010.00 C EVAL COUNT1 = 0
0011.00 C READ EMPPF
0012.00 C DOW NOT %EOF
0013.00 C EVAL COUNT1 = COUNT1 + 1
0014.00 C EXCEPT DETAILA
0015.00 C READ EMPPF
0016.00 C ENDDO
0017.00 C EXCEPT TOTALA
0018.00 C EVAL *INLR = *ON
0019.00 C RETURN
0020.00 OQPRINT E HEADERA 2 2
0021.00 O UDATE Y 60
0022.00 O E DETAILA 2 2
0023.00 O 15 'NUM/CHR/NUM'
0024.00 O NUM1 20
0025.00 O CHAR1 25
0026.00 O NUM2 30
0027.00 O E TOTALA 2
0028.00 O 10 'TOTAL: '
0029.00 O COUNT1 20
****************** End of data *****************************
F3=Exit F5=Refresh F9=Retrieve F10=Cursor F11=Toggle F12=Cancel
F16=Repeat find F24=More keys
Note: Will you please send corrections, and suggestions for the
improvement of this initial AS/400 RPG IV ILE documentation,
to me at patmoss@patmoss.com. Thank You!