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




I've always done it this way:


*
------------------------------------------------------------------------
--
* XML Events Literals

dsevents ds

30a inz('*XML_START_DOCUMENT
')
30a inz('*XML_VERSION_INFO
')
30a inz('*XML_ENCODING_DECL
')
30a inz('*XML_STANDALONE_DECL
')
30a inz('*XML_DOCTYPE_DECL
')
30a inz('*XML_START_ELEMENT
')
30a inz('*XML_CHARS
')
30a inz('*XML_PRDEF_REF
')
30a inz('*XML_UCS2_REF
')
30a inz('*XML_UNKNOWN_REF
')
30a inz('*XML_END_ELEMENT
')
30a inz('*XML_ATTR_NAME
')
30a inz('*XML_ATTR_CHARS
')
30a inz('*XML_ATTR-PREDEF_REF
')
30a inz('*XML_ATTR_UCS2_REF
')
30a inz('*XML_UNKNOWN_ATTR_REF
')
30a inz('*XML_END_ATTR
')
30a inz('*XML_PI_TARGET
')
30a inz('*XML_PI_DATA
')
30a inz('*XML_START_CDATA
')
30a inz('*XML_END_CDATA
')
30a inz('*XML_COMMENT
')
30a inz('*XML_EXCEPTION
')
30a inz('*XML_END_DOCUMENT
')
30a inz('*25 What is this
')
30a inz('*26 What is this
')
30a inz('*27 What is this
')
30a inz('*28 What is this
')
30a inz('*29 What is this
')
30a inz('*30 What is this
')
30a inz('*31 What is this
')
event_literal...

30a dim(31) overlay(dsevents)


Works fine for me. Sorry, I left the 'd' out.

Thanks,

Marvin

------------------------------

message: 5
date: Fri, 1 Apr 2011 16:08:04 -0500
from: Kurt Anderson <kurt.anderson@xxxxxxxxxxxxxx>
subject: RE: Constant arrays

I don't know where the article is, but here's an example of month
abbreviations in an array. In this DS/array, I could have created a
field name for each of the abbreviations but chose not to.



So my array in this case is ds_Abbv.Array.

Example: ds_Abbv.Array(2) = 'Feb'



// Abbreviated Month Array

D ds_Abbv DS Qualified

D Data 36a

D 3a Inz( 'Jan' ) Overlay( Data:
*next )

D 3a Inz( 'Feb' ) Overlay( Data:
*next )

D 3a Inz( 'Mar' ) Overlay( Data:
*next )

D 3a Inz( 'Apr' ) Overlay( Data:
*next )

D 3a Inz( 'May' ) Overlay( Data:
*next )

D 3a Inz( 'Jun' ) Overlay( Data:
*next )

D 3a Inz( 'Jul' ) Overlay( Data:
*next )

D 3a Inz( 'Aug' ) Overlay( Data:
*next )

D 3a Inz( 'Sep' ) Overlay( Data:
*next )

D 3a Inz( 'Oct' ) Overlay( Data:
*next )

D 3a Inz( 'Nov' ) Overlay( Data:
*next )

D 3a Inz( 'Dec' ) Overlay( Data:
*next )

D Array 3a Dim( %div( %len( ds_Abbv.Data
): 3 ))

D Overlay( Data )





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.