Keyboard Shortcuts
ctrl + shift + ? :
Show all keyboard shortcuts
ctrl + g :
Navigate to a group
ctrl + shift + f :
Find
ctrl + / :
Quick actions
esc to dismiss
Likes
Search
Re: Do I have a looping issue?
|
yep definitely odd. But here's the real question ... why is hercules seeing/reporting it?? There's code in IEAVEVAL to trap via FRR a protection exception that occurs due to compare and swap ... * 13650002 * ? ? ? ? ? ? ? ? ?ESTABLISH FUNCTIONAL RECOVERY ROUTINE ? ? ? ? ? ? ?* 13700002 * 13750002 ? ? ? ? ?LA ? ?R6,VLCKFRR ? ? ? GET ADDRESS OF FRR ROUTINE ? ? ? ? ? ? ?13800002 * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ESTABLISH FRR ? ? ? ? ? ? ? ? ? ? ? ? ? 13850002 ? ? ? ? ?SETFRR A,FRRAD=(R6),PARMAD=(R5),WRKREGS=(R5,R7) ? ? ? ? ? ? ? ?13900002 ? ? ? ? ?USING PARMFRR,R5 ? ? ? ? ?SET UP ADDRESSABILITY TO PARM AREA ? 13910002 ? ? ? ? ?ST ? ?R10,SAVEPTR ? ? ? ? SAVE ADDRESS OF SAVE AREA ? ? ? ? ? ?13920002 ? ? ? ? EJECT ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 13930002 * 13950002 * ? ? ? ? ? ? ?SWITCH TO TCBPKF KEY ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? * 14000002 * 14050002 ? ? ? ? ?MODESET EXTKEY=TCB,WORKREG=6 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 14100002 ? ? ? ? EJECT ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 14105002 * 14110002 * ? ? ? ? ? ? ? ? ? ? ? ?FETCH AND STORE TEST ? ? ? ? ? ? ? ? ? ? ? ? * 14120002 * 14130002 VLCK03 ? DS ? ?0H ? ? ? ? ? ? ? PAGE TEST LOOP ? ? ? ? ? ? ? ? ? ? ? ? ?14140002 ? ? ? ? ?L ? ? R6,DISPL0(R1) ? ?PICK UP WORD FROM PAGE ? ? ? ? ? ? ? ? ?14150002 VLCK04 ? DS ? ?0H ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 14200002 ? ? ? ? ?CS ? ?R6,R6,DISPL0(R1) PERFORM FETCH AND STORE ? ? ? ? ? ? ? ? 14250002 ? ? ? ? ?BNZ ? VLCK04 ? ? ? ? ? REPEAT TEST IF COMPARE UNEQUAL ? ? ? ? ?14300002 * 14350002 * ? ? ? ?IF CS INSTRUCTION DID NOT CAUSE A PROGRAM CHECK TEST IS ? ? ?* 14400002 * ? ? ? ?SUCCESSFUL. FRR ROUTINE WILL INTERCEPT PROGRAM CHECKS ? ? ? ?* 14450002 * 14500002 ? ? ? ? ?N ? ? R1,PGEBDY ? ? ? ?ROUND TO PAGE BOUNDARY FOR ? ? ? ? ? ? ?14510002 * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? REMAINING PAGES ? ? ? ? ? ? ? ? ? ? ? ? 14520002 ? ? ? ? ?A ? ? R1,PGESIZE ? ? ? INCREASE STARTING ADDRESS BY PAGE ? ? ? 14550002 ? ? ? ? ?BCT ? R8,VLCK03 ? ? ? ?REPEAT TEST IF MORE PAGES TO CHECK ? ? ?14600002 ? ? ? ? EJECT ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 14620002 * 14650002 * ? ? ? ? ? ? ?SWITCH BACK TO KEY 0 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? * 14700002 * 14750002 ? ? ? ? ?MODESET EXTKEY=SUPR ? ? ? ?SWITCH BACK TO KEY 0 ? ? ? ? ? ? ? ?14800002 ? ? ? ? EJECT ? ? ? ? ? ? ? ? ? ?? * 16050002 * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? * 16100002 * ? ? ? ? ? ? ? ? ? ? ? ?FRR ROUTINE ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?* 16150002 * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? * 16200002 * 16250002 VLCKFRR ?DS ? ?0H ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 16300002 ? ? ? ? ?BALR ?R12,R0 ? ? ? ? ? ESTABLISH ADDRESSABILITY ? ? ? ? ? ? ? ?16300802 ? ? ? ? ?USING *,R12 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?16301602 ? ? ? ? ?LR ? ?R11,R1 ? ? ? ? ? SET UP PTR TO SDWA ? ? ? ? ? ? ? ? ? ? ?16302402 ? ? ? ? ?USING SDWA,R11 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 16303202 ? ? ? ? ?L ? ? R10,SDWAPARM ? ? SET UP PTR TO PARM AREA ? ? ? ? ? ? ? ? 16304002 ? ? ? ? ?USING PARMFRR,R10 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?16304802 ? ? ? ? ?TM ? ?SDWAERRD,SDWACLUP ?CAN RETRY BE DONE? ? ? ? ? ? ? ? ? ? ?16305602 ? ? ? ? ?BNZ ? CONTERM ? ? ? ? ?NO, CONTINUE WITH TERMINATION ? ? ? ? ? 16306402 ? ? ? ? ?TM ? ?FLAGS,RECURSB ? ?RECURSIVE ABEND? ? ? ? ? ? ? ? ? ? ? ? ?16307202 ? ? ? ? ?BO ? ?CONTERM ? ? ? ? ?YES, CONTINUE WITH TERMINATION ? ? ? ? ?16308002 ? ? ? ? ?OI ? ?FLAGS,RECURSB ? ?SET RECURSIVE INDICATOR ? ? ? ? ? ? ? ? 16308802 ? ? ? ? ?TM ? ?SDWAERRA,SDWAPCHK PROGRAM CHECK? ? ? ? ? ? ? ? ? ? ? ? ? 16309602 ? ? ? ? ?BNO ? CONTERM ? ? ? ? ?NO, CONTINUE WITH TERMINATION ? ? ? ? ? 16310402 ? ? ? ? EJECT ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 16310602 * 16310802 * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? * 16310902 * ? ? ? ? ? ? ? ? ? ? ? ? ?PROGRAM CHECK ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?* 16311002 * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? * 16311102 * 16361102 ? ? ? ? ?CLI ? SDWAICD1,PROTERR PROTECTION EXCEPTION ? ? ? ? ? ? ? ? ? ?16411102 ? ? ? ? ?BE ? ?RETRY ? ? ? ? ? ?YES, EXPECTED ABEND- RETRY ? ? ? ? ? ? ?16461102 ? ? ? ? ?CLI ? SDWAICD1,ADDRERR ADDRESSING EXCEPTION ? ? ? ? ? ? ? ? ? ?16511102 ? ? ? ? ?BE ? ?RETRY ? ? ? ? ? ?YES, EXPECTED ABEND- RETRY ? ? ? ? ? ? ?16561102 ? ? ? ? ?CLI ? SDWAICD1,SEGERR ?SEGMENT TRANSLATION ERROR ? ? ? ? ? ? ? 16611102 ? ? ? ? ?BE ? ?RETRY ? ? ? ? ? ?YES, EXPECTED ABEND- RETRY ? ? ? ? ? ? ?16661102 ? ? ? ? ?CLI ? SDWAICD1,PAGERR ?PAGE TRANSLATION ERROR ? ? ? ? ? ? ? ? ?16711102 ? ? ? ? ?BNE ? CONTERM ? ? ? ? ?NO, NOT AN EXPECTED PGM CHECK ? ? ? ? ? 16761102 ? ? ? ? EJECT ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 16766102 * 16771102 * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? * 16781102 * ? ? ? ? ? ? ? ? ? ? ? ? EXPECTED PROGRAM CHECK ? ? ? ? ? ? ? ? ? ? ?* 16791102 * ? ? ? ? ? ? ? ? ? ? ? ? ?0C4, 0C5, 0D0, OR 0D1 ? ? ? ? ? ? ? ? ? ? ?* 16801102 * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? * 16803102 * 16805102 RETRY ? ?DS ? ?0H ? ? ? ? ? ? ? RETRY AT VALRETRY ? ? ? ? ? ? ? ? ? ? ? 16811102 ? ? ? ? ?L ? ? R8,SAVEPTR ? ? ? RESTORE SAVE AREA PTR IN ? ? ? ? ? ? ? ?16861102 ? ? ? ? ?ST ? ?R8,SDWASR10 ? ? ?REGISTERS TO BE USED FOR RETRY ? ? ? ? ?16911102 ? ? ? ? ?SETRP RETADDR=VALRETRY,RECORD=NO,DUMP=NO,RETREGS=YES,RC=4, ? ?*16961102 ? ? ? ? ? ? ? ?WKAREA=(R11) ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 17011102 ? ? ? ? ?BR ? ?R14 ? ? ? ? ? ? ?RETURN TO RTM ? ? ? ? ? ?? Joe On Wed, Oct 26, 2022 at 7:12 PM Fish Fish <david.b.trout@...> wrote: Joe Monk wrote: |
to navigate to use esc to dismiss