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



To the best of my knowledge, no. You can initialize
a higher level entry without doing each element, but
you cannot initialize the table and have it work
correctly for all lower data elements - unless they
are all characters.

In this case, initializing My-Table will set the whole
table area to spaces...not good ;-)

01 My-Table occurs 10 times.
05 Element-01 pic x(01.
05 Element-02 pic s9(03) comp-3.

However, looping thru this table an initializing
My-Entry should work correctly :)

01 My-Table occurs 10 times.
05 My-Entry.
10 Element-01 pic x(01.
10 Element-02 pic s9(03) comp-3.

Terry

-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx
[mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of Robert Munday
Sent: Tuesday, June 03, 2008 12:55 PM
To: COBOL
Subject: [COBOL400-L] COBOL 101 Question

I have an elementary question about initializing a table.
Because of staff turnover, there are no experienced
programmers here who can answer this.

I have a code example which sets a counter and initializes
each table element until all have been initialized. Is it
possible just to issue an initialize on the whole table? We
do that in RPG.

Thanks,



Robert Munday
Munday Software Consultants
Montgomery, AL
on assignment in Columbia, SC
soon to be somewhere else...


--
This is the COBOL Programming on the iSeries/AS400
(COBOL400-L) mailing list
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.



Confidentiality Notice:

The preceding e-mail message (including any attachments) contains information that may be confidential, protected by applicable legal privileges, or constitute non-public information. It is intended to be conveyed only to the designated recipient(s). If you are not an intended recipient of this message, please notify the sender by replying to this message and then delete it from your system. Use, dissemination, distribution or reproduction of this message by unintended recipients is
not authorized and may be unlawful.




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

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.