Not according to the binder's MAP:
*** M O D U L E M A P ***
---------------
CLASS C_CODE LENGTH = 16A0 ATTRIBUTES = CAT,
OFFSET = 0 IN SEGMENT 001
---------------
SECTION CLASS ------
OFFSET OFFSET NAME TYPE LENGTH DDNAME
0 $PRIV000010 CSECT 16A0 SYSLIN
98 98 MYPROGRM LABEL
---------------
CLASS C_@@PPA2 LENGTH = 8 ATTRIBUTES = MRG,
OFFSET = 16A0 IN SEGMENT 001
---------------
CLASS
OFFSET NAME TYPE LENGTH SECTION
0 $PRIV000011 PART 8 $PRIV000010
---------------
CLASS B_LIT LENGTH = C0 ATTRIBUTES = CAT,
OFFSET = 16A8 IN SEGMENT 001
---------------
SECTION CLASS ------- SOURCE --------
OFFSET OFFSET NAME TYPE LENGTH DDNAME SEQ MEMBER
0 IEWBLIT CSECT C0 **NULL**
0 0 IEWBLIT LABEL
Thanks,
mario
On Sun, 13 Feb 2022 01:01:22 +0000, Seymour J Metz <[email protected]> wrote:
>Do you have code prior to your first CSECT?
>
>
>--
>Shmuel (Seymour J.) Metz
>http://mason.gmu.edu/~smetz3
>
>________________________________________
>From: IBM Mainframe Discussion List [[email protected]] on behalf of
>Mario Bezzi [[email protected]]
>Sent: Saturday, February 12, 2022 12:45 PM
>To: [email protected]
>Subject: AMASPZAP DUMPT and program objects
>
>Hello, I struggle dumping a single CSECT within a program object of mine,
>using AMASPZAP.
>
>When I compile/bind the program, the binder says:
>
> *** M O D U L E M A P ***
>
>---------------
>CLASS C_CODE LENGTH = 16A0 ATTRIBUTES = CAT, LOAD, RMODE=ANY
> OFFSET = 0 IN SEGMENT 001 ALIGN = DBLWORD
>---------------
>
> SECTION CLASS ------- SOURCE --------
> OFFSET OFFSET NAME TYPE LENGTH DDNAME SEQ MEMBER
>
> 0 $PRIV000010 CSECT 16A0 SYSLIN 01 **NULL**
> 98 98 MYPROGRM LABEL
>
>Basing on the above, I think that the CSECT I am interested in is called
>$PRIV000010.
>
>But if I try the following AMASPZAP statement:
>
>DUMPT MYMODULE $PRIV000010 C_CODE
>
>The utility fails with RC 8 complaining that CSECT PRIV000010 doesn't exist.
>
>Apparently, according to AMASPZAP the name is $PRIVATE CODE:
>
>AMA103I CSECT ABSENT - ALL CSECTS FOLLOW
>
>**RECORD LENGTH: 000016A0 CLASS: C_CODE MEMBER NAME: MYMODULE
> CSECT NAME: $PRIVATE CODE
>
>I can't understand why AMASPZAP doesn't find the name shown by the binder (and
>confirmed by AMBLIST), and I don't know how to pass a name like " $PRIVATE
>CODE" to AMASPZAP.
>
>Help anyone?
>
>Thanks!
>mario
>
>----------------------------------------------------------------------
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to [email protected] with the message: INFO IBM-MAIN
>
>----------------------------------------------------------------------
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to [email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
