Why not simply look for the lines with the location counter less than 20 and see what causes them?
On Thu, 23 Aug 2012 04:44:02 -0400 Micheal Butz <[email protected]> wrote: :>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 -- Binyamin Dissen <[email protected]> http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies.
