Routine: HLOUSR2

Information

HLOUSR2 ;ALB/CJM -ListManager Screen for viewing message errors;12 JUN 1997 10:00 am ;07/27/2010

Source file <HLOUSR2.m>

Name	Comments	DBIA/ICR reference
EN	;
SHOWLIST	;
SHOW
ADDTO(IEN,TIME,SCREEN,ERRCOUNT)	;
ASKPARMS(PARMS)	;
ASKMAX()
ASKAPP()	;
ASKSCR()	;
ASKYESNO(PROMPT,DEFAULT)	;
STRTSTPQ	;
ASKQUE(DIR)	;
AGAIN
ASKBEGIN(DEFAULT)	;
ASKEND(BEGIN)	;
LJ(STRING,LEN)	;
RJ(STRING,LEN)	;
I()	;
HEADER	;
HELP	;
GETSCRN(IEN,SCREEN)	;
SCREEN(ERROR,SCREEN)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"That queue is not stopped!" Line Location: STRTSTPQ+28
Function Call: WRITE	Prompt: !,"Enter the full, exact name of queue:" Line Location: AGAIN+0
Function Call: READ	Variable: QUEUE Timeout: 60 Line Location: AGAIN+2
Function Call: WRITE	Prompt: !,"Each message is placed on a queue that has an arbitrary name up to 20",!,"characters long." Line Location: AGAIN+3