On Sun, Jul 26, 2020 at 10:17 AM, Joe Monk wrote:
Yes it is applicable to an IOGEN as well.
Right. Tried this. First I created a JCL job that created the OBJPDS datasets:
//OBJPDS00 JOB (OBJPDS),'CREATE OBJPDS',??????????????????????????????? 00010000
//???????????? CLASS=A,MSGLEVEL=(1,1),MSGCLASS=A??????????????????????? 00020000
//IEFBR14? EXEC PGM=IEFBR14???????????????????????????????????????????? 00890000
//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
/*????????????????????????????????????????????????????????????????????? 01510000
But it wouldn't run of course since I hadn't any WORK01 in the system. Did a dasdinit -a dasd/work01.249 3350 765432 to create a disk. The attached it to hercules : attach 249 3350 dasd/work01.249 Then I ran another job to initialize the new DASD:
//WRINIT? JOB (WORK01INIT),'INIT OF WORK01',??????????????????????????? 00010000
//???????????? CLASS=A,???????????????????????????????????????????????? 00020000
//???????????? MSGCLASS=A,MSGLEVEL=(1,1)??????????????????????????????? 00030000
//*?????? 1. Initialize WORK00, WORK01, and SMP000 volumes????????????? 00180000
//*???????????????????????????????????????????????????????????????????? 00190000
//S5?????? EXEC? PGM=IEHDASDR,REGION=1024K????????????????????????????? 01700000
//SYSPRINT DD? SYSOUT=A???????????????????????????????????????????????? 01710000
//SYSIN??? DD? *??????????????????????????????????????????????????????? 01720000
?? ANALYZE TODD=249,VTOC=1,EXTENT=15,NEWVOLID=WORK01??????????????????? 01750000
//????????????????????????????????????????????????????????????????????? 01760000
Shutdown the system and changed the configuration for Hercules into:
#
# Configuration file for Hercules emulator
#
CPUSERIAL 000611
CPUMODEL 3033
MAINSIZE 16
XPNDSIZE 0
CNSLPORT 3270
HTTPPORT 8081
NUMCPU 1
LOADPARM ........
SYSEPOCH 1928
TZOFFSET +0000
## remove the next line if running hercules version 1
ARCHMODE S/370
PANRATE FAST
OSTAILOR QUIET
# .-----------------------------Device number
# |??? .------------------------Device type
# |??? |?? .--------------------File name
# |??? |?? |
# V??? V?? V
#--- ---- --------------------
000e 1403 prt/prt00e.txt
0012 3505 jcl/null.jcl eof trunc ascii
0013 3525 prt/pch00d.txt ascii
001f 3215
0150 3330 dasd/start1.150
0170 3420 *
0151 3330 dasd/spool0.151
0148 3350 dasd/mvsres.148
0149 3350 dasd/smp001.149
014A 3350 dasd/smp002.14a
014B 3350 dasd/smp003.14b
014C 3350 dasd/smp004.14c
0248 3350 dasd/mvsdlb.248
0249 3350 dasd/work01.249
This is basically the standard configuration for tk3 starter system but with the added work01 volume.
So finally I could run tha OBJPDS job at the top which seemed to work well. At least when looking for the condition codes.
So then then were time to run the stage 2. I used the script stage2.rexx that Jay Moseley have provided. It converted the output file according to hist suggested changes.
The diff were basically:
$ diff stage1.output stage2.jcl
1c1,5
< //IOG11 JOB 1,'SYSTEM GENERATION',MSGLEVEL=1,CLASS=C,MSGCLASS=A
---
> //
> //IOG11 JOB 1,'SYSTEM GENERATION',MSGLEVEL=1,CLASS=C,MSGCLASS=A,
> //???????????? TYPRUN=HOLD,TIME=1439
> /*JOBPARM LINES=100
> //JOBCAT?? DD? DSN=SYS1.VSAM.MASTER.CATALOG,DISP=SHR
2078c2082,2086
< //IOG12 JOB 1,'SYSTEM GENERATION',MSGLEVEL=1,CLASS=C,MSGCLASS=A
---
> //
> //IOG12 JOB 1,'SYSTEM GENERATION',MSGLEVEL=1,CLASS=C,MSGCLASS=A,
> //???????????? TYPRUN=HOLD,TIME=1439
> /*JOBPARM LINES=100
> //JOBCAT?? DD? DSN=SYS1.VSAM.MASTER.CATALOG,DISP=SHR
2839c2847,2851
< //IOG13 JOB 1,'SYSTEM GENERATION',MSGLEVEL=1,CLASS=C,MSGCLASS=A
---
> //
> //IOG13 JOB 1,'SYSTEM GENERATION',MSGLEVEL=1,CLASS=C,MSGCLASS=A,
> //???????????? TYPRUN=HOLD,TIME=1439
> /*JOBPARM LINES=100
> //JOBCAT?? DD? DSN=SYS1.VSAM.MASTER.CATALOG,DISP=SHR
8837c8849,8853
< //IOG14 JOB 1,'SYSTEM GENERATION',MSGLEVEL=1,CLASS=C,MSGCLASS=A
---
> //
> //IOG14 JOB 1,'SYSTEM GENERATION',MSGLEVEL=1,CLASS=C,MSGCLASS=A,
> //???????????? TYPRUN=HOLD,TIME=1439
> /*JOBPARM LINES=100
> //JOBCAT?? DD? DSN=SYS1.VSAM.MASTER.CATALOG,DISP=SHR
9285c9301,9305
< //IOG15 JOB 1,'SYSTEM GENERATION',MSGLEVEL=1,CLASS=C,MSGCLASS=A
---
> //
> //IOG15 JOB 1,'SYSTEM GENERATION',MSGLEVEL=1,CLASS=C,MSGCLASS=A,
> //???????????? TYPRUN=HOLD,TIME=1439
> /*JOBPARM LINES=100
> //JOBCAT?? DD? DSN=SYS1.VSAM.MASTER.CATALOG,DISP=SHR
9304c9324
<
---
> //
?
I then ran the converted script as Jay Moseley did when running his Sysgen. When I tried to release the first job nothing happened at all!
Quite possibly the MVSRES volume was screwed up royally because of the first attempt, but I thought that something more was supposed to happen when I released the job?
I think I see one difference when I run the job vs when Jay does it: "$HASP125 READER1? SKIPPING FOR JOB CARD"
I tried to look this up:
But I don't fully understand how to resolve this. Any hints?
?
$ telnet localhost 3270
Trying 127.0.0.1...
Connected to localhost.
Escape character is '^]'.
Hercules version 3.13 built on Jul 18 2020 22:49:58
running on mattis-HP-EliteBook (Linux-4.4.0-186-generic.#216-Ubuntu SMP Wed Jul 1 05:34:05 UTC 2020 x86_64 MP=4)
Connected to device 0:001F
IEA101A SPECIFY SYSTEM PARAMETERS FOR RELEASE 03.70.VS2
HHCTE006A Enter input for console device 001F
r 0,clpa
?IEF165I // START JES2
?IEE351I SMF SYS1.MAN RECORDING NOT BEING USED
*00 $HASP426 SPECIFY OPTIONS - HASP-II, VERSION JES2 4.0
r 0,format,noreq
?IEE600I REPLY TO 00 IS;SUPPRESSED
?$HASP423 SPOOL0 IS BEING FORMATTED
?IEE041I THE SYSTEM LOG IS NOW ACTIVE
?$HASP160 PRINTER1 INACTIVE - CLASS=AJ
?$HASP160 PUNCH1?? INACTIVE - CLASS=BK
?$HASP125 READER1? SKIPPING FOR JOB CARD
?$HASP100 INIT???? ON STCINRDR
?$HASP373 INIT???? STARTED
?$HASP100 INIT???? ON STCINRDR
?$HASP373 INIT???? STARTED
?$HASP100 INIT???? ON STCINRDR
?$HASP373 INIT???? STARTED
?$HASP309??? INIT? 1 INACTIVE *** C=A
?$HASP309??? INIT? 2 INACTIVE *** C=BA
?$HASP309??? INIT? 3 INACTIVE *** C=CBA
?$HASP099 ALL AVAILABLE FUNCTIONS COMPLETE
$pi2-3
?$HASP000 OK
?$HASP395 INIT???? ENDED
?$HASP150 INIT???? ON PRINTER1
?$HASP160 PRINTER1 INACTIVE - CLASS=AJ
?$HASP099 ALL AVAILABLE FUNCTIONS COMPLETE
?$HASP250 INIT???? IS PURGED
?$HASP395 INIT???? ENDED
?$HASP150 INIT???? ON PRINTER1
?$HASP160 PRINTER1 INACTIVE - CLASS=AJ
?$HASP099 ALL AVAILABLE FUNCTIONS COMPLETE
?$HASP250 INIT???? IS PURGED
?$HASP100 OBJPDS00 ON READER1???? CREATE OBJPDS
?$HASP373 OBJPDS00 STARTED - INIT? 1 - CLASS A - SYS H158
?$HASP395 OBJPDS00 ENDED
?$HASP150 OBJPDS00 ON PRINTER1
?$HASP309??? INIT? 1 INACTIVE *** C=A
?$HASP160 PRINTER1 INACTIVE - CLASS=AJ
?$HASP099 ALL AVAILABLE FUNCTIONS COMPLETE
?$HASP250 OBJPDS00 IS PURGED
?$HASP125 READER1? SKIPPING FOR JOB CARD
?$HASP100 IOG11??? ON READER1???? SYSTEM GENERATION
?$HASP100 IOG12??? ON READER1???? SYSTEM GENERATION
?$HASP100 IOG13??? ON READER1???? SYSTEM GENERATION
?$HASP101 IOG11??? HELD
?$HASP101 IOG12??? HELD
?$HASP100 IOG14??? ON READER1???? SYSTEM GENERATION
?$HASP100 IOG15??? ON READER1???? SYSTEM GENERATION
?$HASP101 IOG13??? HELD
?$HASP101 IOG14??? HELD
?$HASP101 IOG15??? HELD
?$HASP099 ALL AVAILABLE FUNCTIONS COMPLETE
$a'IOG11
?$HASP000 IOG11??? RELEASED
/Mattis
|
