On Sun, Jul 26, 2020 at 01:01 AM, Joe Monk wrote:
Mattis,
?
The other thing you have to remember is that you are generating a new nucleus. So, you have to apply all of the service and mods that. were applied before your did your IOGEN before you can IPL. And I think you have to update. IEASYS00 to tell it to use the new nucleus.
Reading the instructions in the TK4- manual it looks like this takes place AFTER IPLing the new TK4- system. Not in the starter system. Step 10 - 12 above.
Using the excellent pages that Jay Moseley has provided on how to perform a sysgen shows that in Jya Mosely SYSGEN00.jcl there is this section:
//*???????????????????????????????????????????????????????????????????? 01310000//ALLOC??? EXEC PGM=IEFBR14???????????????????????????????????????????? 01320000//*???????????????????????????????????????????????????????????????????? 01330000//* * 01340000//* ALLOCATE AND CATALOG WORK DATASETS USED IN STAGE 2 DECK?????????? * 01350000//* * 01360000//*???????????????????????????????????????????????????????????????????? 01370000//STEPCAT? DD? DSN=SYS1.VSAM.MASTER.CATALOG,DISP=SHR??????????????????? 01380000//OBJPDS01 DD? DSN=SYS1.OBJPDS01,DISP=(NEW,CATLG,DELETE),?????????????? 01390000//???????????? UNIT=3350,VOL=SER=WORK01,??????????????????????????????? 01400000//???????????? SPACE=(CYL,(20,10,50)),????????????????????????????????? 01410000//???????????? DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)???????????????????? 01420000//OBJPDS02 DD? DSN=SYS1.OBJPDS02,DISP=(NEW,CATLG,DELETE),?????????????? 01430000//???????????? UNIT=3350,VOL=SER=WORK01,??????????????????????????????? 01440000//???????????? SPACE=(CYL,(20,10,50)),????????????????????????????????? 01450000//???????????? DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)???????????????????? 01460000//OBJPDS03 DD? DSN=SYS1.OBJPDS03,DISP=(NEW,CATLG,DELETE),?????????????? 01470000//???????????? UNIT=3350,VOL=SER=WORK01,??????????????????????????????? 01480000//???????????? SPACE=(CYL,(20,10,50)),????????????????????????????????? 01490000//???????????? DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)???????????????????? 01500000//*???????????????????????????????????????????????????????????????????? 01510000So it looks like they should end up on the WORK01 volume. I will try to do similar things in my system.
While reading the Jay Moseley instructions there are also a number of modifications done to the stage 2 job before it is submitted:
-
For jobs 1 through 5, add a continuation card immediately after the JOB card (add a comma onto the rightmost end of the JOB card and insert a card following the JOB card with // in the first 2 columns).? Note that job 6 already has a continuation card for the JOB card.
-
For jobs 1 through 5, add TYPRUN=HOLD on the newly added continuation card of the JOB card beginning anywhere in columns 2 through 16.? Note that job 6 already has TYPRUN=HOLD on the continuation card.
-
For all jobs, add a comma and TIME=1439 following the TYPRUN=HOLD on the continuation of the JOB card.
-
For all 6 jobs, insert a new card immediately after the continuation card of the JOB card.? Beginning in column 1 of this inserted blank card, enter?
??????????????? /*JOBPARM? LINES=100
-
For jobs 1 through 5, insert another new card immediately after the card just inserted (the JOBPARM card).? Beginning in column 1 of this inserted blank card, enter
??????????????? //JOBCAT? DD? DSN=SYS1.VSAM.MASTER.CATALOG,DISP=SHR
-
In job 6, locate STEPY (which is the third from the final step in the deck) and change the program executed from IDCAMS to IEFBR14:
??????????????? //STEPY????? EXEC PGM=IEFBR14,REGION=512K
-
Throughout the jobstreams, whereever there is an EXPDT=99350 parameter on a DD statement, change it to EXPDT=00000.
-
Depending upon your personal preference, you may add a job terminator statement (//) at the end of the generated deck
He has a script, stage2.awk/stage2.rexx that does this automatically. I will have a look to see if this script could be applicable to an IOGEN as well.
We'll see how all this works out...
/Mattis
