开云体育

I have a freshly generated 6.7, using the instructions and materials from the Files section of this group. the g13-smpinit.jcl job ran fine, so SMP is at least minimally functional.

I am trying to apply some of the usermods from . The first one I am byting off is TX67308 (a replacement IEFACTRT).

The job does not complete. It hits the initiator, seems to do some work judging by the PSW jumping all over the place, then goes into a tight problem state CPU loop, with the instruction address bits of the PSW running in range of less than 20(hex) bytes, and a large R1 value that seems to be decrementing (it's around BB000000 right now, suppose I could wait for it to go to 0 and see what happens).

Has anyone else been able to apply this (or any) usermod?

Patience is a virtue. It took 136 minutes for R1 to get to 0, and then the job completed successfully. Weird.

...but now all jobs do this. I think the IEFACTRT usermod is bum?

Could you post a lot more information about what you were doing and how, and what happened? I just restored and reinstalled TX67308 on my system. It took four seconds to restore, and four seconds to reinstall. It sounds like you have other problems.

--
Kevin

ok. I just made a copy of my system directory, and restored all the dasd from the tarball I took right after completing step g16 in the gen document. My STAGE1 is the distributed one. STAGE2 output looks a little different than the one distributed; I put that diff at the bottom of this posting (invocations of IEECRDCM differ slightly for DCM010 and DCM011, added JOBCAT DDs):

ipl 150
sf ,00c
sf ,00e
s init.p1

submit an IEFBR14 job. All is well.

submitted tx67308.jcl. exceeded SWADS space.

p p1 s init.p1,,space=(176,(4000),,contig)

submitted tx67308.jcl. job runs for a few a seconds, then starts looping around 0xB015B2. I ended up stopping the CPU and stuffing a smaller value into R1 to speed things along (yes, I know that's not safe without understanding what it's doing, but I have nothing to lose at this point!)

HHC02245I 0:000C device initialized                                                                                                                                     
/ IEF543I 00C RDR FLUSHING JOBSTREAM AFTER JOB TX67308                                                                                                                  
/ IEF039I 00C RDR WAITING FOR WORK                                                                                                                                      
/ IEF403I TX67308  STARTED TIME=08.29.53 P01                                                                                                                            
...process process process, loop loop loop...
HHC01603I stop                                                                                                                                                          
HHC00834I Processor CP00: manual state selected                                                                                                                         
HHC01603I gpr 01=1000                                                                                                                                                   
HHC02269I General purpose registers                                                                                                                                     
HHC02269I GR00=0000007B GR01=00001000 GR02=00DFBA48 GR03=00DFECD0                                                                                                       
HHC02269I GR04=002EB22A GR05=00DFF050 GR06=00000000 GR07=90B00D72                                                                                                       
HHC02269I GR08=00DFEC20 GR09=00DFD380 GR10=00DFECD0 GR11=00B00BD8                                                                                                       
HHC02269I GR12=00DFE9A8 GR13=00DFBA48 GR14=A0B014C6 GR15=00000002                                                                                                       
HHC01603I start                                                                                                                                                         
HHC00834I Processor CP00: running state selected                                                                                                                        
/ STEP: TX67308  APPLY    SMP      ET=00.00.04 RC=0000 P01                                                                                                              
...loop loop loop...
HHC01603I stop                                                                                                                                                          
HHC00834I Processor CP00: manual state selected                                                                                                                         
HHC01603I gpr 01=1000                                                                                                                                                   
HHC02269I General purpose registers                                                                                                                                     
HHC02269I GR00=0000007B GR01=00001000 GR02=00DFCFA8 GR03=00DFEB70                                                                                                       
HHC02269I GR04=002F32C9 GR05=00DFF050 GR06=00000000 GR07=A0B0118A                                                                                                       
HHC02269I GR08=00DFE8C0 GR09=00DFD5E8 GR10=00DFEB70 GR11=00B00BD8                                                                                                       
HHC02269I GR12=00DFE9A8 GR13=00DFCFA8 GR14=A0B014C6 GR15=00000000                                                                                                       
HHC01603I start                                                                                                                                                         
HHC00834I Processor CP00: running state selected                                                                                                                        
/ IEF404I TX67308  ENDED   TIME=08.37.17 P01                                                                                                                            
/ IEF049I TX67308  ON DEVICE 00E                                                                                                                                        
/ IEF005I PARTITION WAITING FOR WORK  P01                                                                                                                               
/ IEF868I 00E WTR WAITING FOR WORK         

Near as I can tell, the hang starts after the APPLY has taken place (the earlier steps did not do the WTO that TX67308 adds, nor give me a flowerbox). APPLY is the first step that I got the STEP: TX67308 APPLY SMP ET=00.00.04 RC=0000 P01 and flowerbox.

Here is how my stage2 differed from distributed:

*** g09.jcl     2023-06-30 23:03:10.000000000 -0400
--- g09-stage2.jcl.save 2021-07-01 16:43:17.000000000 -0400

*** 1,4 ****
--- 1,5 ----
  //G09GEN1 JOB 1,'SYSTEM GENERATION',CLASS=A,MSGCLASS=A,TYPRUN=HOLD
+ //JOBCAT   DD  DISP=SHR,DSN=SYS1.FDLB67.CATALOG
  //SG1 EXEC ASMS,OBJ=OBJPDS1,MOD=IEAPGSPP,CLASS=A
  //SYSIN DD *
        PRINT ON,NODATA

*** 372,380 ****
  //SYSIN DD *
        PRINT ON,NODATA
  IEECVH1   CSECT
!       IEECRDCM DEV=D,                                            CCCCCCCCCCC
!                A=(14,                                                CATCHALL
!                )
   END
  /*
  //SG20 EXEC ASMS,OBJ=OBJPDS1,MOD=DCM010,CLASS=A
--- 373,379 ----
  //SYSIN DD *
        PRINT ON,NODATA
  IEECVH1   CSECT
!          IEECRDCM DEV=D
   END
  /*
  //SG20 EXEC ASMS,OBJ=OBJPDS1,MOD=DCM010,CLASS=A

*** 389,397 ****
        PRINT ON,NODATA
  IEECVH2   CSECT
        IEECRDCM DEV=D,                                            CCCCCCCCCCC
!                KEY=IEECVK3,                                      CCCCCCCCCCC
!                A=(14,                                               CATCHALL
!                )
   END
  /*
  //SG22 EXEC ASMS,OBJ=OBJPDS1,MOD=DCM011,CLASS=A
--- 388,394 ----
        PRINT ON,NODATA
  IEECVH2   CSECT
        IEECRDCM DEV=D,                                            CCCCCCCCCCC
!                KEY=IEECVK3
   END
  /*
  //SG22 EXEC ASMS,OBJ=OBJPDS1,MOD=DCM011,CLASS=A

*** 486,491 ****
--- 483,489 ----
           END
  /*
  //G09GEN2 JOB 1,'SYSTEM GENERATION',CLASS=A,MSGCLASS=A,TYPRUN=HOLD
+ //JOBCAT   DD  DISP=SHR,DSN=SYS1.FDLB67.CATALOG
  //SG1 EXEC ASMS,OBJ=OBJPDS3,MOD=IEAASU00,CLASS=A
  //SYSIN DD *
        PRINT ON,NODATA

*** 3587,3592 ****
--- 3585,3591 ----
      END
  /*
  //G09GEN3 JOB 1,'SYSTEM GENERATION',CLASS=A,MSGCLASS=A,TYPRUN=HOLD
+ //JOBCAT   DD  DISP=SHR,DSN=SYS1.FDLB67.CATALOG
  //SG1 EXEC ASMS,OBJ=OBJPDS2,MOD=IEFQMSGV,CLASS=A
  //SYSIN DD *
        PRINT ON,NODATA

*** 4069,4074 ****
--- 4068,4074 ----
           END
  /*
  //G09GEN4 JOB 1,'SYSTEM GENERATION',CLASS=A,MSGCLASS=A,TYPRUN=HOLD
+ //JOBCAT   DD  DISP=SHR,DSN=SYS1.FDLB67.CATALOG
  //SG1 EXEC PGM=IEBCOPY,COND=(8,LT)
  //SYSUT3 DD DSN=&SYSUT3,SPACE=(1700,(10,5)),UNIT=SYSDA
  //SYSUT4 DD DSN=&SYSUT4,SPACE=(460,(30,24)),UNIT=SYSDA

*** 4185,4190 ****
--- 4185,4191 ----
   S M=((IEELGON2,,R))
  /*
  //G09GEN5 JOB 1,'SYSTEM GENERATION',CLASS=A,MSGCLASS=A,TYPRUN=HOLD
+ //JOBCAT   DD  DISP=SHR,DSN=SYS1.FDLB67.CATALOG
  //SG1 EXEC PGM=IEBCOPY,COND=(8,LT)
  //SYSUT3 DD DSN=&SYSUT3,SPACE=(1700,(10,5)),UNIT=SYSDA
  //SYSUT4 DD DSN=&SYSUT4,SPACE=(460,(30,24)),UNIT=SYSDA

*** 4663,4668 ****
--- 4664,4670 ----
   SELECT MEMBER=(IGC0024I)
  /*
  //G09GEN6 JOB 1,'SYSTEM GENERATION',CLASS=A,MSGCLASS=A,TYPRUN=HOLD
+ //JOBCAT   DD  DISP=SHR,DSN=SYS1.FDLB67.CATALOG
  //SG1 EXEC  PGM=IEBCOPY,COND=(4,LT)
  //SYSPRINT DD SPACE=(121,(500,40),RLSE),
  //   DCB=(RECFM=FB,LRECL=121,BLKSIZE=121),SYSOUT=A

*** 4693,4698 ****
--- 4695,4701 ----
   COPY  OUTDD=SAMPLIB,INDD=ASAMPLIB
  /*
  //G09GEN7 JOB 1,'SYSTEM GENERATION',CLASS=A,MSGCLASS=A,TYPRUN=HOLD
+ //JOBCAT   DD  DISP=SHR,DSN=SYS1.FDLB67.CATALOG
  //SG1 EXEC PGM=IFCDIP00,COND=(8,LT)
  //STEPLIB DD DSN=SYS1.AOSCD,DISP=SHR
  //SERERDS DD   DSN=SYS1.LOGREC,DISP=(NEW,KEEP),

*** 4705,4710 ****
--- 4708,4714 ----
   CATLG CVOL=3350=FGEN67,VOL=3350=FGEN67,DSNAME=SYS1.LOGREC
  /*
  //G09GEN8 JOB 1,'SYSTEM GENERATION',CLASS=A,MSGCLASS=A,TYPRUN=HOLD
+ //JOBCAT   DD  DISP=SHR,DSN=SYS1.FDLB67.CATALOG
  //SG1 EXEC PGM=IEBCOPY,COND=(8,LT)
  //SYSUT3 DD DSN=&SYSUT3,SPACE=(1700,(10,5)),UNIT=SYSDA
  //SYSUT4 DD DSN=&SYSUT4,SPACE=(460,(30,24)),UNIT=SYSDA

*** 4718,4723 ****
--- 4722,4728 ----
   COPY OUTDD=OBJ1,INDD=((OBJ3,R))
  /*
  //G09GEN9 JOB 1,'SYSTEM GENERATION',CLASS=A,MSGCLASS=A,TYPRUN=HOLD
+ //JOBCAT   DD  DISP=SHR,DSN=SYS1.FDLB67.CATALOG
  //SG1 EXEC PGM=IEBCOPY,COND=(8,LT)
  //SYSUT3 DD DSN=&SYSUT3,SPACE=(1700,(10,5)),UNIT=SYSDA
  //SYSUT4 DD DSN=&SYSUT4,SPACE=(460,(30,24)),UNIT=SYSDA

*** 5496,5501 ****
--- 5501,5507 ----
    NAME  IGC40110(R)
  /*
  //G09GEN10 JOB 1,'SYSTEM GENERATION',CLASS=A,MSGCLASS=A,TYPRUN=HOLD
+ //JOBCAT   DD  DISP=SHR,DSN=SYS1.FDLB67.CATALOG
  //SG1 EXEC LINKS,
  // PARM='NCAL,LIST,XREF,REUS',
  //    UNIT='3350',SER=FGEN67,N=SYS1,NAME=LINKLIB,P1=' ',

*** 5599,5604 ****
--- 5605,5611 ----
  ./  ENDUP
  /*
  //G09GEN11 JOB 1,'SYSTEM GENERATION',CLASS=A,MSGCLASS=A,TYPRUN=HOLD
+ //JOBCAT   DD  DISP=SHR,DSN=SYS1.FDLB67.CATALOG
  //SG1 EXEC LINKS,COND=(4,LT),
  //     PARM='LIST,XREF,NCAL,SCTR,LET,SIZE=(192K,64K)',
  //     UNIT='3350',SER=FGEN67,N=SYS1,NAME=NUCLEUS,P1='(',

*** 5801,5806 ****
--- 5808,5814 ----
   INCLUDE RESLIB(IGC255)
  /*
  //G09GEN12 JOB 1,'SYSTEM GENERATION',CLASS=A,MSGCLASS=A,TYPRUN=HOLD
+ //JOBCAT   DD  DISP=SHR,DSN=SYS1.FDLB67.CATALOG
  //SG1 EXEC LINKS,
  // PARM='NCAL,LIST,XREF,LET',
  //    UNIT='3350',SER=FGEN67,N=SYS1,NAME=LINKLIB,P1=' ',

*** 8697,8702 ****
-- 8705,8711 ----
   NAME IGG019P2(R)
  /*
  //G09GEN13 JOB 1,'SYSTEM GENERATION',CLASS=A,MSGCLASS=A,TYPRUN=HOLD
+ //JOBCAT   DD  DISP=SHR,DSN=SYS1.FDLB67.CATALOG
  //SG1 EXEC PGM=IEHIOSUP
  //STEPLIB DD DSN=SYS1.LINKLIB,DISP=SHR,
  //   VOL=SER=FGEN67,UNIT=3350

*** 8706,8711 ****
--- 8715,8721 ----
  //     VOL=(,RETAIN,SER=FGEN67),UNIT=3350
  /*
  //G09GEN14 JOB 1,'SYSTEM GENERATION',CLASS=A,MSGCLASS=A,TYPRUN=HOLD
+ //JOBCAT   DD  DISP=SHR,DSN=SYS1.FDLB67.CATALOG
  //SG1 EXEC PGM=IEHLIST
  //SYSPRINT DD SPACE=(121,(1500,300),RLSE),
  //   DCB=(RECFM=FB,LRECL=121,BLKSIZE=121),SYSOUT=A

*** 8746,8751 ****
   LISTPDS VOL=3350=FGEN67,DSNAME=SYS1.MACLIB
   LISTPDS VOL=3350=FGEN67,DSNAME=SYS1.SAMPLIB
  /*
- 
- 
- 
--- 8756,8758 ----

On Mon, Jul 10, 2023 at 08:58 PM, Kevin Leonard wrote:

t sounds like you have other problems.

Found it. I had changed my hercules config on René Ferland's advice so that I didn't have to enter time at every boot (as a stopgap until I got TX67805 on).

The original config works:

YROFFSET  -28           # <-- comment out if TX67805 has been installed
TZOFFSET  -0400         # <-- Eastern daylight time

This config throws TX67308 into the loop.

SYSEPOCH  1960
YROFFSET  -40
TZOFFSET  -0400

I'll get TX67805 installed so I don't need the Hercules config hack.

Smells like some date calculation getting used for both the WTO and the flowerbox; the looping code is getting invoked twice, it appears (I had to zap R1 twice to get it to exit).

Thanks for confirming that TX67308 is indeed good on your system!

Glad you found it. Sometimes persistence is the only thing that can help you find things.

Thanks for posting the details. Maybe I can recreate the problem and see something that I could be checking to catch the problem and bypass it. This sounds like something that probably would get caught by a reasonability check, assuming I could see what to check.

--
Kevin