Re: Reading a file into a data set

[Charles Wilt <charles.wilt@xxxxxxxxx>]

I think it can be done....but I'd have to play with it....and I'm
heading out for a 4 day weekend. :)

Perhaps the 2d DS will need to be BASED over the expanded one?

HTH,
Charles

On Thu, Jun 25, 2009 at 4:26 PM, <Michael_Schutte@xxxxxxxxxxxx> wrote:
> 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.
>
>
> --
> 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.