IBM Z Software
This portal is to open public enhancement requests against IBM Z Software products. 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).
Shape the future of IBM!
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:
Search existing ideas
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 your ideas
Post an idea.
Get feedback from the IBM team and other customers to refine your idea.
Follow the idea through the IBM Ideas process.
Specific links you will want to bookmark for future use
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.
Hi, thank you for submitting this idea.
We have evaluated it and we think this can be achieved with functionality that currently exists. Below is an example. As a result, this idea is being rejected.
identification division.
program-id. foo.
data division.
working-storage section.
01 string-to-parse pic x(100) value "val1,val2,val3".
01 outlist.
03 out-data pic x(20) occurs 100 times.
01 num-items pic s9(9) binary value 0.
01 ix pic s9(9) binary value 1.
01 pos pic s9(9) binary value 1.
procedure division.
* parse items
perform varying ix from 1 by 1
until pos > length of string-to-parse
unstring string-to-parse
delimited by ","
into out-data(ix)
with pointer pos
tallying in num-items
end-perform
* display items parsed
perform varying ix from 1 by 1
until ix > num-items
display 'out-data(' ix ') = ' out-data(ix)
end-perform
goback.
end program foo.