× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. February 2002

Re: What is syntax for arrays within array?

Jim
Here's an example we use not real pretty but it works....
     D DATA            DS
     D  PARMS                              DIM(10)
     D   CO1                        600    OVERLAY(PARMS:1  )
     D     FSCOA                      2    OVERLAY(CO1:1)
     D     FSCOA#                     2  0 OVERLAY(CO1:1)
     D     FSBRA                      1    OVERLAY(CO1:3)
     D     FSCOBRA#                   3  0 OVERLAY(CO1:1)
     D     FORMATA                   10    OVERLAY(CO1:5)
     D     SUBS                            OVERLAY(CO1:15)
     D      SUBSCO1                   2    OVERLAY(SUBS:1)
     D      SUBSCO1#                  2  0 OVERLAY(SUBS:1)
     D      SUBSBR1                   1    OVERLAY(SUBS:3)
     D      SUBCBR1                   3  0 OVERLAY(SUBS:1)
     D      SUBFMT1                  10    OVERLAY(SUBS:4   )
     D      SUBSCO2                   2    OVERLAY(SUBS:14)
     D      SUBSCO2#                  2  0 OVERLAY(SUBS:14)
     D      SUBSBR2                   1    OVERLAY(SUBS:16)
     D      SUBCBR2                   3  0 OVERLAY(SUBS:14)
     D      SUBFMT2                  10    OVERLAY(SUBS:17  )
     D      SUBSCO3                   2    OVERLAY(SUBS:27)
     D      SUBSCO3#                  2  0 OVERLAY(SUBS:27)
     D      SUBSBR3                   1    OVERLAY(SUBS:29)
     D      SUBCBR3                   3  0 OVERLAY(SUBS:27)
     D      SUBFMT3                  10    OVERLAY(SUBS:30  )
     D      SUBSCO4                   2    OVERLAY(SUBS:40)
     D      SUBSCO4#                  2  0 OVERLAY(SUBS:40)
     D      SUBSBR4                   1    OVERLAY(SUBS:42)
     D      SUBCBR4                   3  0 OVERLAY(SUBS:40)
     D      SUBFMT4                  10    OVERLAY(SUBS:43  )
     D      SUBSCO5                   2    OVERLAY(SUBS:53)
     D      SUBSCO5#                  2  0 OVERLAY(SUBS:53)
     D      SUBSBR5                   1    OVERLAY(SUBS:55)
     D      SUBCBR5                   3  0 OVERLAY(SUBS:53)
     D      SUBFMT5                  10    OVERLAY(SUBS:56  )
     D      SUBSCO6                   2    OVERLAY(SUBS:66)
     D      SUBSCO6#                  2  0 OVERLAY(SUBS:66)
     D      SUBSBR6                   1    OVERLAY(SUBS:68)
     D      SUBCBR6                   3  0 OVERLAY(SUBS:66)
     D      SUBFMT6                  10    OVERLAY(SUBS:69  )
     D      SUBSCO7                   2    OVERLAY(SUBS:79)
     D      SUBSCO7#                  2  0 OVERLAY(SUBS:79)
     D      SUBSBR7                   1    OVERLAY(SUBS:81)
     D      SUBCBR7                   3  0 OVERLAY(SUBS:79)
     D      SUBFMT7                  10    OVERLAY(SUBS:82  )
     D      SUBSCO8                   2    OVERLAY(SUBS:92)
     D      SUBSCO8#                  2  0 OVERLAY(SUBS:92)
     D      SUBSBR8                   1    OVERLAY(SUBS:94)
     D      SUBCBR8                   3  0 OVERLAY(SUBS:92)
     D      SUBFMT8                  10    OVERLAY(SUBS:95  )
     D      SUBSCO9                   2    OVERLAY(SUBS:105)
     D      SUBSCO9#                  2  0 OVERLAY(SUBS:105)
     D      SUBSBR9                   1    OVERLAY(SUBS:107)
     D      SUBCBR9                   3  0 OVERLAY(SUBS:105)
     D      SUBFMT9                  10    OVERLAY(SUBS:108)
     D      SUBSCO10                  2    OVERLAY(SUBS:118)
     D      SUBSCO10#                 2  0 OVERLAY(SUBS:118)
     D      SUBSBR10                  1    OVERLAY(SUBS:120)
     D      SUBCBR10                  3  0 OVERLAY(SUBS:118)
     D      SUBFMT10                 10    OVERLAY(SUBS:121)
     D     SUB1                            OVERLAY(CO1:145)




                    Jim Langston
                    <jlangston@celsin       To:     "'rpg400-l@midrange.com'" 
<rpg400-l@midrange.com>
                    c.com>                  cc:
                    Sent by:                Subject:     What is syntax for 
arrays within array?
                    rpg400-l-admin@mi
                    drange.com


                    02/21/2002 03:05
                    PM
                    Please respond to
                    rpg400-l






VARPG

I have an array of 125 integers I am loading.  The first 25 integers I want
to have in a sub array, the second 25 integers I want in another subarray,
etc...

For example, integer # 27 I would like to refer to as either QtyOH(27) or
QtyOHN(2).  This is what I have tried (which didn't work):

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.