Routine: HLOCLNT

Information

HLOCLNT ;ALB/CJM- Client for sending messages - 10/4/94 1pm ;02/29/2012

Source file <HLOCLNT.m>

Name	Comments	DBIA/ICR reference
GETWORK(QUE)	;
TRY
FAILING(LINK)	;
LINKDOWN(HLCSTATE)	;
ERROR	;error trap
ZB3	;
DOWORK(QUEUE)	;sends the messages on the queue	ICR #6123 Status: Withdrawn Usage: Controlled Subscription
ZB0	;
ZB4
ZB5	;
END	;
CNNCTD(LINK)	;
DEQUE(UPDATE)	;
ZB25	;
TRANSMIT(HLCSTATE,MSGIEN,UPDATE)	;
ZB20
RETRY
ZB21
ZB22
ZB23