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

Appendix A 229
Parsing Algoithms and User Exit Procedures
“Job Received” Message Exit Procedure
begin ! It's a hit!
! Need to skip leading blanks, if any, so that what we return is
! left justified.
scan record(JNAME'POS) while BLANK,1;
@bptr := tos;
move jobname := bptr,(scan bptr until " "); ! Move until blank.
scan record(JNUM'POS) while BLANK,1;
@bptr := tos;
move job number := bptr while N; ! Move while numeric.
rdr'num := binary(record(RDR'POS),1);
parse'jes2'console := ON'RDR'MSG;
end;
! Now put that "hold" byte back:
record(length) := hold'byte;
end; ! Parse'JES2'Console.