× 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. March 2005

data structure array.

I can get this to work:

     D                 DS
     D FmtData                       96    Inz('*MDY    *DMY    *YMD    +
     D                                          *JUL    *ISO    *USA    +
     D                                          *EUR    *JIS    *CYMD   +
     D                                          *CMDY   *CDMY   *LONGJUL')
     D FmtArray                       8    Overlay(FmtData) Dim(12) 

How can I get this to work:
     D                 ds
     D ConstantList                        inz('default        server1  -
RNF7030: The name or indicator CONSTAN... is not defined.
     D                                          WAS5Portal     WAS5Portal  
  -
     D                                          IBMTEST        IBMTEST  ')
     D WASList                             dim(3) overlay(ConstantList)
RNF7030: The name or indicator WASLIST is not defined.
     D                                     likeDs(ServerList) Qualified
RNF3543: Keyword is not allowed within a data structure that is not 
qualified.
RNF3701: Keyword is not allowed for a subfield definition; keyword is 
ignored.
     D ServerList      ds
RNF7031: The name or indicator SERVERLIST is not referenced.
     D  Instance                     15a
RNF7031: The name or indicator INSTANCE is not referenced.
     D  Server                       15a


Dropping the work Qualified didn't fix it.

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
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.