I don"t think so because it will just eject the page when printed Em dom., 3 de abr. de 2022 16:29, Abe Kornelis <[email protected]> escreveu:
> Joao, > > from what I see it appears that the assembler thinks you have an active > USING > with R13 pointing to the location where the S-con of D000 appears, > offset 2AA4 in the listing. > > I see you do have an ASMA303W indicating overlapping USING ranges. > You do have the active USINGS in the page header, so an additional EJECT > just before the PATCH_AREA might help you to pinpoint the problem. > > Kind regards, > Abe Kornelis > ========== > > > Op 03/04/2022 om 21:02 schreef João Reginato: > > Hi guys > > Take a look in these pieces of code compiled in z/OS V2R4: (use any > > proportional font like courier for better understanding) > > > > 000BCC D2A5 D100 8B94 00100 02B94 2107 MVC > > WKINFO(LINFO/2),LKINFO INITIALIZE DYNALLOC > > 000BD2 D2A5 D1A6 8C3A 001A6 02C3A 2108 MVC > > WKINFO+(LINFO/2)(LINFO/2),LKINFO+(LINFO/2) > > D 100 02B94 00100 2109 USING LKINFO,WKINFO > > ** ASMA303W Multiple address resolutions may result from this USING and > the > > USING on statement number 781 > > 000BD8 4100 D104 02B98 2110 LA R0,LKINFO+4 > > RB POINTER > > 000BDC 5000 D100 02B94 2111 ST R0,LKINFO > > SAVE IT > > 000BE0 9680 D100 02B94 2112 OI LKINFO,X'80' > > LAST RB > > 000BE4 4100 D118 02BAC 2113 LA R0,LKTXTIFC > > 1ST TEXT UNIT > > 000BE8 5000 D10C 02BA0 2114 ST R0,LKATXTU > > SAVE IT > > 000BEC 4100 D128 02BBC 2115 LA R0,LKDDNP > > USE THIS DDNAME > > 000BF0 5000 D118 02BAC 2116 ST R0,LKTXTIFC > > SAVE IT > > 000BF4 4100 D13A 02BCE 2117 LA R0,LKDSGP > > RETURN DSORG > > 000BF8 5000 D11C 02BB0 2118 ST R0,LKTXTIFC+4 > > SAVE IT > > 000BFC 4100 D146 02BDA 2119 LA R0,LKDSNP > > RETURN DSNAME > > 000C00 5000 D120 02BB4 2120 ST R0,LKTXTIFC+8 > > SAVE IT > > 000C04 9680 D120 02BB4 2121 OI LKTXTIFC+8,X'80' > > LAST TEXT UNIT > > ... > > 000C20 4110 D100 02B94 2129 S3DYNIOK LA R1,LKINFO > > POINTS TO PARAMETERS > > 2130 DYNALLOC , > > RETURN DSORG & TRUE DSNAME > > 2131+* MACDATE Y-2 73082 > > 000C24 0A63 2132+ SVC 99 CALL DYNAMIC > > ALLOCATION > > ... > > Up to here everything appears to be ok. But see below: > > ... > > 0017FA E3F0 D07C 0058 02B10 3486+ LY R15,=V(FDRCOMPR) > > LOAD EPA > > ... > > 002A8E 5341+PATCH_AREA DS 0H > > PATCH AREA > > 002A8E 8A8E8A908A92D000 5342+ DC 64S(*) > > PATCH AREA > > 002A96 D002D004D006D008 ==> THE LOCATION COUNTER WAS CHANGED SUDDENLY > > !!!!!!!! > > 002A9E D00AD00CD00ED010 > > 002AA6 D012D014D016D018 > > 002AAE D01AD01CD01ED020 > > 002AB6 D022D024D026D028 > > 002ABE D02AD02CD02ED030 > > 002AC6 D032D034D036D038 > > 002ACE D03AD03CD03ED040 > > 002AD6 D042D044D046D048 > > 002ADE D04AD04CD04ED050 > > 002AE6 D052D054D056D058 > > 002AEE D05AD05CD05ED060 > > 002AF6 D062D064D066D068 > > 002AFE D06AD06CD06ED070 > > 002B06 D072D074D076D078 > > 002B10 5343+ LTORG > > 002B10 00000000 5344 =V(FDRCOMPR) > > 002B14 00000000 5345 =V(FDRDCOMP) > > ... > > Page 83 > > Active Usings: TLTCVAF,R2 IHADCB,R3 TASKPARM,R10 FDRIOC,R11,R9,R8 > > QCTDCB,R12 JFCB(X'FB4'),R12+X'4C' > > DECB(X'FF0'),R12+X'10' WKAREA,R13 LKINFO(X'FFFFE56C'),R13+X'2A94' > > DCBE,R15 > > Loc Object Code Addr1 Addr2 Stmt Source Statement > > HLASM R6.0 2022/04/01 19.40 > > ... > > 002B94 80002B98 29585 LKINFO DC A(*+X'80000004') > > RB POINTER > > 002B98 1407 29586 DC > > AL1(LKTXTIFC-*,S99VRBIN) LENGTH, INFORMATION VERB > > 002B9A 0600 29587 DC > > AL1(S99MSGL0+S99GDGNT,0) FLAGS1 > > 002B9C 0000 29588 LKERC DC AL2(0) > > ERROR CODE > > 002B9E 0000 29589 LKIRC DC AL2(0) > > INFO CODE > > 002BA0 00002BAC00000000 29590 LKATXTU DC A(LKTXTIFC,0) > > TEXT UNIT LIST PTR, RBX > > 002BA8 00000000 29591 DC AL1(0,0,0,0) > > FLAGS2 > > 002BAC 00002BBC00002BCE 29592 LKTXTIFC DC > > A(LKDDNP,LKDSGP,LKDSNP+X'80000000') > > 002BB4 80002BDA > > 002BB8 C4C4D5D4 29593 DC C'DDNM' > > 002BBC 000100010008 29594 LKDDNP DC AL2(DINDDNAM,1,8) > > GET INFO FROM > > 002BC2 4040404040404040 29595 LKDDN DC CL8' ' > > DDNAME > > 002BCA C4E2D6D9 29596 DC C'DSOR' > > 002BCE 000A00010002 29597 LKDSGP DC AL2(DINRTORG,1,2) > > GET INFO FROM > > 002BD4 0000 29598 LKDSG DC AL2(0) > > DSORG > > 002BD6 C4E2D5D4 29599 DC C'DSNM' > > 002BDA 0005000100FF 29600 LKDSNP DC > > AL2(DINRTDSN,1,L'TKPATHN) GET INFO FROM > > 002BE0 0000000000000000 29601 LKDSN DC XL(L'TKPATHN)'00' > > DSNAME/PATH > > 002CE0 29602 DS 0H > > 0014C 29603 LINFO EQU *-LKINFO > > LENGTH > > 29604 > > *--------------------------------------------- > > 29605 *- DYNAMIC AREA > > 29606 > > *--------------------------------------------- > > 000000 00000 0024C 29607 WKAREA DSECT > > ... > > 000100 29662 DS 0F > > 000100 29663 WKINFO DS CL(LINFO) > > ... > > END > > > > Take a look at the location counter following “PATCH_AREA” label and the > > USING list in the header lines above. > > This is a very large source program with 3 base registers: (R11, R9 and > R8). > > > > My questions are: > > 1. Why “LKINFO(X'FFFFE56C'),R13+X'2A94'” does show a negative > location? > > 2. About “0017FA E3F0 D07C 0058 02B10 3486+ LY > > R15,=V(FDRCOMPR)”: > > That should be “0017FA E3F0 8B10 0058”. Am I right? > > 3. Also the patch area is wrong. Why? > > 4. Where am I going wrong? > > > > Any tips will be helpful. > > > > TIA > > João >
