Re: Decimal Data Error

>Tim Truax wrote:
>
>> C           *ENTRY    PLIST
>> C                     PARM           X$YYYY  40      <--4 pos/0dec

>> 
>> I am getting a DDE on this line-
>> 
>> C* PLACE THE YYYY INTO HDYTST.
>> C                     MOVELX$YYYY    HDYTST  80    <--DDE happening
>> here!
>> 
If you really want to use a MOVEL instead of a Z-ADD, use a P in the
half-adjust column to pad the field with blanks.

    C                    MOVELX$YYYY    HDYTST  80P    

My guess is you have HDYTST defined in a data structure.  Remember, numeric
fields in a data structure are initialized to blanks unless you use an IDS
instead of a DS for the data structure.  Or define the field using an I I in
columns 6-8.


Charlie Massoglia, Massoglia Technical Consulting, Inc.
PO Box 1065, Okemos, MI 48854, USA
517-676-9700  Fax: 517-676-1006  EMAIL: cmassoglia@voyager.net


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MAJORDOMO@midrange.com
|    and specify 'unsubscribe MIDRANGE-L' in the body of your message.
| Questions should be directed to the list owner/operator: david@midrange.com
+---