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


  1.  Home
  2. RPG400-L
  3. February 2017

Re: Define *DEC Data Area in /free

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx> wrote on 02/14/2017 11:42:09
AM:
I've been trying for 30 minutes to get a data area defined as numeric.

The Data Area is defined as *DEC, length 8,0.

Here is my code that compiles. When I execute I get RNX0411....
"data area was defined to be of type *CHAR and length 8."

Here is my definition
/free
dcl-ds lcaNxtId dtaara;
reckey zoned(8:0);
end-ds;
/end-free

I tried zoned(8:0) on dcl-ds but that's not allowed.

The first problem is that a *DEC data area is packed-decimal in
RPG -- not zoned decimal.


Sincerely,

Dave Clark

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
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.