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).
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.
I'm not allowed to export the actual code, but this should convey the idea. The work area is initialized to zero.
LA R2,TABLELEN
LA R3,LAST
LA R4,VIRTORG
DO INF
GET SYSIN
JXH R4,R2,FULL
ST R4,COMPARND
...
ENDDO .
FULL WTO 'TABLE FULL',ROUTCDE=7
EODAD DS 0H
...
IF (LT,R3,COMPARND
LA R2,TABLELEN
LA R4,TABLE
DO FROM=(R4),BY=(R2),TO=(R3)
...
ENDDO .
ENDIF .
...
TABLEENT DSECT ,
FOO DS F
BAR DS CL8
TABLELEN DS *-TABLEENT
...
WORK DSECT ,
...
TABLE DS 100CL(TABLELEN)
VIRTORG EQU TABLE-TABLELEN,TABLEN
LAST EQU *-TABLEN,TABLEN
COMPARND DS A(0)
Using the proposed predicate, the first loop might look like:
DO INF
GET SYSIN
DOEXIT (JXH,R4,R2)
ST R4,COMPARND
...
ENDDO .
WTO 'TABLE FULL',ROUTCDE=7
EODAD DS 0H
For this type of loop, the initial value is the virtual origin so that it points to the first entry after the first incrementation.
We need more details to understand your requirement.
Please send us examples for each case (ASMEXIT, DO WHILE, DOEXIT, IF) you have mentioned.
Regards,
Ramesh Padmanabha, HLASM
Thanks, Ramesh Padmanabha, HLASM