Re: Loading an array from multiple fields in a record

[Michael Ryan <michaelrtr@xxxxxxxxx>]

No mention of a pre-run time array?

Coding  a  Prerun-Time  Array
In  addition  to  the  essential  array  specifications,  you  can  also
code  the  following
specifications  or  keywords  for  prerun-time  arrays.
On  the  definition  specifications,  you  can  specify
v      The  name  of  the  file  with  the  array  input  data,  using  the
FROMFILE  keyword.
v      The  name  of  a  file  to  which  the  array  is  written  at  the
end  of  the  program,  using
the  TOFILE  keyword.
v      The  number  of  elements  per  input  record,  using  the  PERRCD
keyword.
v      The  external  format  of  numeric  array  data  using  the  EXTFMT
keyword.
v      An  alternating  format  using  the  ALT  keyword.
Note:    The  integer  or  unsigned  format  cannot  be  specified  for
arrays  defined  with
more  than  ten  digits.
On  the  file-description  specifications,  you  can  specify  a  T  in
position  18  for  the  file
with  the  array  input  data.

*  Prerun-time  array.    ARE,  which  is  to  be  read  from  file  DISKIN,

*  has  250  character  elements  (12  elements  per  record).    Each
*  element  is  five  positions  long.    The  size  of  each  record
*  is  60  (5*12).  The  elements  are  arranged  in  ascending  sequence.
DARE                            S                            5A
DIM(250)  PERRCD(12)  ASCEND
D
FROMFILE(DISKIN)

On Thu, Sep 30, 2010 at 1:36 PM, Alan Shore <AlanShore@xxxxxxxx> wrote:

> Hi Jim
> try the following
> d Row1          ds
> d Field1                7  2
> d Field2                7  2
> d Field3                7  2
> d Field4                7  2
> d Field5                7  2
> .
> .
> .
> d Field24               7  2
> D Fieldind                            7  2 DIM(24) OVERLAY(Row1)
>
> where the names Field1 through Field24 are the same names and size etc as
> those fields on the file
>
>
>
>
>
> Alan Shore
> Programmer/Analyst, Direct Response
> E:AShore@xxxxxxxx
> P:(631) 200-5019
> C:(631) 880-8640
> "If you're going through Hell, keep going" - Winston Churchill
>
>
>
>             Jim Essinger
>             <dilbernator@gmai
>             l.com>                                                     To
>             Sent by:                  "RPG programming on the IBM i /
>             rpg400-l-bounces@         System i" <rpg400-l@xxxxxxxxxxxx>
>             midrange.com                                               cc
>
>                                                                   Subject
>             09/30/2010 01:29          Loading an array from multiple
>             PM                        fields in a record
>
>
>             Please respond to
>               RPG programming
>              on the IBM i /
>                 System i
>              <rpg400-l@midrang
>                  e.com>
>
>
>
>
>
>
> Greetings!
>
> I am a former (reformed) COBOL programmer still trying to re-learn RPG
> (learned and used RPG II) and upgrade my knowledge to include the newer
> functionality.  I have searched the archives, but have not found a good way
> to do this.
>
> I have a file with records that contain 24 contiguous fields with like
> information.  They are all dollar amounts. From one record I need to load
> an
> array so that field01 becomes array element 1, field02 becomes array
> element
> 1 and so on.
>
> Is there an easy way in RPG to accomplish this?
>
> I have tried to create a DS with like;
>
>
> D ds
> D InFields
> D  Field01
> D  Field02
> .
> .
> .
> .
> D  Field24
>
> D ds
> D WkArray  (defined like Field01) dim(24)
>
> Then I have tried several ways to get the data structure InFields to load
> each field into the array WkArray.  All with no luck.
>
> Any thoughts?
>
> Thanks!
>
> Jim
> --
> 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.