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

Appendix A 227
Parsing Algoithms and User Exit Procedures
“Job Received” Message Exit Procedure
An output byte array (of 4 bytes). Jobnum is initialized
to blanks by NRJE prior to each call to the exit
procedure. If
ConsoleRecord contains the “Job
Received” message from the host,
Jobnum is to be
returned here, left-justified (four bytes maximum).
JobName
Output byte array (of 8 bytes). JobName is initialized to
blanks prior to each call to the exit procedure. If the
procedure detects a “Job Received” message, it is to
return the name of the job to
JobName , left-justified.
Description
The procedure is identified in the NMMGR Workstation Data screen. If
the procedure is not specified, an internal algorithm is used to parse the
message. This algorithm will work unless the host job entry subsystem
has been modified.
If the procedure detects a “Job Received” message from the host, it is to
return the integer value of 1 and the corresponding job number and job
name. Any other function return value (≠ 1) is ignored by NRJE. The
procedure is called by the NRJELU in user mode, with traps on. The
NRJELU is prepped with IA, BA, DS, MR, PH, and PM capabilities. An
example of a console exit procedure in SPL to parse a JES2 HASP100
message is shown below.
Example
integer procedure parse'jes2'console(work'area,record,length,
rdr'num,job number,jobname);
value length;
logical array work'area; ! In, scratch area.
byte array record; ! In, the console record.
integer length, ! In, positive byte count of record.
rdr'num; ! Out, range 1 to 7 if HASP100
! detected.
byte array job number, ! Out, set if HASP100 detected.
jobname; ! Out, set if HASP100 detected.
comment