RE: Reading a file into a data set

I've done it this very way for a long time also. We might have stolen the
idea from the same place.:-)


*
* Level Array
* This takes the fields from a screen, s1lvl1-9, and
* makes them into an array
*
D DSLvl DS
D s1lvl1
D s1lvl2
D s1lvl3
D s1lvl4
D s1lvl5
D s1lvl6
D s1lvl7
D s1lvl8
D s1lvl9
*
D Lvl LIKE(s1lvl1)
D OVERLAY(DSLvl)
D DIM(9)



Thanx,

Nick



Nick Radich
Sr. Programmer/Analyst
EPC Molding, Inc.
Direct (320) 679-6683
Toll free (800) 388-2155 ext. 6683
Fax (320) 679-4516
nick_radich@xxxxxxxxxxxxxx



Jerry Adams <Jerry@xxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
06/26/2009 06:07 AM
Please respond to
RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: Reading a file into a data set






Alan,

This is the way that I have done it before. The fields are not contiguous
in the record. I know I stole the idea, but can't remember from whom.

D Methods DS
D LxCigs
D LxChew
D LxSnuff
D LxSmokel
D LxCigars
D LxLittle
D LxRolling
D LxPlug

D MethArr Overlay(Methods)
D Like(LxCigs) Dim(8)

Jerry C. Adams
IBM System i Programmer/Analyst
--
B&W Wholesale
office: 615-995-7024
email: jerry@xxxxxxxxxxxxxxx


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Alan Shore
Sent: Thursday, June 25, 2009 3:18 PM
To: RPG programming on the IBM i / System i
Subject: Reading a file into a data set

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