Charles Mills wrote:
Do you get what Ed is saying, Steve? Your eyecatcher for some GETMAINed
control block so you can find it easily in a dump is COMSTOCK. You do an F
COMSTOCK in a dump, and you get a hit, but lo and behold, it is the literal
=C'COMSTOCK' in your assembled CSECT, not the GETMAINed control block. Using
MVCIN and making the literal KCOTSMOC instead avoids that (admittedly pretty
tiny) problem. A labeled constant rather than a literal would not change
this problem (although it might be a little clearer to the reader than
=C'KCOTSMOC'+7).
I have a DCIN macro, that expands a DC with a constructed label,
followed by the user's label on an EQU:
eyetag DCIN 'KCOTSMOC'
ZZ&SYSNDX.L DC C'KCOTSMOC'
eyetag EQU ZZ&SYSNDX.L+L'ZZ&SYSNDX-1,L'ZZ&SYSNDX.L,C'C'
This allows MVCIN eyecatch,eyetag
I considered doing the text reversal as part of the macro function, but
decided I would get false hits on FINDs.
Gerhard Postpischil
Bradford, VT
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
