The solution to avoid DDE is to initialise the fields or Data structures in
the beginning. The problem in your code could be that you may have to
initialise HDYST field. Just give it a try. To verify, you can debug the
program. Put a break point at the MOVEL statement. When the program stops
at that line, just check the value in HDYST. You must be having some junk
characters or Hex40 as '404040404040' . This is Hex blanks. In a packed
decimal we are having Hex blanks. This could result in DDE when you try to
move a valid numeric value into the field. Initialising the field HDYST
shoudl solve the problem. Do a Z-ADD*ZEROS   HDYST in the beginning.

Also sometime back I read about avoiding DDEs in a book. I forgot the name
of the book. May be others can help us out in finding the name of the book.
Good luck!!

- Venu

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

This thread ...

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by 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].