HLOFILER ;ALB/CJM- Passes messages on the incoming queue to the applications - 10/4/94 1pm ;03/12/2012
Source file <HLOFILER.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
GETWORK(QUE) | ;
|
|
DOWORK(QUEUE) | ;passes the messages on the queue to the application
|
|
ENDWORK | ;where the execution resumes upon an error
|
|
DEQUE(MSGIEN,PURGE,ORIG) | ;
|
|
ZB2 | ||
ERROR | ;error trap
|
|
ERROR2 | ;
|
|
ERROR3 | ;error trap for application context
|