Not true. I use INITIALIZE all the time on tables and it conforms to the picture clause of each field in the table.
01 PAID-FLAG-TABLE.
05 PFLG-TABLE OCCURS 14 TIMES
INDEXED BY PINDX.
10 PFLG-CODE PIC X(1).
10 PFLG-DESC PIC X(6).
10 PFLG-TOTALS.
15 RPTSUM-PYMT-AMT PIC S9(10)V99 COMP-4.
INITIALIZE PAID-FLAG-TABLE.
By the way, you can also use this to reset at any group level, if you are doing subtotaling, you can initialize after printing the sub-total.
Alexis Cousino
Detroit Media Partnership
IT Project Leader
313.222.6773
-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx [mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of John Arnold (MFS)
Sent: Tuesday, June 03, 2008 1:06 PM
To: COBOL Programming on the iSeries/AS400
Subject: [COBOL400-L] COBOL 101 Question
The INITIALIZE statement will do what you want but you need to be
careful. An INITIALIZE at the table level will set the value of the
entire table to spaces (or whatever value is specified in a REPLACING
clause). If there are numeric variables in the table, this can lead to
data decimal errors down the line.
John Arnold
(301) 354-2939
-----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.
--
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.
midrange.com
