Maybe, but I don't think so. To check your hypothesis just place a "BURN CSECT" statement just prior to the BEGIN statement and see what happens.
-----Original Message----- From: IBM Mainframe Assembler List [mailto:[email protected]] On Behalf Of Tony Thigpen Sent: Thursday, August 23, 2012 5:02 AM To: [email protected] Subject: Re: Strange PC entry It's because you have x20 bytes of 'something' generated by the BEGIN macro that is before your CSECT statement. So, it's something in how the BEGIN macro is coded. Tony Thigpen -----Original Message ----- From: Micheal Butz Sent: 08/23/2012 04:44 AM > Hi, > > > > My program source has a TITLE cards the REGS macro (equating registers) and > then CSECT statement with the name of the CSECT > > > > However the location counter starts at 20 > > > > In my external symbol dictionary I have a PC entry (unnamed CSECT) at > location 0 however the first statement in my program is the csect which > starts at location 20 > > > > 21 BURN BEGIN BASE=RBASE > > 000020 00020 00234 22+BURN CSECT > > 23+BURN AMODE 31 > > 24+BURN RMODE ANY > > R:F 00020 25+ USING *,R15 > > 000020 90EC D00C 0000C 26+ STM R14,R12,12(R13) > > > > External symbol dictionary > > > > Symbol Type Id Address Length Owner Id Flags Alias-of > > PC 00000001 00000000 00000020 00 > > BURN SD 00000002 00000020 00000234 06 > > CANCEL SD 00000003 00000258 00000007 00 > > > > The following is the first few lines of my source > > > > TITLE 'BURN - ABEND A JOB OR ADDRESS SPACE' > > YREGS > > BURN BEGIN BASE=RBASE > > RCPPL EQU 7 COMMAND PROCESSOR PARAMTER LIS > > RPPL EQU 8 PARSER PARAMTER LIST > > RSAVE EQU 13 > > RBASE EQU 12 > > RCVT EQU 11 > > RASCB EQU 10 > > RASVT EQU 9 > > RCNT EQU 8 > > RPSCB EQU 6 > > SPACE 5 > > USING CPPL,RCPPL > > > > I keep wondering where is the unnamed CSECT > >
