SNA NRJE User/Programmer Reference Manual (30292-90006)

226 AppendixA
Parsing Algoithms and User Exit Procedures
“Job Received” Message Exit Procedure
“Job Received” Message Exit Procedure
A description of the exit procedure to parse the console stream for a
“Job Received” message is shown below; the message is HASP100 for
JES2 and IAT6101 for JES3.
Syntax
LA BA I I
Integer Procedure CON( UserWorkArea , ConsoleRecord , Length , ReaderNum ,
BA BA
Jobnum , JobName )
Function Return:
Integer (-32768 through 32767). Procedure should return 1 if a “Job
Received” message is detected; otherwise, the procedure should
return 0.
Parameters
UserWorkArea
Logical array for input/output (of 100 words). This
array is initialized to zeros by NRJE, but it is not
subsequently modified by NRJE.
UserWorkArea can be
used for global storage.
ConsoleRecord
An input byte array containing a console message
from the host.
ConsoleRecord is decompressed and
translated into ASCII, using the Native-3000
EBCDIC-to-ASCII translation table.
Length
Input (positive) integer (passed by value). This
contains the number of bytes in
ConsoleRecord .
ReaderNum
An output integer value (passed by reference). The
number of the logical reader (1 through 7) for which the
“Job Received” message was received. The exit
procedure is responsible for translating the ASCII
value of the reader number into an integer value, using
the BINARY intrinsic. If the host subsystem is JES3,
this value should be set to 0, because JES3 “Job
Received” messages do not contain a reader number.
Jobnum