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



Shadrach,

What you are seeing is normal for moving negative values into character
fields for presentation.  What is happening is that the zone portion of
the least significant digit is holding the sign where D (b'1101')
represents a negative value and F (b'1111') a positive value.  In the
case of +3 that would be x'F3' which displays as a '3'; for -3 a x'D3'
which is a 'L' (in EBCDIC CCSID 37).  In the same manner -0 is stored as
x'D0' which displays as a right brace (in CCSID 37 - note that other CCSIDS
can definitely display other characters for x'D0' though).  You should be
able to find some discussion of this in the RPG reference under Data Types
and Data Formats.

What is needed for proper formatting of the numeric value (sign, decimal
separator, thousands separator, etc.) is an edit code or edit word to
be applied to the numeric value.  If you are using ILE RPG I would
suggest looking at the built-in functions %EDITC and %EDITW.  If OPM RPG
(or not RPG at all) I suggest looking at the Edit Function APIs (Convert
Edit Code QECCVTEC, Convert Edit Word QECCVTEW, and Edit QECEDT)
found in the System API Reference manual.

Bruce Vining

>
>I am creating net.data macros using RPG. Every thing to Net.data is a
>string. So when I return integers I am moving the data into a character
>field. If the number is negative I am getting a weird string. Example -50.93
>is being returned as 509L or -400.00 is returned as 4000}. What is the
>easiest way to create a normal string pattern from a negative integer.
>
>Thanks
>Shadrach Scott
>sscott@hiu.edu
>

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

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.