I dont think you can do it into a two dimenisional but you could
D DS
D numbers01A
D numbers02A
D ...
D arrayA 1 120 0 Dim(24)
Do the same for B and C.
--
Michael Schutte
Admin Professional
Try Bob Evans GRILLING SAUSAGE! This summerâs hottest destination is your
own backyard with Bob Evans Brats and Italian Sausage! For tasty recipes
using Bob Evans grilling sausage, visit
http://www.BobEvans.com/Recipes
Alan Shore
<AlanShore@xxxxxx
om> To
Sent by: RPG programming on the IBM i /
rpg400-l-bounces@ System i <rpg400-l@xxxxxxxxxxxx>
midrange.com cc
Subject
06/25/2009 04:17 Reading a file into a data set
PM
Please respond to
RPG programming
on the IBM i /
System i
<rpg400-l@midrang
e.com>
Brain freeze on top of a brain fart really hurts
I'm sure that I've done this before, but I cannot remember how or in which
program
I have an externally defined file with the record consisting of the
following fields
Numbers01A 5 0
Numbers02A 5 0
Numbers03A 5 0
Numbers04A 5 0
Numbers05A 5 0
Numbers06A 5 0
Numbers07A 5 0
Numbers08A 5 0
Numbers09A 5 0
Numbers10A 5 0
Numbers11A 5 0
Numbers12A 5 0
Numbers13A 5 0
Numbers14A 5 0
Numbers15A 5 0
Numbers16A 5 0
Numbers17A 5 0
Numbers18A 5 0
Numbers19A 5 0
Numbers20A 5 0
Numbers21A 5 0
Numbers22A 5 0
Numbers23A 5 0
Numbers24A 5 0
Numbers01B 5 0
Numbers02B 5 0
Numbers03B 5 0
Numbers04B 5 0
Numbers05B 5 0
Numbers06B 5 0
Numbers07B 5 0
Numbers08B 5 0
Numbers09B 5 0
Numbers10B 5 0
Numbers11B 5 0
Numbers12B 5 0
Numbers13B 5 0
Numbers14B 5 0
Numbers15B 5 0
Numbers16B 5 0
Numbers17B 5 0
Numbers18B 5 0
Numbers19B 5 0
Numbers20B 5 0
Numbers21B 5 0
Numbers22B 5 0
Numbers23B 5 0
Numbers24B 5 0
Numbers01C 5 0
Numbers02C 5 0
Numbers03C 5 0
Numbers04C 5 0
Numbers05C 5 0
Numbers06C 5 0
Numbers07C 5 0
Numbers08C 5 0
Numbers09C 5 0
Numbers10C 5 0
Numbers11C 5 0
Numbers12C 5 0
Numbers13C 5 0
Numbers14C 5 0
Numbers15C 5 0
Numbers16C 5 0
Numbers17C 5 0
Numbers18C 5 0
Numbers19C 5 0
Numbers20C 5 0
Numbers21C 5 0
Numbers22C 5 0
Numbers23C 5 0
Numbers24C 5 0
Which in essence is 3 arrays of a 24 array
There is a way of reading this file into a 2 dimensional data set
(or am I getting COBOL flashbacks?)
Any help would be much appreciated (it would also show me that I'm not
getting senile)
Alan Shore
Programmer/Analyst, Distribution
E:AShore@xxxxxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
http://archive.midrange.com/rpg400-l.
midrange.com
