RE: RPG ILE example

["DeLong, Eric" <EDeLong@xxxxxxxxxxxxxxx>]

Hi Dave,

This is probably best asked on RPG400-L, but here's a sample to get you
going.

D $DS$KPG         DS
D $KPGSelect                          Dim(500)
D   $KPGComDiv                   6A   Overlay($KPGSelect:1)
D   $KPGVend#                    3A   Overlay($KPGSelect:*Next)
D   $KPGPrdLn                    3A   Overlay($KPGSelect:*Next)
D   $KPGCat                      2A   Overlay($KPGSelect:*Next)
D   $KPGStrDt                     D   Overlay($KPGSelect:*Next)
D   $KPGEndDt                     D   Overlay($KPGSelect:*Next)
D   $KPGGrpN                    10A   Overlay($KPGSelect:*Next)
D   $KPGLtop                     1A   Overlay($KPGSelect:*Next)
D   $KPGBonus                    1A   Overlay($KPGSelect:*Next)
D   $KPGCtry                     3A   Overlay($KPGSelect:*Next)
D   $KPGKey                      9A   Overlay($KPGSelect:1)

Eric DeLong
Sally Beauty Company
MIS-Sr. Programmer/Analyst
940-898-7863 or ext. 1863



-----Original Message-----
From: Dave Snyder [mailto:dsnyder@blcnet.com]
Sent: Thursday, September 13, 2001 7:54 AM
To: midrange-l@midrange.com
Subject: RPG ILE example


I was wondering if someone could provide me an example of an RPG ILE program
utilizing arrays to build a table to hold about five different data items.
Thanks in advance.
Dave

_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.