Re: Array/ Data Deciamal

[Gary Guthrie <garyguthrie@xxxxxxxxxxx>]

Yes, ALWAYS initialize data structure subfields. Data structures are
character by definition hence the blanks when not initialized.

Gary Guthrie


"Hopkins, Bill" wrote:
>
> Hi All,,
>
> E                    AR         10 13 0
>
> Sub Fields from file ARACCT
> I            DS
> I                                        1 130 AR
> I                                        1  130AAACT1
> I                                       14  260AAACT2
> I                                       27  390AAACT3
> I                                       40  520AAACT4
> I                                       53  650AAACT5
> I                                       66  780AAACT6
> I                                       79  910AAACT7
> I                                       92 1040AAACT8
> I                                      105 1170AAACT9
> I                                      118 1300AAAC10
>
> ***
> C           #ARACT    CHAINARACCT               85
> C           *IN85     IFEQ *ON
> C                     Z-ADD0         AR                   <<<<<<<<<<<<<<<<
> ???? What's up with this?
> C                     END
>
> C                     Z-ADDAR,2      #ACCT0 130   <<<<<<<<<<<<<<<< Boom on
> when no hit on ARACCT
>
> When no hit AR  DS has blanks.
>  So AR,2 has blanks.
> So Data decimal error when z-add AR,2 to #ACCTO
>
> Anyone suggested fixes/better way This is in alot of code just been lucky
> till now..
>
> Thanks
> Bill H
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.