ENC: [hercules-390] 00- 23.57.41 STC00024 +DFHFC0208I CICS
?
?
Enviado do para Windows 10
?
?
Hello for ALL;
?
I am getting this error constantly and my CICS is hallucinating, the CEDA transaction shows something I just deleted.
?
This error started after I installed a Test MENU program that uses DFHCOMMAREA, MAP AND MAPSET.
A simple/basic menu program.
?
Thanks in advance.
?
00- 23.57.41 STC00024? +DFHFC0208I CICS
? -? LSR pool 1 is being built dynamically by CICS because all of the
? -? necessary parameters have not been supplied. Either there is no
? -? LSRPOOL definition or it is incomplete. The following are not
? -? defined:? 'CI SIZE' 'STRINGS' 'MAXKEYLENGTH'. A delay is possible.
?
?
Enviado do para Windows 10
?
?
-- Dylson from Brazil
|
ENC: [hercules-390] 00- 23.57.41 STC00024 +DFHFC0208I CICS
?
Sorry, but please friends, i neeed some help for this issue.
?
Thanos in advance.
?
Gyldon.
?
Enviado do para Windows 10
?
De: Blade Runner
Enviado:segunda-feira, 27 de julho de 2020 13:31
Para: [email protected]
Assunto: RES: [hercules-390] 00- 23.57.41 STC00024 +DFHFC0208I CICS
?
Sorry Martin.
?
I?m a programer developer and i have serious difficulty to execute-te the comand for get the messages of my console.
I searched on google and manuals and was unable to activate or print the messages that could help you help me.
If you can explain to me how to do this, I will do my best.
Thanks in Advance.
Dylson from Brazil wich google translatator.
?
?
Enviado do para Windows 10
?
?
Dylson,
(ignoring the fact that this is not the CICS list)
>> I am getting this error constantly
It is because CICS finds a file that is referring to an LSR definition
that is not complete.
It explicit mentions: 'CI SIZE' 'STRINGS' 'MAXKEYLENGTH'
>> and my CICS is hallucinating, the CEDA transaction shows something I just deleted.
I have never ever seen a CICS doing that. Usually it is the
carbon-based unit that is causing the problem.
Can you give some more evidence than just an error-message during
start-up?
>> This error started after I installed a Test MENU program that uses
>> DFHCOMMAREA, MAP AND MAPSET.
What else was modified to get this program going? The use of none of
the three items you mention will cause such a message. The change of a
PPT or PCT (or the CEDA equivalents) will also not cause this (but the
use of the wrong GROUPS or LISTS will).
Martin
?
-- Dylson from Brazil
|
Giuseppe Vitillaro wrote: Probably an OT question, if this is the case, apologies. Actually, a forum DOES exist for exactly such questions. It's called "hercules-s370asm" (Forum discussing use of S/370 assembler with the Hercules emulator): /g/hercules-s370asm(Ref: ) But given how infrequently Off Topic posts are made here and to other forums (and the fact that such topics of discussion are usually quite short lived and don't drag on for days and weeks on end), I personally am of the opinion that in this specific instance such an off topic post here should be okay. :) p.s. Doesn't a system function or macro already exist to do this? It seems like such a common thing! If such a macro doesn't already exist maybe someone could write one? -- "Fish" (David B. Trout) Software Development Laboratories mail: fish@...
|
Well, do it as two passes. Use the maximum length of the UNPK instruction then the left over part. Then do the translate which has a 256 byte limit. On Mon, Jul 27, 2020 at 2:59 AM Giuseppe Vitillaro <giuseppe@...> wrote:
Probably an OT question, if this is the case, apologies.
I've a curiosity about the faster way to code, in IFOX00
assembler, hexadecimal stream dump, for an arbitrary long
string of bytes, possibly with a length not a multiple
of a full 32 bit word.
The best way I've seen so for, for a full 32 bit word, is
this sequence of instructions:
...
UNPK DB(9),FW(5)
TR DB(8),TRHEXTAB
...
DB DS D
DB2 DS D
FW DS F
HEXTAB DC C'0123456789ABCDEF'
TRHEXTAB EQU HEXTAB-C'0'
which dump a full 32 bit word in 4 hexadecimal digits, assuming
the word is stored at the FW address, basically using 2 instructions.
If the stream length is not a multiple of 4, the remain, which length
is in the {1,2,3} set, may be dumped using the same sequence, slightly
modified, for example for 3:
UNPK DB(7),FW(4)
TR DB(6),TRHEXTAB
Any faster way?
Peppe.
-- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all?
|
On Mon, 27 Jul 2020, Wally Mclaughlin wrote: Peppe,
For me today's PCs are so fast (and I'm the only user) that the speed
of an individual routine seldom matters.
Below is my code to expand any length of binary data into character
hexadecimal format.
Wally
...
LM RE,RF,ISPVAR R14 @ VARIABLE, R15 HAS LENGTH
LA R5,ISPOUT R5 @ WTP CHARACTER OUTPUT
ISP00100 LA R6,2 R6 # HEX CHARACTERS IN A BYTE
SR R1,R1 R1 WILL HAVE BYTE BEING PROCESSED
ICM R1,8,0(RF) R1 HAS 2 HEX VALUES IN UPPER BYTE
ISP00200 SR R0,R0 R0 WILL HAVE HEX BEING PROCESSED
SLDL R0,4 R0 HAS SINGLE HEX CHARACTER
STC R0,0(R0,R5) SAVE HEX IN OUTPUT AREA
TR 0(1,R5),ISPTRT1 TRANSLATE X'00-0F' TO X'F0-C6'
LA R5,1(R0,R5) R5 @ WTP NEXT BIT CHARACTER
BCT R6,ISP00200 LOOP - PROCESSING 1 BYTE
LA RE,1(R0,RE) R14 @ NEXT BYTE OF VALUE
BCT RF,ISP00100 LOOP - PROCESSING ALL BYTES
...
ISPTRT1 DC X'0123456789ABCDEF' USED TO CONVERT HEX CHARACTERS
...
ISPVAR DS A @ INPUT BINARY VARIABLE FIELD
ISPVARL DS A LENGTH OF VARIABLE
ISPOUT DS A @ OUTPUT CHARACTER FIELD Yep, that the other way I know about, going nibble by nibble, hex digit to hex digit, using ICM/TR for each nibble, along the byte stream. I bet it is slower, although I didn't benchmark them, compared to UNPK/TR which dump 4 hex digits with one UNPK instruction. Modern PC are fast, a PI3 is not so fast, it looks, from hercules emulation point of view, not far from mainframes of the eighty, 10MIPS against 200MIPS of a XEON/I7. From the other side, speaking of emulation, I guess emulating UNPK is not as fast as an ICM. On a real iron mainframe probably the game is different. Other ways? Peppe.
|
Peppe,
For me today's PCs are so fast (and I'm the only user) that the speed
of an individual routine seldom matters.
Below is my code to expand any length of binary data into character
hexadecimal format.
Wally
...
LM RE,RF,ISPVAR R14 @ VARIABLE, R15 HAS LENGTH
LA R5,ISPOUT R5 @ WTP CHARACTER OUTPUT
ISP00100 LA R6,2 R6 # HEX CHARACTERS IN A BYTE
SR R1,R1 R1 WILL HAVE BYTE BEING PROCESSED
ICM R1,8,0(RF) R1 HAS 2 HEX VALUES IN UPPER BYTE
ISP00200 SR R0,R0 R0 WILL HAVE HEX BEING PROCESSED
SLDL R0,4 R0 HAS SINGLE HEX CHARACTER
STC R0,0(R0,R5) SAVE HEX IN OUTPUT AREA
TR 0(1,R5),ISPTRT1 TRANSLATE X'00-0F' TO X'F0-C6'
LA R5,1(R0,R5) R5 @ WTP NEXT BIT CHARACTER
BCT R6,ISP00200 LOOP - PROCESSING 1 BYTE
LA RE,1(R0,RE) R14 @ NEXT BYTE OF VALUE
BCT RF,ISP00100 LOOP - PROCESSING ALL BYTES
...
ISPTRT1 DC X'0123456789ABCDEF' USED TO CONVERT HEX CHARACTERS
...
ISPVAR DS A @ INPUT BINARY VARIABLE FIELD
ISPVARL DS A LENGTH OF VARIABLE
ISPOUT DS A @ OUTPUT CHARACTER FIELD
toggle quoted message
Show quoted text
-----Original Message----- From: [email protected] < [email protected]> On Behalf Of Giuseppe Vitillaro Sent: Monday, July 27, 2020 04:00 AM To: [email protected]Subject: [H390-MVS] Hex dump. Probably an OT question, if this is the case, apologies. I've a curiosity about the faster way to code, in IFOX00 assembler, hexadecimal stream dump, for an arbitrary long string of bytes, possibly with a length not a multiple of a full 32 bit word. The best way I've seen so for, for a full 32 bit word, is this sequence of instructions: ... UNPK DB(9),FW(5) TR DB(8),TRHEXTAB ... DB DS D DB2 DS D FW DS F HEXTAB DC C'0123456789ABCDEF' TRHEXTAB EQU HEXTAB-C'0' which dump a full 32 bit word in 4 hexadecimal digits, assuming the word is stored at the FW address, basically using 2 instructions. If the stream length is not a multiple of 4, the remain, which length is in the {1,2,3} set, may be dumped using the same sequence, slightly modified, for example for 3: UNPK DB(7),FW(4) TR DB(6),TRHEXTAB Any faster way? Peppe. -- This email has been checked for viruses by AVG.
|
Probably an OT question, if this is the case, apologies.
I've a curiosity about the faster way to code, in IFOX00
assembler, hexadecimal stream dump, for an arbitrary long
string of bytes, possibly with a length not a multiple
of a full 32 bit word.
The best way I've seen so for, for a full 32 bit word, is
this sequence of instructions:
...
UNPK DB(9),FW(5)
TR DB(8),TRHEXTAB
...
DB DS D
DB2 DS D
FW DS F HEXTAB DC C'0123456789ABCDEF'
TRHEXTAB EQU HEXTAB-C'0'
which dump a full 32 bit word in 4 hexadecimal digits, assuming
the word is stored at the FW address, basically using 2 instructions.
If the stream length is not a multiple of 4, the remain, which length
is in the {1,2,3} set, may be dumped using the same sequence, slightly
modified, for example for 3:
UNPK DB(7),FW(4)
TR DB(6),TRHEXTAB
Any faster way?
Peppe.
|
Re: IOGEN on TK4- - Failed...
On Sun, Jul 26, 2020 at 07:30 AM, Mattis Lind wrote:
On Sun, Jul 26, 2020 at 01:00 PM, Jay Moseley wrote:
On 7/26/20 5:29 AM, Mattis Lind wrote:
When I tried to release the first job nothing happened at all!
Do you have an initiator set for CLASS=C? All your job cards for the
IOGEN are set up for class C.
Thanks Jay!
Great input! ?
I have bought the JCL book by De Ward Brown, but there are plenty left to read and learn.?
BTW. ?Your web-pages on MVS sysgen are amazing!
I second that nomination! Bill
|
I was able to build and run hello world.? you need ADB and company, plus the cross compiler.?
On Sunday, July 26, 2020, 3:46:43 PM CDT, Doug Wegscheid <dwegscheid@...> wrote:
See /g/H390-MVS/message/1282. I have not purchased a 4 yet, but have purchased many 3s from CanaKit. Their power supplies seem robust, never get any complaints about power. TK3 runs well on a 1GB Pi 3, so your choice RAM depends on what else you will be doing; if it just sits and run Hercules without a GUI, 2GB should be fine.
|
See /g/H390-MVS/message/1282. I have not purchased a 4 yet, but have purchased many 3s from CanaKit. Their power supplies seem robust, never get any complaints about power. TK3 runs well on a 1GB Pi 3, so your choice RAM depends on what else you will be doing; if it just sits and run Hercules without a GUI, 2GB should be fine.
|
did you actually get hercules built to run on the phone successfully?
|
Your cell phone is a Raspberry pi kit already in your pocket.? I used an old HTC phone I had as a Raspberry that has an ARM chip in it to do some cross compiling.
On Sunday, July 26, 2020, 3:27:13 PM CDT, ScottC via groups.io <sccosel@...> wrote:
Has anyone purchased a Raspberry Pi4 kit recently, for running TK4-? If so, which one would you recommend?
Thanks,
ScottC
|
Has anyone purchased a Raspberry Pi4 kit recently, for running TK4-? If so, which one would you recommend?
Thanks,
ScottC
|
Re: IOGEN on TK4- - Failed...
Is there a way to find out what the current iogen on the running system looks like?? I understand that there can be IEANUC00 thru IEANUC09 each representing a different configuration.? I am trying to find out how to query each configuration.
On Sunday, July 26, 2020, 9:10:55 AM CDT, Mattis Lind <mattislind@...> wrote:
On Sun, Jul 26, 2020 at 03:12 PM, Joe Monk wrote:
Mattis,
?
Just out of curiosity, why are you trying to do an IOGEN for a BSC3. device?
?
BSC1 = nonswitched?point-to-point, BSC3 = nonswitched. point-to-multipoint.
?
The hercules?doc specifically says:?
?
"The line emulates a point-to-point BSC link. There is no point-to-multipoint handling."
?
So, just wondering because commadpt.c doesnt?contain any code for multipoint.
?
Joe
I have been running BSC3 successfully with the Jay Moseley build. As far as I can tell there is nothing in the commadpt.c that prevent multi point from working.?
Multipoint is where a station selection using CU CU DV DV ENQ is sent prior to sending data. This is handled by the TCAM layer as far as I understand. The commadpt.c does nothing to help out here. I would pressume that building TSO/TCAM will fail if you try to use multipoint adressing with a device configured as BSC2 or BSC1.?
But I haven¡¯t tested.?
/Mattis
On Sun, Jul 26, 2020 at 01:00 PM, Jay Moseley wrote:
On 7/26/20 5:29 AM, Mattis Lind wrote:
When I tried to release the first job nothing happened at all!
Do you have an initiator set for CLASS=C? All your job cards for the
IOGEN are set up for class C.
Thanks Jay!
Great input! ?
I have bought the JCL book by De Ward Brown, but there are plenty left to read and learn.?
BTW.? Your web-pages on MVS sysgen are amazing!
/Mattis
?
|
Re: IOGEN on TK4- - Failed...
On Sun, Jul 26, 2020 at 03:12 PM, Joe Monk wrote:
Mattis,
?
Just out of curiosity, why are you trying to do an IOGEN for a BSC3. device?
?
BSC1 = nonswitched?point-to-point, BSC3 = nonswitched. point-to-multipoint.
?
The hercules?doc specifically says:?
?
"The line emulates a point-to-point BSC link. There is no point-to-multipoint handling."
?
So, just wondering because commadpt.c doesnt?contain any code for multipoint.
?
Joe
I have been running BSC3 successfully with the Jay Moseley build. As far as I can tell there is nothing in the commadpt.c that prevent multi point from working.?
Multipoint is where a station selection using CU CU DV DV ENQ is sent prior to sending data. This is handled by the TCAM layer as far as I understand. The commadpt.c does nothing to help out here. I would pressume that building TSO/TCAM will fail if you try to use multipoint adressing with a device configured as BSC2 or BSC1.?
But I haven¡¯t tested.?
/Mattis
On Sun, Jul 26, 2020 at 01:00 PM, Jay Moseley wrote:
On 7/26/20 5:29 AM, Mattis Lind wrote:
When I tried to release the first job nothing happened at all!
Do you have an initiator set for CLASS=C? All your job cards for the
IOGEN are set up for class C.
Thanks Jay!
Great input! ?
I have bought the JCL book by De Ward Brown, but there are plenty left to read and learn.?
BTW.? Your web-pages on MVS sysgen are amazing!
/Mattis
?
|
Re: IOGEN on TK4- - Failed...
Mattis,
Just out of curiosity, why are you trying to do an IOGEN for a BSC3. device?
BSC1 = nonswitched?point-to-point, BSC3 = nonswitched. point-to-multipoint.
The hercules?doc specifically says:?
"The line emulates a point-to-point BSC link. There is no point-to-multipoint handling."
So, just wondering because commadpt.c doesnt?contain any code for multipoint.
Joe
On Sun, Jul 26, 2020 at 01:00 PM, Jay Moseley wrote:
On 7/26/20 5:29 AM, Mattis Lind wrote:
When I tried to release the first job nothing happened at all!
Do you have an initiator set for CLASS=C? All your job cards for the
IOGEN are set up for class C.
Thanks Jay!
Great input! ?
I have bought the JCL book by De Ward Brown, but there are plenty left to read and learn.?
BTW.? Your web-pages on MVS sysgen are amazing!
/Mattis
|
Re: IOGEN on TK4- - Failed...
Mattis,
Just out of curiosity, why are you trying to do an IOGEN for a BSC3. device?
BSC1 = nonswitched?point-to-point, BSC3 = nonswitched. point-to-multipoint.
The hercules?doc specifically says:?
"The line emulates a point-to-point BSC link. There is no point-to-multipoint handling."
So, just wondering because commadpt.c doesnt?contain any code for multipoint.
Joe
On Sun, Jul 26, 2020 at 01:00 PM, Jay Moseley wrote:
On 7/26/20 5:29 AM, Mattis Lind wrote:
When I tried to release the first job nothing happened at all!
Do you have an initiator set for CLASS=C? All your job cards for the
IOGEN are set up for class C.
Thanks Jay!
Great input! ?
I have bought the JCL book by De Ward Brown, but there are plenty left to read and learn.?
BTW.? Your web-pages on MVS sysgen are amazing!
/Mattis
|
Re: IOGEN on TK4- - Failed...
On Sun, Jul 26, 2020 at 01:00 PM, Jay Moseley wrote:
On 7/26/20 5:29 AM, Mattis Lind wrote:
When I tried to release the first job nothing happened at all!
Do you have an initiator set for CLASS=C? All your job cards for the
IOGEN are set up for class C.
Thanks Jay!
Great input! ?
I have bought the JCL book by De Ward Brown, but there are plenty left to read and learn.?
BTW. ?Your web-pages on MVS sysgen are amazing!
/Mattis
|
Re: IOGEN on TK4- - Failed...
On 7/26/20 5:29 AM, Mattis Lind wrote: When I tried to release the first job nothing happened at all! Do you have an initiator set for CLASS=C? All your job cards for the IOGEN are set up for class C.
|
Re: IOGEN on TK4- - Failed...
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
|
