-
Notifications
You must be signed in to change notification settings - Fork 7
/
hercrdr.html
211 lines (186 loc) · 7.11 KB
/
hercrdr.html
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 3.0//EN" "html.dtd">
<HTML>
<HEAD><TITLE>Hercules Version 4:
Submitting jobs via the socket reader</TITLE>
<LINK REL=STYLESHEET TYPE="text/css" HREF="hercules.css">
</HEAD>
<BODY BGCOLOR="#ffffcc" TEXT="#000000" LINK="#0000A0"
VLINK="#008040" ALINK="#000000">
<h1>Hercules Version 4: Submitting jobs via the socket reader</h1>
<p>
The "sockdev" option allows you to submit cards directly to a Hercules
card reader from outside of Hercules. What you do is define your reader
with the "sockdev" keyword and either a TCP/IP port number or the name
of a Unix Domain Socket. Then whenever you want to submit a card deck
to that particular card reader, you use an external program to connect
to the socket and transmit the cards to the reader.
<p>
Socket readers were implemented by Fish, based upon code originally
contributed by Malcolm Beattie.
<p>
Socket readers are defined in the Hercules configuration file like this:
<p>
<blockquote>
<code>
<i>devnum</i> <i>devtype</i> <i>sockspec</i> sockdev [<i>option ...</i>]
</code>
</blockquote>
<p>
The socket specification <i>sockspec</i> can take any of the following
formats:
<blockquote>
<dl>
<dt><code><em>ipaddr</em>:<em>port</em></code>
<dd><p>The reader listens on the specified IP address and port number.
<em>ipaddr</em> must be the IP address of an interface on the local
system.
For example, <code>127.0.0.1:1234</code> to accept only jobs submitted
locally via the loopback interface.
<p>
<dt><code><em>hostname</em>:<em>port</em></code>
<dd><p>Similar to the previous example, where <em>hostname</em> must resolve
to an IP address belonging to the local system.
Example: <code>localhost:1234</code>.
<p>
<dt><code><em>port</em></code>
<dd><p>The reader listens on the specified port number and accepts jobs
submitted to any IP address defined on the local system.
Example: <code>1234</code>.
<p>
<dt><code><em>sockpath/sockname</em></code>
<dd><p>The reader listens on the specified Unix Domain Socket.
Example: <code>/tmp/hercrdr.00C</code>.
<p>
</dl>
</blockquote>
<h3>Examples</h3>
<pre><code>
000A 2501 127.0.0.1:2501 sockdev ascii trunc eof
000C 3505 localhost:1234 sockdev ascii trunc eof
0012 3505 3505 sockdev ascii trunc eof
0014 2501 /tmp/hercrdr.014 sockdev ascii trunc eof
</code></pre>
<h2>Submitting jobs from Windows</h2>
<p>
The "HercRdr" program, distributed as part of Fish's
<a href="http://www.softdevlabs.com/hercgui">GUI Package</a>,
allows you to send jobs to a socket reader via TCP/IP.
Simply enter "HercRdr" from the command line to submit your file(s).
Here's the "help information" that's displayed whenever you enter
"HercRdr" without any parameters:
<pre><code>
C:\WINDOWS>hercrdr
Submits card file(s) to a Hercules card reader bound to a given socket:port.
Format:
HERCRDR [-nnn] [host:port] file [file...]
Where:
-nnn timeout value in seconds (1-999; default is 3)
host:port sock_spec of target reader (if not specified,
value of HERCRDR environ var is used, if set)
file file(s) to be submitted
Examples:
HERCRDR localhost:1234 fileone.txt filetwo.txt
set HERCRDR=localhost:1234
HERCRDR file3.txt file4.txt
HERCRDR override:5678 filefive.txt
HERCRDR 192.168.0.1:5678 666.txt 777.txt 888.txt 999.txt
Returns:
-1 unclassified error
0 file(s) successfully submitted
1 no route to host (bad sock_spec or connection refused)
2 timeout value exceeded while trying to connect
3 transmission error (e.g. connection prematurely closed)
4 file not found (or other file error)
</code></pre>
<h3>How to submit jobs directly from SPF/PC</h3>
<p>
If you are lucky enough to have a copy of
SPF/PC Version 4 or SPF/Pro (produced by
<a href="http://www.command-technology.com/ctcinfo.htm">CTC</a>
but unfortunately no longer available),
then you can capture the authentic mainframe experience by submitting
jobs directly from your edit session. The SUB command can be implemented
by means of a REXX macro, such as this one provided by Volker Bandke:
<pre><code>
/* +----------------------------- REXX -----------------------------+ */
/* */
/* Name: D:\APPS\SPFPRO\REXX\USER\SUB.SPF */
/* */
/* Type: SPF edit macro */
/* */
/* Desc: submit JCL to MVS 3.8 */
/* */
/* Creation date: 24 Aug 1999, creation time: 18:49:40 */
/* */
/* Author: (c) Volker Bandke */
/* */
/* +----------------------------------------------------------------+ */
'isredit macro (p1 p2 p3 p4 p5 p6 p7 p8 p9)'
"ISREDIT (member) = MEMBER"
"ISPEXEC CONTROL ERRORS CANCEL"
parse upper var member file '.' ext
do
'ISREDIT REPLACE' $$$$$$$$.SPF '.ZF .ZL'
ADDRESS "CMD" "HERCRDR 192.168.1.102:3505 $$$$$$$$.SPF"
zedsmsg = 'File submitted'
zedlmsg = 'The member '||member||' has been submitted to MVS'
'ispexec setmsg msg(isrz000)'
ADDRESS "CMD" "DELETE $$$$$$$$.SPF"
end
EXIT 0
</code></pre>
<h2>Submitting jobs from Unix</h2>
<h3>Using a Perl script</h3>
<p>
Malcolm Beattie has provided a simple Perl script which can
submit jobs using either TCP/IP or Unix Domain Sockets.
<p>
The script is invoked using one of the following command formats:
<p>
<blockquote>
<pre>
hercsub 192.168.1.102:3505 dummy.jcl
hercsub /tmp/hercrdr.00C dummy jcl</pre>
</blockquote>
Here is the sample script:
<pre><code>
#!/usr/bin/perl
use Socket;
use IO::Socket::UNIX;
use IO::Socket::INET;
if (@ARGV < 1) {
print STDERR "Usage: hercsub socket_spec [job]\n";
exit 2;
}
my $spec = shift @ARGV;
my $sock;
if ($spec =~ m{^/}) {
$sock = IO::Socket::UNIX->new(Peer => $spec);
} else {
$sock = IO::Socket::INET->new(PeerAddr => $spec);
}
die "Failed to connect to socket $spec: $!\n" unless defined($sock);
while (<>) {
print $sock $_;
}
</code></pre>
<h3>Using the netcat program</h3>
<p>
The netcat (nc) program can also be used to submit files to a Hercules
reader via TCP/IP.
<p>
Install netcat (which is useful for innumerable other things as well)
and use:
<p>
<blockquote>
<code>nc -w1 localhost 1234 < dummy.jcl</code>
</blockquote>
<p>
For more information, type <code>man nc</code>.
<p><center><hr width=15% noshade>
<a href="hercconf.html"><img src="images/back.gif" border=0></a>
</center>
<small>
<p>Last updated 21 Apr 2006
</BODY>
</HTML>