Routine: HLOPRSR3

Information

HLOPRSR3 ;ALB/CJM - Visual Parser 12 JUN 1997 10:00 am ;08/29/2008

Name	Comments	DBIA/ICR reference
SETUP(PARMS,MSG,POS,SEG)	;
DESCRIBE	;
LJ(STRING,LENGTH)	;
GETSEG(VALUE,SEG,VERSION)	;
GETFLD(VALUE,SEG,VERSION,FLD)	;
GETCOMP(VALUE,SEG,VERSION,FLD,COMP)	;
GETSUB(VALUE,SEG,VERSION,FLD,COMP,SUB)	;
HELP	;
LINE(TO,INC)	;msg line
X(TO,INC)	;current position within the line
Y(LINE)	;screen line of msg line = LINE
SEG(INC)	;returns the current segement #
FLD(SET)	;returns the currrent field #
REP(SET)	;returns the current repetition #
COMP(SET)	;returns the current component #
SUB(SET)	;returns the current sub-component #
SEGSTART(SEGMENT)	;
IOXY(Y,X)	; moves to screen position line=Y, col=X
OPTIONAL(CODE)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Sorry, your terminal is not configured to support this option!",!,"If working from a PC, you might try selecting a VT-series device type" Line Location: SETUP+11
Function Call: WRITE	Prompt: IORVON," Q:quit ?:help [Up/Down/Left/Right Arrow]:navigation ",IORVOFF Line Location: SETUP+49
Function Call: WRITE	Prompt: @IOSTBM Line Location: SETUP+50
Function Call: WRITE	Prompt: $$LJ($G(@DESCRIBE@(I)),80) Line Location: DESCRIBE+45
Function Call: WRITE	Prompt: $$LJ($G(MSG1(I)),80) Line Location: HELP+10