SNA NRJE User/Programmer Reference Manual (30292-90006)
Appendix A 225
Parsing Algoithms and User Exit Procedures
Banner Decode Exit Procedure Speciļ¬cation
< ********************* Begin Get'Jobnumber ******************* >
if type = DATA'RECORD then
begin
if record(JOB'STRING'POS) = "JOB" then
begin ! A hit.
scan record(JOB'STRING'POS + 3) while " ",1;
@bptr := tos; ! Skip any leading blanks.
move job number := bptr while N; ! Move while numeric.
end ! If "JOB" found.
else
if record(JOB'STRING'POS) = "STC" or ! Check for Started Task
record(JOB'STRING'POS) = "TSU" then ! and Time Sharing User.
move job number := "-1 ";
end; ! If data record received.
! Else if PDIR record we'll just ignore it.
end; ! Get'Jobnumber