This portal is to open public enhancement requests against IBM Power Systems products, including IBM i. To view all of your ideas submitted to IBM, create and manage groups of Ideas, or create an idea explicitly set to be either visible by all (public) or visible only to you and IBM (private), use the IBM Unified Ideas Portal (https://ideas.ibm.com).
We invite you to shape the future of IBM, including product roadmaps, by submitting ideas that matter to you the most. Here's how it works:
Start by searching and reviewing ideas and requests to enhance a product or service. Take a look at ideas others have posted, and add a comment, vote, or subscribe to updates on them if they matter to you. If you can't find what you are looking for,
Post an idea.
Get feedback from the IBM team and other customers to refine your idea.
Follow the idea through the IBM Ideas process.
Welcome to the IBM Ideas Portal (https://www.ibm.com/ideas) - Use this site to find out additional information and details about the IBM Ideas process and statuses.
IBM Unified Ideas Portal (https://ideas.ibm.com) - Use this site to view all of your ideas, create new ideas for any IBM product, or search for ideas across all of IBM.
ideasibm@us.ibm.com - Use this email to suggest enhancements to the Ideas process or request help from IBM for submitting your Ideas.
See this idea on ideas.ibm.com
If we have a numeric field and want to put it in a CHAR field it will show the leading zeros:
Assuming myNumber is 7,0 numeric and myAlpha is 7 alpha
>> myAlpha = %char(myNumber);
myAlpha = '123____'
to keep the leading zeros we have to use the %EDITC Build in Function:
>> myAlpha= %editc(myNumber:'X');
myAlpha = '0000123'
It would be *really nice* if we could do this with the %char BIF
>> myAlpha = %CHAR(mynumber:*ZEROSUPPRESS|*NOZEROSUPPRESS)
or something like that...
Would allow easy data transformation when building webservice data-strings where we have to pass *ZERO as a value rather than letting %CHAR translate it to *BLANKS
Simplifies the use of RPGLE using one %BIF for character to numeric conversions
Idea priority | Low |
By clicking the "Post Comment" or "Submit Idea" button, you are agreeing to the IBM Ideas Portal Terms of Use.
Do not place IBM confidential, company confidential, or personal information into any field.
IBM does not intend to provide a solution to this request at this time, so it is being closed.
This team has quite a long list of higher priority requirements, so this request is not likely to be implemented anytime soon.
The CEAC has reviewed this requirement and recommends that IBM view this as a MEDIUM priority requirement that should be addressed.
Background: The COMMON Europe Advisory Council (CEAC) members have a broad range of experience in working with small and medium-sized IBM i customers. CEAC has a crucial role in working with IBM i development to help assess the value and impact of individual RFEs on the broader IBM i community and has therefore reviewed your RFE.
To find out how CEAC help to shape the future of IBM i, see CEAC @ ibm.biz/BdYSYj and the article "The Five Hottest IBM i RFEs Of The Quarter" at ibm.biz/BdYSZT
Therese Eaton – CEAC Program Manager, IBM
And the next question is can we have *SEPARATOR:*NOSEPARATOR or *LEADINGSIGN:*TRAILINGSIGN :-)
But why not write your own procedure ?
Dcl-Pr MyEdit;
Dcl-Pi *N VarChar(64);
Number Packed(30:10) Const;
Options VarChar(64) Const;
End-Pi;
Select;
When %Scan('*NOZEROSUPPRES: Options) > 0;
Return %Edit(Number: 'X');
Other;
Return %Char(Number);
EndSl;
End-Pr;
So you could write var = %MyEdit(137: '*NOZEROSUPPRES);