Array/ Data Deciamal -- RPG400-L

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

Subject: Array/ Data Deciamal
From: "Hopkins, Bill" <BHopkins@xxxxxxxxxxxxx>
Date: Tue, 5 Nov 2002 11:52:18 -0500
List-archive: <http://archive.midrange.com/rpg400-l/>
List-help: <mailto:rpg400-l-request@midrange.com?subject=help>
List-id: RPG programming on the AS400 / iSeries <rpg400-l.midrange.com>
List-post: <mailto:rpg400-l@midrange.com>
List-subscribe: <http://lists.midrange.com/cgi-bin/listinfo/rpg400-l>,<mailto:rpg400-l-request@midrange.com?subject=subscribe>
List-unsubscribe: <http://lists.midrange.com/cgi-bin/listinfo/rpg400-l>,<mailto:rpg400-l-request@midrange.com?subject=unsubscribe>

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

As an Amazon Associate we earn from qualifying purchases.

Follow-Ups:

Re: Array/ Data Deciamal , Gary Guthrie

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.