Discussion:
How view printouts in Hercules 3.07?
(too old to reply)
oharamj@mac.com [hercules-390]
2017-01-09 04:33:56 UTC
Permalink
Ok, I've gone doiwn another rabbit hole, losing hours along the way. Time to yell "Uncle!".


Please observe the following:


devinit 00e prt/testprint.txt
devinit 00c jcl/vercob01.jcl trunc eof


On Hercules console both steps look successful, both end saying "initiated".


Escape over to Hercules GUI panel and I can see the jcl deck in the card reader and testprint.txt in 00e.


But Windows File Explorer does not show testprint.txt under the prt folder. In fact, i don't see it anywhere.


I tried quiting Hercules and restarting. I've searched all over Google and reviewed the Hercules docs. I've made sure folder permissions aren't a problem.


Any suggestions as to what I can try? Thanks Folks
Rahim Azizarab rahimazizarab@yahoo.com [hercules-390]
2017-01-09 04:48:13 UTC
Permalink
No need for any of this. All that is needed to view print files is your web browser; and the following statements in your configuration file.
000E  1403   127.0.0.1:1403  sockdev
000F  1403   127.0.0.1:1404  sockdev
On your web browser you can type http://127.0.0.1:1403  to view your printouts.
and this other statement will allow you to submit jobs from your PC prompt to the reader.
000C 3505 127.0.0.1:3505 sockdev ascii trunc eof

I use   "sub my.jcl localhost 3505".  The source for sub.c is on Hercules files section. 
regards;

Rahim Azizarab
  

  
oharamj@mac.com [hercules-390]
2017-01-09 06:05:30 UTC
Permalink
Need to ponder this and pray for guidance but, before going any further, let me confirm that this works for Hercules 3.07 running just System/360 DOS? (Not VS, VSE, MVS, TSO, et al)


Thanks!
kerravon86@yahoo.com.au [hercules-390]
2017-01-09 06:12:52 UTC
Permalink
Post by ***@mac.com [hercules-390]
Need to ponder this and pray for guidance
but, before going any further, let me confirm
that this works for Hercules 3.07 running
just System/360 DOS? (Not VS, VSE, MVS,
TSO, et al)
I don't know the answer to your question
but I recommend you post the first few
lines of your JCL, and also the output
displayed on your DOS console after
you do the devinit of the JCL on 00c.

BFN. Paul.
dwegscheid@sbcglobal.net [hercules-390]
2017-01-09 06:29:32 UTC
Permalink
This would really surprise me; my understanding is that

000E 1403 127.0.0.1:1403 sockdev

tells Hercules to send 00e output to the socket listening at port 1403 on localhost, not to start an http daemon that will listen on port 1403 and serve up output.

have you actually tried this and it works, or was this a "I think this might work"?


---In hercules-***@yahoogroups.com, <***@...> wrote :

No need for any of this. All that is needed to view print files is your web browser; and the following statements in your configuration file.


000E 1403 127.0.0.1:1403 sockdev
000F 1403 127.0.0.1:1404 sockdev


On your web browser you can type http://127.0.0.1:1403 http://127.0.0.1:1403/ to view your printouts.
Martin Truebner Martin@pi-sysprog.de [hercules-390]
2017-01-09 08:31:41 UTC
Permalink
Michael,

DOS (as it came from IBM Böblingen) rel 26 (or so) did not do
anything to separate print-files (this was something a carbon based
unit would do on the printer with real paper).

What you could do with hercules is to not do spooling (maybe there is
not even a POWER on the DOS release) and have a final step that tells
the hardware (in this case hercules) to cut of the paper (create a new
file) now. This opposed to letting it all end up in a file and waiting
till hercules is QUITed.

The extra step qould issue a DEVINIT 00E NEW-NAME_OF_PRINT_FILE.TXT

but this needs a little program (which i happen to have somewhere on
this PC)- as alternative you can issue from the hercules console the
above command.

Martin
Charles Anthony charles.unix.pro@gmail.com [hercules-390]
2017-01-09 15:54:00 UTC
Permalink
Post by Martin Truebner ***@pi-sysprog.de [hercules-390]
Michael,
DOS (as it came from IBM Böblingen) rel 26 (or so) did not do
anything to separate print-files (this was something a carbon based
unit would do on the printer with real paper).
What you could do with hercules is to not do spooling (maybe there is
not even a POWER on the DOS release) and have a final step that tells
the hardware (in this case hercules) to cut of the paper (create a new
file) now. This opposed to letting it all end up in a file and waiting
till hercules is QUITed.
The extra step qould issue a DEVINIT 00E NEW-NAME_OF_PRINT_FILE.TXT
but this needs a little program (which i happen to have somewhere on
this PC)- as alternative you can issue from the hercules console the
above command.
Martin
The approach I took in the DPS8M emulator is to have the printer emulator
watch the printed text; for Multics the first line of the job banner page
has a distinctive format (skip to top of double page and bunch of '#'s) and
has the job name as text in the line. The printer emulator extracts the job
name and opens a new file woth the job name, a short random string and a
.prt suffix. When it sees the job end banner it closes the file.

$ ls *.prt
prta.spool.10001.Repair.SysAdmin.a.9ShuXQ.prt
prta.spool.10001.Repair.SysAdmin.a.lCSY3t.prt
prta.spool.10001.Salvager.SysDaemon.z.Nw1r4P.prt
prta.spool.10001.Salvager.SysDaemon.z.QmrKdf.prt
prta.spool.10002.Repair.SysAdmin.a.9qZ0Em.prt
prta.spool.10002.Salvager.SysDaemon.z.4Pg6GT.prt
prta.spool.10002.Salvager.SysDaemon.z.gM62dk.prt
prta.spool.10003.Repair.SysAdmin.a.nWTuKp.prt
prta.spool.10026.Repair.SysAdmin.p.nQ3uYg.prt
prta.spool.10027.Repair.SysAdmin.p.u0JHjo.prt

-- Charles
oharamj@mac.com [hercules-390]
2017-01-09 17:56:06 UTC
Permalink
Yes, all that part i understand.

I just don’t see what’s keeping this from actually writing a print output text file to file & folder specified:
Devinit 00e prt/myprintout.txt

Michael

Sent from my Windows 10 phone

From: Charles Anthony ***@gmail.com [hercules-390]
Sent: Monday, January 9, 2017 8:54 AM
To: hercules-***@yahoogroups.com
Subject: Re: [hercules-390] Re: How view printouts in Hercules 3.07?

 


On Mon, Jan 9, 2017 at 12:31 AM, Martin Truebner ***@pi-sysprog.de [hercules-390] <hercules-***@yahoogroups.com> wrote:
 
Michael,

DOS (as it came from IBM Böblingen) rel 26 (or so) did not do
anything to separate print-files (this was something a carbon based
unit would do on the printer with real paper).

What you could do with hercules is to not do spooling (maybe there is
not even a POWER on the DOS release) and have a final step that tells
the hardware (in this case hercules) to cut of the paper (create a new
file) now. This opposed to letting it all end up in a file and waiting
till hercules is QUITed.

The extra step qould issue a DEVINIT 00E NEW-NAME_OF_PRINT_FILE.TXT

but this needs a little program (which i happen to have somewhere on
this PC)- as alternative you can issue from the hercules console the
above command.

Martin

The approach I took in the DPS8M emulator is to have the printer emulator watch the printed text; for Multics the first line of the job banner page has a distinctive format (skip to top of double page and bunch of '#'s) and has the job name as text in the line. The printer emulator extracts the job name and opens a new file woth the job name, a short random string and a .prt suffix. When it sees the job end banner it closes the file.

$ ls *.prt
prta.spool.10001.Repair.SysAdmin.a.9ShuXQ.prt
prta.spool.10001.Repair.SysAdmin.a.lCSY3t.prt
prta.spool.10001.Salvager.SysDaemon.z.Nw1r4P.prt
prta.spool.10001.Salvager.SysDaemon.z.QmrKdf.prt
prta.spool.10002.Repair.SysAdmin.a.9qZ0Em.prt
prta.spool.10002.Salvager.SysDaemon.z.4Pg6GT.prt
prta.spool.10002.Salvager.SysDaemon.z.gM62dk.prt
prta.spool.10003.Repair.SysAdmin.a.nWTuKp.prt
prta.spool.10026.Repair.SysAdmin.p.nQ3uYg.prt
prta.spool.10027.Repair.SysAdmin.p.u0JHjo.prt

-- Charles





[Non-text portions of this message have been removed]
somitcw@yahoo.com [hercules-390]
2017-01-09 18:08:10 UTC
Permalink
Post by ***@mac.com [hercules-390]
Yes, all that part i understand.
I just don’t see what’s keeping this from actually writing a print
Devinit 00e prt/myprintout.txt
Michael
Sent from my Windows 10 phone
- - - old notes snipped - - -

Please post your JCL that directed output to go to
printer 00E instead of dozens of others possibilities.

The entire JOB JCL is needed and if POWER is
being used, how did you set it up to output to 00E
including the start?
oharamj@mac.com [hercules-390]
2017-01-09 21:20:52 UTC
Permalink
Hi,


Here is the hercules.cnf file statements:
____________________________________________________________
HERCULES.CNF
____________________________________________________________

#
# Configuration file for Hercules ESA/390 emulator
#
# DOS/360
#
#==================================== Emulator settings
TZOFFSET -0000 # Windows clock set to gmt
TODDRAG 1
ARCHMODE S/370
CNSLPORT 3270 # telnet to localhost:3270
SYSEPOCH 1900 # base date for TOD clock
YROFFSET -28 # move back 28 years to 1988, day-date matches.
#==================================== Emulated cpu settings
CPUSERIAL 000611
CPUMODEL 2040 # s/360-40
OSTAILOR VSE
MAINSIZE 2 # 2MB main storage, unheard of for DOS.
# and minimum for hercules
XPNDSIZE 0
NUMCPU 1
LOADPARM ........
#LOG prt/herclog.log
DEFSYM line-end-type "crlf" # line endings; "crlf" for Windows, "" for *nix & Mac.

#==================================== Defined Devices
#------------------------------------ Unit record equipment
000C 2501 jcl/operipl.jcl trunc ascii eof
000D 3525 pch00d.txt ascii ${line-end-type}
000E 1403 prt00e.txt crlf
001C 2501 * trunc ascii eof
001D 3525 pch01d.txt ascii ${line-end-type}
001E 1403 prt01e.txt crlf
002C 2501 * trunc ascii eof
002D 3525 pch02d.txt ascii ${line-end-type}
002E 1403 prt02e.txt crlf
# Console Printer/Keyboard
##001F 1052 noprompt
001F 1052-c \ noprompt #optional; uses Hercules console instead of telnet.

#------------------------------------ Distribution Disk Packs
#
0130 2311 dasd/res11a.2311 # sysres, core image, relo
0131 2311 dasd/res11b.2311 # sysres, core image, system source
0132 2311 dasd/res11c.2311 # sysres, system relo, private libs

#------------------------------------ Target System Disk Packs
190 2314 dasd/dosres.2314 # target system residence file
191 2314 dasd/spool1.2314 # POWER II spooling disk
192 2314 dasd/wrk14a.2314 # work files for bg
193 2314 dasd/wrk14b.2314 # work files for f2
#------------------------------------ Tape drives
0280 3420
0281 3420
0282 3420
0283 3420
0284 3420
0285 3420
0286 3420
0287 3420
#------------------------------------ Display devices
00A0.6 3270
00A6.2 3270 PRINTER # DEFINED AS 3287 IN DOS/360 SUPERVISOR
____________________________________________________________



The Hercules integrated console is shown below, from beginning to end:
_____________________________________________________________
HERCULES CONSOLE
_____________________________________________________________
Hercules Version 3.07
(c)Copyright 1999-2010 by Roger Bowler, Jan Jaeger, and others
Built on Mar 23 2010 at 01:39:37
Build information:
Windows (MSVC) build for i386
Modes: S/370 ESA/390 z/Arch
Max CPU Engines: 8
Using fthreads instead of pthreads
Dynamic loading support
Using shared libraries
HTTP Server support
No SIGABEND handler
Regular Expressions support
Automatic Operator support
Machine dependent assists: cmpxchg1 cmpxchg4 cmpxchg8 fetch_dw store_dw
Running on KANGAROO Windows_NT-6.2 i686 MP=4
HHCHD018I Loadable module directory is hercules
Crypto module loaded (c) Copyright Bernard van der Helm, 2003-2010
Active: Message Security Assist
Message Security Assist Extension 1
Message Security Assist Extension 2
HHCCF065I Hercules: tid=00001C40, pid=10292, pgid=10292, priority=0
HHCDA020I dasd/res11a.2311 cyls=203 heads=10 tracks=2030 trklen=4096
HHCDA020I dasd/res11b.2311 cyls=203 heads=10 tracks=2030 trklen=4096
HHCDA020I dasd/res11c.2311 cyls=203 heads=10 tracks=2030 trklen=4096
HHCDA020I dasd/dosres.2314 cyls=203 heads=20 tracks=4060 trklen=7680
HHCDA020I dasd/spool1.2314 cyls=203 heads=20 tracks=4060 trklen=7680
HHCDA020I dasd/wrk14a.2314 cyls=203 heads=20 tracks=4060 trklen=7680
HHCDA020I dasd/wrk14b.2314 cyls=203 heads=20 tracks=4060 trklen=7680
HHCTE001I Console connection thread started: tid=00000020, pid=10292
HHCCP002I CPU0000 thread started: tid=0000283C, pid=10292, priority=15
HHCTE003I Waiting for console connection on port 3270
HHCTT002I Timer thread started: tid=000010E8, pid=10292, priority=0
HHCCP003I CPU0000 architecture mode S/370
HHCPN001I Control panel thread started: tid=00001C40, pid=10292
HHCAO001I Hercules Automatic Operator thread started;
tid=00001FD0, pri=0, pid=10292
devinit 00e prt/report.txt
HHCPN098I Device 0:000E initialized
devinit 00c jcl/vercob01.jcl trunc eof
HHCPN098I Device 0:000C initialized

The Hercules panel is shown below:
______________________________________________________________
HERCULES PANEL
______________________________________________________________
Peripherals
U Addr Modl Type Assignment
A 000C 2501 RDR jcl/vercob01.jcl eof
B 000D 3525 PCH pch00d.txt ascii
C 000E 1403 PRT prt/report.txt
D 001C 2501 RDR * ascii trunc eof
E 001D 3525 PCH pch01d.txt ascii
F 001E 1403 PRT prt01e.txt crlf
G 002C 2501 RDR * ascii trunc eof
H 002D 3525 PCH pch02d.txt ascii
I 002E 1403 PRT prt02e.txt crlf
J 001F 1052 CON *syscons cmdpref(\)
K 0130 2311 DASD dasd/res11a.2311 [203 cyls]
L 0131 2311 DASD dasd/res11b.2311 [203 cyls]
M 0132 2311 DASD dasd/res11c.2311 [203 cyls]
N 0190 2314 DASD dasd/dosres.2314 [203 cyls]
O 0191 2314 DASD dasd/spool1.2314 [203 cyls]
P 0192 2314 DASD dasd/wrk14a.2314 [203 cyls]
Q 0193 2314 DASD dasd/wrk14b.2314 [203 cyls]
R 0280 3420 TAPE *
S 0281 3420 TAPE
T 0282 3420 TAPE *
U 0283 3420 TAPE *
V 0284 3420 TAPE *
W 0285 3420 TAPE *
X 0286 3420 TAPE *
Y 0287 3420 TAPE *
Z 00A0 3270 DSP
. 00A1 3270 DSP
. 00A2 3270 DSP
. 00A3 3270 DSP
. 00A4 3270 DSP
. 00A5 3270 DSP
. 00A6 3270 DSP GROUP=PRINTER
. 00A7 3270 DSP GROUP=PRINTER
_____________________________________________________________
00c CARD DECK (from jcl/vercob01.jcl)
_____________________________________________________________
* $$JOB VERCOB01,,,BG
// JOB VERCOB01
// OPTION LINK
// EXEC COBOL
001010 IDENTIFICATION DIVISION. $4520001
001020 PROGRAM-ID. 'C360SAMP'. $4520002
001030 REMARKS. $4520003
001040 EXAMPLE OF A 360 COBOL PROGRAM TO $4520004
001050 COMPUTE SALARIES. $4520005
001060 ENVIRONMENT DIVISION. $4520006
001070 CONFIGURATION SECTION. $4520007
001080 SOURCE-COMPUTER. IBM-360. $4520008
001090 OBJECT-COMPUTER. IBM-360. $4520009
001100 INPUT-OUTPUT SECTION. $4520010
001110 FILE-CONTROL. $4520011
001120 SELECT SALARY-FILE $4520012
001130 ASSIGN TO 'SYS004' UNIT-RECORD 1403. $4520013
001140 $4520014
001150 DATA DIVISION. $4520015
001160 FILE SECTION. $4520016
001170 FD SALARY-FILE $4520017
001180 LABEL RECORDS ARE OMITTED $4520018
001185 RECORDING MODE IS F $4520019
001190 DATA RECORD IS SALARY-RECORD. $4520020
001200 01 SALARY-RECORD $4520021
001210 PICTURE X(100). $4520022
001220 WORKING-STORAGE SECTION. $4520023
001230 77 TOTAL-A PICTURE 9(6)V99 VALUE ZERO. $4520024
001240 77 TOTAL-B PICTURE 9(6)V99 VALUE ZERO. $4520025
001250 77 TOTAL-C PICTURE 9(6)V99 VALUE ZERO. $4520026
002010 77 WEEKLY-PAY PICTURE 999V99. $4520027
002020 77 MONTHLY-PAY PICTURE 9999V99. $4520028
002030 77 ANNUAL-PAY PICTURE 99999V99. $4520029
002040 77 CON-A PICTURE 9(6)V99 VALUE IS 008826.69. $4520030
002050 77 CON-B PICTURE 9(6)V99 VALUE IS 038250.00 . $4520031
002060 77 CON-C PICTURE 9(6)V99 VALUE IS 459000.00 . $4520032
002070 01 SALARIES. $4520033
002080 02 FILLER PICTURE A(46) VALUE SPACE. $4520034
002090 02 WEEKLY PICTURE ZZZ.99 . $4520035
002100 02 FILLER PICTURE AAA VALUE SPACE. $4520036
002110 02 MONTHLY PICTURE ZZZZ.99 . $4520037
002120 02 FILLER PICTURE AAA VALUE SPACE. $4520038
002130 02 ANNUAL PICTURE ZZZZZ.99 . $4520039
002140 02 FILLER PICTURE A(27) VALUE SPACE. $4520040
002150 01 MESG. $4520041
002160 02 FILLER PICTURE A(40) VALUE SPACES. $4520042
002170 02 SHOW PICTURE A(26). $4520043
002180 01 DSPY. $4520044
002190 02 FILLER PICTURE A(40) VALUE SPACES. $4520045
002200 02 PRSNT PICTURE A(33). $4520046
002210 01 HEADING. $4520047
002220 02 FILLER PICTURE A(46) VALUE SPACES. $4520048
002230 02 WEEKLY PICTURE A(6) VALUE IS 'WEEKLY'. $4520049
002240 02 FILLER PICTURE A(3) VALUE IS SPACES. $4520050
002250 02 MONTHLY PICTURE A(7) VALUE IS 'MONTHLY'. $4520051
003010 02 FILLER PICTURE A(3) VALUE IS SPACES. $4520052
003020 02 ANNUAL PICTURE A(6) VALUE IS 'ANNUAL'. $4520053
003030 02 FILLER PICTURE A(29) VALUE IS SPACES. $4520054
003040 $4520055
003050 PROCEDURE DIVISION. $4520056
003060 START. $4520057
003070 OPEN OUTPUT SALARY-FILE. $4520058
003080 WRITE SALARY-RECORD FROM HEADING AFTER ADVANCING 0 LINES. $4520059
003090 PERFORM CALCULATIONS $4520060
003100 VARYING MONTHLY-PAY FROM 500 BY 10 $4520061
003110 UNTIL MONTHLY-PAY IS GREATER THAN 1000. $4520062
003120 IF TOTAL-A = CON-A AND TOTAL-B = CON-B AND TOTAL-C = CON-C $4520063
003130 MOVE 'TABLE VALUES ARE CORRECT' TO SHOW $4520064
003140 WRITE SALARY-RECORD FROM MESG AFTER ADVANCING 2 LINES $4520065
003150 ELSE $4520066
003160 MOVE 'TABLE VALUES ARE NOT CORRECT' TO PRSNT $4520067
003170 WRITE SALARY-RECORD FROM DSPY AFTER ADVANCING 2 LINES. $4520068
003180 CLOSE SALARY-FILE. $4520069
003190 STOP RUN. $4520070
003200 $4520071
003210 CALCULATIONS. $4520072
003220 COMPUTE WEEKLY-PAY = 3 * MONTHLY-PAY / 13 $4520073
003230 COMPUTE ANNUAL-PAY = 12 * MONTHLY-PAY $4520074
003240 MOVE WEEKLY-PAY TO WEEKLY IN SALARIES $4520075
003250 MOVE MONTHLY-PAY TO MONTHLY IN SALARIES $4520076
004010 MOVE ANNUAL-PAY TO ANNUAL IN SALARIES $4520077
004020 ADD WEEKLY-PAY TO TOTAL-A $4520078
004030 ADD MONTHLY-PAY TO TOTAL-B $4520079
004040 ADD ANNUAL-PAY TO TOTAL-C $4520080
004050 WRITE SALARY-RECORD FROM SALARIES AFTER ADVANCING 1 LINES. $4520081
/*
// EXEC LNKEDT
// ASSGN SYS004,X'00E'
// EXEC
/*
/&
* $$EOJ
somitcw@yahoo.com [hercules-390]
2017-01-09 21:37:49 UTC
Permalink
- - - In hercules-***@yahoogroups.com, <***@...> wrote:
- - - beginning snipped - - -
- - - middle snipped - - -
Post by ***@mac.com [hercules-390]
devinit 00e prt/report.txt
HHCPN098I Device 0:000E initialized
devinit 00c jcl/vercob01.jcl trunc eof
HHCPN098I Device 0:000C initialized
- - - ending snipped - - -

You may call it "beginning to end" but it doesn't show
any operating system being IPLed, Power starting or not,
the JOB running, which partition was used, whether the
"// ASSGN SYS004,X'00E'" worked, if the JOB completed
normally, or the hercules "quit".

What were the integrated console messages for the JOB ?

I suspect that Hercules group H390-DOSVS would be more
help to you.
oharamj@mac.com [hercules-390]
2017-01-09 22:26:17 UTC
Permalink
It’s all I have at this point. I thought i was showing the integrated console.
I’m not using POWER.
I don’t have any reason to think the //ASSIGN failed.
Hercules did not quit until i entered exit some time later.
Quitting did not force any print file out. It just quit.
As far as I know, there is only one partition.
I assumed the job completed in some fashion since the 00e output on panel showed the output text file name from the devinit.
I thought ...
devinit 00c jcl/vercob01.jcl trunc eof
... would load the card deck and trigger an interrupt to run the job.

Are more steps required to load and execute the job?




Sent from my Windows 10 phone

From: ***@yahoo.com [hercules-390]
Sent: Monday, January 9, 2017 2:37 PM
To: hercules-***@yahoogroups.com
Subject: RE: [hercules-390] Re: How view printouts in Hercules 3.07?

 
- - - In hercules-***@yahoogroups.com, <***@...> wrote:
- - - beginning snipped - - -
- - - middle snipped - - -
Post by ***@mac.com [hercules-390]
devinit 00e prt/report.txt
HHCPN098I Device 0:000E initialized
devinit 00c jcl/vercob01.jcl trunc eof
HHCPN098I Device 0:000C initialized
- - - ending snipped - - -

You may call it "beginning to end" but it doesn't show
any operating system being IPLed, Power starting or not,
the JOB running, which partition was used, whether the
"// ASSGN SYS004,X'00E'" worked, if the JOB completed
normally, or the hercules "quit".

What were the integrated console messages for the JOB ?

I suspect that Hercules group H390-DOSVS would be more
help to you.




[Non-text portions of this message have been removed]
somitcw@yahoo.com [hercules-390]
2017-01-09 22:54:37 UTC
Permalink
It’s all I have at this point. I thought i was showing the integrated console.
If you are, you cut it off before a system was IPLed.
I’m not using POWER.
I don’t have any reason to think the //ASSIGN failed.
What does the integrated console show?
Hercules did not quit until i entered exit some time later.
Quitting did not force any print file out. It just quit.
Was "quit" entered before the JOB completed?
As far as I know, there is only one partition.
Please get into AR and MAP what you have.
Compilers normally run in BG but that can be changed.
I assumed the job completed in some fashion since the
00e output on panel showed the output text file name from
the devinit.
You put the name there with devinit which has nothing to
do with IPLing an operating system and running a JOB.
I thought ...
devinit 00c jcl/vercob01.jcl trunc eof
... would load the card deck and trigger an interrupt to run the job.
Are more steps required to load and execute the job?
Sent from my Windows 10 phone
- - - old notes snipped - - -

1. IPL an operating system.
2. Enter IPL commands for that operating system.
3. /ASSGN SYSIN,X'00E' ( one slash for the integrated console but
no slashes for the ASSGN to make the ASSGN sort-of permanent, )
4. devinit E to free the listing and put a different name for the output file.
5. View your listing.

I suspect that Hercules group H390-DOSVS would be more
help to you.
Joe Monk joemonk64@gmail.com [hercules-390]
2017-01-09 21:49:29 UTC
Permalink
I dont see an OS being IPL'd? Where is the IPL information?

Joe
Post by ***@mac.com [hercules-390]
Hi,
____________________________________________________________
HERCULES.CNF
____________________________________________________________
#
# Configuration file for Hercules ESA/390 emulator
#
# DOS/360
#
#==================================== Emulator settings
TZOFFSET -0000 # Windows clock set to gmt
TODDRAG 1
ARCHMODE S/370
CNSLPORT 3270 # telnet to localhost:3270
SYSEPOCH 1900 # base date for TOD clock
YROFFSET -28 # move back 28 years to 1988, day-date matches.
#==================================== Emulated cpu settings
CPUSERIAL 000611
CPUMODEL 2040 # s/360-40
OSTAILOR VSE
MAINSIZE 2 # 2MB main storage, unheard of for DOS.
# and minimum for hercules
XPNDSIZE 0
NUMCPU 1
LOADPARM ........
#LOG prt/herclog.log
DEFSYM line-end-type "crlf" # line endings; "crlf" for Windows, "" for *nix & Mac.
#==================================== Defined Devices
#------------------------------------ Unit record equipment
000C 2501 jcl/operipl.jcl trunc ascii eof
000D 3525 pch00d.txt ascii ${line-end-type}
000E 1403 prt00e.txt crlf
001C 2501 * trunc ascii eof
001D 3525 pch01d.txt ascii ${line-end-type}
001E 1403 prt01e.txt crlf
002C 2501 * trunc ascii eof
002D 3525 pch02d.txt ascii ${line-end-type}
002E 1403 prt02e.txt crlf
# Console Printer/Keyboard
##001F 1052 noprompt
001F 1052-c \ noprompt #optional; uses Hercules console instead of telnet.
#------------------------------------ Distribution Disk Packs
#
0130 2311 dasd/res11a.2311 # sysres, core image, relo
0131 2311 dasd/res11b.2311 # sysres, core image, system source
0132 2311 dasd/res11c.2311 # sysres, system relo, private libs
#------------------------------------ Target System Disk Packs
190 2314 dasd/dosres.2314 # target system residence file
191 2314 dasd/spool1.2314 # POWER II spooling disk
192 2314 dasd/wrk14a.2314 # work files for bg
193 2314 dasd/wrk14b.2314 # work files for f2
#------------------------------------ Tape drives
0280 3420
0281 3420
0282 3420
0283 3420
0284 3420
0285 3420
0286 3420
0287 3420
#------------------------------------ Display devices
00A0.6 3270
00A6.2 3270 PRINTER # DEFINED AS 3287 IN DOS/360 SUPERVISOR
____________________________________________________________
_____________________________________________________________
HERCULES CONSOLE
_____________________________________________________________
Hercules Version 3.07
(c)Copyright 1999-2010 by Roger Bowler, Jan Jaeger, and others
Built on Mar 23 2010 at 01:39:37
Windows (MSVC) build for i386
Modes: S/370 ESA/390 z/Arch
Max CPU Engines: 8
Using fthreads instead of pthreads
Dynamic loading support
Using shared libraries
HTTP Server support
No SIGABEND handler
Regular Expressions support
Automatic Operator support
Machine dependent assists: cmpxchg1 cmpxchg4 cmpxchg8 fetch_dw store_dw
Running on KANGAROO Windows_NT-6.2 i686 MP=4
HHCHD018I Loadable module directory is hercules
Crypto module loaded (c) Copyright Bernard van der Helm, 2003-2010
Active: Message Security Assist
Message Security Assist Extension 1
Message Security Assist Extension 2
HHCCF065I Hercules: tid=00001C40, pid=10292, pgid=10292, priority=0
HHCDA020I dasd/res11a.2311 cyls=203 heads=10 tracks=2030 trklen=4096
HHCDA020I dasd/res11b.2311 cyls=203 heads=10 tracks=2030 trklen=4096
HHCDA020I dasd/res11c.2311 cyls=203 heads=10 tracks=2030 trklen=4096
HHCDA020I dasd/dosres.2314 cyls=203 heads=20 tracks=4060 trklen=7680
HHCDA020I dasd/spool1.2314 cyls=203 heads=20 tracks=4060 trklen=7680
HHCDA020I dasd/wrk14a.2314 cyls=203 heads=20 tracks=4060 trklen=7680
HHCDA020I dasd/wrk14b.2314 cyls=203 heads=20 tracks=4060 trklen=7680
HHCTE001I Console connection thread started: tid=00000020, pid=10292
HHCCP002I CPU0000 thread started: tid=0000283C, pid=10292, priority=15
HHCTE003I Waiting for console connection on port 3270
HHCTT002I Timer thread started: tid=000010E8, pid=10292, priority=0
HHCCP003I CPU0000 architecture mode S/370
HHCPN001I Control panel thread started: tid=00001C40, pid=10292
HHCAO001I Hercules Automatic Operator thread started;
tid=00001FD0, pri=0, pid=10292
devinit 00e prt/report.txt
HHCPN098I Device 0:000E initialized
devinit 00c jcl/vercob01.jcl trunc eof
HHCPN098I Device 0:000C initialized
______________________________________________________________
HERCULES PANEL
______________________________________________________________
Peripherals
U Addr Modl Type Assignment
A 000C 2501 RDR jcl/vercob01.jcl eof
B 000D 3525 PCH pch00d.txt ascii
C 000E 1403 PRT prt/report.txt
D 001C 2501 RDR * ascii trunc eof
E 001D 3525 PCH pch01d.txt ascii
F 001E 1403 PRT prt01e.txt crlf
G 002C 2501 RDR * ascii trunc eof
H 002D 3525 PCH pch02d.txt ascii
I 002E 1403 PRT prt02e.txt crlf
J 001F 1052 CON *syscons cmdpref(\)
K 0130 2311 DASD dasd/res11a.2311 [203 cyls]
L 0131 2311 DASD dasd/res11b.2311 [203 cyls]
M 0132 2311 DASD dasd/res11c.2311 [203 cyls]
N 0190 2314 DASD dasd/dosres.2314 [203 cyls]
O 0191 2314 DASD dasd/spool1.2314 [203 cyls]
P 0192 2314 DASD dasd/wrk14a.2314 [203 cyls]
Q 0193 2314 DASD dasd/wrk14b.2314 [203 cyls]
R 0280 3420 TAPE *
S 0281 3420 TAPE
T 0282 3420 TAPE *
U 0283 3420 TAPE *
V 0284 3420 TAPE *
W 0285 3420 TAPE *
X 0286 3420 TAPE *
Y 0287 3420 TAPE *
Z 00A0 3270 DSP
. 00A1 3270 DSP
. 00A2 3270 DSP
. 00A3 3270 DSP
. 00A4 3270 DSP
. 00A5 3270 DSP
. 00A6 3270 DSP GROUP=PRINTER
. 00A7 3270 DSP GROUP=PRINTER
_____________________________________________________________
00c CARD DECK (from jcl/vercob01.jcl)
_____________________________________________________________
* $$JOB VERCOB01,,,BG
// JOB VERCOB01
// OPTION LINK
// EXEC COBOL
001010 IDENTIFICATION DIVISION.
$4520001
001020 PROGRAM-ID. 'C360SAMP'.
$4520002
001030 REMARKS.
$4520003
001040 EXAMPLE OF A 360 COBOL PROGRAM TO
$4520004
001050 COMPUTE SALARIES.
$4520005
001060 ENVIRONMENT DIVISION.
$4520006
001070 CONFIGURATION SECTION.
$4520007
001080 SOURCE-COMPUTER. IBM-360.
$4520008
001090 OBJECT-COMPUTER. IBM-360.
$4520009
001100 INPUT-OUTPUT SECTION.
$4520010
001110 FILE-CONTROL.
$4520011
001120 SELECT SALARY-FILE
$4520012
001130 ASSIGN TO 'SYS004' UNIT-RECORD 1403.
$4520013
001140
$4520014
001150 DATA DIVISION.
$4520015
001160 FILE SECTION.
$4520016
001170 FD SALARY-FILE
$4520017
001180 LABEL RECORDS ARE OMITTED
$4520018
001185 RECORDING MODE IS F
$4520019
001190 DATA RECORD IS SALARY-RECORD.
$4520020
001200 01 SALARY-RECORD
$4520021
001210 PICTURE X(100).
$4520022
001220 WORKING-STORAGE SECTION.
$4520023
001230 77 TOTAL-A PICTURE 9(6)V99 VALUE ZERO.
$4520024
001240 77 TOTAL-B PICTURE 9(6)V99 VALUE ZERO.
$4520025
001250 77 TOTAL-C PICTURE 9(6)V99 VALUE ZERO.
$4520026
002010 77 WEEKLY-PAY PICTURE 999V99.
$4520027
002020 77 MONTHLY-PAY PICTURE 9999V99.
$4520028
002030 77 ANNUAL-PAY PICTURE 99999V99.
$4520029
002040 77 CON-A PICTURE 9(6)V99 VALUE IS 008826.69.
$4520030
002050 77 CON-B PICTURE 9(6)V99 VALUE IS 038250.00 .
$4520031
002060 77 CON-C PICTURE 9(6)V99 VALUE IS 459000.00 .
$4520032
002070 01 SALARIES.
$4520033
002080 02 FILLER PICTURE A(46) VALUE SPACE.
$4520034
002090 02 WEEKLY PICTURE ZZZ.99 .
$4520035
002100 02 FILLER PICTURE AAA VALUE SPACE.
$4520036
002110 02 MONTHLY PICTURE ZZZZ.99 .
$4520037
002120 02 FILLER PICTURE AAA VALUE SPACE.
$4520038
002130 02 ANNUAL PICTURE ZZZZZ.99 .
$4520039
002140 02 FILLER PICTURE A(27) VALUE SPACE.
$4520040
002150 01 MESG.
$4520041
002160 02 FILLER PICTURE A(40) VALUE SPACES.
$4520042
002170 02 SHOW PICTURE A(26).
$4520043
002180 01 DSPY.
$4520044
002190 02 FILLER PICTURE A(40) VALUE SPACES.
$4520045
002200 02 PRSNT PICTURE A(33).
$4520046
002210 01 HEADING.
$4520047
002220 02 FILLER PICTURE A(46) VALUE SPACES.
$4520048
002230 02 WEEKLY PICTURE A(6) VALUE IS 'WEEKLY'.
$4520049
002240 02 FILLER PICTURE A(3) VALUE IS SPACES.
$4520050
002250 02 MONTHLY PICTURE A(7) VALUE IS 'MONTHLY'.
$4520051
003010 02 FILLER PICTURE A(3) VALUE IS SPACES.
$4520052
003020 02 ANNUAL PICTURE A(6) VALUE IS 'ANNUAL'.
$4520053
003030 02 FILLER PICTURE A(29) VALUE IS SPACES.
$4520054
003040
$4520055
003050 PROCEDURE DIVISION.
$4520056
003060 START.
$4520057
003070 OPEN OUTPUT SALARY-FILE.
$4520058
003080 WRITE SALARY-RECORD FROM HEADING AFTER ADVANCING 0 LINES.
$4520059
003090 PERFORM CALCULATIONS
$4520060
003100 VARYING MONTHLY-PAY FROM 500 BY 10
$4520061
003110 UNTIL MONTHLY-PAY IS GREATER THAN 1000.
$4520062
003120 IF TOTAL-A = CON-A AND TOTAL-B = CON-B AND TOTAL-C = CON-C $4520063
003130 MOVE 'TABLE VALUES ARE CORRECT' TO SHOW
$4520064
003140 WRITE SALARY-RECORD FROM MESG AFTER ADVANCING 2 LINES
$4520065
003150 ELSE
$4520066
003160 MOVE 'TABLE VALUES ARE NOT CORRECT' TO PRSNT
$4520067
003170 WRITE SALARY-RECORD FROM DSPY AFTER ADVANCING 2 LINES.
$4520068
003180 CLOSE SALARY-FILE.
$4520069
003190 STOP RUN.
$4520070
003200
$4520071
003210 CALCULATIONS.
$4520072
003220 COMPUTE WEEKLY-PAY = 3 * MONTHLY-PAY / 13
$4520073
003230 COMPUTE ANNUAL-PAY = 12 * MONTHLY-PAY
$4520074
003240 MOVE WEEKLY-PAY TO WEEKLY IN SALARIES
$4520075
003250 MOVE MONTHLY-PAY TO MONTHLY IN SALARIES
$4520076
004010 MOVE ANNUAL-PAY TO ANNUAL IN SALARIES
$4520077
004020 ADD WEEKLY-PAY TO TOTAL-A
$4520078
004030 ADD MONTHLY-PAY TO TOTAL-B
$4520079
004040 ADD ANNUAL-PAY TO TOTAL-C
$4520080
004050 WRITE SALARY-RECORD FROM SALARIES AFTER ADVANCING 1 LINES.
$4520081
/*
// EXEC LNKEDT
// ASSGN SYS004,X'00E'
// EXEC
/*
/&
* $$EOJ
oharamj@mac.com [hercules-390]
2017-01-09 22:55:04 UTC
Permalink
Let me make sure we're on the same song sheet.


It appears I have a running a bare-bones S/360 40 DOS machine waiting for a job to run.


In the old days, as best as I can recall, I would load my card deck in the hopper, press interrupt, and - voila! - the deck would read in and the job would run.


How do I do that here?
somitcw@yahoo.com [hercules-390]
2017-01-09 23:01:23 UTC
Permalink
Post by ***@mac.com [hercules-390]
machine waiting for a job to run.
In the old days, as best as I can recall, I would load my
card deck in the hopper, press interrupt, and - voila! - the
deck would read in and the job would run.
How do I do that here?
1. Switch to the partition wanted which I suggest be BG
2. /ASSGN SYSIN,X'00C' with the slash being for the
integrated console, not JOB Control


H390-DOSVS would be a much better group for you
to ask these questions. I haven't been a real DOS
operator since the early 1970s and other here could
be even before that.
kerravon86@yahoo.com.au [hercules-390]
2017-01-09 23:44:15 UTC
Permalink
Post by ***@mac.com [hercules-390]
In the old days, as best as I can recall, I would
load my card deck in the hopper, press interrupt,
and - voila! - the deck would read in and the job
would run.
For that to work *for you*, SOMEONE ELSE
first IPLed DOS.

They IPLed DOS by pressing some button.

The equivalent of pressing that button is to
use the IPL command in Hercules, e.g.

ipl 123

You need to focus your efforts on that now.
You need to find some documentation that
tells you the right number to use to IPL.

BFN. Paul.
Martin Truebner Martin@pi-sysprog.de [hercules-390]
2017-01-10 07:38:40 UTC
Permalink
Michael,

(I am also on the DOS list but there is not much traffic)

You have to IPL DOS first.

this has not happened- otherwise your technique (cards on cardreader -
intr+start- voila) would work.

for it to work- you have to IPL xxx where xxx is the CUU where the
DOSRES is (could be SYSRES- I do not have memory for DOS before 73).

you then have to present an interrupt from the console (which is not a
3270 terminal)- the system will then ask for a supervisor-name (IIRC)
or something else- anyway the last thing is ASSGN SYSIN,X'00C' and
then a plain enter without data. The system will then attempt to read
the cardreader - the message will be

0S??D INTERVENTION REQUIRED ON X'00C'

if you have not reached that point- there is no hope for any
processing by DOS within HERCULES.

Martin
oharamj@mac.com [hercules-390]
2017-01-09 22:45:45 UTC
Permalink
Well, I run ...

Hercules >prt/hercules.txt

Hercules starts and what you see below is the integrated console output. I attempted to put a ...
LOG prt/herclof.log
... statement into the hercules.cnf

DOS rejects LOG as invalid. So I commented it out.

If there’s other console output, I don’t know how to capture it.

The Hercules GUI panel (see below) sure seems to suggest the IPL happened(?)

Anyway, isn’t the germane question: What commands are needed to load and run a virtual card deck? Followed closely by: How to print and view the output?



Sent from my Windows 10 phone

From: Joe Monk ***@gmail.com [hercules-390]
Sent: Monday, January 9, 2017 2:49 PM
To: hercules-***@yahoogroups.com
Subject: Re: [hercules-390] Re: How view printouts in Hercules 3.07?

 
I dont see an OS being IPL'd? Where is the IPL information?

Joe

On Mon, Jan 9, 2017 at 3:20 PM, ***@mac.com [hercules-390] <hercules-***@yahoogroups.com> wrote:
 
Hi,

Here is the hercules.cnf file statements:
____________________________________________________________
HERCULES.CNF
____________________________________________________________

#
# Configuration file for Hercules ESA/390 emulator
#
# DOS/360
#
#==================================== Emulator settings
TZOFFSET -0000         # Windows clock set to gmt
TODDRAG  1
ARCHMODE S/370
CNSLPORT 3270          # telnet to localhost:3270
SYSEPOCH 1900          # base date for TOD clock
YROFFSET -28           # move back 28 years to 1988, day-date matches.
#==================================== Emulated cpu settings
CPUSERIAL 000611
CPUMODEL  2040         # s/360-40
OSTAILOR  VSE
MAINSIZE  2            # 2MB main storage, unheard of for DOS.
#                        and minimum for hercules
XPNDSIZE 0
NUMCPU 1
LOADPARM ........
#LOG      prt/herclog.log
DEFSYM line-end-type "crlf"  # line endings; "crlf" for Windows, "" for *nix & Mac.

#==================================== Defined Devices
#------------------------------------ Unit record equipment
000C 2501 jcl/operipl.jcl trunc ascii eof
000D 3525 pch00d.txt ascii ${line-end-type}
000E 1403 prt00e.txt crlf
001C 2501 * trunc ascii eof
001D 3525 pch01d.txt ascii ${line-end-type}
001E 1403 prt01e.txt crlf
002C 2501 * trunc ascii eof
002D 3525 pch02d.txt ascii ${line-end-type}
002E 1403 prt02e.txt crlf
# Console Printer/Keyboard
##001F 1052 noprompt
001F 1052-c \ noprompt #optional; uses Hercules console instead of telnet.

#------------------------------------ Distribution Disk Packs
#
0130 2311 dasd/res11a.2311  # sysres, core image, relo
0131 2311 dasd/res11b.2311  # sysres, core image, system source
0132 2311 dasd/res11c.2311  # sysres, system relo, private libs

#------------------------------------ Target System Disk Packs
190 2314 dasd/dosres.2314   # target system residence file
191 2314 dasd/spool1.2314   # POWER II spooling disk
192 2314 dasd/wrk14a.2314   # work files for bg
193 2314 dasd/wrk14b.2314   # work files for f2
#------------------------------------ Tape drives
0280 3420
0281 3420
0282 3420
0283 3420
0284 3420
0285 3420
0286 3420
0287 3420
#------------------------------------ Display devices
00A0.6  3270
00A6.2  3270  PRINTER   # DEFINED AS 3287 IN DOS/360 SUPERVISOR
____________________________________________________________


The Hercules integrated console is shown below, from beginning to end:
_____________________________________________________________
HERCULES CONSOLE
_____________________________________________________________
Hercules Version 3.07
(c)Copyright 1999-2010 by Roger Bowler, Jan Jaeger, and others
Built on Mar 23 2010 at 01:39:37
Build information:
  Windows (MSVC) build for i386
  Modes: S/370 ESA/390 z/Arch
  Max CPU Engines: 8
  Using fthreads instead of pthreads
  Dynamic loading support
  Using shared libraries
  HTTP Server support
  No SIGABEND handler
  Regular Expressions support
  Automatic Operator support
  Machine dependent assists: cmpxchg1 cmpxchg4 cmpxchg8 fetch_dw store_dw
Running on KANGAROO Windows_NT-6.2 i686 MP=4
HHCHD018I Loadable module directory is hercules
Crypto module loaded (c) Copyright Bernard van der Helm, 2003-2010
  Active: Message Security Assist
          Message Security Assist Extension 1
          Message Security Assist Extension 2
HHCCF065I Hercules: tid=00001C40, pid=10292, pgid=10292, priority=0
HHCDA020I dasd/res11a.2311 cyls=203 heads=10 tracks=2030 trklen=4096
HHCDA020I dasd/res11b.2311 cyls=203 heads=10 tracks=2030 trklen=4096
HHCDA020I dasd/res11c.2311 cyls=203 heads=10 tracks=2030 trklen=4096
HHCDA020I dasd/dosres.2314 cyls=203 heads=20 tracks=4060 trklen=7680
HHCDA020I dasd/spool1.2314 cyls=203 heads=20 tracks=4060 trklen=7680
HHCDA020I dasd/wrk14a.2314 cyls=203 heads=20 tracks=4060 trklen=7680
HHCDA020I dasd/wrk14b.2314 cyls=203 heads=20 tracks=4060 trklen=7680
HHCTE001I Console connection thread started: tid=00000020, pid=10292
HHCCP002I CPU0000 thread started: tid=0000283C, pid=10292, priority=15
HHCTE003I Waiting for console connection on port 3270
HHCTT002I Timer thread started: tid=000010E8, pid=10292, priority=0
HHCCP003I CPU0000 architecture mode S/370
HHCPN001I Control panel thread started: tid=00001C40, pid=10292
HHCAO001I Hercules Automatic Operator thread started;
          tid=00001FD0, pri=0, pid=10292
devinit 00e prt/report.txt
HHCPN098I Device 0:000E initialized
devinit 00c jcl/vercob01.jcl trunc eof
HHCPN098I Device 0:000C initialized

The Hercules panel is shown below:
______________________________________________________________
HERCULES PANEL
______________________________________________________________
                                 Peripherals
 U Addr Modl Type Assignment
 A 000C 2501 RDR  jcl/vercob01.jcl eof
 B 000D 3525 PCH  pch00d.txt ascii
 C 000E 1403 PRT  prt/report.txt
 D 001C 2501 RDR  * ascii trunc eof
 E 001D 3525 PCH  pch01d.txt ascii
 F 001E 1403 PRT  prt01e.txt crlf
 G 002C 2501 RDR  * ascii trunc eof
 H 002D 3525 PCH  pch02d.txt ascii
 I 002E 1403 PRT  prt02e.txt crlf
 J 001F 1052 CON  *syscons cmdpref(\)
 K 0130 2311 DASD dasd/res11a.2311 [203 cyls]
 L 0131 2311 DASD dasd/res11b.2311 [203 cyls]
 M 0132 2311 DASD dasd/res11c.2311 [203 cyls]
 N 0190 2314 DASD dasd/dosres.2314 [203 cyls]
 O 0191 2314 DASD dasd/spool1.2314 [203 cyls]
 P 0192 2314 DASD dasd/wrk14a.2314 [203 cyls]
 Q 0193 2314 DASD dasd/wrk14b.2314 [203 cyls]
 R 0280 3420 TAPE *
 S 0281 3420 TAPE
 T 0282 3420 TAPE *
 U 0283 3420 TAPE *
 V 0284 3420 TAPE *
 W 0285 3420 TAPE *
 X 0286 3420 TAPE *
 Y 0287 3420 TAPE *
 Z 00A0 3270 DSP
 . 00A1 3270 DSP
 . 00A2 3270 DSP
 . 00A3 3270 DSP
 . 00A4 3270 DSP
 . 00A5 3270 DSP
 . 00A6 3270 DSP  GROUP=PRINTER
 . 00A7 3270 DSP  GROUP=PRINTER
_____________________________________________________________
00c CARD DECK (from jcl/vercob01.jcl)
_____________________________________________________________
* $$JOB VERCOB01,,,BG
// JOB VERCOB01
// OPTION LINK
// EXEC COBOL
001010 IDENTIFICATION DIVISION.                                         $4520001
001020 PROGRAM-ID. 'C360SAMP'.                                          $4520002
001030 REMARKS.                                                         $4520003
001040     EXAMPLE OF A 360 COBOL PROGRAM TO                            $4520004
001050     COMPUTE SALARIES.                                            $4520005
001060 ENVIRONMENT DIVISION.                                            $4520006
001070 CONFIGURATION SECTION.                                           $4520007
001080   SOURCE-COMPUTER. IBM-360.                                      $4520008
001090   OBJECT-COMPUTER. IBM-360.                                      $4520009
001100 INPUT-OUTPUT SECTION.                                            $4520010
001110 FILE-CONTROL.                                                    $4520011
001120     SELECT SALARY-FILE                                           $4520012
001130     ASSIGN TO 'SYS004' UNIT-RECORD 1403.                         $4520013
001140                                                                  $4520014
001150 DATA DIVISION.                                                   $4520015
001160 FILE SECTION.                                                    $4520016
001170  FD SALARY-FILE                                                  $4520017
001180     LABEL RECORDS ARE OMITTED                                    $4520018
001185     RECORDING MODE IS F                                          $4520019
001190     DATA RECORD IS SALARY-RECORD.                                $4520020
001200  01 SALARY-RECORD                                                $4520021
001210     PICTURE X(100).                                              $4520022
001220 WORKING-STORAGE SECTION.                                         $4520023
001230  77 TOTAL-A      PICTURE 9(6)V99    VALUE ZERO.                  $4520024
001240  77 TOTAL-B      PICTURE 9(6)V99    VALUE ZERO.                  $4520025
001250  77 TOTAL-C      PICTURE 9(6)V99    VALUE ZERO.                  $4520026
002010  77 WEEKLY-PAY   PICTURE 999V99.                                 $4520027
002020  77 MONTHLY-PAY  PICTURE 9999V99.                                $4520028
002030  77 ANNUAL-PAY   PICTURE 99999V99.                               $4520029
002040  77 CON-A  PICTURE 9(6)V99    VALUE IS 008826.69.                $4520030
002050  77 CON-B  PICTURE 9(6)V99    VALUE IS 038250.00 .               $4520031
002060  77 CON-C  PICTURE 9(6)V99    VALUE IS 459000.00 .               $4520032
002070  01 SALARIES.                                                    $4520033
002080     02 FILLER    PICTURE A(46)  VALUE SPACE.                     $4520034
002090     02 WEEKLY    PICTURE ZZZ.99 .                                $4520035
002100     02 FILLER    PICTURE AAA    VALUE SPACE.                     $4520036
002110     02 MONTHLY   PICTURE ZZZZ.99 .                               $4520037
002120     02 FILLER    PICTURE AAA    VALUE SPACE.                     $4520038
002130     02 ANNUAL    PICTURE ZZZZZ.99 .                              $4520039
002140     02 FILLER    PICTURE A(27)  VALUE SPACE.                     $4520040
002150  01 MESG.                                                        $4520041
002160     02 FILLER    PICTURE A(40)  VALUE SPACES.                    $4520042
002170     02 SHOW      PICTURE A(26).                                  $4520043
002180  01 DSPY.                                                        $4520044
002190     02 FILLER    PICTURE A(40)  VALUE SPACES.                    $4520045
002200     02 PRSNT     PICTURE A(33).                                  $4520046
002210  01 HEADING.                                                     $4520047
002220     02 FILLER    PICTURE A(46)  VALUE SPACES.                    $4520048
002230     02 WEEKLY    PICTURE A(6)   VALUE IS 'WEEKLY'.               $4520049
002240     02 FILLER    PICTURE A(3)   VALUE IS SPACES.                 $4520050
002250     02 MONTHLY   PICTURE A(7)   VALUE IS 'MONTHLY'.              $4520051
003010     02 FILLER    PICTURE A(3)   VALUE IS SPACES.                 $4520052
003020     02 ANNUAL    PICTURE A(6)   VALUE IS 'ANNUAL'.               $4520053
003030     02 FILLER    PICTURE A(29)  VALUE IS SPACES.                 $4520054
003040                                                                  $4520055
003050 PROCEDURE DIVISION.                                              $4520056
003060 START.                                                           $4520057
003070     OPEN OUTPUT SALARY-FILE.                                     $4520058
003080     WRITE SALARY-RECORD FROM HEADING AFTER ADVANCING 0 LINES.    $4520059
003090     PERFORM CALCULATIONS                                         $4520060
003100       VARYING MONTHLY-PAY FROM 500 BY 10                         $4520061
003110       UNTIL MONTHLY-PAY IS GREATER THAN 1000.                    $4520062
003120       IF TOTAL-A = CON-A AND TOTAL-B = CON-B AND TOTAL-C = CON-C $4520063
003130       MOVE 'TABLE VALUES ARE CORRECT' TO SHOW                    $4520064
003140       WRITE SALARY-RECORD FROM MESG AFTER ADVANCING 2 LINES      $4520065
003150       ELSE                                                       $4520066
003160       MOVE 'TABLE VALUES ARE NOT CORRECT' TO PRSNT               $4520067
003170       WRITE SALARY-RECORD FROM DSPY AFTER ADVANCING 2 LINES.     $4520068
003180     CLOSE SALARY-FILE.                                           $4520069
003190     STOP RUN.                                                    $4520070
003200                                                                  $4520071
003210 CALCULATIONS.                                                    $4520072
003220     COMPUTE WEEKLY-PAY = 3 * MONTHLY-PAY / 13                    $4520073
003230     COMPUTE ANNUAL-PAY = 12 * MONTHLY-PAY                        $4520074
003240     MOVE WEEKLY-PAY TO WEEKLY IN SALARIES                        $4520075
003250     MOVE MONTHLY-PAY TO MONTHLY IN SALARIES                      $4520076
004010     MOVE ANNUAL-PAY TO ANNUAL IN SALARIES                        $4520077
004020     ADD WEEKLY-PAY TO TOTAL-A                                    $4520078
004030     ADD MONTHLY-PAY TO TOTAL-B                                   $4520079
004040     ADD ANNUAL-PAY TO TOTAL-C                                    $4520080
004050     WRITE SALARY-RECORD FROM SALARIES  AFTER ADVANCING 1 LINES.  $4520081
/*
// EXEC LNKEDT
// ASSGN SYS004,X'00E'
// EXEC
/*
/&
* $$EOJ






[Non-text portions of this message have been removed]
Joe Monk joemonk64@gmail.com [hercules-390]
2017-01-10 00:14:44 UTC
Permalink
Your Hercules CNF file shows DOSRES at address 190.

So, before you do anything, you need to type IPL 190 on the hercules
console.

Joe
Post by ***@mac.com [hercules-390]
Well, I run ...
Hercules >prt/hercules.txt
Hercules starts and what you see below is the integrated console output. I
attempted to put a ...
LOG prt/herclof.log
... statement into the hercules.cnf
DOS rejects LOG as invalid. So I commented it out.
If there’s other console output, I don’t know how to capture it.
The Hercules GUI panel (see below) sure seems to suggest the IPL happened(?)
Anyway, isn’t the germane question: What commands are needed to load and
run a virtual card deck? Followed closely by: How to print and view the
output?
Sent from my Windows 10 phone
Sent: Monday, January 9, 2017 2:49 PM
Subject: Re: [hercules-390] Re: How view printouts in Hercules 3.07?
I dont see an OS being IPL'd? Where is the IPL information?
Joe
Hi,
__________________________________________________________
HERCULES.CNF
__________________________________________________________
#
# Configuration file for Hercules ESA/390 emulator
#
# DOS/360
#
#==================================== Emulator settings
TZOFFSET -0000 # Windows clock set to gmt
TODDRAG 1
ARCHMODE S/370
CNSLPORT 3270 # telnet to localhost:3270
SYSEPOCH 1900 # base date for TOD clock
YROFFSET -28 # move back 28 years to 1988, day-date matches.
#==================================== Emulated cpu settings
CPUSERIAL 000611
CPUMODEL 2040 # s/360-40
OSTAILOR VSE
MAINSIZE 2 # 2MB main storage, unheard of for DOS.
# and minimum for hercules
XPNDSIZE 0
NUMCPU 1
LOADPARM ........
#LOG prt/herclog.log
DEFSYM line-end-type "crlf" # line endings; "crlf" for Windows, "" for *nix & Mac.
#==================================== Defined Devices
#------------------------------------ Unit record equipment
000C 2501 jcl/operipl.jcl trunc ascii eof
000D 3525 pch00d.txt ascii ${line-end-type}
000E 1403 prt00e.txt crlf
001C 2501 * trunc ascii eof
001D 3525 pch01d.txt ascii ${line-end-type}
001E 1403 prt01e.txt crlf
002C 2501 * trunc ascii eof
002D 3525 pch02d.txt ascii ${line-end-type}
002E 1403 prt02e.txt crlf
# Console Printer/Keyboard
##001F 1052 noprompt
001F 1052-c \ noprompt #optional; uses Hercules console instead of telnet.
#------------------------------------ Distribution Disk Packs
#
0130 2311 dasd/res11a.2311 # sysres, core image, relo
0131 2311 dasd/res11b.2311 # sysres, core image, system source
0132 2311 dasd/res11c.2311 # sysres, system relo, private libs
#------------------------------------ Target System Disk Packs
190 2314 dasd/dosres.2314 # target system residence file
191 2314 dasd/spool1.2314 # POWER II spooling disk
192 2314 dasd/wrk14a.2314 # work files for bg
193 2314 dasd/wrk14b.2314 # work files for f2
#------------------------------------ Tape drives
0280 3420
0281 3420
0282 3420
0283 3420
0284 3420
0285 3420
0286 3420
0287 3420
#------------------------------------ Display devices
00A0.6 3270
00A6.2 3270 PRINTER # DEFINED AS 3287 IN DOS/360 SUPERVISOR
__________________________________________________________
__________________________________________________________
HERCULES CONSOLE
__________________________________________________________
Hercules Version 3.07
(c)Copyright 1999-2010 by Roger Bowler, Jan Jaeger, and others
Built on Mar 23 2010 at 01:39:37
Windows (MSVC) build for i386
Modes: S/370 ESA/390 z/Arch
Max CPU Engines: 8
Using fthreads instead of pthreads
Dynamic loading support
Using shared libraries
HTTP Server support
No SIGABEND handler
Regular Expressions support
Automatic Operator support
Machine dependent assists: cmpxchg1 cmpxchg4 cmpxchg8 fetch_dw store_dw
Running on KANGAROO Windows_NT-6.2 i686 MP=4
HHCHD018I Loadable module directory is hercules
Crypto module loaded (c) Copyright Bernard van der Helm, 2003-2010
Active: Message Security Assist
Message Security Assist Extension 1
Message Security Assist Extension 2
HHCCF065I Hercules: tid=00001C40, pid=10292, pgid=10292, priority=0
HHCDA020I dasd/res11a.2311 cyls=203 heads=10 tracks=2030 trklen=4096
HHCDA020I dasd/res11b.2311 cyls=203 heads=10 tracks=2030 trklen=4096
HHCDA020I dasd/res11c.2311 cyls=203 heads=10 tracks=2030 trklen=4096
HHCDA020I dasd/dosres.2314 cyls=203 heads=20 tracks=4060 trklen=7680
HHCDA020I dasd/spool1.2314 cyls=203 heads=20 tracks=4060 trklen=7680
HHCDA020I dasd/wrk14a.2314 cyls=203 heads=20 tracks=4060 trklen=7680
HHCDA020I dasd/wrk14b.2314 cyls=203 heads=20 tracks=4060 trklen=7680
HHCTE001I Console connection thread started: tid=00000020, pid=10292
HHCCP002I CPU0000 thread started: tid=0000283C, pid=10292, priority=15
HHCTE003I Waiting for console connection on port 3270
HHCTT002I Timer thread started: tid=000010E8, pid=10292, priority=0
HHCCP003I CPU0000 architecture mode S/370
HHCPN001I Control panel thread started: tid=00001C40, pid=10292
HHCAO001I Hercules Automatic Operator thread started;
tid=00001FD0, pri=0, pid=10292
devinit 00e prt/report.txt
HHCPN098I Device 0:000E initialized
devinit 00c jcl/vercob01.jcl trunc eof
HHCPN098I Device 0:000C initialized
__________________________________________________________
HERCULES PANEL
__________________________________________________________
Peripherals
U Addr Modl Type Assignment
A 000C 2501 RDR jcl/vercob01.jcl eof
B 000D 3525 PCH pch00d.txt ascii
C 000E 1403 PRT prt/report.txt
D 001C 2501 RDR * ascii trunc eof
E 001D 3525 PCH pch01d.txt ascii
F 001E 1403 PRT prt01e.txt crlf
G 002C 2501 RDR * ascii trunc eof
H 002D 3525 PCH pch02d.txt ascii
I 002E 1403 PRT prt02e.txt crlf
J 001F 1052 CON *syscons cmdpref(\)
K 0130 2311 DASD dasd/res11a.2311 [203 cyls]
L 0131 2311 DASD dasd/res11b.2311 [203 cyls]
M 0132 2311 DASD dasd/res11c.2311 [203 cyls]
N 0190 2314 DASD dasd/dosres.2314 [203 cyls]
O 0191 2314 DASD dasd/spool1.2314 [203 cyls]
P 0192 2314 DASD dasd/wrk14a.2314 [203 cyls]
Q 0193 2314 DASD dasd/wrk14b.2314 [203 cyls]
R 0280 3420 TAPE *
S 0281 3420 TAPE
T 0282 3420 TAPE *
U 0283 3420 TAPE *
V 0284 3420 TAPE *
W 0285 3420 TAPE *
X 0286 3420 TAPE *
Y 0287 3420 TAPE *
Z 00A0 3270 DSP
. 00A1 3270 DSP
. 00A2 3270 DSP
. 00A3 3270 DSP
. 00A4 3270 DSP
. 00A5 3270 DSP
. 00A6 3270 DSP GROUP=PRINTER
. 00A7 3270 DSP GROUP=PRINTER
__________________________________________________________
00c CARD DECK (from jcl/vercob01.jcl)
__________________________________________________________
* $$JOB VERCOB01,,,BG
// JOB VERCOB01
// OPTION LINK
// EXEC COBOL
001010 IDENTIFICATION DIVISION.
$4520001
001020 PROGRAM-ID. 'C360SAMP'.
$4520002
001030 REMARKS.
$4520003
001040 EXAMPLE OF A 360 COBOL PROGRAM TO
$4520004
001050 COMPUTE SALARIES.
$4520005
001060 ENVIRONMENT DIVISION.
$4520006
001070 CONFIGURATION SECTION.
$4520007
001080 SOURCE-COMPUTER. IBM-360.
$4520008
001090 OBJECT-COMPUTER. IBM-360.
$4520009
001100 INPUT-OUTPUT SECTION.
$4520010
001110 FILE-CONTROL.
$4520011
001120 SELECT SALARY-FILE
$4520012
001130 ASSIGN TO 'SYS004' UNIT-RECORD 1403.
$4520013
001140
$4520014
001150 DATA DIVISION.
$4520015
001160 FILE SECTION.
$4520016
001170 FD SALARY-FILE
$4520017
001180 LABEL RECORDS ARE OMITTED
$4520018
001185 RECORDING MODE IS F
$4520019
001190 DATA RECORD IS SALARY-RECORD.
$4520020
001200 01 SALARY-RECORD
$4520021
001210 PICTURE X(100).
$4520022
001220 WORKING-STORAGE SECTION.
$4520023
001230 77 TOTAL-A PICTURE 9(6)V99 VALUE ZERO.
$4520024
001240 77 TOTAL-B PICTURE 9(6)V99 VALUE ZERO.
$4520025
001250 77 TOTAL-C PICTURE 9(6)V99 VALUE ZERO.
$4520026
002010 77 WEEKLY-PAY PICTURE 999V99.
$4520027
002020 77 MONTHLY-PAY PICTURE 9999V99.
$4520028
002030 77 ANNUAL-PAY PICTURE 99999V99.
$4520029
002040 77 CON-A PICTURE 9(6)V99 VALUE IS 008826.69.
$4520030
002050 77 CON-B PICTURE 9(6)V99 VALUE IS 038250.00 .
$4520031
002060 77 CON-C PICTURE 9(6)V99 VALUE IS 459000.00 .
$4520032
002070 01 SALARIES.
$4520033
002080 02 FILLER PICTURE A(46) VALUE SPACE.
$4520034
002090 02 WEEKLY PICTURE ZZZ.99 .
$4520035
002100 02 FILLER PICTURE AAA VALUE SPACE.
$4520036
002110 02 MONTHLY PICTURE ZZZZ.99 .
$4520037
002120 02 FILLER PICTURE AAA VALUE SPACE.
$4520038
002130 02 ANNUAL PICTURE ZZZZZ.99 .
$4520039
002140 02 FILLER PICTURE A(27) VALUE SPACE.
$4520040
002150 01 MESG.
$4520041
002160 02 FILLER PICTURE A(40) VALUE SPACES.
$4520042
002170 02 SHOW PICTURE A(26).
$4520043
002180 01 DSPY.
$4520044
002190 02 FILLER PICTURE A(40) VALUE SPACES.
$4520045
002200 02 PRSNT PICTURE A(33).
$4520046
002210 01 HEADING.
$4520047
002220 02 FILLER PICTURE A(46) VALUE SPACES.
$4520048
002230 02 WEEKLY PICTURE A(6) VALUE IS 'WEEKLY'.
$4520049
002240 02 FILLER PICTURE A(3) VALUE IS SPACES.
$4520050
002250 02 MONTHLY PICTURE A(7) VALUE IS 'MONTHLY'.
$4520051
003010 02 FILLER PICTURE A(3) VALUE IS SPACES.
$4520052
003020 02 ANNUAL PICTURE A(6) VALUE IS 'ANNUAL'.
$4520053
003030 02 FILLER PICTURE A(29) VALUE IS SPACES.
$4520054
003040
$4520055
003050 PROCEDURE DIVISION.
$4520056
003060 START.
$4520057
003070 OPEN OUTPUT SALARY-FILE.
$4520058
003080 WRITE SALARY-RECORD FROM HEADING AFTER ADVANCING 0 LINES.
$4520059
003090 PERFORM CALCULATIONS
$4520060
003100 VARYING MONTHLY-PAY FROM 500 BY 10
$4520061
003110 UNTIL MONTHLY-PAY IS GREATER THAN 1000.
$4520062
003120 IF TOTAL-A = CON-A AND TOTAL-B = CON-B AND TOTAL-C = CON-C $4520063
003130 MOVE 'TABLE VALUES ARE CORRECT' TO SHOW
$4520064
003140 WRITE SALARY-RECORD FROM MESG AFTER ADVANCING 2 LINES
$4520065
003150 ELSE
$4520066
003160 MOVE 'TABLE VALUES ARE NOT CORRECT' TO PRSNT
$4520067
003170 WRITE SALARY-RECORD FROM DSPY AFTER ADVANCING 2 LINES.
$4520068
003180 CLOSE SALARY-FILE.
$4520069
003190 STOP RUN.
$4520070
003200
$4520071
003210 CALCULATIONS.
$4520072
003220 COMPUTE WEEKLY-PAY = 3 * MONTHLY-PAY / 13
$4520073
003230 COMPUTE ANNUAL-PAY = 12 * MONTHLY-PAY
$4520074
003240 MOVE WEEKLY-PAY TO WEEKLY IN SALARIES
$4520075
003250 MOVE MONTHLY-PAY TO MONTHLY IN SALARIES
$4520076
004010 MOVE ANNUAL-PAY TO ANNUAL IN SALARIES
$4520077
004020 ADD WEEKLY-PAY TO TOTAL-A
$4520078
004030 ADD MONTHLY-PAY TO TOTAL-B
$4520079
004040 ADD ANNUAL-PAY TO TOTAL-C
$4520080
004050 WRITE SALARY-RECORD FROM SALARIES AFTER ADVANCING 1 LINES.
$4520081
/*
// EXEC LNKEDT
// ASSGN SYS004,X'00E'
// EXEC
/*
/&
* $$EOJ
[Non-text portions of this message have been removed]
oharamj@mac.com [hercules-390]
2017-01-10 00:23:18 UTC
Permalink
Ok, here's what I get back:


IPL 190
HHCCP014I CPU0000: Addressing exception CODE=0005 ILC=6
PSW=00040005 C0003044 INST=D2FFB000F9BA MVC 0(256,11),2490(15) move_character
R:001FFFBD:K:06=000000 00000000 00000000 00000000 00 .........
R:000039BC:K:06=00000000 00000000 00000000 00000000 .........
GR00=00000000 GR01=00003088 GR02=00000000 GR03=00000000
GR04=00000000 GR05=00000000 GR06=00000000 GR07=00000000
GR08=00000000 GR09=00000000 GR10=00000000 GR11=001FFFBD
GR12=00000000 GR13=00000000 GR14=00000000 GR15=40003002


What's next?
kerravon86@yahoo.com.au [hercules-390]
2017-01-10 00:36:05 UTC
Permalink
Post by Joe Monk ***@gmail.com [hercules-390]
IPL 190
PSW=00040005 C0003044 INST=D2FFB000F9BA
MVC 0(256,11),2490(15) move_character
This is not necessarily an error.

What came after this?

And what does the bottom line of the
console window show? The line that
probably has a "24" in it.

BFN. Paul.
oharamj@mac.com [hercules-390]
2017-01-10 00:51:30 UTC
Permalink
What was after? Just the 16 GRs I included previously.
Nothing else.

Bottom line:
CPU0000 PSW=FF06000080000000 24..W....

M


Sent from my Windows 10 phone

From: ***@yahoo.com.au [hercules-390]
Sent: Monday, January 9, 2017 5:36 PM
To: hercules-***@yahoogroups.com
Subject: Re: [hercules-390] Re: How view printouts in Hercules 3.07?

 
Post by Joe Monk ***@gmail.com [hercules-390]
IPL 190
PSW=00040005 C0003044 INST=D2FFB000F9BA
MVC 0(256,11),2490(15) move_character
This is not necessarily an error.

What came after this?

And what does the bottom line of the
console window show? The line that
probably has a "24" in it.

BFN. Paul.




[Non-text portions of this message have been removed]
kerravon86@yahoo.com.au [hercules-390]
2017-01-10 02:16:00 UTC
Permalink
What was after? Just the 16 GRs I included previously.
Nothing else.
CPU0000 PSW=FF06000080000000 24..W....
Ok, that "W" means it is in a "wait state".
I'm not very familiar with it, but I believe
a wait state is entered when either there
is no work to do, or an error has occurred.

I think those "0000" before the 24 mean
that it's not an error, it's just waiting for
input.

As other have said, DOS/360 is waiting
for you to press "enter" on the DOS
console.

It has been recommended to you that you
change this:

001F 1052-c \ noprompt #optional; uses Hercules console instead of telnet.

to:

001F 1052-c / noprompt #optional; uses Hercules console instead of telnet.

so that you use a "/" like everyone else
when you want to send something to
the DOS console.

So if you want to use the Hercules "help"
command, you would type in:

help

But if DOS360 has a "help" command, you
would instead type:

/help

In this case, the command you need is not an
actual command, you instead just need the
DOS console to see you press the "enter"
key. The way you do that is by typing just this:

/

Then you will hopefully get more output on
your integrated console.

If you insist on keeping "\" as your DOS
console special character, then you instead
need to type:

\

BFN. Paul.
somitcw@yahoo.com [hercules-390]
2017-01-10 00:44:20 UTC
Permalink
Post by Joe Monk ***@gmail.com [hercules-390]
IPL 190
HHCCP014I CPU0000: Addressing exception CODE=0005 ILC=6
PSW=00040005 C0003044 INST=D2FFB000F9BA MVC 0(256,11),2490(15) move_character
R:001FFFBD:K:06=000000 00000000 00000000 00000000 00 .........
R:000039BC:K:06=00000000 00000000 00000000 00000000 .........
GR00=00000000 GR01=00003088 GR02=00000000 GR03=00000000
GR04=00000000 GR05=00000000 GR06=00000000 GR07=00000000
GR08=00000000 GR09=00000000 GR10=00000000 GR11=001FFFBD
GR12=00000000 GR13=00000000 GR14=00000000 GR15=40003002
What's next?
That is incredible, fabulous, and beautiful.

Now connect to the H390-DOSVS group and ask:

1. What your DOS or DOSVS console address is and do you need
to enter a single slash on the integrated for your DOS or DOSVS
system to find its console.
/

2. What IPL commands are then recommended.

3. Why your integrated console posting always appear truncated.

https://groups.yahoo.com/neo/groups/H390-DOSVS/info

P.S. Have you already built your system onto the 190 disk volume.
It responded properly so I assume so.
oharamj@mac.com [hercules-390]
2017-01-10 01:24:20 UTC
Permalink
1. What your DOS or DOSVS console address is and do you need
to enter a single slash on the integrated for your DOS or DOSVS
system to find its console.

Does this address that? (from the Hercules.cnf file)

# Console Printer/Keyboard
##001F 1052 noprompt
001F 1052-c \ noprompt #optional; uses Hercules console instead of telnet.

Now that you mention it, I do seem to recall something here from earlier about entering some character to reply via telnet vs herc console. I’ll have to go back through older threads. It gets confusing.

2. Why your integrated console posting always appear truncated.

Is it? I haven’t noticed. I thought it wrapped. I’ll check it.

P.S. Have you already built your system onto the 190 disk volume.
It responded properly so I assume so.

I believe so. Yes the dosres is 190.

Now connect to the H390-DOSVS group 


You really want to get rid of me, eh <rof,l> I’ve stayed on here because have previously gotten lots of help here.

M

Sent from Mail for Windows 10

From: ***@yahoo.com [hercules-390]
Sent: Monday, January 9, 2017 5:44 PM
To: hercules-***@yahoogroups.com
Subject: Re: [hercules-390] Re: How view printouts in Hercules 3.07?

 
Post by Joe Monk ***@gmail.com [hercules-390]
IPL 190
HHCCP014I CPU0000: Addressing exception CODE=0005 ILC=6
PSW=00040005 C0003044 INST=D2FFB000F9BA MVC 0(256,11),2490(15) move_character
R:001FFFBD:K:06=000000 00000000 00000000 00000000 00 .........
R:000039BC:K:06=00000000 00000000 00000000 00000000 .........
GR00=00000000 GR01=00003088 GR02=00000000 GR03=00000000
GR04=00000000 GR05=00000000 GR06=00000000 GR07=00000000
GR08=00000000 GR09=00000000 GR10=00000000 GR11=001FFFBD
GR12=00000000 GR13=00000000 GR14=00000000 GR15=40003002
What's next?
That is incredible, fabulous, and beautiful.

Now connect to the H390-DOSVS group and ask:

1. What your DOS or DOSVS console address is and do you need
to enter a single slash on the integrated for your DOS or DOSVS
system to find its console.
/

2. What IPL commands are then recommended.

3. Why your integrated console posting always appear truncated.

https://groups.yahoo.com/neo/groups/H390-DOSVS/info

P.S. Have you already built your system onto the 190 disk volume.
It responded properly so I assume so.




[Non-text portions of this message have been removed]
Joe Monk joemonk64@gmail.com [hercules-390]
2017-01-10 01:47:35 UTC
Permalink
Your console character is a \

So you need to type a single \ to bring up the DOS console

Joe
Post by ***@yahoo.com [hercules-390]
1. What your DOS or DOSVS console address is and do you need
to enter a single slash on the integrated for your DOS or DOSVS
system to find its console.
Does this address that? (from the Hercules.cnf file)
# Console Printer/Keyboard
##001F 1052 noprompt
001F 1052-c \ noprompt #optional; uses Hercules console instead of telnet.
Now that you mention it, I do seem to recall something here from earlier
about entering some character to reply via telnet vs herc console. I’ll
have to go back through older threads. It gets confusing.
2. Why your integrated console posting always appear truncated.
Is it? I haven’t noticed. I thought it wrapped. I’ll check it.
P.S. Have you already built your system onto the 190 disk volume.
It responded properly so I assume so.
I believe so. Yes the dosres is 190.
Now connect to the H390-DOSVS group 

You really want to get rid of me, eh <rof,l> I’ve stayed on here because
have previously gotten lots of help here.
M
Sent from Mail for Windows 10
Sent: Monday, January 9, 2017 5:44 PM
Subject: Re: [hercules-390] Re: How view printouts in Hercules 3.07?
Post by Joe Monk ***@gmail.com [hercules-390]
IPL 190
HHCCP014I CPU0000: Addressing exception CODE=0005 ILC=6
PSW=00040005 C0003044 INST=D2FFB000F9BA MVC 0(256,11),2490(15)
move_character
Post by Joe Monk ***@gmail.com [hercules-390]
R:001FFFBD:K:06=000000 00000000 00000000 00000000 00 .........
R:000039BC:K:06=00000000 00000000 00000000 00000000 .........
GR00=00000000 GR01=00003088 GR02=00000000 GR03=00000000
GR04=00000000 GR05=00000000 GR06=00000000 GR07=00000000
GR08=00000000 GR09=00000000 GR10=00000000 GR11=001FFFBD
GR12=00000000 GR13=00000000 GR14=00000000 GR15=40003002
What's next?
That is incredible, fabulous, and beautiful.
1. What your DOS or DOSVS console address is and do you need
to enter a single slash on the integrated for your DOS or DOSVS
system to find its console.
/
2. What IPL commands are then recommended.
3. Why your integrated console posting always appear truncated.
https://groups.yahoo.com/neo/groups/H390-DOSVS/info
P.S. Have you already built your system onto the 190 disk volume.
It responded properly so I assume so.
[Non-text portions of this message have been removed]
somitcw@yahoo.com [hercules-390]
2017-01-10 01:56:07 UTC
Permalink
Post by ***@yahoo.com [hercules-390]
Post by ***@yahoo.com [hercules-390]
1. What your DOS or DOSVS console address is and do you need
to enter a single slash on the integrated for your DOS or DOSVS
system to find its console.
Does this address that? (from the Hercules.cnf file)
# Console Printer/Keyboard
##001F 1052 noprompt
001F 1052-c \ noprompt #optional; uses Hercules console instead of telnet.
001F 1052-c \ defines the device to Hercules but in no way
actually enters the "/" or "\" on the integrated console after you
enter IPL 190 on the integrated console.

Why can't you use the default os slash like most others?
Your choice but it makes writing instructions complicated.
Post by ***@yahoo.com [hercules-390]
Now that you mention it, I do seem to recall something here
from earlier about entering some character to reply via telnet
vs herc console. I’ll have to go back through older threads.
It gets confusing.
Hercules integrated console is a combination of the Hercules
console and one that your operating system can use.
You must direct operating system commands to the operating
system. You defined the character as a back-slash or a slash
or others so must prefix all DOS or DOSVS commands entered
on the integrated console with the defined whatever.

Since the DOS or DOSVS I/O interrupt needs no letters or
numbers so the back-slash or slash does not prefix them.
The back-slash or slash in this case can be the complete
command.
Post by ***@yahoo.com [hercules-390]
Post by ***@yahoo.com [hercules-390]
2. Why your integrated console posting always appear truncated.
Is it? I haven’t noticed. I thought it wrapped. I’ll check it.
It probably scrolled some but new messages should be there.
If you are copying from a log file before you quit Hercules
that might cause truncation. I would never try that so
I don't know.
The Hercules log command normally goes in an .rc file
but also can be entered on the hercules console preferable
before the IPL 190 .
Or, on the integrated console, try:
Do the normal cntl-a, release the cntl-a and then press enter
to do the copy part of copy/paste. Or mark, highlight plus enter.
Formatting may look bad on paste.
Post by ***@yahoo.com [hercules-390]
Post by ***@yahoo.com [hercules-390]
P.S. Have you already built your system onto the 190 disk volume.
It responded properly so I assume so.
I believe so. Yes the dosres is 190.
Post by ***@yahoo.com [hercules-390]
Now connect to the H390-DOSVS group 

You really want to get rid of me, eh <rof,l> I’ve stayed on here
because have previously gotten lots of help here.
M
Sent from Mail for Windows 10
- - - old notes snipped - - -

Most DOS and DOSVS IPL questions are off-topic on
hercules-390 but many members tolerate a few off-topic
questions well even though very few run DOS or DOSVS.

Yahoo group H390-DOSVS has people that run the same
type of system that you are trying to run. They will be
better able to assist you.

https://groups.yahoo.com/neo/groups/H390-DOSVS/info
Joe Monk joemonk64@gmail.com [hercules-390]
2017-01-10 00:39:14 UTC
Permalink
OK Perfect!

Now you should see:

0I10A GIVE IPL CONTROL COMMANDS

at which you will type in:

set date=mm/dd/yy,clock=hh/mm/ss

replacing them with the correct values and hit ENTER

Then you should see:

BG 0I20I DOS IPL COMPLETE
BG 1I00A READY FOR COMMUNICATIONS.
BG

NOW you can run a job from the card reader!

Joe
Post by Joe Monk ***@gmail.com [hercules-390]
IPL 190
HHCCP014I CPU0000: Addressing exception CODE=0005 ILC=6
PSW=00040005 C0003044 INST=D2FFB000F9BA MVC 0(256,11),2490(15) move_character
R:001FFFBD:K:06=000000 00000000 00000000 00000000 00 .........
R:000039BC:K:06=00000000 00000000 00000000 00000000 .........
GR00=00000000 GR01=00003088 GR02=00000000 GR03=00000000
GR04=00000000 GR05=00000000 GR06=00000000 GR07=00000000
GR08=00000000 GR09=00000000 GR10=00000000 GR11=001FFFBD
GR12=00000000 GR13=00000000 GR14=00000000 GR15=40003002
What's next?
oharamj@mac.com [hercules-390]
2017-01-10 01:50:55 UTC
Permalink
Hhmm, I didn’t get any of this on the integrated console Is there some place else where i should see this?

Sent from my Windows 10 phone

From: Joe Monk ***@gmail.com [hercules-390]
Sent: Monday, January 9, 2017 6:39 PM
To: hercules-***@yahoogroups.com
Subject: Re: [hercules-390] Re: How view printouts in Hercules 3.07?

 
OK Perfect! 

Now you should see:

0I10A GIVE IPL CONTROL COMMANDS

at which you will type in:

set date=mm/dd/yy,clock=hh/mm/ss 

replacing them with the correct values and hit ENTER

Then you should see:

BG  0I20I DOS IPL COMPLETE
  BG  1I00A  READY FOR COMMUNICATIONS.
  BG

NOW you can run a job from the card reader!

Joe

On Mon, Jan 9, 2017 at 6:23 PM, ***@mac.com [hercules-390] <hercules-***@yahoogroups.com> wrote:
 
Ok, here's what I get back:

IPL 190
HHCCP014I CPU0000: Addressing exception CODE=0005 ILC=6
PSW=00040005 C0003044 INST=D2FFB000F9BA MVC   0(256,11),2490(15) move_character
R:001FFFBD:K:06=000000 00000000 00000000 00000000 00 .........
R:000039BC:K:06=00000000 00000000 00000000 00000000  .........
GR00=00000000  GR01=00003088  GR02=00000000  GR03=00000000
GR04=00000000  GR05=00000000  GR06=00000000  GR07=00000000
GR08=00000000  GR09=00000000  GR10=00000000  GR11=001FFFBD
GR12=00000000  GR13=00000000  GR14=00000000  GR15=40003002

What's next?





[Non-text portions of this message have been removed]
Joe Monk joemonk64@gmail.com [hercules-390]
2017-01-10 01:58:49 UTC
Permalink
You have to type a single \ to make the integrated console connect. Like
this (my console character is a forward slash "/")

HHC01603I ipl 120 <+++++ IPL COMMAND

HHC00801I Processor CP00: Addressing exception code 0005 ilc 6
HHC02324I PSW=00040005C0003044
INST=D2FFB000F9BA MVC 0(256,11),2490(15) move_character

HHC02326I R:001FFFBD:K:06=000000 00000000 00000000 00000000 00
................ HHC02326I
R:000039BC:K:06=00000000 00000000 00000000 00000000 ................
HHC02269I GR00=00000000 GR01=00003088
GR02=00000000 GR03=00000000
HHC02269I GR04=00000000 GR05=00000000 GR06=00000000 GR07=00000000
HHC02269I GR08=00000000
GR09=00000000 GR10=00000000 GR11=001FFFBD
HHC02269I GR12=00000000 GR13=00000000 GR14=00000000
GR15=40003002
HHC00100I Thread id 10772, prio 0, name Read-ahead thread-1 started
HHC00100I Thread id 10812,
prio 0, name Read-ahead thread-2 started
HHC00008I / <++++++++ CONNECT TO INTEGRATED
CONSOLE

HHC00801I Processor CP00: Operation exception code 0001 ilc 2
HHC02324I PSW=FF05000170008B82
INST=0000 ????? , ?
HHC02269I GR00=00008000 GR01=000002B8 GR02=00008B82
GR03=000085F8
HHC02269I GR04=00002990 GR05=00002E0C GR06=80008F00 GR07=00007000
HHC02269I GR08=000002B8
GR09=A00088DA GR10=00000120 GR11=001FFFFF
HHC02269I GR12=00200000 GR13=00000010 GR14=0000800A
GR15=60008882
HHC00801I Processor CP00: Operation exception code 0001 ilc 2
HHC02324I PSW=FF04000160008BCE
INST=0000 ????? , ?
HHC02269I GR00=00008000 GR01=00002878 GR02=00000000
GR03=00100FFF
HHC02269I GR04=00000020 GR05=A0008BBC GR06=001807FF GR07=00007000
HHC02269I GR08=000002B8
GR09=A00088DA GR10=00000120 GR11=001FFFFF
HHC02269I GR12=00200000 GR13=00000010 GR14=0000800A
GR15=60008882 0I10A
GIVE IPL CONTROL COMMANDS <++++++++ DOS REPLY
HHC00010A Enter
input for console 0:001F

Joe
Hhmm, I didn’t get any of this on the integrated console Is there some
place else where i should see this?
Sent from my Windows 10 phone
Sent: Monday, January 9, 2017 6:39 PM
Subject: Re: [hercules-390] Re: How view printouts in Hercules 3.07?
OK Perfect!
0I10A GIVE IPL CONTROL COMMANDS
set date=mm/dd/yy,clock=hh/mm/ss
replacing them with the correct values and hit ENTER
BG 0I20I DOS IPL COMPLETE
BG 1I00A READY FOR COMMUNICATIONS.
BG
NOW you can run a job from the card reader!
Joe
IPL 190
HHCCP014I CPU0000: Addressing exception CODE=0005 ILC=6
PSW=00040005 C0003044 INST=D2FFB000F9BA MVC 0(256,11),2490(15) move_character
R:001FFFBD:K:06=000000 00000000 00000000 00000000 00 .........
R:000039BC:K:06=00000000 00000000 00000000 00000000 .........
GR00=00000000 GR01=00003088 GR02=00000000 GR03=00000000
GR04=00000000 GR05=00000000 GR06=00000000 GR07=00000000
GR08=00000000 GR09=00000000 GR10=00000000 GR11=001FFFBD
GR12=00000000 GR13=00000000 GR14=00000000 GR15=40003002
What's next?
[Non-text portions of this message have been removed]
oharamj@mac.com [hercules-390]
2017-01-10 02:08:43 UTC
Permalink
What is it looking for now?

\(001F)
0I10A GIVE IPL CONTROL COMMANDS
HHCCD001I Readahead thread 1 started: tid=00000530, pid=8084
HHC1C001A Enter input for console device 001F
HHCCD001I Readahead thread 2 started: tid=00000724, pid=8084
set date=01/09/17,clock=18?55/00
HHCPN139E Command "set" not found; enter '?' for list.
\(001F) set date=01/09/17,clock=18/57/00
0I17A NO PUB GIVEN FOR SYSLOG
HHC1C001A Enter input for console device 001F

Sent from Mail for Windows 10

From: Joe Monk ***@gmail.com [hercules-390]
Sent: Monday, January 9, 2017 6:58 PM
To: hercules-***@yahoogroups.com
Subject: Re: [hercules-390] Re: How view printouts in Hercules 3.07?

 
You have to type a single \ to make the integrated console connect. Like this (my console character is a forward slash "/")

HHC01603I ipl 120     <+++++ IPL COMMAND                                                                                                 
HHC00801I Processor CP00:  Addressing exception code 0005  ilc 6                                                        HHC02324I PSW=00040005C0003044 INST=D2FFB000F9BA MVC   0(256,11),2490(15)     move_character                            
HHC02326I R:001FFFBD:K:06=000000 00000000 00000000 00000000 00 ................                                         HHC02326I R:000039BC:K:06=00000000 00000000 00000000 00000000  ................                                         HHC02269I GR00=00000000 GR01=00003088 GR02=00000000 GR03=00000000                                                       HHC02269I GR04=00000000 GR05=00000000 GR06=00000000 GR07=00000000                                                       HHC02269I GR08=00000000 GR09=00000000 GR10=00000000 GR11=001FFFBD                                                       HHC02269I GR12=00000000 GR13=00000000 GR14=00000000 GR15=40003002                                                       HHC00100I Thread id 10772, prio  0, name Read-ahead thread-1 started                                                    HHC00100I Thread id 10812, prio  0, name Read-ahead thread-2 started                                                    HHC00008I /             <++++++++ CONNECT TO INTEGRATED CONSOLE                                                                                                
HHC00801I Processor CP00:  Operation exception code 0001  ilc 2                                                         HHC02324I PSW=FF05000170008B82 INST=0000         ????? ,                      ?                                         HHC02269I GR00=00008000 GR01=000002B8 GR02=00008B82 GR03=000085F8                                                       HHC02269I GR04=00002990 GR05=00002E0C GR06=80008F00 GR07=00007000                                                       HHC02269I GR08=000002B8 GR09=A00088DA GR10=00000120 GR11=001FFFFF                                                       HHC02269I GR12=00200000 GR13=00000010 GR14=0000800A GR15=60008882                                                       HHC00801I Processor CP00:  Operation exception code 0001  ilc 2                                                         HHC02324I PSW=FF04000160008BCE INST=0000         ????? ,                      ?                                         HHC02269I GR00=00008000 GR01=00002878 GR02=00000000 GR03=00100FFF                                                       HHC02269I GR04=00000020 GR05=A0008BBC GR06=001807FF GR07=00007000                                                       HHC02269I GR08=000002B8 GR09=A00088DA GR10=00000120 GR11=001FFFFF                                                       HHC02269I GR12=00200000 GR13=00000010 GR14=0000800A GR15=60008882                                                       0I10A GIVE IPL CONTROL COMMANDS     <++++++++ DOS REPLY                                                                                    HHC00010A Enter input for console 0:001F           

Joe

On Mon, Jan 9, 2017 at 7:50 PM, ***@mac.com [hercules-390] <hercules-***@yahoogroups.com> wrote:
 
Hhmm, I didn’t get any of this on the integrated console Is there some place else where i should see this?

Sent from my Windows 10 phone

From: Joe Monk ***@gmail.com [hercules-390]
Sent: Monday, January 9, 2017 6:39 PM
To: hercules-***@yahoogroups.com
Subject: Re: [hercules-390] Re: How view printouts in Hercules 3.07?

 
OK Perfect! 

Now you should see:

0I10A GIVE IPL CONTROL COMMANDS

at which you will type in:

set date=mm/dd/yy,clock=hh/mm/ss 

replacing them with the correct values and hit ENTER

Then you should see:

BG  0I20I DOS IPL COMPLETE
  BG  1I00A  READY FOR COMMUNICATIONS.
  BG

NOW you can run a job from the card reader!

Joe

On Mon, Jan 9, 2017 at 6:23 PM, ***@mac.com [hercules-390] <hercules-***@yahoogroups.com> wrote:
 
Ok, here's what I get back:

IPL 190
HHCCP014I CPU0000: Addressing exception CODE=0005 ILC=6
PSW=00040005 C0003044 INST=D2FFB000F9BA MVC   0(256,11),2490(15) move_character
R:001FFFBD:K:06=000000 00000000 00000000 00000000 00 .........
R:000039BC:K:06=00000000 00000000 00000000 00000000  .........
GR00=00000000  GR01=00003088  GR02=00000000  GR03=00000000
GR04=00000000  GR05=00000000  GR06=00000000  GR07=00000000
GR08=00000000  GR09=00000000  GR10=00000000  GR11=001FFFBD
GR12=00000000  GR13=00000000  GR14=00000000  GR15=40003002

What's next?

[Non-text portions of this message have been removed]





[Non-text portions of this message have been removed]
somitcw@yahoo.com [hercules-390]
2017-01-10 03:57:27 UTC
Permalink
Post by ***@mac.com [hercules-390]
What is it looking for now?
\(001F)
0I10A GIVE IPL CONTROL COMMANDS
HHCCD001I Readahead thread 1 started: tid=00000530, pid=8084
HHC1C001A Enter input for console device 001F
HHCCD001I Readahead thread 2 started: tid=00000724, pid=8084
set date=01/09/17,clock=18?55/00
HHCPN139E Command "set" not found; enter '?' for list.
The bad hercules set command went to hercules only.
Your DOS or DOSVS system didn't see it so you can ignore.
Post by ***@mac.com [hercules-390]
\(001F) set date=01/09/17,clock=18/57/00
0I17A NO PUB GIVEN FOR SYSLOG
This means that device 01F is not defined in your
operating system.
It seems to be working anyway.
Perhaps you need IPL time ADD statements to
add the devices your operating system will
be using?

Someone on yahoo group H390-DOSVS would remember.
Post by ***@mac.com [hercules-390]
HHC1C001A Enter input for console device 001F
Sent from Mail for Windows 10
- - - old notes snipped - - -

My guess would be

1. \ ( to get into AR )
2. \map ( to list your partitions and the size of their memory )
3. \bg ( to get into partition BG for background processing )
4. \assgn sysin,x'00c' ( to assign SYSRDR and SYSIPT to X'00C' )
5. switch to posting on the H390-DOSVS group.
somitcw@yahoo.com [hercules-390]
2017-01-10 04:13:08 UTC
Permalink
- - - In hercules-***@yahoogroups.com, <***@...> wrote:
- - - all snipped - - -

ADD any needed devices before the \set
The format is something like:

\add X'01f',1050a
\add x'00c',2540r or other reader type
\add x'00d',2540p or other punch type
\add x'00e',1403 or other printer type
\add X'190',2314
bunch more
Joe Monk joemonk64@gmail.com [hercules-390]
2017-01-10 00:18:26 UTC
Permalink
No, the Hercules GUI does NOT suggest an IPL happened. Rather, it suggests
everything has been set up to IPL...

Joe
Post by ***@mac.com [hercules-390]
Well, I run ...
Hercules >prt/hercules.txt
Hercules starts and what you see below is the integrated console output. I
attempted to put a ...
LOG prt/herclof.log
... statement into the hercules.cnf
DOS rejects LOG as invalid. So I commented it out.
If there’s other console output, I don’t know how to capture it.
The Hercules GUI panel (see below) sure seems to suggest the IPL happened(?)
Anyway, isn’t the germane question: What commands are needed to load and
run a virtual card deck? Followed closely by: How to print and view the
output?
Sent from my Windows 10 phone
Sent: Monday, January 9, 2017 2:49 PM
Subject: Re: [hercules-390] Re: How view printouts in Hercules 3.07?
I dont see an OS being IPL'd? Where is the IPL information?
Joe
Hi,
__________________________________________________________
HERCULES.CNF
__________________________________________________________
#
# Configuration file for Hercules ESA/390 emulator
#
# DOS/360
#
#==================================== Emulator settings
TZOFFSET -0000 # Windows clock set to gmt
TODDRAG 1
ARCHMODE S/370
CNSLPORT 3270 # telnet to localhost:3270
SYSEPOCH 1900 # base date for TOD clock
YROFFSET -28 # move back 28 years to 1988, day-date matches.
#==================================== Emulated cpu settings
CPUSERIAL 000611
CPUMODEL 2040 # s/360-40
OSTAILOR VSE
MAINSIZE 2 # 2MB main storage, unheard of for DOS.
# and minimum for hercules
XPNDSIZE 0
NUMCPU 1
LOADPARM ........
#LOG prt/herclog.log
DEFSYM line-end-type "crlf" # line endings; "crlf" for Windows, "" for *nix & Mac.
#==================================== Defined Devices
#------------------------------------ Unit record equipment
000C 2501 jcl/operipl.jcl trunc ascii eof
000D 3525 pch00d.txt ascii ${line-end-type}
000E 1403 prt00e.txt crlf
001C 2501 * trunc ascii eof
001D 3525 pch01d.txt ascii ${line-end-type}
001E 1403 prt01e.txt crlf
002C 2501 * trunc ascii eof
002D 3525 pch02d.txt ascii ${line-end-type}
002E 1403 prt02e.txt crlf
# Console Printer/Keyboard
##001F 1052 noprompt
001F 1052-c \ noprompt #optional; uses Hercules console instead of telnet.
#------------------------------------ Distribution Disk Packs
#
0130 2311 dasd/res11a.2311 # sysres, core image, relo
0131 2311 dasd/res11b.2311 # sysres, core image, system source
0132 2311 dasd/res11c.2311 # sysres, system relo, private libs
#------------------------------------ Target System Disk Packs
190 2314 dasd/dosres.2314 # target system residence file
191 2314 dasd/spool1.2314 # POWER II spooling disk
192 2314 dasd/wrk14a.2314 # work files for bg
193 2314 dasd/wrk14b.2314 # work files for f2
#------------------------------------ Tape drives
0280 3420
0281 3420
0282 3420
0283 3420
0284 3420
0285 3420
0286 3420
0287 3420
#------------------------------------ Display devices
00A0.6 3270
00A6.2 3270 PRINTER # DEFINED AS 3287 IN DOS/360 SUPERVISOR
__________________________________________________________
__________________________________________________________
HERCULES CONSOLE
__________________________________________________________
Hercules Version 3.07
(c)Copyright 1999-2010 by Roger Bowler, Jan Jaeger, and others
Built on Mar 23 2010 at 01:39:37
Windows (MSVC) build for i386
Modes: S/370 ESA/390 z/Arch
Max CPU Engines: 8
Using fthreads instead of pthreads
Dynamic loading support
Using shared libraries
HTTP Server support
No SIGABEND handler
Regular Expressions support
Automatic Operator support
Machine dependent assists: cmpxchg1 cmpxchg4 cmpxchg8 fetch_dw store_dw
Running on KANGAROO Windows_NT-6.2 i686 MP=4
HHCHD018I Loadable module directory is hercules
Crypto module loaded (c) Copyright Bernard van der Helm, 2003-2010
Active: Message Security Assist
Message Security Assist Extension 1
Message Security Assist Extension 2
HHCCF065I Hercules: tid=00001C40, pid=10292, pgid=10292, priority=0
HHCDA020I dasd/res11a.2311 cyls=203 heads=10 tracks=2030 trklen=4096
HHCDA020I dasd/res11b.2311 cyls=203 heads=10 tracks=2030 trklen=4096
HHCDA020I dasd/res11c.2311 cyls=203 heads=10 tracks=2030 trklen=4096
HHCDA020I dasd/dosres.2314 cyls=203 heads=20 tracks=4060 trklen=7680
HHCDA020I dasd/spool1.2314 cyls=203 heads=20 tracks=4060 trklen=7680
HHCDA020I dasd/wrk14a.2314 cyls=203 heads=20 tracks=4060 trklen=7680
HHCDA020I dasd/wrk14b.2314 cyls=203 heads=20 tracks=4060 trklen=7680
HHCTE001I Console connection thread started: tid=00000020, pid=10292
HHCCP002I CPU0000 thread started: tid=0000283C, pid=10292, priority=15
HHCTE003I Waiting for console connection on port 3270
HHCTT002I Timer thread started: tid=000010E8, pid=10292, priority=0
HHCCP003I CPU0000 architecture mode S/370
HHCPN001I Control panel thread started: tid=00001C40, pid=10292
HHCAO001I Hercules Automatic Operator thread started;
tid=00001FD0, pri=0, pid=10292
devinit 00e prt/report.txt
HHCPN098I Device 0:000E initialized
devinit 00c jcl/vercob01.jcl trunc eof
HHCPN098I Device 0:000C initialized
__________________________________________________________
HERCULES PANEL
__________________________________________________________
Peripherals
U Addr Modl Type Assignment
A 000C 2501 RDR jcl/vercob01.jcl eof
B 000D 3525 PCH pch00d.txt ascii
C 000E 1403 PRT prt/report.txt
D 001C 2501 RDR * ascii trunc eof
E 001D 3525 PCH pch01d.txt ascii
F 001E 1403 PRT prt01e.txt crlf
G 002C 2501 RDR * ascii trunc eof
H 002D 3525 PCH pch02d.txt ascii
I 002E 1403 PRT prt02e.txt crlf
J 001F 1052 CON *syscons cmdpref(\)
K 0130 2311 DASD dasd/res11a.2311 [203 cyls]
L 0131 2311 DASD dasd/res11b.2311 [203 cyls]
M 0132 2311 DASD dasd/res11c.2311 [203 cyls]
N 0190 2314 DASD dasd/dosres.2314 [203 cyls]
O 0191 2314 DASD dasd/spool1.2314 [203 cyls]
P 0192 2314 DASD dasd/wrk14a.2314 [203 cyls]
Q 0193 2314 DASD dasd/wrk14b.2314 [203 cyls]
R 0280 3420 TAPE *
S 0281 3420 TAPE
T 0282 3420 TAPE *
U 0283 3420 TAPE *
V 0284 3420 TAPE *
W 0285 3420 TAPE *
X 0286 3420 TAPE *
Y 0287 3420 TAPE *
Z 00A0 3270 DSP
. 00A1 3270 DSP
. 00A2 3270 DSP
. 00A3 3270 DSP
. 00A4 3270 DSP
. 00A5 3270 DSP
. 00A6 3270 DSP GROUP=PRINTER
. 00A7 3270 DSP GROUP=PRINTER
__________________________________________________________
00c CARD DECK (from jcl/vercob01.jcl)
__________________________________________________________
* $$JOB VERCOB01,,,BG
// JOB VERCOB01
// OPTION LINK
// EXEC COBOL
001010 IDENTIFICATION DIVISION.
$4520001
001020 PROGRAM-ID. 'C360SAMP'.
$4520002
001030 REMARKS.
$4520003
001040 EXAMPLE OF A 360 COBOL PROGRAM TO
$4520004
001050 COMPUTE SALARIES.
$4520005
001060 ENVIRONMENT DIVISION.
$4520006
001070 CONFIGURATION SECTION.
$4520007
001080 SOURCE-COMPUTER. IBM-360.
$4520008
001090 OBJECT-COMPUTER. IBM-360.
$4520009
001100 INPUT-OUTPUT SECTION.
$4520010
001110 FILE-CONTROL.
$4520011
001120 SELECT SALARY-FILE
$4520012
001130 ASSIGN TO 'SYS004' UNIT-RECORD 1403.
$4520013
001140
$4520014
001150 DATA DIVISION.
$4520015
001160 FILE SECTION.
$4520016
001170 FD SALARY-FILE
$4520017
001180 LABEL RECORDS ARE OMITTED
$4520018
001185 RECORDING MODE IS F
$4520019
001190 DATA RECORD IS SALARY-RECORD.
$4520020
001200 01 SALARY-RECORD
$4520021
001210 PICTURE X(100).
$4520022
001220 WORKING-STORAGE SECTION.
$4520023
001230 77 TOTAL-A PICTURE 9(6)V99 VALUE ZERO.
$4520024
001240 77 TOTAL-B PICTURE 9(6)V99 VALUE ZERO.
$4520025
001250 77 TOTAL-C PICTURE 9(6)V99 VALUE ZERO.
$4520026
002010 77 WEEKLY-PAY PICTURE 999V99.
$4520027
002020 77 MONTHLY-PAY PICTURE 9999V99.
$4520028
002030 77 ANNUAL-PAY PICTURE 99999V99.
$4520029
002040 77 CON-A PICTURE 9(6)V99 VALUE IS 008826.69.
$4520030
002050 77 CON-B PICTURE 9(6)V99 VALUE IS 038250.00 .
$4520031
002060 77 CON-C PICTURE 9(6)V99 VALUE IS 459000.00 .
$4520032
002070 01 SALARIES.
$4520033
002080 02 FILLER PICTURE A(46) VALUE SPACE.
$4520034
002090 02 WEEKLY PICTURE ZZZ.99 .
$4520035
002100 02 FILLER PICTURE AAA VALUE SPACE.
$4520036
002110 02 MONTHLY PICTURE ZZZZ.99 .
$4520037
002120 02 FILLER PICTURE AAA VALUE SPACE.
$4520038
002130 02 ANNUAL PICTURE ZZZZZ.99 .
$4520039
002140 02 FILLER PICTURE A(27) VALUE SPACE.
$4520040
002150 01 MESG.
$4520041
002160 02 FILLER PICTURE A(40) VALUE SPACES.
$4520042
002170 02 SHOW PICTURE A(26).
$4520043
002180 01 DSPY.
$4520044
002190 02 FILLER PICTURE A(40) VALUE SPACES.
$4520045
002200 02 PRSNT PICTURE A(33).
$4520046
002210 01 HEADING.
$4520047
002220 02 FILLER PICTURE A(46) VALUE SPACES.
$4520048
002230 02 WEEKLY PICTURE A(6) VALUE IS 'WEEKLY'.
$4520049
002240 02 FILLER PICTURE A(3) VALUE IS SPACES.
$4520050
002250 02 MONTHLY PICTURE A(7) VALUE IS 'MONTHLY'.
$4520051
003010 02 FILLER PICTURE A(3) VALUE IS SPACES.
$4520052
003020 02 ANNUAL PICTURE A(6) VALUE IS 'ANNUAL'.
$4520053
003030 02 FILLER PICTURE A(29) VALUE IS SPACES.
$4520054
003040
$4520055
003050 PROCEDURE DIVISION.
$4520056
003060 START.
$4520057
003070 OPEN OUTPUT SALARY-FILE.
$4520058
003080 WRITE SALARY-RECORD FROM HEADING AFTER ADVANCING 0 LINES.
$4520059
003090 PERFORM CALCULATIONS
$4520060
003100 VARYING MONTHLY-PAY FROM 500 BY 10
$4520061
003110 UNTIL MONTHLY-PAY IS GREATER THAN 1000.
$4520062
003120 IF TOTAL-A = CON-A AND TOTAL-B = CON-B AND TOTAL-C = CON-C $4520063
003130 MOVE 'TABLE VALUES ARE CORRECT' TO SHOW
$4520064
003140 WRITE SALARY-RECORD FROM MESG AFTER ADVANCING 2 LINES
$4520065
003150 ELSE
$4520066
003160 MOVE 'TABLE VALUES ARE NOT CORRECT' TO PRSNT
$4520067
003170 WRITE SALARY-RECORD FROM DSPY AFTER ADVANCING 2 LINES.
$4520068
003180 CLOSE SALARY-FILE.
$4520069
003190 STOP RUN.
$4520070
003200
$4520071
003210 CALCULATIONS.
$4520072
003220 COMPUTE WEEKLY-PAY = 3 * MONTHLY-PAY / 13
$4520073
003230 COMPUTE ANNUAL-PAY = 12 * MONTHLY-PAY
$4520074
003240 MOVE WEEKLY-PAY TO WEEKLY IN SALARIES
$4520075
003250 MOVE MONTHLY-PAY TO MONTHLY IN SALARIES
$4520076
004010 MOVE ANNUAL-PAY TO ANNUAL IN SALARIES
$4520077
004020 ADD WEEKLY-PAY TO TOTAL-A
$4520078
004030 ADD MONTHLY-PAY TO TOTAL-B
$4520079
004040 ADD ANNUAL-PAY TO TOTAL-C
$4520080
004050 WRITE SALARY-RECORD FROM SALARIES AFTER ADVANCING 1 LINES.
$4520081
/*
// EXEC LNKEDT
// ASSGN SYS004,X'00E'
// EXEC
/*
/&
* $$EOJ
[Non-text portions of this message have been removed]
kerravon86@yahoo.com.au [hercules-390]
2017-01-10 01:36:56 UTC
Permalink
Post by ***@mac.com [hercules-390]
Well, I run ...
Hercules >prt/hercules.txt
BTW, this command should be good enough
to show you the Hercules log.

After you end Hercules, by typing "quit", you
should have a log (prt/hercules.txt) you can
provide us showing the full session.

BFN. Paul.
oharamj@mac.com [hercules-390]
2017-01-10 01:48:34 UTC
Permalink
Well, I’ll go look again but, when i opened it up a couple hours ago, it looked just like what displayed on the console.

Sent from my Windows 10 phone

From: ***@yahoo.com.au [hercules-390]
Sent: Monday, January 9, 2017 6:37 PM
To: hercules-***@yahoogroups.com
Subject: RE: [hercules-390] Re: How view printouts in Hercules 3.07?

 
Post by ***@mac.com [hercules-390]
Well, I run ...
Hercules >prt/hercules.txt
BTW, this command should be good enough
to show you the Hercules log.

After you end Hercules, by typing "quit", you
should have a log (prt/hercules.txt) you can
provide us showing the full session.

BFN. Paul.




[Non-text portions of this message have been removed]
kerravon86@yahoo.com.au [hercules-390]
2017-01-10 02:53:06 UTC
Permalink
Post by ***@mac.com [hercules-390]
Post by ***@yahoo.com.au [hercules-390]
Post by ***@mac.com [hercules-390]
Hercules >prt/hercules.txt
BTW, this command should be good enough
to show you the Hercules log.
Well, I’ll go look again but, when i opened it
up a couple hours ago, it looked just like what
displayed on the console.
Yes, that's exactly what it's meant to show.
It's probably easier to post the log above
than cut and paste from the console.

BFN. Paul.
oharamj@mac.com [hercules-390]
2017-01-10 02:58:49 UTC
Permalink
Paul, What does it want from me now?

set date=01/09/17,clock=18?55/00
HHCPN139E Command "set" not found; enter '?' for list.
\(001F) set date=01/09/17,clock=18/57/00
0I17A NO PUB GIVEN FOR SYSLOG
HHC1C001A Enter input for console device 001F
\(001F)

Sent from Mail for Windows 10

From: ***@yahoo.com.au [hercules-390]
Sent: Monday, January 9, 2017 7:53 PM
To: hercules-***@yahoogroups.com
Subject: RE: [hercules-390] Re: How view printouts in Hercules 3.07?

 
Post by ***@mac.com [hercules-390]
Post by ***@yahoo.com.au [hercules-390]
Post by ***@mac.com [hercules-390]
Hercules >prt/hercules.txt
BTW, this command should be good enough
to show you the Hercules log.
Well, I’ll go look again but, when i opened it
up a couple hours ago, it looked just like what
displayed on the console.
Yes, that's exactly what it's meant to show.
It's probably easier to post the log above
than cut and paste from the console.

BFN. Paul.




[Non-text portions of this message have been removed]
Joe Monk joemonk64@gmail.com [hercules-390]
2017-01-10 03:07:09 UTC
Permalink
Its giving you that message because you entered a SET command on a line by
itself.

Better to just QUIT and start again.

Joe
Post by ***@mac.com [hercules-390]
Paul, What does it want from me now?
set date=01/09/17,clock=18?55/00
HHCPN139E Command "set" not found; enter '?' for list.
\(001F) set date=01/09/17,clock=18/57/00
0I17A NO PUB GIVEN FOR SYSLOG
HHC1C001A Enter input for console device 001F
\(001F)
Sent from Mail for Windows 10
Sent: Monday, January 9, 2017 7:53 PM
Subject: RE: [hercules-390] Re: How view printouts in Hercules 3.07?
Post by ***@mac.com [hercules-390]
Post by ***@yahoo.com.au [hercules-390]
Post by ***@mac.com [hercules-390]
Hercules >prt/hercules.txt
BTW, this command should be good enough
to show you the Hercules log.
Well, I’ll go look again but, when i opened it
up a couple hours ago, it looked just like what
displayed on the console.
Yes, that's exactly what it's meant to show.
It's probably easier to post the log above
than cut and paste from the console.
BFN. Paul.
[Non-text portions of this message have been removed]
oharamj@mac.com [hercules-390]
2017-01-10 03:12:33 UTC
Permalink
Ok, will do. Thanks.

Sent from my Windows 10 phone

From: Joe Monk ***@gmail.com [hercules-390]
Sent: Monday, January 9, 2017 8:07 PM
To: hercules-***@yahoogroups.com
Subject: Re: [hercules-390] Re: How view printouts in Hercules 3.07?

 
Its giving you that message because you entered a SET command on a line by itself.

Better to just QUIT and start again.

Joe

On Mon, Jan 9, 2017 at 8:58 PM, ***@mac.com [hercules-390] <hercules-***@yahoogroups.com> wrote:
 
Paul, What does it want from me now?

set date=01/09/17,clock=18?55/00
HHCPN139E Command "set" not found; enter '?' for list.
\(001F) set date=01/09/17,clock=18/57/00
0I17A NO PUB GIVEN FOR SYSLOG
HHC1C001A Enter input for console device 001F
\(001F)

Sent from Mail for Windows 10

From: ***@yahoo.com.au [hercules-390]
Sent: Monday, January 9, 2017 7:53 PM
To: hercules-***@yahoogroups.com
Subject: RE: [hercules-390] Re: How view printouts in Hercules 3.07?

 
Post by ***@mac.com [hercules-390]
Post by ***@yahoo.com.au [hercules-390]
Post by ***@mac.com [hercules-390]
Hercules >prt/hercules.txt
BTW, this command should be good enough
to show you the Hercules log.
Well, I’ll go look again but, when i opened it
up a couple hours ago, it looked just like what
displayed on the console.
Yes, that's exactly what it's meant to show.
It's probably easier to post the log above
than cut and paste from the console.

BFN. Paul.

[Non-text portions of this message have been removed]





[Non-text portions of this message have been removed]
oharamj@mac.com [hercules-390]
2017-01-09 21:24:08 UTC
Permalink
And, I haven't installed POWER at this time.


Thanks!
René Ferland ferland.rene@yahoo.com [hercules-390]
2017-01-09 05:11:28 UTC
Permalink
Any suggestions as to what I can try? Thanks Folks
Could it be that your job is simply held in an output queue? (hence never printed in the first place)

Rene FERLAND, Montreal
oharamj@mac.com [hercules-390]
2017-01-09 05:50:38 UTC
Permalink
Rene, How would I go about checking that out? If so, how can I make the queue push the printout to the folder/file specified in the devinit command?


Thanks,


Michael
René Ferland ferland.rene@yahoo.com [hercules-390]
2017-01-09 06:07:11 UTC
Permalink
Rene, How would I go about checking that out? If so,
how can I make the queue push the printout to the
folder/file specified in the devinit command?
That depends on the system on which you are running your jobs: DOS? MVS? or VM?

Rene FERLAND, Montreal
oharamj@mac.com [hercules-390]
2017-01-09 06:15:41 UTC
Permalink
Hercules 3.07 running DOS only.
René Ferland ferland.rene@yahoo.com [hercules-390]
2017-01-09 06:14:06 UTC
Permalink
On Mon, 1/9/17, ***@mac.com [hercules-390] <hercules-***@yahoogroups.com> wrote:

Need to ponder this and pray for guidance but, before
going any further, let me confirm that this works for
Hercules 3.07 running just System/360 DOS? (Not VS, VSE,
MVS, TSO, et al)

It works? or it doesn't? I am confused.

If you are experiencing this problem with DOS/360 running under Hercules 3.07, itself running under Windows, I suggested you move your question to the H390-DOSVS Yahoo Group. You also have to tell us more about the system you are using.

Rene FERLAND, Montreal
oharamj@mac.com [hercules-390]
2017-01-09 06:28:47 UTC
Permalink
I'm sorry - I meant to ask if your suggestion was understood to be good for 3.07 running simply DOS.
oharamj@mac.com [hercules-390]
2017-01-10 05:31:53 UTC
Permalink
Ok, Guys – before I switch to the DOS group, let me feed back to you what I think I’ve learned from you tonight ... I never was an operator or systems programmer and just want to be able to get to where i can do compiles.

Does the following capture the proper sequence of steps to IPL and get to the point where I can do a compile?

ONE: Start hercules
hercules >prt/hercules.txt
 
TWO: IPL the base disk operating system.
IPL 190
 
HHCCP014I CPU0000: Addressing exception CODE=0005 ILC=6
PSW=00040005 C0003044 INST=D2FFB000F9BA MVC   0(256,11),2490(15) move_character
R:001FFFBD:K:06=000000 00000000 00000000 00000000 00 .........
R:000039BC:K:06=00000000 00000000 00000000 00000000  .........
GR00=00000000  GR01=00003088  GR02=00000000  GR03=00000000
GR04=00000000  GR05=00000000  GR06=00000000  GR07=00000000
GR08=00000000  GR09=00000000  GR10=00000000  GR11=001FFFBD
GR12=00000000  GR13=00000000  GR14=00000000  GR15=40003002
 
Then enter slash to see the DOS side:
\
 
THREE: Enter IPL commands for that operating system.
Now you should see:
0I10A GIVE IPL CONTROL COMMANDS
 
Then:
\add X'01f',1050a
\add x'00c',2540r or other reader type
\add x'00d',2540p or other punch type
\add x'00e',1403 or other printer type
\add X'190',2314
...
bunch more
...
set date=mm/dd/yy,clock=hh/mm/ss 
 
Then you should see:
BG  0I20I DOS IPL COMPLETE
BG  1I00A  READY FOR COMMUNICATIONS.
 
Then:
/ASSGN SYSPRT,X'00E' ( one slash for the integrated console but no slashes for the ASSGN to make the ASSGN sort-of permanent)
/ASSGN SYSIN,X'00C' with the slash being for the
integrated console, not JOB Control
 
FOUR: devinit E to free the listing and put a different name for the output file.
devinit 00e prt/printout.txt
 
FIVE: NOW you can run a job from the card reader!
Devinit 00c jcl/vercib01.jcl
 

Sent from my Windows 10 phone
somitcw@yahoo.com [hercules-390]
2017-01-10 14:53:39 UTC
Permalink
Post by ***@mac.com [hercules-390]
Ok, Guys – before I switch to the DOS group, let me feed back to
you what I think I’ve learned from you tonight ... I never was an
operator or systems programmer and just want to be able to get
to where i can do compiles.
Does the following capture the proper sequence of steps to IPL
and get to the point where I can do a compile?
It has a couple of issues.
Post by ***@mac.com [hercules-390]
ONE: Start hercules
hercules >prt/hercules.txt
You can page-up and page-down on the integrated console.
Do you need the redirect ">prt/hercules.txt"?
Post by ***@mac.com [hercules-390]
TWO: IPL the base disk operating system.
IPL 190
HHCCP014I CPU0000: Addressing exception CODE=0005 ILC=6
PSW=00040005 C0003044 INST=D2FFB000F9BA MVC 0(256,11),2490(15) move_character
R:001FFFBD:K:06=000000 00000000 00000000 00000000 00 .........
R:000039BC:K:06=00000000 00000000 00000000 00000000 .........
GR00=00000000 GR01=00003088 GR02=00000000 GR03=00000000
GR04=00000000 GR05=00000000 GR06=00000000 GR07=00000000
GR08=00000000 GR09=00000000 GR10=00000000 GR11=001FFFBD
GR12=00000000 GR13=00000000 GR14=00000000 GR15=40003002
DOS memory detect ran off memory at 2MB so you must have
mainsize set to 2
That is a good size to use unless you are running huge JOBs,
Post by ***@mac.com [hercules-390]
\
For you, the word "slash" is wrong. It's just you.
For others, the word "back-slash" would be wrong.
Post by ***@mac.com [hercules-390]
THREE: Enter IPL commands for that operating system.
0I10A GIVE IPL CONTROL COMMANDS
\add X'01f',1050a
\add x'00c',2540r or other reader type
\add x'00d',2540p or other punch type
\add x'00e',1403 or other printer type
\add X'190',2314
bunch more
That's too many to manually mis-type one
letter at a time.

I would suggest Hercules.rc but as you saw in
another thread, it has issues with a large number
of commands.

Most people in that case would enter them without
the back-slashes but in a card reader followed with
a /&, that's a slash ampersand.
Post by ***@mac.com [hercules-390]
set date=mm/dd/yy,clock=hh/mm/ss
Won't work without your back-slash.

Do you need both or either parameter?
Can DOS pick up the DATE= and CLOCK=
from the emulated hardware?
A question for experimentation or the
H390-DOSVS group.
Post by ***@mac.com [hercules-390]
BG 0I20I DOS IPL COMPLETE
BG 1I00A READY FOR COMMUNICATIONS.
It could happen?
Post by ***@mac.com [hercules-390]
/ASSGN SYSPRT,X'00E' ( one slash for the
integrated console but no slashes for the
ASSGN to make the ASSGN sort-of permanent)
/ASSGN SYSIN,X'00C' with the slash being for the
integrated console, not JOB Control
No. Your slashes are backwards.
Or should I say not backwards but you require backwards.

Did you enter the ASSGNs in BG. You need to.
F1 and F2 could have relocation issues.

"\ASSGN SYSIN,X'00C'" might be out of order.
Consider devinit the cards into the reader before
telling DOS to read them.
It would work if the cards were pointed to by your
Hercules configuration file but if you use that reader
for IPL commands, you would blow that.
You might instead do the ASSGN SYSRDR or
SYSIN earlier to read IPL statements.
Get something working and then adjust to your needs.
Post by ***@mac.com [hercules-390]
FOUR: devinit E to free the listing and put a different
name for the output file.
devinit 00e prt/printout.txt
No. Out of order. You haven't written anything to the
printer so no reason to close and spin off a listing.
Post by ***@mac.com [hercules-390]
FIVE: NOW you can run a job from the card reader!
Devinit 00c jcl/vercib01.jcl
Sent from my Windows 10 phone
After the devinit, you need to ASSGN SYSIN to X'00C'
if not already done to read what you put into the reader.

Your CoBOL ASSIGN clause is not in a format that
I recognize but I learned old CoBOL in the 1960's in
school. If your format doesn't work, try:
ASSIGN TO SYS004-UR-1403-S.
the ending -filename is not needed and I believe
for disk and tape defaults to the logical unit so
would be SYS004-UR-1403-S-SYS004

Test everything you can and then get more current
information on the H390-DOSVS yahoo group.
oharamj@mac.com [hercules-390]
2017-01-10 19:44:47 UTC
Permalink
Thanks much for these detailed comments – will review closely this evening.

Best,

Michael

Sent from my Windows 10 phone

From: ***@yahoo.com [hercules-390]
Sent: Tuesday, January 10, 2017 7:53 AM
To: hercules-***@yahoogroups.com
Subject: RE: [hercules-390] Re: How view printouts in Hercules 3.07?

 
Post by ***@mac.com [hercules-390]
Ok, Guys – before I switch to the DOS group, let me feed back to
you what I think I’ve learned from you tonight ... I never was an
operator or systems programmer and just want to be able to get
to where i can do compiles.
Does the following capture the proper sequence of steps to IPL
and get to the point where I can do a compile?
It has a couple of issues.
Post by ***@mac.com [hercules-390]
ONE: Start hercules
hercules >prt/hercules.txt
You can page-up and page-down on the integrated console.
Do you need the redirect ">prt/hercules.txt"?
Post by ***@mac.com [hercules-390]
TWO: IPL the base disk operating system.
IPL 190
HHCCP014I CPU0000: Addressing exception CODE=0005 ILC=6
PSW=00040005 C0003044 INST=D2FFB000F9BA MVC 0(256,11),2490(15) move_character
R:001FFFBD:K:06=000000 00000000 00000000 00000000 00 .........
R:000039BC:K:06=00000000 00000000 00000000 00000000 .........
GR00=00000000 GR01=00003088 GR02=00000000 GR03=00000000
GR04=00000000 GR05=00000000 GR06=00000000 GR07=00000000
GR08=00000000 GR09=00000000 GR10=00000000 GR11=001FFFBD
GR12=00000000 GR13=00000000 GR14=00000000 GR15=40003002
DOS memory detect ran off memory at 2MB so you must have
mainsize set to 2
That is a good size to use unless you are running huge JOBs,
Post by ***@mac.com [hercules-390]
\
For you, the word "slash" is wrong. It's just you.
For others, the word "back-slash" would be wrong.
Post by ***@mac.com [hercules-390]
THREE: Enter IPL commands for that operating system.
0I10A GIVE IPL CONTROL COMMANDS
\add X'01f',1050a
\add x'00c',2540r or other reader type
\add x'00d',2540p or other punch type
\add x'00e',1403 or other printer type
\add X'190',2314
bunch more
That's too many to manually mis-type one
letter at a time.

I would suggest Hercules.rc but as you saw in
another thread, it has issues with a large number
of commands.

Most people in that case would enter them without
the back-slashes but in a card reader followed with
a /&, that's a slash ampersand.
Post by ***@mac.com [hercules-390]
set date=mm/dd/yy,clock=hh/mm/ss
Won't work without your back-slash.

Do you need both or either parameter?
Can DOS pick up the DATE= and CLOCK=
from the emulated hardware?
A question for experimentation or the
H390-DOSVS group.
Post by ***@mac.com [hercules-390]
BG 0I20I DOS IPL COMPLETE
BG 1I00A READY FOR COMMUNICATIONS.
It could happen?
Post by ***@mac.com [hercules-390]
/ASSGN SYSPRT,X'00E' ( one slash for the
integrated console but no slashes for the
ASSGN to make the ASSGN sort-of permanent)
/ASSGN SYSIN,X'00C' with the slash being for the
integrated console, not JOB Control
No. Your slashes are backwards.
Or should I say not backwards but you require backwards.

Did you enter the ASSGNs in BG. You need to.
F1 and F2 could have relocation issues.

"\ASSGN SYSIN,X'00C'" might be out of order.
Consider devinit the cards into the reader before
telling DOS to read them.
It would work if the cards were pointed to by your
Hercules configuration file but if you use that reader
for IPL commands, you would blow that.
You might instead do the ASSGN SYSRDR or
SYSIN earlier to read IPL statements.
Get something working and then adjust to your needs.
Post by ***@mac.com [hercules-390]
FOUR: devinit E to free the listing and put a different
name for the output file.
devinit 00e prt/printout.txt
No. Out of order. You haven't written anything to the
printer so no reason to close and spin off a listing.
Post by ***@mac.com [hercules-390]
FIVE: NOW you can run a job from the card reader!
Devinit 00c jcl/vercib01.jcl
Sent from my Windows 10 phone
After the devinit, you need to ASSGN SYSIN to X'00C'
if not already done to read what you put into the reader.

Your CoBOL ASSIGN clause is not in a format that
I recognize but I learned old CoBOL in the 1960's in
school. If your format doesn't work, try:
ASSIGN TO SYS004-UR-1403-S.
the ending -filename is not needed and I believe
for disk and tape defaults to the logical unit so
would be SYS004-UR-1403-S-SYS004

Test everything you can and then get more current
information on the H390-DOSVS yahoo group.




[Non-text portions of this message have been removed]
oharamj@mac.com [hercules-390]
2017-01-13 04:57:57 UTC
Permalink
Ok Gang, I’ve been trying to digest all your feedback, both to me and to each other. Before leaving y’all for the other group, it seemed like a good idea to run my latest effort and its results by you guys. The results (see below) seem more encouraging, but in the end it fails with “PREVIOUS COMMAND INVALID”. Where have I screwed up? Please

HERCULES.RC
IPL 190
* DOS ADD statements
/add X'01f',1050a
/pause 1
/add x'00c',2540r or other reader type
/pause 1
/add x'00d',2540p or other punch type
/pause 1
/add x'00e',1403 or other printer type
/pause 1
/add X'190',2314
/pause 1
/add X'191',2314
/pause 1
/add X'192',2314
/pause 1
* set date=01/12/17,clock=00/00/00
/pause 1
devinit 00c jcl/vercob01.jcl
/pause 5
/ASSGN SYSIN,X'00C'
/pause 5
devinit 00e prt/printout.txt



HERCULES.CNF
#
# Configuration file for Hercules ESA/390 emulator
#
# DOS/360
#
#==================================== Emulator settings

TZOFFSET -0000 # Windows clock set to gmt
TODDRAG 1
ARCHMODE S/370
CNSLPORT 3270 # telnet to localhost:3270
SYSEPOCH 1900 # base date for TOD clock
YROFFSET -28 # move back 28 years to 1988, day-date matches.

#==================================== Emulated cpu settings
CPUSERIAL 000611
CPUMODEL 2040 # s/360-40
OSTAILOR VSE
MAINSIZE 2 # 2MB main storage, unheard of for DOS.
# and minimum for hercules
XPNDSIZE 0
NUMCPU 1
LOADPARM ........

#LOG prt/herclog.log

DEFSYM line-end-type "crlf" # line endings; "crlf" for Windows, "" for *nix & Mac.


#==================================== Defined Devices

#------------------------------------ Unit record equipment
000C 2501 jcl/operipl.jcl trunc ascii eof
000D 3525 pch00d.txt ascii ${line-end-type}
000E 1403 prt00e.txt crlf

001C 2501 * trunc ascii eof
001D 3525 pch01d.txt ascii ${line-end-type}
001E 1403 prt01e.txt crlf

002C 2501 * trunc ascii eof
002D 3525 pch02d.txt ascii ${line-end-type}
002E 1403 prt02e.txt crlf

# Console Printer/Keyboard
##001F 1052 noprompt
001F 1052-c / noprompt #optional; uses Hercules console instead of telnet.


#------------------------------------ Distribution Disk Packs
#
0130 2311 dasd/res11a.2311 # sysres, core image, relo
0131 2311 dasd/res11b.2311 # sysres, core image, system source
0132 2311 dasd/res11c.2311 # sysres, system relo, private libs


#------------------------------------ Target System Disk Packs

190 2314 dasd/dosres.2314 # target system residence file
191 2314 dasd/spool1.2314 # POWER II spooling disk
192 2314 dasd/wrk14a.2314 # work files for bg
193 2314 dasd/wrk14b.2314 # work files for f2

#------------------------------------ Tape drives

0280 3420
0281 3420
0282 3420
0283 3420
0284 3420
0285 3420
0286 3420
0287 3420

#------------------------------------ Display devices

00A0.6 3270
00A6.2 3270 PRINTER # DEFINED AS 3287 IN DOS/360 SUPERVISOR



RESULTS --→ HERCULES.TXT
21:50:01 Hercules Version 3.07
21:50:01 (c)Copyright 1999-2010 by Roger Bowler, Jan Jaeger, and others
21:50:01 Built on Mar 23 2010 at 01:39:37
21:50:01 Build information:
21:50:01 Windows (MSVC) build for i386
21:50:01 Modes: S/370 ESA/390 z/Arch
21:50:01 Max CPU Engines: 8
21:50:01 Using fthreads instead of pthreads
21:50:01 Dynamic loading support
21:50:01 Using shared libraries
21:50:01 HTTP Server support
21:50:01 No SIGABEND handler
21:50:01 Regular Expressions support
21:50:01 Automatic Operator support
21:50:01 Machine dependent assists: cmpxchg1 cmpxchg4 cmpxchg8 fetch_dw store_dw
21:50:01 Running on KANGAROO Windows_NT-6.2 i686 MP=4
21:50:01 HHCHD018I Loadable module directory is hercules
21:50:01 Crypto module loaded (c) Copyright Bernard van der Helm, 2003-2010
21:50:01 Active: Message Security Assist
21:50:01 Message Security Assist Extension 1
21:50:01 Message Security Assist Extension 2
21:50:01 HHCCF065I Hercules: tid=000027FC, pid=6588, pgid=6588, priority=0
21:50:01 HHCDA020I dasd/res11a.2311 cyls=203 heads=10 tracks=2030 trklen=4096
21:50:01 HHCDA020I dasd/res11b.2311 cyls=203 heads=10 tracks=2030 trklen=4096
21:50:01 HHCDA020I dasd/res11c.2311 cyls=203 heads=10 tracks=2030 trklen=4096
21:50:01 HHCDA020I dasd/dosres.2314 cyls=203 heads=20 tracks=4060 trklen=7680
21:50:01 HHCDA020I dasd/spool1.2314 cyls=203 heads=20 tracks=4060 trklen=7680
21:50:01 HHCDA020I dasd/wrk14a.2314 cyls=203 heads=20 tracks=4060 trklen=7680
21:50:01 HHCDA020I dasd/wrk14b.2314 cyls=203 heads=20 tracks=4060 trklen=7680
21:50:01 HHCTE001I Console connection thread started: tid=00000F2C, pid=6588
21:50:01 HHCTE003I Waiting for console connection on port 3270
21:50:01 HHCCP002I CPU0000 thread started: tid=00000604, pid=6588, priority=15
21:50:01 HHCCP003I CPU0000 architecture mode S/370
21:50:01 HHCPN001I Control panel thread started: tid=000027FC, pid=6588
21:50:01 HHCTT002I Timer thread started: tid=00001B74, pid=6588, priority=0
21:50:01 HHCPN008I Script file processing started using file "hercules.rc"
21:50:01 HHCAO001I Hercules Automatic Operator thread started;
21:50:01 tid=0000105C, pri=0, pid=6588
21:50:01 IPL 190
21:50:01 * DOS ADD statements
21:50:01 /(001F) add X'01f',1050a
21:50:01 /(001F) pause 1
21:50:01 /(001F) add x'00c',2540r or other reader type
21:50:01 /(001F) pause 1
21:50:01 /(001F) add x'00d',2540p or other punch type
21:50:01 /(001F) pause 1
21:50:01 /(001F) add x'00e',1403 or other printer type
21:50:01 /(001F) pause 1
21:50:01 /(001F) add X'190',2314
21:50:01 /(001F) pause 1
21:50:01 /(001F) add X'191',2314
21:50:01 /(001F) pause 1
21:50:01 /(001F) add X'192',2314
21:50:01 /(001F) pause 1
21:50:01 * set date=01/12/17,clock=00/00/00
21:50:01 /(001F) pause 1
21:50:01 devinit 00c jcl/vercob01.jcl
21:50:01 HHCPN098I Device 0:000C initialized
21:50:01 /(001F) pause 5
21:50:01 /(001F) ASSGN SYSIN,X'00C'
21:50:01 /(001F) pause 5
21:50:01 devinit 00e prt/printout.txt
21:50:01 HHCPN098I Device 0:000E initialized
21:50:01 HHCPN013I EOF reached on SCRIPT file. Processing complete.
21:50:01 HHCCP014I CPU0000: Addressing exception CODE=0005 ILC=6
21:50:01 PSW=00040005 C0003044 INST=D2FFB000F9BA MVC 0(256,11),2490(15) move_character
21:50:01 R:001FFFBD:K:06=000000 00000000 00000000 00000000 00 ................
21:50:01 R:000039BC:K:06=00000000 00000000 00000000 00000000 ................
21:50:01 GR00=00000000 GR01=00003088 GR02=00000000 GR03=00000000
21:50:01 GR04=00000000 GR05=00000000 GR06=00000000 GR07=00000000
21:50:01 GR08=00000000 GR09=00000000 GR10=00000000 GR11=001FFFBD
21:50:01 GR12=00000000 GR13=00000000 GR14=00000000 GR15=40003002
21:50:01 0I10A GIVE IPL CONTROL COMMANDS
21:50:01 HHCCD001I Readahead thread 1 started: tid=000012A8, pid=6588
21:50:01 0I11I PREVIOUS COMMAND INVALID
21:50:01 HHC1C001A Enter input for console device 001F
21:50:01 HHCCD001I Readahead thread 2 started: tid=00002704, pid=6588








[Non-text portions of this message have been removed]
kerravon86@yahoo.com.au [hercules-390]
2017-01-13 05:03:22 UTC
Permalink
Post by ***@mac.com [hercules-390]
/add X'01f',1050a
/pause 1
/add x'00c',2540r or other reader type
/pause 1
These should all be Hercules "pause"
commands, not DOS "pause" command
(which probably doesn't even exist).

So change all "/pause" to "pause" and
try again.

BFN. Paul.
oharamj@mac.com [hercules-390]
2017-01-13 06:39:56 UTC
Permalink
Ok, will do. Thanks Paul. Much appreciated!

Sent from my Windows 10 phone

From: ***@yahoo.com.au [hercules-390]
Sent: Thursday, January 12, 2017 10:03 PM
To: hercules-***@yahoogroups.com
Subject: RE: [hercules-390] Re: How view printouts in Hercules 3.07?

 
Post by ***@mac.com [hercules-390]
/add X'01f',1050a
/pause 1
/add x'00c',2540r or other reader type
/pause 1
These should all be Hercules "pause"
commands, not DOS "pause" command
(which probably doesn't even exist).

So change all "/pause" to "pause" and
try again.

BFN. Paul.




[Non-text portions of this message have been removed]
somitcw@yahoo.com [hercules-390]
2017-01-13 17:08:54 UTC
Permalink
Ok Gang, I’ve been trying to digest all your feedback, both to me and to each other.
Before leaving y’all for the other group, it seemed like a good idea to run my latest
effort and its results by you guys. The results (see below) seem more encouraging,
but in the end it fails with “PREVIOUS COMMAND INVALID”.
Where have I screwed up? Please
As already pointed out, the DOS PAUSE statement
is different than what you want.
It is JCL, not an operator command.
And it stops all until the operator responds.

/// PAUSE comment to tell the operator what to do before continuing

No damage done except you didn't ASSGN the printer
to anywhere or enter the /set command yet.

Instead of all the /add statements being keyed in,
have you considered adding them to the supervisor or
reading them in a card reader?
How about using the addresses that have already been
assembled in the supervisor?
kerravon86@yahoo.com.au [hercules-390]
2017-01-13 19:47:25 UTC
Permalink
Post by ***@mac.com [hercules-390]
HERCULES.RC
IPL 190
* DOS ADD statements
/add X'01f',1050a
These "add" commands are clearly DOS
commands, and as such, they should
happen *after* IPL has completed, not
at the beginning.

The command that should be at the
beginning (based on previous
conversations) should be a "/".

So what you need is:

IPL 190
pause 1
/
pause 1

Then I'm not sure what comes next, but
I have no idea what this does:

* set date=01/12/17,clock=00/00/00

I would have expected:

/set date=01/12/17,clock=00/00/00

At this stage I don't see anything wrong
with "typing" in the "/add" commands
via the .rc file. Get this working first before
trying to streamline it, so that you start
from a position of strength.

BFN. Paul.
kerravon86@yahoo.com.au [hercules-390]
2017-01-11 00:23:58 UTC
Permalink
Post by ***@yahoo.com [hercules-390]
\add X'01f',1050a
\add x'00c',2540r or other reader type
\add x'00d',2540p or other punch type
\add x'00e',1403 or other printer type
\add X'190',2314
...
bunch more
If these things are required, I would
recommend that you put them in the
hercules config file (without "\add").
In addition I doubt that they are
needed because I suspect you already
have something suitable in your
hercules config file.
Post by ***@yahoo.com [hercules-390]
/ASSGN SYSPRT,X'00E' ( one slash for the
integrated console but no slashes for the
ASSGN to make the ASSGN sort-of permanent)
/ASSGN SYSIN,X'00C' with the slash being for the
integrated console, not JOB Control
While I'm not very familiar with DOS, I
was under the impression that these
ASSIGN statements are normally done
(if required) as part of the JCL, not
typed in from the console.

BFN. Paul.
somitcw@yahoo.com [hercules-390]
2017-01-11 01:02:46 UTC
Permalink
Post by ***@yahoo.com.au [hercules-390]
Post by ***@yahoo.com [hercules-390]
\add X'01f',1050a
\add x'00c',2540r or other reader type
\add x'00d',2540p or other punch type
\add x'00e',1403 or other printer type
\add X'190',2314
...
bunch more
If these things are required, I would
recommend that you put them in the
hercules config file (without "\add").
In addition I doubt that they are
needed because I suspect you already
have something suitable in your
hercules config file.
How can removing "\add" from DOS operating
system command that defines the DOS view of
the hardware fit into a Hercules configuration file.

That is silly?
Post by ***@yahoo.com.au [hercules-390]
Post by ***@yahoo.com [hercules-390]
/ASSGN SYSPRT,X'00E' ( one slash for the
integrated console but no slashes for the
ASSGN to make the ASSGN sort-of permanent)
/ASSGN SYSIN,X'00C' with the slash being for the
integrated console, not JOB Control
While I'm not very familiar with DOS, I
was under the impression that these
ASSIGN statements are normally done
(if required) as part of the JCL, not
typed in from the console.
BFN. Paul.
They are JCL which DOS allows to be entered into
the DOS system console or a SYSRDR card reader.

( enter "/// display t ime" on an MVS console ).
( We used an MVS console to created JES2 spool
data sets when we couldn't start JES2 ( S XWTR ) ).
( Many other examples including TSSO/SSSO )

Since they are permanent ASSGNs and not related
to any specific JOB, either the DOS system console
or SYSRDR card images should be used.

A DOS system operator often allows disk data sets
to overlay others, enters JCL on the DOS system
console to assign tape drives, etc.

In DOS, the operator runs the system by the seat of their pants.
In MVS, the operator does what a machine tells them to do for
eight hours a day every workday, week, and year.
Different jobs for different operating systems.
Many places lost many operators when converting from a "D"
operating system to a full operating system.
kerravon86@yahoo.com.au [hercules-390]
2017-01-11 01:17:06 UTC
Permalink
Post by ***@yahoo.com [hercules-390]
Post by ***@yahoo.com.au [hercules-390]
Post by ***@yahoo.com [hercules-390]
\add X'01f',1050a
\add x'00c',2540r or other reader type
\add x'00d',2540p or other punch type
\add x'00e',1403 or other printer type
\add X'190',2314
If these things are required, I would
recommend that you put them in the
hercules config file (without "\add").
In addition I doubt that they are
needed because I suspect you already
have something suitable in your
hercules config file.
How can removing "\add" from DOS operating
system command that defines the DOS view of
the hardware fit into a Hercules configuration file.
Ok, sorry, if DOS doesn't know about
the hardware, I guess it needs to be
added. In that case, better via .rc than
being manually typed.

In fact, that's a general recommendation.
To ensure you have a reproducible
environment, stop typing things in via
the integrated console and put them
in a .rc file with appropriate pauses
so that you can secure your position.

BFN. Paul.
somitcw@yahoo.com [hercules-390]
2017-01-11 02:27:50 UTC
Permalink
Post by ***@yahoo.com.au [hercules-390]
Post by ***@yahoo.com [hercules-390]
Post by ***@yahoo.com.au [hercules-390]
Post by ***@yahoo.com [hercules-390]
\add X'01f',1050a
\add x'00c',2540r or other reader type
\add x'00d',2540p or other punch type
\add x'00e',1403 or other printer type
\add X'190',2314
If these things are required, I would
recommend that you put them in the
hercules config file (without "\add").
In addition I doubt that they are
needed because I suspect you already
have something suitable in your
hercules config file.
How can removing "\add" from DOS operating
system command that defines the DOS view of
the hardware fit into a Hercules configuration file.
Ok, sorry, if DOS doesn't know about
the hardware, I guess it needs to be
added. In that case, better via .rc than
being manually typed.
In fact, that's a general recommendation.
To ensure you have a reproducible
environment, stop typing things in via
the integrated console and put them
in a .rc file with appropriate pauses
so that you can secure your position.
BFN. Paul.
If the Physical Unit Block is missing for X'01F'
for SYSLOG, I assUme that all devices need
to be added,

While I would prefer using the Hercules.rc file
to IPL and add the devices but you reported an
issue with multiple commands from a script
or .rc file. A new user shouldn't need to fight
Hercules issues on top of learning DOS operations.

What most real DOS installations did when multiple
commands were needed, was to read them from a
card reader or a disk data set.
kerravon86@yahoo.com.au [hercules-390]
2017-01-11 02:32:28 UTC
Permalink
Post by ***@yahoo.com [hercules-390]
While I would prefer using the Hercules.rc file
to IPL and add the devices but you reported an
issue with multiple commands from a script
or .rc file. A new user shouldn't need to fight
Hercules issues on top of learning DOS operations.
There should be no issue if a "pause 1"
or a bit higher is put between commands.

It will help the new user if he gets
consistent results between runs,
so that he knows where he stands.

If he's not getting the exact same
result every run, then the probable
solution is to bump up the number
of seconds to pause.

BFN. Paul.
René Ferland ferland.rene@yahoo.com [hercules-390]
2017-01-11 00:30:55 UTC
Permalink
Post by ***@mac.com [hercules-390]
/ASSGN SYSPRT,X'00E' ( one slash for the
integrated console but no slashes for the
ASSGN to make the ASSGN sort-of permanent)
/ASSGN SYSIN,X'00C' with the slash being for the
integrated console, not JOB Control
While I'm not very familiar with DOS, I
was under the impression that these
ASSIGN statements are normally done
(if required) as part of the JCL, not
typed in from the console.

Both are possible. In the first case (above), the ASSGN remains in force by default until you change it. In the second case, the ASSGN lasts only for the duration of the job.

Rene FERLAND, Montreal
Rahim Azizarab rahimazizarab@yahoo.com [hercules-390]
2017-01-14 23:33:41 UTC
Permalink
Yes, Indeed I have been using this method for several years now to view my prints from Hercules on my web browser.  I just type localhost:1403 on the address bar and it displays my Hercules printouts.
000E  1403   127.0.0.1:1403  sockdev
000F  1403   127.0.0.1:1404  sockdev
 
regards;

Rahim Azizarab
  

  

Loading...