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.
This RFE is one of a small group which had apparently been set aside incorrectly years ago and subsequently overlooked. We are sorry for the delay.
There is an existing technique to allow a COPY file to be processed via AREAD, which is to cause the COPY file to be fetched by lookahead by using a forward attribute reference, so the AREAD will see the contents of the copy file rather than the COPY statement itself. This can all be encapsulated in a macro, using AINSERT to create an end label and issue the COPY, for example something like the following:
MACRO
MYCOPY &MEMBER
&ENDLABEL SETC 'ENDCOPY_&SYSNDX'
AINSERT ' READMEM &ENDLABEL',BACK
AINSERT ' COPY &MEMBER',BACK
AINSERT '&ENDLABEL DS 0X',BACK
MEND
MACRO
READMEM &ENDLABEL
&T SETC T'&ENDLABEL Cause lookahead
.LOOP ANOP ,
&LINE AREAD , Read next input line
AIF ('&LINE'(1,K'&ENDLABEL+1) EQ '&ENDLABEL ').END
...
AGO .LOOP
.END ANOP ,
MEND
...
MYCOPY MEM1
Regards, Jonathan Scott, HLASM
Due to processing by IBM, this request was reassigned to have the following updated attributes:
Brand - Servers and Systems Software
Product family - Enterprise Tooling
Product - High Level Assembler (HLASM)
For recording keeping, the previous attributes were:
Brand - WebSphere
Product family - Enterprise Tooling
Product - High Level Assembler (HLASM)